PapaGeek
User
Mar 13, 2014, 9:51 AM
Post #13 of 15
(4758 views)
|
|
Re: [FishMonger] Multi Menu, multi-function Tk Ap
[In reply to]
|
Can't Post
|
|
OK, another try at you training an old programmer new tricks, making me Perlish!
Here is another set of Perl files. They are far more concise than the previous set.
I changed all of my menu references to window.
I changed the logic so main can call window 1 & 2 and 1 can also call 2. 2 will return properly to whoever called it.
The loop and spaghetti logic will be on me, I want the process to be flexible.
I’m not sure that $child_window-> parent will always work when the child can be called by multiple parents. I created a new Perl file, WindowHash.pl, that controls a hash of references to all windows and also a call stack.
I changed the code to use $window = getWindow('MainWindow')->Toplevel; instead of $window = new MainWindow; but I’m not sure what the difference will be if I do not intend to use the window’s parent logic due to multiple call from options.
I can now open the next window directly using “-command =>[\&ShowWindow, 'Window2']” and return to whoever called this window with “command =>\&PrevWindow”.
This new Perl file does contain two variables that are global within the file, but they are not universal to all other files. Is there a better way to create and handle the hash and array in this file?
Mainline.pl: simple file to load the other files, create the windows and start the loop.
use Modern::Perl '2013';
use Tk;
main();
sub main
{
do 'WindowHash.pl';
do 'MainWindow.pl';
do 'Window1.pl';
do 'Window2.pl';
CreateMainWindow();
CreateWindow1();
CreateWindow2();
MainLoop;
}
On Edit: I've change the name of this module to WindowManager.pl since that better describes what it does!
use Modern::Perl '2013';
use Tk;
my @WindowStack;
my %WindowHashList;
sub defineWindow
{
my ($windowName, $windowRef) = @_;
$WindowHashList{$windowName} = $windowRef;
}
sub getWindow
{
my ($windowName) = @_;
return $WindowHashList{ $windowName };
}
sub InitWindowStack
{
my ($topWindow) = @_;
push @WindowStack, $topWindow;
}
sub ShowWindow
{
my ($nextWindow) = @_;
my $prevWindow = $WindowStack[-1];
push @WindowStack, $nextWindow;
getWindow($prevWindow) -> withdraw();
getWindow($nextWindow) -> deiconify();
getWindow($nextWindow) -> raise();
}
sub PrevWindow
{
my $thisWindow = pop @WindowStack;
my $prevWindow = $WindowStack[-1];
getWindow($thisWindow) -> withdraw();
getWindow($prevWindow) -> deiconify();
getWindow($prevWindow) -> raise();
}
use Modern::Perl '2013';
use Tk;
sub CreateMainWindow
{
my $window;
$window = new MainWindow;
$window->geometry("200x100");
my $lblMsg = $window -> Label(-text=>"Work with sub windows")-> grid();
my $openWindow1 = $window -> Button(-text=>"See Option 1",
-command =>[\&ShowWindow, 'Window1'])-> grid();
my $openWindow2 = $window -> Button(-text=>"See Option 2",
-command =>[\&ShowWindow, 'Window2'])-> grid();
my $endProgram = $window -> Button(-text=>"Exit Program",
-command =>\&endProgram)-> grid();
defineWindow('MainWindow',$window);
InitWindowStack('MainWindow');
}
sub endProgram{
exit;
}
use Modern::Perl '2013';
use Tk;
sub CreateWindow1
{
my $window;
#$window = new MainWindow;
$window = getWindow('MainWindow')->Toplevel;
$window->geometry("200x200");
my $lblMsg1 = $window -> Label(-text=>"Program Option 1")-> grid();
my $doTask1 = $window -> Button(-text=>"Perform Task 1",
-command =>\&Task1)-> grid();
my $openWindow2 = $window -> Button(-text=>"See Option 2",
-command =>[\&ShowWindow, 'Window2'])-> grid();
my $btnPostpone1 = $window -> Button(-text=>"Return to Main",
-command =>\&PrevWindow)-> grid();
defineWindow('Window1',$window);
$window-> withdraw();
}
sub Task1{
say "doing task 1";
}
use Modern::Perl '2013';
use Tk;
sub CreateWindow2
{
my $window;
#$window = new MainWindow;
$window = getWindow('MainWindow')->Toplevel;
$window->geometry("200x200");
my $lblMsg2 = $window -> Label(-text=>"Program Option 2")-> grid();
my $doTask2 = $window -> Button(-text=>"Perform Task 2",
-command =>\&Task2)-> grid();
my $btnPostpone2 = $window -> Button(-text=>"Return to Caller",
-command =>\&PrevWindow)-> grid();
defineWindow('Window2',$window);
$window-> withdraw();
}
sub Task2{
say "doing task 2";
}
(This post was edited by PapaGeek on Mar 13, 2014, 2:29 PM)
|
MAIN
SEARCH
WHO'S 
LOG 