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]}