Re^5: TK Submenus

You still have not shown where you declare $opsm. It would be useful to see how that line looks like: my $opsm; or similar. Also in which order do you declare and call the functions you have provided so far.

In addition I have two question to this snippet:

if ( !Exists( $mm ) ) {
my $mm = $mw->Toplevel();
...
[download]

Is Exists a Tk specific function (because of the capital E)? You declare a new variable $mm just after testing it in the line before. Is this intentional?

Apologies for asking one question after the other but I still have no clear picture what is going on...

Comment on Re^5: TK Submenus Select or Download Code

Replies are listed 'Best First'.
Re^6: TK Submenus by PilotinControl (Pilgrim) on Oct 28, 2013 at 18:17 UTC
$opsm, $mm and others are defined at the beginning of the program like this: my ($opsm, $mm, $sbm); I've since removed the If !Exists line and it still has no bearing...scratching my head here as the code is exactly like the previous menus. What should happen is once a Manifest has been added that window disappears which it does and the Manifest menu should reappear which it does not. If I try to call the Ops menu $opsm that works the $mm (Manifest Menu) does not iconify.	[reply]

Replies are listed 'Best First'.

Re^6: TK Submenus
by PilotinControl (Pilgrim) on Oct 28, 2013 at 18:17 UTC

$opsm, $mm and others are defined at the beginning of the program like this: my ($opsm, $mm, $sbm); I've since removed the If !Exists line and it still has no bearing...scratching my head here as the code is exactly like the previous menus. What should happen is once a Manifest has been added that window disappears which it does and the Manifest menu should reappear which it does not. If I try to call the Ops menu $opsm that works the $mm (Manifest Menu) does not iconify.

[reply]