Beta Shell v2.0

File Manager

~ /usr/share/doc/perl-Tk/demos/widget_lib

Name	Size	Perms	Modified	Actions
[ .. / .. ]
Ball.pm	4.49 KB	-rw-r--r--	2021-04-12 06:41:59	Edit Del
HList.pl	1.58 KB	-rw-r--r--	2021-04-12 06:42:00	Edit Del
HList2.pl	2.77 KB	-rw-r--r--	2021-04-12 06:42:00	Edit Del
Plot.pm	5.27 KB	-rw-r--r--	2021-04-12 06:42:00	Edit Del
WidgetDemo.pm	3.36 KB	-rw-r--r--	2021-04-12 06:42:00	Edit Del
arrows.pl	8.06 KB	-rw-r--r--	2021-04-12 06:42:00	Edit Del
balloon.pl	5.57 KB	-rw-r--r--	2021-04-12 06:42:00	Edit Del
bind.pl	2.69 KB	-rw-r--r--	2021-04-12 06:42:00	Edit Del
bitmaps.pl	1.18 KB	-rw-r--r--	2021-04-12 06:41:59	Edit Del
bounce.pl	7.42 KB	-rw-r--r--	2021-04-12 06:41:59	Edit Del
browseentry.pl	852 B	-rw-r--r--	2021-04-12 06:41:59	Edit Del
browseentry2.pl	1.23 KB	-rw-r--r--	2021-04-12 06:41:59	Edit Del
button.pl	826 B	-rw-r--r--	2021-04-12 06:42:00	Edit Del
check.pl	1.26 KB	-rw-r--r--	2021-04-12 06:41:59	Edit Del
choosedir.pl	1.07 KB	-rw-r--r--	2021-04-12 06:41:59	Edit Del
clrpick.pl	1.38 KB	-rw-r--r--	2021-04-12 06:42:00	Edit Del
colors.pl	4.2 KB	-rw-r--r--	2021-04-12 06:42:00	Edit Del
cscroll.pl	2.49 KB	-rw-r--r--	2021-04-12 06:41:59	Edit Del
ctext.pl	5.62 KB	-rw-r--r--	2021-04-12 06:42:00	Edit Del
dialog1.pl	1.04 KB	-rw-r--r--	2021-04-12 06:41:59	Edit Del
dialog2.pl	982 B	-rw-r--r--	2021-04-12 06:42:00	Edit Del
dirtree.pl	173 B	-rw-r--r--	2021-04-12 06:41:59	Edit Del
entry1.pl	1.28 KB	-rw-r--r--	2021-04-12 06:42:00	Edit Del
entry2.pl	1.57 KB	-rw-r--r--	2021-04-12 06:41:59	Edit Del
entry3.pl	6.25 KB	-rw-r--r--	2021-04-12 06:42:00	Edit Del
filebox.pl	3.1 KB	-rw-r--r--	2021-04-12 06:42:00	Edit Del
floor.pl	94.04 KB	-rw-r--r--	2021-04-12 06:42:00	Edit Del
form.pl	978 B	-rw-r--r--	2021-04-12 06:41:59	Edit Del
form_mgr.pl	710 B	-rw-r--r--	2021-04-12 06:41:59	Edit Del
hello.pl	1.36 KB	-rw-r--r--	2021-04-12 06:41:59	Edit Del
hscale.pl	1.42 KB	-rw-r--r--	2021-04-12 06:42:00	Edit Del
icon.pl	2.15 KB	-rw-r--r--	2021-04-12 06:41:59	Edit Del
image1.pl	692 B	-rw-r--r--	2021-04-12 06:41:59	Edit Del
image2.pl	3.26 KB	-rw-r--r--	2021-04-12 06:42:00	Edit Del
items.pl	13.05 KB	-rw-r--r--	2021-04-12 06:41:59	Edit Del
keysyms.pl	500 B	-rw-r--r--	2021-04-12 06:42:00	Edit Del
labelframe.pl	2 KB	-rw-r--r--	2021-04-12 06:42:00	Edit Del
labels.pl	1.36 KB	-rw-r--r--	2021-04-12 06:42:00	Edit Del
labframe.pl	303 B	-rw-r--r--	2021-04-12 06:41:59	Edit Del
mega.pl	6.7 KB	-rw-r--r--	2021-04-12 06:42:00	Edit Del
menbut.pl	4.06 KB	-rw-r--r--	2021-04-12 06:41:59	Edit Del
menus.pl	7.1 KB	-rw-r--r--	2021-04-12 06:42:00	Edit Del
menus2.pl	6.94 KB	-rw-r--r--	2021-04-12 06:42:00	Edit Del
msgBox.pl	2.62 KB	-rw-r--r--	2021-04-12 06:41:59	Edit Del
notebook.pl	1.66 KB	-rw-r--r--	2021-04-12 06:42:00	Edit Del
paned1.pl	964 B	-rw-r--r--	2021-04-12 06:41:59	Edit Del
paned2.pl	1.68 KB	-rw-r--r--	2021-04-12 06:41:59	Edit Del
photo1.pl	861 B	-rw-r--r--	2021-04-12 06:42:00	Edit Del
photo2.pl	5.04 KB	-rw-r--r--	2021-04-12 06:42:00	Edit Del
plot.pl	796 B	-rw-r--r--	2021-04-12 06:42:00	Edit Del
progress.pl	951 B	-rw-r--r--	2021-04-12 06:41:59	Edit Del
puzzle.pl	2.57 KB	-rw-r--r--	2021-04-12 06:42:00	Edit Del
radio.pl	2.55 KB	-rw-r--r--	2021-04-12 06:42:00	Edit Del
ruler.pl	4.46 KB	-rw-r--r--	2021-04-12 06:41:59	Edit Del
sayings.pl	1.58 KB	-rw-r--r--	2021-04-12 06:41:59	Edit Del
search.pl	6.12 KB	-rw-r--r--	2021-04-12 06:41:59	Edit Del
showVars.pl	1.06 KB	-rw-r--r--	2021-04-12 06:41:59	Edit Del
slide.pl	4.52 KB	-rw-r--r--	2021-04-12 06:41:59	Edit Del
spin.pl	1.51 KB	-rw-r--r--	2021-04-12 06:41:59	Edit Del
states.pl	1.26 KB	-rw-r--r--	2021-04-12 06:41:59	Edit Del
style.pl	7.77 KB	-rw-r--r--	2021-04-12 06:42:00	Edit Del
texts.pl	2.92 KB	-rw-r--r--	2021-04-12 06:42:00	Edit Del
trace1.pl	1.48 KB	-rw-r--r--	2021-04-12 06:41:59	Edit Del
trace2.pl	3.58 KB	-rw-r--r--	2021-04-12 06:41:59	Edit Del
transtile.pl	4.42 KB	-rw-r--r--	2021-04-12 06:42:00	Edit Del
twind.pl	6.6 KB	-rw-r--r--	2021-04-12 06:41:59	Edit Del
unicodeout.pl	2.52 KB	-rw-r--r--	2021-04-12 06:41:59	Edit Del
virtevents1.pl	2.62 KB	-rw-r--r--	2021-04-12 06:41:59	Edit Del
vscale.pl	1.38 KB	-rw-r--r--	2021-04-12 06:41:59	Edit Del

