- 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

1 files changed, 70 insertions, 43 deletions

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;