Tk - radiobuttons implementation

[MoshiachNow]

HI,

In script I get all disks names stored in annamed hash $vol :
$vol = {};

I need to enable user select a disk using a radiobutton frame.
(I guess I have to define this frame prior to mainloop...)


Appreciate any ideas.
Thanks

Long live king Moshiach !

http://www.7for70.com/

 

[MoshiachNow]

OK,

Ended up doing :

my $dialog3 = $mw->DialogBox (-title => 'Select target disk',-buttons => [ 'OK', 'Cancel' ],-default_button => 'OK'); #define the disk dialog
$frm3=$dialog3->add ('Frame',-foreground => 'blue')->pack(-side=>'top',-fill=>'x');
my @clr;
for (sort keys %$vol) {
$VOLUME=$_;
my $TEXT=$vol->{$VOLUME}{'TEXT'};
$clr[$count]=$frm3->Radiobutton(-variable=>\$VOLUME,-text=>"$TEXT",
-value=>"$VOLUME")->pack(-anchor=>'w');
}

MainLoop; #This function will be executed when the button is pushed


Works fine.

Long live king Moshiach !

http://www.7for70.com/