Editing: HList2.pl (2.77 KB)

# HList and ItemStyle, multicolumn listbox with individual cell styles.
# -*- perl -*-

#
# $Id: $
# Author: Slaven Rezic
#
# Copyright (C) 1999 Slaven Rezic. All rights reserved.
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#
# Mail: eserte@cs.tu-berlin.de
# WWW:  http://user.cs.tu-berlin.de/~eserte/
#

use Tk::HList;
use Tk::ItemStyle;

sub HList2 {
    my($demo) = @_;
    my $TOP = $MW->WidgetDemo(
        -name => $demo,
        -text => 'HList and ItemStyle, multicolumn listbox with individual cell styles.',
	-geometry_manager => 'grid',
    );

    my $h = $TOP->Scrolled
      (qw/HList
       -header 1
       -columns 4
       -width 50
       -height 20/
      )->grid(qw/-sticky nsew/);

    for (0 .. 3) {
	$h->header('create', $_, -text => 'Column ' . $_);
    }

    my @img;
    foreach ('Xcamel.gif', 'anim.gif', 'icon.gif', 'Camel.xpm') {
	push @img, $TOP->Photo(-file => Tk->findINC($_)),
    }

    my(@fonts) = ('-*-Helvetica-Medium-R-Normal--*-180-*-*-*-*-*-*',
		  '-*-Courier-Medium-R-Normal--*-180-*-*-*-*-*-*',
		  '-*-times-medium-r-normal--*-240-*-*-*-*-*-*',
		  '-Adobe-Courier-Bold-O-Normal--*-120-*-*-*-*-*-*',
		  'fixed',
		 );

    my(@colors) = qw(red green blue yellow red cyan black);

    my $rnd_font = sub {
	$fonts[rand($#fonts+1)];
    };
    my $rnd_color = sub {
	$colors[rand($#colors+1)];
    };
    my $rnd_image = sub {
	my $yn = int(rand(2));
	if ($yn) {
	    $img[rand($#img+1)];
	} else {
	    undef;
	}
    };
    my $rnd_window = sub {
	my $yn = int(rand(10));
	if ($yn == 3) {
	    ('Button', 'Entry')[rand(2)];
	} else {
	    undef;
	}
    };

    for my $y (0 .. 20) {
	my $e = $h->addchild("");
	for my $col (0 .. 3) {
	    my $window = $rnd_window->();
	    my $image = $rnd_image->();
	    my $fg = $rnd_color->();
	    my $bg = $rnd_color->();
	    if ($bg eq $fg) { $fg = 'white' }

	    my $style_type = ($window ? 'window' :
			      ($image ? 'imagetext' : 'text'));
	    my $btn;
	    my $style = $h->ItemStyle($style_type);
	    if ($style_type eq 'window') {
		$style->configure(-pady => 0, -padx => 0, -anchor => "nw");
		if ($window eq 'Button') {
		    $btn = $h->Button
		      (-text => 'Click me!',
		       -command => sub {
			   $btn->configure(-activeforeground => $rnd_color->());
		       },
		      );
		} else {
		    $btn = $h->Entry;
		}
	    } else {
		$style->configure(-foreground => $fg,
				  -background => $bg,
				  -font       => $rnd_font->(),
				 );
	    }
	    $h->itemCreate
	      ($e, $col,
	       -itemtype => $style_type,
	       -style => $style,
	       ($style_type eq 'imagetext'
		? (-image => $image) : ()
	       ),
	       ($style_type eq 'window'
		? (-widget => $btn) : (-text => 'Cell ' . $y . '/' . $col)
	       ),
	      );
	}
    }
}

1;

__END__