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?

<code>
$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

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?
>
> <code>

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