blob: 85c6c11a76c2fffe6fb3be1a0fc44e6c9dd6e038 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
package Tk::ItemStyle;
use vars qw($VERSION);
$VERSION = '4.004'; # $Id: //depot/Tkutf8/Tk/ItemStyle.pm#4 $
require Tk;
use base qw(Tk);
require Tk::Widget;
Construct Tk::Widget 'ItemStyle';
Tk::Methods ('delete');
sub new
{
my $package = shift;
my $widget = shift;
my $type = shift;
my %args = @_;
$args{'-refwindow'} = $widget unless exists $args{'-refwindow'};
$package->InitClass($widget);
my $obj = $widget->itemstyle($type, %args);
return bless $obj,$package;
}
sub Install
{
# Dynamically loaded image types can install standard images here
my ($class,$mw) = @_;
}
sub ClassInit
{
# Carry out class bindings (or whatever)
my ($package,$mw) = @_;
return $package;
}
1;
|