summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Tk/ItemStyle.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tk/ItemStyle.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Tk/ItemStyle.pm38
1 files changed, 0 insertions, 38 deletions
diff --git a/Master/tlpkg/tlperl/lib/Tk/ItemStyle.pm b/Master/tlpkg/tlperl/lib/Tk/ItemStyle.pm
deleted file mode 100644
index 85c6c11a76c..00000000000
--- a/Master/tlpkg/tlperl/lib/Tk/ItemStyle.pm
+++ /dev/null
@@ -1,38 +0,0 @@
-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;