[PD-cvs] pd/src u_main.tk,1.17.2.17,1.17.2.18
Hans-Christoph Steiner
eighthave at users.sourceforge.net
Mon Jul 9 19:09:27 CEST 2007
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28778
Modified Files:
Tag: branch-v0-39-2-extended
u_main.tk
Log Message:
map Cmd-Click to toggle editmode on Mac OS X
Index: u_main.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v
retrieving revision 1.17.2.17
retrieving revision 1.17.2.18
diff -C2 -d -r1.17.2.17 -r1.17.2.18
*** u_main.tk 9 Jul 2007 17:08:37 -0000 1.17.2.17
--- u_main.tk 9 Jul 2007 17:09:25 -0000 1.17.2.18
***************
*** 1195,1198 ****
--- 1195,1199 ----
bind $name.c <Option-Control-Shift-Button> \
{pdtk_canvas_click %W %x %y %b 7}
+ bind $name.c <Mod1-Button> {pdtk_canvas_ctrlclick %W %x %y %b}
} else {
bind $name.c <Alt-Button> {pdtk_canvas_click %W %x %y %b 4}
***************
*** 1515,1519 ****
proc pdtk_canvas_ctrlclick {name x y b} {
! pd [canvastosym $name] mouse [$name canvasx $x] [$name canvasy $y] $b 2 \;
}
--- 1516,1521 ----
proc pdtk_canvas_ctrlclick {name x y b} {
! # first get rid of ".c" suffix; we'll refer to the toplevel instead
! menu_editmode [string trimright $name .c]
}
More information about the Pd-cvs
mailing list