home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _1c888c36f7cb5d1923072d256f1609ba < prev    next >
Encoding:
Text File  |  2004-06-01  |  741 b   |  39 lines
  1. package Tk::ItemStyle;
  2.  
  3. use vars qw($VERSION);
  4. $VERSION = '4.004'; # $Id: //depot/Tkutf8/Tk/ItemStyle.pm#4 $
  5.  
  6. require Tk;
  7. use base  qw(Tk);
  8. require Tk::Widget;
  9. Construct Tk::Widget 'ItemStyle';
  10.  
  11. Tk::Methods ('delete');
  12.  
  13. sub new
  14. {
  15.  my $package = shift;
  16.  my $widget  = shift;
  17.  my $type    = shift;
  18.  my %args    = @_;
  19.  $args{'-refwindow'} = $widget unless exists $args{'-refwindow'};
  20.  $package->InitClass($widget);
  21.  my $obj = $widget->itemstyle($type, %args);
  22.  return bless $obj,$package;
  23. }
  24.  
  25. sub Install
  26. {
  27.  # Dynamically loaded image types can install standard images here
  28.  my ($class,$mw) = @_;
  29. }
  30.  
  31. sub ClassInit
  32. {
  33.  # Carry out class bindings (or whatever)
  34.  my ($package,$mw) = @_;
  35.  return $package;
  36. }
  37.  
  38. 1;
  39.