Re: Placing a file path in a entrybox from a dialogbox

Untested!

# change
my $butImageFile = $mw->Button(-text=>'Browse', -command=> sub { openI
+mageFileDialog($entImageFile)}); 
# to
my $butImageFile = $mw->Button(
  -text=>'Browse', 
  -command=> sub {
    $ImageFilePath = $mw->getOpenFile(-title => 'Open Image File:'); 
  }
);
[download]

Comment on Re: Placing a file path in a entrybox from a dialogbox Download Code

Replies are listed 'Best First'.
Re^2: Placing a file path in a entrybox from a dialogbox by Marshall (Canon) on Dec 03, 2009 at 01:39 UTC
This solution will work fine. A textvariable can be used just like any other variable. If you change it, the display is automatically updated (no need for "edit" commands). As a small enhancement, I show how to use the "filetypes" filter. If the op wants to pass a ref to the textvariable, I show how to do that also although if this is a special purpose routine, I would have no problem with just accessing the $ImageFilePath directly without going through a reference. I also tend not to declare var names that aren't used again (like the LHS of button creation). `# entry textbox for Image times dialog my $entImageFile = $mw->Entry(-width=>30, -textvariable=>\$ImageFilePath,)->pack() +; # button to browse for file $mw->Button( -text=>'Browse', -command=> sub { openImageFileDialog(\$ImageFilePath)}, )->pack(); MainLoop; sub openImageFileDialog { my $path_ref = shift; my @types = (["Image Files", [qw/.bmp .giff .tiff/]], ["All files", '*'], ); $$path_ref = $mw->getOpenFile(-title => 'Open Image File:', -filetypes => \@types); }` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: Placing a file path in a entrybox from a dialogbox
by Marshall (Canon) on Dec 03, 2009 at 01:39 UTC

As a small enhancement, I show how to use the "filetypes" filter. If the op wants to pass a ref to the textvariable, I show how to do that also although if this is a special purpose routine, I would have no problem with just accessing the $ImageFilePath directly without going through a reference. I also tend not to declare var names that aren't used again (like the LHS of button creation).

# entry textbox for Image times dialog 
my $entImageFile = $mw->Entry(-width=>30, 
                              -textvariable=>\$ImageFilePath,)->pack()
+; 

# button to browse for file 
$mw->Button( -text=>'Browse', 
             -command=> sub { openImageFileDialog(\$ImageFilePath)},
            )->pack(); 

MainLoop; 

sub openImageFileDialog 
{ 
   my $path_ref = shift;
   my @types =
       (["Image Files", [qw/.bmp .giff .tiff/]],
        ["All files",        '*'],
       );

   $$path_ref = $mw->getOpenFile(-title => 'Open Image File:',
                                 -filetypes => \@types);
}
[download]

[reply]
[d/l]