home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2006 December / PCpro_2006_12.ISO / ossdvd / server / Perl2 / site / lib / Tk / ItemStyle.pm < prev    next >
Encoding:
Perl POD Document  |  2000-03-30  |  738 b   |  39 lines
  1. package Tk::ItemStyle;
  2.  
  3. use vars qw($VERSION);
  4. $VERSION = '3.006'; # $Id: //depot/Tk8/Tk/ItemStyle.pm#6 $
  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.