Changeset 9763

Timestamp:

12/17/09 22:29:14 (9 months ago)

Author:

azawawi

Message:

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

Files:

• 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;