Changeset 463

Timestamp:

10/25/08 10:08:08 (3 years ago)

Author:

adamk

Message:

If running from a SVN checkout, say so in the Window title

File:

• trunk/lib/Padre/Wx/MainWindow.pm (modified) (1 diff)

trunk/lib/Padre/Wx/MainWindow.pm

@@ -57 +57 @@
 
     # Create the main panel object
+    my $title = "Padre $Padre::VERSION ";
+    if ( $0 =~ /padre$/ ) {
+        my $dir = $0;
+        $dir =~ s/padre$//;
+        if ( -d "$dir.svn" ) {
+            $title .= '(running from SVN checkout)';
+        }
+    }
     my $self = $class->SUPER::new(
         undef,
         -1,
-        "Padre $Padre::VERSION ",
+        $title,
         [
             $config->{host}->{main_left},