[PD-cvs] pd/src desire.tk,1.1.2.545,1.1.2.546

[chunlee]

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