view release on metacpan or  search on metacpan

mySplashScreen.pm  view on Meta::CPAN

## Global Stuff ###################################
 #Tk Version String
  $Tk::mySplashScreen::VERSION = '1.0.3';
 #package declaration
  package Tk::mySplashScreen;
 #export so that we don't need to call Tk::mySplashScreen, just mySplashScreen
  @mySplashScreen::ISA = 'Tk::mySplashScreen';
 #widgets to be used
  use Tk::widgets ("Photo","Label","MainWindow");
 #this is derived
  use base ("Tk::Derived", "Tk::MainWindow");
 #cast magic missile (make this a bona-fide Tk widget)
  Construct Tk::MainWindow 'SplashScreen';
 #default configSpecs
  our %defaultSpecs = (
      #'-image'	=> "./default.gif",
      '-image'	=> Tk->findINC('mySplashScreen/default.gif'),
      '-text'	=> "Tk::mySplashScreen version: $Tk::mySplashScreen::VERSION",
      '-anchor'	=> "w"
  );