1. Shlomi Fish
  2. LMN

Commits

Shlomi Fish  committed 03b90a7

Add the start of the AdHoc file manager.

  • Participants
  • Parent commits f659f88
  • Branches default

Comments (0)

Files changed (4)

File App-Qt-AdHocFileManager/dist.ini

View file
  • Ignore whitespace
+name    = App-Qt-AdHocFileManager
+author  = Shlomi Fish <shlomif@cpan.org>
+license = MIT
+copyright_holder = Shlomi Fish
+copyright_year   = 2012
+
+version = 0.001
+
+[@Basic]

File App-Qt-AdHocFileManager/lib/App/Qt/AdHocFileManager.pm

View file
  • Ignore whitespace
+package App::Qt::AdHocFileManager;
+
+use strict;
+use warnings;
+
+use QtCore4;
+use QtGui4;
+use App::Qt::AdHocFileManager::Window;
+
+sub main {
+    my $app = Qt::Application( \@ARGV );
+    my $window = App::Qt::AdHocFileManager::Window();
+    $window->show();
+    exit $app->exec();
+}
+
+main();
+1;

File App-Qt-AdHocFileManager/lib/App/Qt/AdHocFileManager/Window.pm

View file
  • Ignore whitespace
+package App::Qt::AdHocFileManager::Window;
+
+use strict;
+use warnings;
+
+use QtCore4;
+use QtGui4;
+# [0]
+use QtCore4::isa qw( Qt::Widget );
+use QtCore4::slots update => [];
+
+sub addendLineEdit() {
+    return this->{addendLineEdit};
+}
+
+sub addend2LineEdit() {
+    return this->{addend2LineEdit};
+}
+
+sub setAddendLineEdit() {
+    return this->{addendLineEdit} = shift;
+}
+
+sub setAddend2LineEdit() {
+    return this->{addend2LineEdit} = shift;
+}
+
+sub resultLineEdit() {
+    return this->{resultLineEdit};
+}
+
+sub setAccessLineEdit() {
+    return this->{resultLineEdit} = shift;
+}
+
+sub update {
+    this->resultLineEdit->setText(
+        this->addendLineEdit()->text() + this->addend2LineEdit->text()
+    );
+}
+
+# [0]
+
+# [0]
+sub NEW {
+    my ( $class, $parent ) = @_;
+    $class->SUPER::NEW( $parent );
+
+    my $addendGroup = Qt::GroupBox();
+
+    my $addendLabel = Qt::Label(this->tr('Addend #1:'));
+
+    my $addend2Group = Qt::GroupBox();
+
+    my $addend2Label = Qt::Label(this->tr('Addend #2:'));
+
+    this->setAddendLineEdit( Qt::LineEdit("1") );
+    this->setAddend2LineEdit( Qt::LineEdit("1") );
+
+    my $resultGroup = Qt::GroupBox();
+
+    my $resultLabel = Qt::Label(this->tr('Result:'));
+
+    this->setAccessLineEdit( Qt::LineEdit() );
+
+    this->resultLineEdit->setReadOnly(1);
+
+    my $addendLayout = Qt::GridLayout();
+    $addendLayout->addWidget($addendLabel, 0, 0);
+    $addendLayout->addWidget(this->addendLineEdit, 1, 0, 1, 2);
+    $addendGroup->setLayout($addendLayout);
+
+    this->addendLineEdit->setValidator(Qt::DoubleValidator(5,
+            999.0, 2, this->addendLineEdit));
+
+    my $addend2Layout = Qt::GridLayout();
+    $addend2Layout->addWidget($addend2Label, 0, 0);
+    $addend2Layout->addWidget(this->addend2LineEdit, 1, 0, 1, 2);
+    $addend2Group->setLayout($addend2Layout);
+
+    this->addend2LineEdit->setValidator(Qt::DoubleValidator(5,
+            999.0, 2, this->addend2LineEdit));
+
+    my $resultLayout = Qt::GridLayout();
+    $resultLayout->addWidget($resultLabel, 0, 0);
+    $resultLayout->addWidget(this->resultLineEdit, 1, 0, 1, 2);
+    $resultGroup->setLayout($resultLayout);
+# [7]
+
+# [8]
+    my $layout = Qt::GridLayout();
+    $layout->addWidget($addendGroup, 0, 0);
+    $layout->addWidget($addend2Group, 0, 1);
+    $layout->addWidget($resultGroup, 0, 2);
+
+    my $update_button = Qt::PushButton("Update");
+    $layout->addWidget($update_button, 1, 0, 1, 2);
+    this->setLayout($layout);
+
+    this->connect($update_button, SIGNAL 'clicked()',
+        this, SLOT 'update()');
+
+    this->setWindowTitle(this->tr('Mini Calculator'));
+
+    this->update();
+}
+
+1;

