Changeset 9763 for trunk/Padre/lib/Padre/Wx/Dialog/OpenResource.pm

Timestamp:

12/17/09 22:29:14 (2 years ago)

Author:

azawawi

Message:

In Open resource, path is now cleaned from slashes on win32

File:

• trunk/Padre/lib/Padre/Wx/Dialog/OpenResource.pm (modified) (4 diffs)

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

@@ -320 +320 @@
             my $num_selected = scalar @matches;
             if ( $num_selected == 1 ) {
-                $self->_status_text->ChangeValue( $self->_matches_list->GetClientData( $matches[0] ) );
+                $self->_status_text->ChangeValue( $self->_path($self->_matches_list->GetClientData( $matches[0])) );
                 $self->_copy_button->Enable(1);
             } elsif ( $num_selected > 1 ) {
@@ -456 +456 @@
     my @recent_files = ();
     foreach my $e (@$recently_used) {
-        push @recent_files, $e->value;
+        push @recent_files,  $self->_path($e->value);
     }
     @recent_files = sort { File::Basename::fileparse($a) cmp File::Basename::fileparse($b) } @recent_files;
@@ -516 +516 @@
     if ( $pos > 0 ) {
         $self->_matches_list->Select(0);
-        $self->_status_text->ChangeValue( $self->_matches_list->GetClientData(0) );
+        $self->_status_text->ChangeValue( $self->_path($self->_matches_list->GetClientData(0)) );
         $self->_status_text->Enable(1);
         $self->_copy_button->Enable(1);
@@ -530 +530 @@
 }
 
+#
+# Cleans a path on various platforms
+#
+sub _path {
+    my ($self, $path) = @_;
+    if(Padre::Constant::WIN32) {
+        $path =~ s/\//\\/g;
+    }
+    return $path;
+}
 
 1;