package oo::job; @ISA = qw/ oo::gui::defaultjob/; use strict; sub new { }; # Make my hash and bless into oo::job 1; package oo::gui::defaultjob; @ISA= qr/ Tk /; sub build_gui { }; #packing widgets into a toplevel object sub display{} ; #invoke MainLoop on toplevel 1; package main; use oo::job; my $job = oo::job->new( %options ); $job->build_gui(); $job->display;
Now if that is even close , then my program just got about 1000 times easier to build.
submersible_toaster shuffles off to the library for further wisdomIn reply to Re: Revolving door blessing.
by submersible_toaster
in thread Revolving door blessing.
by submersible_toaster
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |