How to use Perl/Tk in a perl module 1

[wallythewhale]

Can some of the window be defined in a .pm? For example:

Versions.pm
use Tk;
sub CreateWin {
$mainWin = MainWindow->new();
...
$task_id_frame = $mainFrameData->Frame()->pack(-anchor => "w");
...
} # end sub CreateWin

Versions.pl
use Tk;
use Versions;
Versions::CreateWin;
$rbtnRv = $Versions::task_id_frame->Radiobutton(...
...
MainLoop();
...

I get this error:
Can't call method "Radiobutton" on an undefined value at...

 

[eewah]

Have you add:

package Versions;

at top of your Versions.pm ?

;-)

 

[Kirsle]

For general etiquette purposes,

$Versions::task_id_frame

Your Versions module should define global variables like this outside of any subroutines.

package Versions;

our $task_id_frame; # declare a global

use Tk;
sub CreateWin {
   $mainWin = MainWindow->new();
   ...
   $task_id_frame = $mainFrameData->Frame()->pack(-anchor => "w");
   ...
} # end sub CreateWin

It might just be easier in this case to actually write your own Tk:: module. Look at some of the other ones, so then your main program can just do this:

# versions.pl

use Tk;
use Tk::Versions;

# create the mainwindow for your main program, etc.
our $top = MainWindow->new (...)

# spawn the versions window
$top->Versions;

 

[wallythewhale]

That worked. Thanks to all.