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