externals/hcs cursor.c,1.5,1.6 cursor-help.pd,1.4,1.5 - Pd-cvs

8 Nov 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);