Changeset 8570

Timestamp:

10/03/09 06:06:07 (2 years ago)

Author:

Sewi

Message:

Title bar is now configurable

File:

• trunk/Padre/lib/Padre/Wx/Main.pm (modified) (2 diffs)

trunk/Padre/lib/Padre/Wx/Main.pm

@@ -896 +896 @@
     $self->refresh_status($current);
     $self->refresh_functions($current);
+    $self->set_title;
 
     my $notebook = $self->notebook;
@@ -4735 +4736 @@
 
     my $self = shift;
+    my $config = $self->{config};
 
     # Determine the window title
     # Keep it for later usage
 
-    $self->{title} = 'Padre';
-
+    my %variable_data = (
+        '%' => '%',
+        'v' => $Padre::VERSION,
+        'f' => '', # Initlize space for filename
+        'p' => '', # Initlize space for project name
+        );
+
+    # We may run within window startup, there may be no "current" or "document":
+    if (defined($self->current) and defined($self->current->document)) {
+        my $document = $self->current->document;
+        $variable_data{'f'} = $document->file->{filename};
+    }
+
+    # Fill in the session, if any
     if ( defined( $self->ide->{session} ) ) {
         my ($session) = Padre::DB::Session->select(
             'where id = ?', $self->ide->{session},
         );
-        $self->{title} .= ' [' . $session->{name} . ']';
-    }
+        $variable_data{'p'} = $session->{name};
+    }
+
+    $self->{title} = $config->window_title;
+
+    my $Vars = join('',keys(%variable_data));
+
+    $self->{title} =~ s/\%([$Vars])/$variable_data{$1}/g;
+
+    $self->{title} = 'Padre '.$Padre::VERSION
+     if ! defined($self->{title});
 
     my $revision = Padre::Util::revision();