Tk::FileSelect - control window width ? 1

[MoshiachNow]

HI,

How can I control window width with Tk::FileSelect ?
The default browsing window that opens is too narrow,I'd like to have it wider.

Thanks

Long live king Moshiach !

http://www.7for70.com/

 

[dmazzini]

Hi MoshiachNow

Below an example where you can control the FileSelect Window size.

    use strict ;
    use Tk::FileSelect;
    
    my $start_dir = ".";
    my $Fsref = MainWindow->new->FileSelect(-directory => $start_dir,);
    $Fsref->geometry("470x310+300+120");
    $Fsref->minsize(470,310);
    $Fsref->maxsize(470,310);
    $Fsref->MainWindow->withdraw;
    my $file = $Fsref->Show;
    $Fsref->configure(
                    -command=>\&sous($file),
                    -width => 1000
    );
    
    sub sous {
        my $file = $_[0] || '';
        print "myfile = $file";
    }

dmazzini
GSM System and Telecomm Consultant

 

[dmazzini]

You basically plays with the window size.

$Fsref->configure(
                    -command=>\&sous($file),
                   # -width => 1000
    );

This width option overhere is not necessary, it does nothing

I hope it helps.

dmazzini
GSM System and Telecomm Consultant

 

[MoshiachNow]

Thanks a lot !

Long live king Moshiach !

http://www.7for70.com/