Changeset 8571

Timestamp:

10/03/09 06:27:50 (2 years ago)

Author:

Sewi

Message:

Added some more title bar variables

Location:

trunk/Padre/lib/Padre/Wx

Files:

• Dialog/Preferences.pm (modified) (1 diff)
• Main.pm (modified) (4 diffs)

trunk/Padre/lib/Padre/Wx/Dialog/Preferences.pm

@@ -310 +310 @@
      '%v' => 'Padre version',
      '%f' => 'Current filename',
+     '%d' => 'Current files dirname',
+     '%b' => 'Current files basename',
+     '%F' => 'Current filename relative to project',
     );
     my @window_title_keys = sort

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

@@ -4733 +4733 @@
 sub set_title {
 
-    # This is the first step, the next will be a fully configurable title line
+    # Determine the window title
+
+    # The syntax string could be set in the preferences dialog.
 
     my $self = shift;
     my $config = $self->{config};
-
-    # Determine the window title
-    # Keep it for later usage
 
     my %variable_data = (
@@ -4745 +4744 @@
         'v' => $Padre::VERSION,
         'f' => '', # Initlize space for filename
+        'b' => '', # Initlize space for filename - basename
+        'd' => '', # Initlize space for filename - dirname
+        'F' => '', # Initlize space for filename relative to project dir
         'p' => '', # Initlize space for project name
         );
@@ -4752 +4754 @@
         my $document = $self->current->document;
         $variable_data{'f'} = $document->file->{filename};
+        $variable_data{'b'} = $document->file->basename;
+        $variable_data{'d'} = $document->file->dirname;
+
+        $variable_data{'F'} = $document->file->{filename};
+        my $project_dir = $document->project_dir;
+        $variable_data{'F'} =~ s/^$project_dir//;
     }
 
@@ -4762 +4770 @@
     }
 
+    # Keep it for later usage
     $self->{title} = $config->window_title;