File: cursor_demo

package info (click to toggle)
perl-tk 1:800.025-2
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 18,444 kB
  • ctags: 19,081
  • sloc: ansic: 206,740; perl: 40,187; makefile: 4,371; sh: 2,373; yacc: 762
file content (31 lines) | stat: -rwxr-xr-x 1,293 bytes parent folder | download | duplicates (4)
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;