[PD-cvs] externals/hcs cursor.c,1.5,1.6 cursor-help.pd,1.4,1.5
Hans-Christoph Steiner
eighthave at users.sourceforge.net
Thu Nov 8 02:36:05 CET 2007
Update of /cvsroot/pure-data/externals/hcs
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7322
Modified Files:
cursor.c cursor-help.pd
Log Message:
bind to . instead of all to get absolute cursor position rather than canvas cursor position
Index: cursor-help.pd
===================================================================
RCS file: /cvsroot/pure-data/externals/hcs/cursor-help.pd,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** cursor-help.pd 6 Nov 2007 02:30:53 -0000 1.4
--- cursor-help.pd 8 Nov 2007 01:36:03 -0000 1.5
***************
*** 1,3 ****
! #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,3 ----
! #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
***************
*** 7,14 ****
#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;
--- 7,14 ----
#X text 111 339 poll the mouse pointer position;
#X text 101 318 get the current mouse position;
! #X obj 346 278 pddp/pddplink http://tcl.tk/man/tcl8.4/TkCmd/cursors.htm
;
! #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;
***************
*** 19,23 ****
#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;
--- 19,23 ----
#X msg 458 151 pirate;
#X msg 42 44 runmode_nothing;
! #N canvas 0 22 462 312 make 0;
#X obj 95 9 inlet;
#X obj 114 258 outlet;
***************
*** 47,59 ****
#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;
--- 47,63 ----
#X msg 126 139 runmode_connect;
#X msg 143 158 runmode_disconnect;
#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 26 0;
#X connect 9 0 17 1;
#X connect 10 0 17 1;
***************
*** 71,72 ****
--- 75,78 ----
#X connect 23 0 17 0;
#X connect 24 0 17 0;
+ #X connect 28 0 2 0;
+ #X connect 29 0 28 0;
Index: cursor.c
===================================================================
RCS file: /cvsroot/pure-data/externals/hcs/cursor.c,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** cursor.c 6 Nov 2007 02:30:53 -0000 1.5
--- cursor.c 8 Nov 2007 01:36:03 -0000 1.6
***************
*** 80,84 ****
}
! static void *cursor_new(t_symbol *s)
{
char buf[MAXPDSTRING];
--- 80,84 ----
}
! static void *cursor_new(void)
{
char buf[MAXPDSTRING];
***************
*** 93,101 ****
x->status_outlet = outlet_new(&x->x_obj, 0);
! sys_vgui("bind all <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",
x->receive_symbol->s_name);
! sys_vgui("bind all <MouseWheel> {+pd [concat %s wheel %%D \\;]}\n",
x->receive_symbol->s_name);
--- 93,101 ----
x->status_outlet = outlet_new(&x->x_obj, 0);
! sys_vgui("bind . <ButtonPress> {+pd [concat %s button %%b 1 \\;]}\n",
x->receive_symbol->s_name);
! sys_vgui("bind . <ButtonRelease> {+pd [concat %s button %%b 0 \\;]}\n",
x->receive_symbol->s_name);
! sys_vgui("bind . <MouseWheel> {+pd [concat %s wheel %%D \\;]}\n",
x->receive_symbol->s_name);
More information about the Pd-cvs
mailing list