PerlTK und Menu-Einträge

PerlTK und Menu-Einträge

am 01.12.2006 14:19:13 von Jan Teune

Hallo Ng,
eine kurze Frage, ich hab in Tk ein Menu erzeugt, in dem der Eintrag
Save "disabled" ist. Dieser Eintrag soll seinen state auf "normal"
ändern, sobald eine Datei geöffnet wurde bzw der Open-FileDialog
beendet wurde.
Kann mir jemand ein paar Stichworte nennen, wie ich dieses kleine
Problemchen lösen kann?


$menu_file->command(-label => "Open",
-command => sub {
$seq_file = $cb_obj->file_open("open",$main_window);
}
);
$menu_file->command(-label => "Save",
-command => sub {
cb_obj->file_save("save",$main_window)},
-state => "$disabled"
);

Danke schonmal im Voraus
Jan

Re: PerlTK und Menu-Einträge

am 01.12.2006 16:46:14 von Ch Lamprecht

Jan Teune schrieb:
> Hallo Ng,
> eine kurze Frage, ich hab in Tk ein Menu erzeugt, in dem der Eintrag
> Save "disabled" ist. Dieser Eintrag soll seinen state auf "normal"
> ändern, sobald eine Datei geöffnet wurde bzw der Open-FileDialog
> beendet wurde.
> Kann mir jemand ein paar Stichworte nennen, wie ich dieses kleine
> Problemchen lösen kann?
>
>

my $menu_entry_save =$menu_file->command(-label => "Save",
-command => sub {
cb_obj->file_save("save",$main_window)},
-state => 'disabled'
);

> $menu_file->command(-label => "Open",
> -command => sub {
> $seq_file = $cb_obj->file_open("open",$main_window);
$menu_entry_save->configure(-state => 'active');

> }
> );
>
> Danke schonmal im Voraus
> Jan

Christoph