Changeset 8575

Timestamp:

10/03/09 07:29:28 (2 years ago)

Author:

azawawi

Message:

[Padre] (win32) Display a message box under wperl.exe when 'padre --version' is requested

File:

• trunk/Padre/script/padre (modified) (1 diff)

trunk/Padre/script/padre

@@ -70 +70 @@
 
 if ($VERSION) {
-    print "Perl Application Development and Refactoring Environment $Padre::VERSION\n";
+    my $msg = "Perl Application Development and Refactoring Environment $Padre::VERSION\n";
+    if ( $^O eq 'MSWin32' and $^X =~ /wperl\.exe/ ) {
+
+        # Under wperl, there is no console so we will use
+        # a message box
+        require Padre::Wx;
+        Wx::MessageBox(
+            $msg,
+            Wx::gettext("Version"),
+            Wx::wxOK(),
+        );
+    } else {
+        print $msg;
+    }
     exit(0);
 }