[PD-cvs] pd/src desire.tk,1.1.2.545,1.1.2.546
chunlee
chunlee at users.sourceforge.net
Thu Nov 9 03:55:18 CET 2006
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7763
Modified Files:
Tag: devel_0_39
desire.tk
Log Message:
canvas right_click fix
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.545
retrieving revision 1.1.2.546
diff -C2 -d -r1.1.2.545 -r1.1.2.546
*** desire.tk 9 Nov 2006 01:58:36 -0000 1.1.2.545
--- desire.tk 9 Nov 2006 02:55:14 -0000 1.1.2.546
***************
*** 3104,3108 ****
focus $c
set @click_at [list $x $y]
! if {$f&8} {$self right_click $id $x $y; return}
if {!$@editmode} {$self run_click $id $x $y $f $target; return}
#if {[llength $@obj_in_edit]} {$@obj_in_edit unedit; set @obj_in_edit {}}
--- 3104,3108 ----
focus $c
set @click_at [list $x $y]
! if {$f&8} {if {$id == ""} {set id $self}; $self right_click $id $x $y; return}
if {!$@editmode} {$self run_click $id $x $y $f $target; return}
#if {[llength $@obj_in_edit]} {$@obj_in_edit unedit; set @obj_in_edit {}}
***************
*** 3203,3206 ****
--- 3203,3207 ----
set c [$self widget]
set @insert_x $x; set @insert_y $y
+ puts " id:::: $id"
if {[$id class] != "Canvas"} {
if {![winfo exists [[$id canvas] widget]]} {set id [$id canvas]}
More information about the Pd-cvs
mailing list