Re: How to add both a text entry option for file location entry and also a file search option using file search

[choroba]

I used a text variable to share the file path. The variable is scoped around the command invoked by the button, so selecting the file changes the path in the entry. I packed the entry later, though, to have the button packed first.

Have you noticed how the following sample is shorter than the original? It only contains the related parts, i.e. the file name selection.

#!/usr/bin/perl
use warnings;
use strict;

use Tk;

my $mw       = 'Tk::MainWindow'->new(-title => 'File path test');
my $f        = $mw->Frame->pack;
my $file_w   = $f->Entry(-textvariable => \ (my $file = '/'));
my $file_b   = $f->Button( -text    => 'Open File',
                           -command => sub { $file = $mw->getOpenFile 
+},
)->pack;
$file_w->pack;
my $show_b   = $f->Button( -text => 'Show',
                           -command => sub {
                               open my $FH, '<', $file or die $!;
                               print while <$FH>;
                           })->pack;

MainLoop();