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
|
#!/usr/local/bin/perl -w
use Tk;
my $mw = MainWindow->new;
my @names = (
"X_cursor", "arrow", "based_arrow_down", "based_arrow_up",
"boat", "bogosity", "bottom_left_corner", "bottom_right_corner",
"bottom_side", "bottom_tee", "box_spiral", "center_ptr",
"circle", "clock", "coffee_mug", "cross", "cross_reverse",
"crosshair", "diamond_cross", "dot", "dotbox", "double_arrow",
"draft_large", "draft_small", "draped_box", "exchange", "fleur",
"gobbler", "gumby", "hand1", "hand2", "heart", "icon", "iron_cross",
"left_ptr", "left_side", "left_tee", "leftbutton", "ll_angle",
"lr_angle", "man", "middlebutton", "mouse", "pencil", "pirate",
"plus", "question_arrow", "right_ptr", "right_side", "right_tee",
"rightbutton", "rtl_logo", "sailboat", "sb_down_arrow", "sb_h_double_arrow",
"sb_left_arrow", "sb_right_arrow", "sb_up_arrow", "sb_v_double_arrow",
"shuttle", "sizing", "spider", "spraycan", "star", "target", "tcross",
"top_left_arrow", "top_left_corner", "top_right_corner", "top_side",
"top_tee", "trek", "ul_angle", "umbrella", "ur_angle", "watch", "xterm");
my $lb = $mw->Scrolled('Listbox')->pack;
$lb->insert('end',@names);
$lb->bind('<Double-ButtonRelease-1>',['configure',-cursor,Ev(['getSelected'])]);
MainLoop;
|
