Move PerlQt

1 files changed, 0 insertions, 376 deletions

diff --git a/PerlQt/examples/richedit/richedit.pl b/PerlQt/examples/richedit/richedit.pl
deleted file mode 100644
index d2dee84..0000000
--- a/PerlQt/examples/richedit/richedit.pl
+++ /dev/null
@@ -1,376 +0,0 @@
-# Form implementation generated from reading ui file 'richedit.ui'
-#
-# Created: jeu jun 13 20:02:56 2002
-#      by: The PerlTQt User Interface Compiler (puic)
-#
-
-
-use strict;
-
-# the below is a manual addition... 
-# maybe puic should do that.
-# Allows to run a modular application from anywhere
-use FindBin;
-use lib "$FindBin::Bin";                                 
-
-package EditorForm;
-use TQt;
-use TQt::isa qw(TQt::MainWindow);
-use TQt::slots
-    init => [],
-    fileExit => [],
-    fileNew => [],
-    fileOpen => [],
-    fileSave => [],
-    fileSaveAs => [],
-    helpAbout => [],
-    helpContents => [],
-    helpIndex => [],
-    changeAlignment => ['TQAction*'],
-    saveAndContinue => ['const TQString&'];
-use TQt::attributes qw(
-    textEdit
-    fontComboBox
-    SpinBox2
-    menubar
-    fileMenu
-    editMenu
-    PopupMenu_2
-    helpMenu
-    toolBar
-    Toolbar
-    fileNewAction
-    fileOpenAction
-    fileSaveAction
-    fileSaveAsAction
-    fileExitAction
-    editUndoAction
-    editRedoAction
-    editCutAction
-    editCopyAction
-    editPasteAction
-    helpContentsAction
-    helpIndexAction
-    helpAboutAction
-    boldAction
-    italicAction
-    underlineAction
-    alignActionGroup
-    leftAlignAction
-    rightAlignAction
-    centerAlignAction
-);
-
-
-sub uic_load_pixmap_EditorForm
-{
-    my $pix = TQt::Pixmap();
-    my $m = TQt::MimeSourceFactory::defaultFactory()->data(shift);
-
-    if($m)
-    {
-        TQt::ImageDrag::decode($m, $pix);
-    }
-
-    return $pix;
-}
-
-
-sub NEW
-{
-    shift->SUPER::NEW(@_[0..2]);
-    this->statusBar();
-
-    if( this->name() eq "unnamed" )
-    {
-        this->setName("EditorForm");
-    }
-    this->resize(646,436);
-    this->setCaption(this->trUtf8("Rich Edit"));
-
-    this->setCentralWidget(TQt::Widget(this, "qt_central_widget"));
-    my $EditorFormLayout = TQt::HBoxLayout(this->centralWidget(), 11, 6, '$EditorFormLayout');
-
-    textEdit = TQt::TextEdit(this->centralWidget(), "textEdit");
-    textEdit->setSizePolicy(TQt::SizePolicy(7, 7, 0, 0, textEdit->sizePolicy()->hasHeightForWidth()));
-    textEdit->setTextFormat(&TQt::TextEdit::RichText);
-    $EditorFormLayout->addWidget(textEdit);
-
-    fileNewAction= TQt::Action(this,"fileNewAction");
-    fileNewAction->setIconSet(TQt::IconSet(uic_load_pixmap_EditorForm("filenew")));
-    fileNewAction->setText(this->trUtf8("New"));
-    fileNewAction->setMenuText(this->trUtf8("&New"));
-    fileNewAction->setAccel(TQt::KeySequence(int(4194382)));
-    fileOpenAction= TQt::Action(this,"fileOpenAction");
-    fileOpenAction->setIconSet(TQt::IconSet(uic_load_pixmap_EditorForm("fileopen")));
-    fileOpenAction->setText(this->trUtf8("Open"));
-    fileOpenAction->setMenuText(this->trUtf8("&Open..."));
-    fileOpenAction->setAccel(TQt::KeySequence(int(4194383)));
-    fileSaveAction= TQt::Action(this,"fileSaveAction");
-    fileSaveAction->setIconSet(TQt::IconSet(uic_load_pixmap_EditorForm("filesave")));
-    fileSaveAction->setText(this->trUtf8("Save"));
-    fileSaveAction->setMenuText(this->trUtf8("&Save"));
-    fileSaveAction->setAccel(TQt::KeySequence(int(4194387)));
-    fileSaveAsAction= TQt::Action(this,"fileSaveAsAction");
-    fileSaveAsAction->setText(this->trUtf8("Save As"));
-    fileSaveAsAction->setMenuText(this->trUtf8("Save &As..."));
-    fileSaveAsAction->setAccel(TQt::KeySequence(int(0)));
-    fileExitAction= TQt::Action(this,"fileExitAction");
-    fileExitAction->setText(this->trUtf8("Exit"));
-    fileExitAction->setMenuText(this->trUtf8("E&xit"));
-    fileExitAction->setAccel(TQt::KeySequence(int(0)));
-    editUndoAction= TQt::Action(this,"editUndoAction");
-    editUndoAction->setIconSet(TQt::IconSet(uic_load_pixmap_EditorForm("undo")));
-    editUndoAction->setText(this->trUtf8("Undo"));
-    editUndoAction->setMenuText(this->trUtf8("&Undo"));
-    editUndoAction->setAccel(TQt::KeySequence(int(4194394)));
-    editRedoAction= TQt::Action(this,"editRedoAction");
-    editRedoAction->setIconSet(TQt::IconSet(uic_load_pixmap_EditorForm("redo")));
-    editRedoAction->setText(this->trUtf8("Redo"));
-    editRedoAction->setMenuText(this->trUtf8("&Redo"));
-    editRedoAction->setAccel(TQt::KeySequence(int(4194393)));
-    editCutAction= TQt::Action(this,"editCutAction");
-    editCutAction->setIconSet(TQt::IconSet(uic_load_pixmap_EditorForm("editcut")));
-    editCutAction->setText(this->trUtf8("Cut"));
-    editCutAction->setMenuText(this->trUtf8("&Cut"));
-    editCutAction->setAccel(TQt::KeySequence(int(4194392)));
-    editCopyAction= TQt::Action(this,"editCopyAction");
-    editCopyAction->setIconSet(TQt::IconSet(uic_load_pixmap_EditorForm("editcopy")));
-    editCopyAction->setText(this->trUtf8("Copy"));
-    editCopyAction->setMenuText(this->trUtf8("C&opy"));
-    editCopyAction->setAccel(TQt::KeySequence(int(4194371)));
-    editPasteAction= TQt::Action(this,"editPasteAction");
-    editPasteAction->setIconSet(TQt::IconSet(uic_load_pixmap_EditorForm("editpaste")));
-    editPasteAction->setText(this->trUtf8("Paste"));
-    editPasteAction->setMenuText(this->trUtf8("&Paste"));
-    editPasteAction->setAccel(TQt::KeySequence(int(4194390)));
-    helpContentsAction= TQt::Action(this,"helpContentsAction");
-    helpContentsAction->setText(this->trUtf8("Contents"));
-    helpContentsAction->setMenuText(this->trUtf8("&Contents..."));
-    helpContentsAction->setAccel(TQt::KeySequence(int(0)));
-    helpIndexAction= TQt::Action(this,"helpIndexAction");
-    helpIndexAction->setText(this->trUtf8("Index"));
-    helpIndexAction->setMenuText(this->trUtf8("&Index..."));
-    helpIndexAction->setAccel(TQt::KeySequence(int(0)));
-    helpAboutAction= TQt::Action(this,"helpAboutAction");
-    helpAboutAction->setText(this->trUtf8("About"));
-    helpAboutAction->setMenuText(this->trUtf8("&About..."));
-    helpAboutAction->setAccel(TQt::KeySequence(int(0)));
-    boldAction= TQt::Action(this,"boldAction");
-    boldAction->setToggleAction(1);
-    boldAction->setIconSet(TQt::IconSet(uic_load_pixmap_EditorForm("textbold")));
-    boldAction->setText(this->trUtf8("bold"));
-    boldAction->setMenuText(this->trUtf8("&Bold"));
-    boldAction->setAccel(TQt::KeySequence(int(272629826)));
-    italicAction= TQt::Action(this,"italicAction");
-    italicAction->setToggleAction(1);
-    italicAction->setIconSet(TQt::IconSet(uic_load_pixmap_EditorForm("textitalic")));
-    italicAction->setText(this->trUtf8("italic"));
-    italicAction->setMenuText(this->trUtf8("&Italic"));
-    italicAction->setAccel(TQt::KeySequence(int(272629833)));
-    underlineAction= TQt::Action(this,"underlineAction");
-    underlineAction->setToggleAction(1);
-    underlineAction->setIconSet(TQt::IconSet(uic_load_pixmap_EditorForm("textunder")));
-    underlineAction->setText(this->trUtf8("underline"));
-    underlineAction->setMenuText(this->trUtf8("&Underline"));
-    underlineAction->setAccel(TQt::KeySequence(int(272629845)));
-    alignActionGroup= TQt::ActionGroup(this,"alignActionGroup");
-    alignActionGroup->setText(this->trUtf8("align"));
-    alignActionGroup->setUsesDropDown(0);
-    leftAlignAction= TQt::Action(alignActionGroup,"leftAlignAction");
-    leftAlignAction->setToggleAction(1);
-    leftAlignAction->setIconSet(TQt::IconSet(uic_load_pixmap_EditorForm("textleft")));
-    leftAlignAction->setText(this->trUtf8("left"));
-    leftAlignAction->setMenuText(this->trUtf8("&Left"));
-    leftAlignAction->setAccel(TQt::KeySequence(int(272629836)));
-    rightAlignAction= TQt::Action(alignActionGroup,"rightAlignAction");
-    rightAlignAction->setToggleAction(1);
-    rightAlignAction->setIconSet(TQt::IconSet(uic_load_pixmap_EditorForm("textright")));
-    rightAlignAction->setText(this->trUtf8("right"));
-    rightAlignAction->setMenuText(this->trUtf8("&Right"));
-    rightAlignAction->setAccel(TQt::KeySequence(int(272629842)));
-    centerAlignAction= TQt::Action(alignActionGroup,"centerAlignAction");
-    centerAlignAction->setToggleAction(1);
-    centerAlignAction->setIconSet(TQt::IconSet(uic_load_pixmap_EditorForm("textcenter")));
-    centerAlignAction->setText(this->trUtf8("center"));
-    centerAlignAction->setMenuText(this->trUtf8("&Center"));
-
-
-    toolBar = TQt::ToolBar("", this, &DockTop);
-
-    toolBar->setLabel(this->trUtf8("Tools"));
-    fileNewAction->addTo(toolBar);
-    fileOpenAction->addTo(toolBar);
-    fileSaveAction->addTo(toolBar);
-    toolBar->addSeparator;
-    editUndoAction->addTo(toolBar);
-    editRedoAction->addTo(toolBar);
-    editCutAction->addTo(toolBar);
-    editCopyAction->addTo(toolBar);
-    editPasteAction->addTo(toolBar);
-    Toolbar = TQt::ToolBar("", this, &DockTop);
-
-    Toolbar->setLabel(this->trUtf8("Toolbar"));
-    leftAlignAction->addTo(Toolbar);
-    centerAlignAction->addTo(Toolbar);
-    rightAlignAction->addTo(Toolbar);
-    Toolbar->addSeparator;
-    boldAction->addTo(Toolbar);
-    italicAction->addTo(Toolbar);
-    underlineAction->addTo(Toolbar);
-    Toolbar->addSeparator;
-
-    fontComboBox = TQt::ComboBox(0, Toolbar, "fontComboBox");
-
-    SpinBox2 = TQt::SpinBox(Toolbar, "SpinBox2");
-    SpinBox2->setMinValue(int(6));
-    SpinBox2->setValue(int(10));
-
-
-    menubar= TQt::MenuBar( this, "menubar");
-
-    fileMenu= TQt::PopupMenu(this);
-    fileNewAction->addTo(fileMenu);
-    fileOpenAction->addTo(fileMenu);
-    fileSaveAction->addTo(fileMenu);
-    fileSaveAsAction->addTo(fileMenu);
-    fileMenu->insertSeparator;
-    fileExitAction->addTo(fileMenu);
-    menubar->insertItem(this->trUtf8("&File"), fileMenu);
-
-    editMenu= TQt::PopupMenu(this);
-    editUndoAction->addTo(editMenu);
-    editRedoAction->addTo(editMenu);
-    editMenu->insertSeparator;
-    editCutAction->addTo(editMenu);
-    editCopyAction->addTo(editMenu);
-    editPasteAction->addTo(editMenu);
-    menubar->insertItem(this->trUtf8("&Edit"), editMenu);
-
-    PopupMenu_2= TQt::PopupMenu(this);
-    leftAlignAction->addTo(PopupMenu_2);
-    rightAlignAction->addTo(PopupMenu_2);
-    centerAlignAction->addTo(PopupMenu_2);
-    PopupMenu_2->insertSeparator;
-    boldAction->addTo(PopupMenu_2);
-    italicAction->addTo(PopupMenu_2);
-    underlineAction->addTo(PopupMenu_2);
-    menubar->insertItem(this->trUtf8("F&ormat"), PopupMenu_2);
-
-    helpMenu= TQt::PopupMenu(this);
-    helpContentsAction->addTo(helpMenu);
-    helpIndexAction->addTo(helpMenu);
-    helpMenu->insertSeparator;
-    helpAboutAction->addTo(helpMenu);
-    menubar->insertItem(this->trUtf8("&Help"), helpMenu);
-
-
-
-    TQt::Object::connect(fileNewAction, TQT_SIGNAL "activated()", this, TQT_SLOT "fileNew()");
-    TQt::Object::connect(fileOpenAction, TQT_SIGNAL "activated()", this, TQT_SLOT "fileOpen()");
-    TQt::Object::connect(fileSaveAction, TQT_SIGNAL "activated()", this, TQT_SLOT "fileSave()");
-    TQt::Object::connect(fileSaveAsAction, TQT_SIGNAL "activated()", this, TQT_SLOT "fileSaveAs()");
-    TQt::Object::connect(fileExitAction, TQT_SIGNAL "activated()", this, TQT_SLOT "fileExit()");
-    TQt::Object::connect(helpIndexAction, TQT_SIGNAL "activated()", this, TQT_SLOT "helpIndex()");
-    TQt::Object::connect(helpContentsAction, TQT_SIGNAL "activated()", this, TQT_SLOT "helpContents()");
-    TQt::Object::connect(helpAboutAction, TQT_SIGNAL "activated()", this, TQT_SLOT "helpAbout()");
-    TQt::Object::connect(SpinBox2, TQT_SIGNAL "valueChanged(int)", textEdit, TQT_SLOT "setPointSize(int)");
-    TQt::Object::connect(editCutAction, TQT_SIGNAL "activated()", textEdit, TQT_SLOT "cut()");
-    TQt::Object::connect(editPasteAction, TQT_SIGNAL "activated()", textEdit, TQT_SLOT "paste()");
-    TQt::Object::connect(editCopyAction, TQT_SIGNAL "activated()", textEdit, TQT_SLOT "copy()");
-    TQt::Object::connect(editRedoAction, TQT_SIGNAL "activated()", textEdit, TQT_SLOT "redo()");
-    TQt::Object::connect(editUndoAction, TQT_SIGNAL "activated()", textEdit, TQT_SLOT "undo()");
-    TQt::Object::connect(alignActionGroup, TQT_SIGNAL "selected(TQAction*)", this, TQT_SLOT "changeAlignment(TQAction*)");
-    TQt::Object::connect(underlineAction, TQT_SIGNAL "toggled(bool)", textEdit, TQT_SLOT "setUnderline(bool)");
-    TQt::Object::connect(italicAction, TQT_SIGNAL "toggled(bool)", textEdit, TQT_SLOT "setItalic(bool)");
-    TQt::Object::connect(boldAction, TQT_SIGNAL "toggled(bool)", textEdit, TQT_SLOT "setBold(bool)");
-    TQt::Object::connect(fontComboBox, TQT_SIGNAL "activated(const TQString&)", textEdit, TQT_SLOT "setFamily(const TQString&)");
-    TQt::Object::connect(fontComboBox, TQT_SIGNAL "activated(const TQString&)", textEdit, TQT_SLOT "setFocus()");
-
-    init();
-}
-
-
-sub init
-{
-
-    textEdit->setFocus;
-    my $fonts = TQt::FontDatabase;
-    fontComboBox->insertStringList($fonts->families);
-    my $font = lc textEdit->family;
-    for(my $i = 0; $i < fontComboBox->count; $i++) {
-        if($font eq fontComboBox->text($i)) {
-            fontComboBox->setCurrentItem($i);
-            last;
-        }
-    }
-
-}
-
-sub fileExit
-{
-    print "EditorForm->fileExit(): Not implemented yet.\n";
-}
-
-sub fileNew
-{
-    print "EditorForm->fileNew(): Not implemented yet.\n";
-}
-
-sub fileOpen
-{
-    print "EditorForm->fileOpen(): Not implemented yet.\n";
-}
-
-sub fileSave
-{
-    print "EditorForm->fileSave(): Not implemented yet.\n";
-}
-
-sub fileSaveAs
-{
-    print "EditorForm->fileSaveAs(): Not implemented yet.\n";
-}
-
-sub helpAbout
-{
-    print "EditorForm->helpAbout(): Not implemented yet.\n";
-}
-
-sub helpContents
-{
-    print "EditorForm->helpContents(): Not implemented yet.\n";
-}
-
-sub helpIndex
-{
-    print "EditorForm->helpIndex(): Not implemented yet.\n";
-}
-
-sub changeAlignment
-{
-    print "EditorForm->changeAlignment(TQAction*): Not implemented yet.\n";
-}
-
-sub saveAndContinue
-{
-    print "EditorForm->saveAndContinue(const TQString&): Not implemented yet.\n";
-}
-
-1;
-
-
-package main;
-
-use TQt;
-use EditorForm;
-use imageCollection;
-
-my $a = TQt::Application(\@ARGV);
-TQt::Object::connect($a, TQT_SIGNAL("lastWindowClosed()"), $a, TQT_SLOT("quit()"));
-my $w = EditorForm;
-$a->setMainWidget($w);
-$w->show;
-exit $a->exec;
-
-