From 61e356e0b1d0935c5fbe042868bc82e5e33ad873 Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Tue, 6 Nov 2007 02:30:53 +0000 Subject: - updated to work with set_cursors_in_tcl-0.41-test06.patch (patch #1826507), now you can actually set the cursors and have them stick throughout Pd svn path=/trunk/externals/hcs/; revision=8942 --- cursor-help.pd | 113 +++++++++++++++++++++++++++++++++++---------------------- 1 file changed, 70 insertions(+), 43 deletions(-) (limited to 'cursor-help.pd') diff --git a/cursor-help.pd b/cursor-help.pd index 469280c..b5ecd81 100644 --- a/cursor-help.pd +++ b/cursor-help.pd @@ -1,45 +1,72 @@ -#N canvas 284 234 514 531 10; -#X obj 151 126 symbol; -#X msg 149 61 boat; -#X msg 109 61 clock; -#X msg 245 61 dot; -#X msg 275 61 dotbox; -#X msg 322 61 gumby; -#X msg 365 61 gobbler; -#X msg 366 130 pirate; -#X msg 366 87 mouse; -#X msg 366 109 target; -#X msg 366 151 pencil; -#X msg 184 61 coffee_mug; -#X msg 151 151 cursor \$1; -#X obj 51 334 pddp/print; -#X obj 188 309 pddp/print; -#X obj 147 250 tgl 15 0 empty empty empty 0 -6 0 10 -262144 -1 -1 0 +#N canvas 309 199 638 505 10; +#X obj 136 401 pddp/print; +#X obj 95 342 tgl 15 0 empty empty empty 0 -6 0 10 -262144 -1 -1 0 1; -#X obj 126 278 cursor; -#X msg 45 218 bang; -#X obj 46 160 key; -#X obj 45 185 select 32; -#X text 163 247 poll the mouse pointer position; -#X text 80 219 get the current mouse position; -#X obj 111 367 print CURSOR; -#X connect 0 0 12 0; -#X connect 1 0 0 0; -#X connect 2 0 0 0; -#X connect 3 0 0 0; -#X connect 4 0 0 0; -#X connect 5 0 0 0; -#X connect 6 0 0 0; -#X connect 7 0 0 0; -#X connect 8 0 0 0; -#X connect 9 0 0 0; -#X connect 10 0 0 0; -#X connect 11 0 0 0; -#X connect 12 0 16 0; -#X connect 15 0 16 0; -#X connect 16 0 13 0; -#X connect 16 0 22 0; -#X connect 16 1 14 0; -#X connect 17 0 16 0; -#X connect 18 0 19 0; +#X obj 74 370 cursor; +#X msg 70 318 bang; +#X text 111 339 poll the mouse pointer position; +#X text 101 318 get the current mouse position; +#X obj 163 26 pddp/pddplink http://tcl.tk/man/tcl8.4/TkCmd/cursors.htm +; +#X text 48 9 Here's a complete list of the available cursors:; +#X msg 169 229 runmode_clickme dot; +#X msg 322 151 boat; +#X msg 282 151 clock; +#X msg 428 151 dot; +#X msg 505 151 gumby; +#X msg 548 151 gobbler; +#X msg 357 151 coffee_mug; +#X msg 458 151 pirate; +#X msg 42 44 runmode_nothing; +#N canvas 0 22 454 304 make 0; +#X obj 95 9 inlet; +#X obj 114 258 outlet; +#X obj 116 168 pack symbol symbol; +#X obj 221 147 symbol; +#X obj 94 51 symbol; +#X obj 329 19 inlet; +#X obj 126 111 trigger bang anything; +#X msg 116 192 set \$1 \$2; +#X obj 115 220 trigger bang anything; +#X connect 0 0 4 0; +#X connect 2 0 7 0; +#X connect 3 0 2 1; +#X connect 4 0 2 0; +#X connect 5 0 6 0; +#X connect 6 0 2 0; +#X connect 6 1 3 0; +#X connect 7 0 8 0; +#X connect 8 0 1 0; +#X connect 8 1 1 0; +#X restore 169 205 pd make message; +#X msg 59 63 runmode_clickme; +#X msg 75 82 runmode_thicken; +#X msg 92 101 runmode_addpoint; +#X obj 67 440 pddp/print; +#X msg 110 120 editmode_nothing; +#X msg 126 139 runmode_connect; +#X msg 143 158 runmode_disconnect; +#X text 201 81 <-- choose your cursor mode; +#X text 312 128 now pick a cursor:; +#X obj 169 266 cursor; +#X text 295 229 <-- this is the actual message to send; +#X connect 1 0 2 0; +#X connect 2 0 21 0; +#X connect 2 1 0 0; +#X connect 3 0 2 0; +#X connect 8 0 27 0; +#X connect 9 0 17 1; +#X connect 10 0 17 1; +#X connect 11 0 17 1; +#X connect 12 0 17 1; +#X connect 13 0 17 1; +#X connect 14 0 17 1; +#X connect 15 0 17 1; +#X connect 16 0 17 0; +#X connect 17 0 8 0; +#X connect 18 0 17 0; #X connect 19 0 17 0; +#X connect 20 0 17 0; +#X connect 22 0 17 0; +#X connect 23 0 17 0; +#X connect 24 0 17 0; -- cgit v1.2.1