Browse_text box

[kamalatanvi]

Hi,

I have one text box and one browse buttom.
If I click on browse button, I would like to get
the folder path in text box.

Code is here

my $Bowseout = $top->Text(
    -width  => 30,
    -height => 1,
);
my $brow = $top->Button(
    -text    => '   Browse   ',
    -command => \&display,
);
 
sub fileopen {
    my $file = $top->getOpenFile(
        -filetypes => $types,
        -title     => "PDF Search Tool",
    );
    print "$file jayedra";
}
 

Help me Please.

[eWish]

Try using -file in lieu of -text.

my $brow = $top->Button(-file => '   Browse   ',