File minicalc/Window.pm

  • Ignore whitespace
-package Window;
-
-use strict;
-use warnings;
-
-use QtCore4;
-use QtGui4;
-# [0]
-use QtCore4::isa qw( Qt::Widget );
-use QtCore4::slots update => [];
-
-sub addendLineEdit() {
-    return this->{addendLineEdit};
-}
-
-sub addend2LineEdit() {
-    return this->{addend2LineEdit};
-}
-
-sub setAddendLineEdit() {
-    return this->{addendLineEdit} = shift;
-}
-
-sub setAddend2LineEdit() {
-    return this->{addend2LineEdit} = shift;
-}
-
-sub resultLineEdit() {
-    return this->{resultLineEdit};
-}
-
-sub setAccessLineEdit() {
-    return this->{resultLineEdit} = shift;
-}
-
-sub update {
-    this->resultLineEdit->setText(
-        this->addendLineEdit()->text() + this->addend2LineEdit->text()
-    );
-}
-
-# [0]
-
-# [0]
-sub NEW {
-    my ( $class, $parent ) = @_;
-    $class->SUPER::NEW( $parent );
-
-    my $addendGroup = Qt::GroupBox();
-
-    my $addendLabel = Qt::Label(this->tr('Addend #1:'));
-
-    my $addend2Group = Qt::GroupBox();
-
-    my $addend2Label = Qt::Label(this->tr('Addend #2:'));
-    
-    this->setAddendLineEdit( Qt::LineEdit("1") );
-    this->setAddend2LineEdit( Qt::LineEdit("1") );
-
-    my $resultGroup = Qt::GroupBox();
-
-    my $resultLabel = Qt::Label(this->tr('Result:'));
-
-    this->setAccessLineEdit( Qt::LineEdit() );
-
-    this->resultLineEdit->setReadOnly(1);
-
-    my $addendLayout = Qt::GridLayout();
-    $addendLayout->addWidget($addendLabel, 0, 0);
-    $addendLayout->addWidget(this->addendLineEdit, 1, 0, 1, 2);
-    $addendGroup->setLayout($addendLayout);
-
-    this->addendLineEdit->setValidator(Qt::DoubleValidator(5,
-            999.0, 2, this->addendLineEdit));
-
-    my $addend2Layout = Qt::GridLayout();
-    $addend2Layout->addWidget($addend2Label, 0, 0);
-    $addend2Layout->addWidget(this->addend2LineEdit, 1, 0, 1, 2);
-    $addend2Group->setLayout($addend2Layout);
-
-    this->addend2LineEdit->setValidator(Qt::DoubleValidator(5,
-            999.0, 2, this->addend2LineEdit));
-
-    my $resultLayout = Qt::GridLayout();
-    $resultLayout->addWidget($resultLabel, 0, 0);
-    $resultLayout->addWidget(this->resultLineEdit, 1, 0, 1, 2);
-    $resultGroup->setLayout($resultLayout);
-# [7]
-
-# [8]
-    my $layout = Qt::GridLayout();
-    $layout->addWidget($addendGroup, 0, 0);
-    $layout->addWidget($addend2Group, 0, 1);
-    $layout->addWidget($resultGroup, 0, 2);
-
-    my $update_button = Qt::PushButton("Update");
-    $layout->addWidget($update_button, 1, 0, 1, 2);
-    this->setLayout($layout);
-
-    this->connect($update_button, SIGNAL 'clicked()',
-        this, SLOT 'update()');
-
-    this->setWindowTitle(this->tr('Mini Calculator'));
-
-    this->update();
-}
-
-1;