bind to . instead of all to get absolute cursor position rather than canvas cursor position

svn path=/trunk/externals/hcs/; revision=8956

2 files changed, 17 insertions, 11 deletions

diff --git a/cursor-help.pd b/cursor-help.pd
index b5ecd81..7436169 100644
--- a/cursor-help.pd
+++ b/cursor-help.pd
@@ -1,4 +1,4 @@
-#N canvas 309 199 638 505 10;
+#N canvas 121 272 642 509 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;
@@ -6,10 +6,10 @@
 #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 obj 346 278 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 text 231 261 Here's a complete list of the available cursors:;
+#X msg 169 229 runmode_disconnect gumby;
 #X msg 322 151 boat;
 #X msg 282 151 clock;
 #X msg 428 151 dot;
@@ -18,7 +18,7 @@
 #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;
+#N canvas 0 22 462 312 make 0;
 #X obj 95 9 inlet;
 #X obj 114 258 outlet;
 #X obj 116 168 pack symbol symbol;
@@ -46,15 +46,19 @@
 #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 obj 25 244 metro 100;
+#X obj 25 218 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
+1;
+#X text 15 18 set your mouse cursors for this patch:;
+#X text 201 81 <-- choose your cursor mode;
 #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 8 0 26 0;
 #X connect 9 0 17 1;
 #X connect 10 0 17 1;
 #X connect 11 0 17 1;
@@ -70,3 +74,5 @@
 #X connect 22 0 17 0;
 #X connect 23 0 17 0;
 #X connect 24 0 17 0;
+#X connect 28 0 2 0;
+#X connect 29 0 28 0;
diff --git a/cursor.c b/cursor.c
index 3198fcd..52a9409 100644
--- a/cursor.c
+++ b/cursor.c
@@ -79,7 +79,7 @@ static void cursor_free(t_cursor *x)
     //TODO free the "bind all"
 }
 
-static void *cursor_new(t_symbol *s)
+static void *cursor_new(void)
 {
     char buf[MAXPDSTRING];
     t_cursor *x = (t_cursor *)pd_new(cursor_class);
@@ -92,11 +92,11 @@ static void *cursor_new(t_symbol *s)
 	x->data_outlet = outlet_new(&x->x_obj, 0);
 	x->status_outlet = outlet_new(&x->x_obj, 0);
 
-    sys_vgui("bind all <ButtonPress> {+pd [concat %s button %%b 1 \\;]}\n",
+    sys_vgui("bind . <ButtonPress> {+pd [concat %s button %%b 1 \\;]}\n",
              x->receive_symbol->s_name);
-    sys_vgui("bind all <ButtonRelease> {+pd [concat %s button %%b 0 \\;]}\n",
+    sys_vgui("bind . <ButtonRelease> {+pd [concat %s button %%b 0 \\;]}\n",
              x->receive_symbol->s_name);
-    sys_vgui("bind all <MouseWheel> {+pd [concat %s wheel %%D \\;]}\n",
+    sys_vgui("bind . <MouseWheel> {+pd [concat %s wheel %%D \\;]}\n",
              x->receive_symbol->s_name);
 
     return(x);