[PD-cvs] pd/src desire.tk,1.1.2.600.2.237,1.1.2.600.2.238

[chunlee]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6723

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
fixed right-click open [pd]


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.237
retrieving revision 1.1.2.600.2.238
diff -C2 -d -r1.1.2.600.2.237 -r1.1.2.600.2.238
*** desire.tk	14 Jul 2007 22:39:25 -0000	1.1.2.600.2.237
--- desire.tk	15 Jul 2007 00:42:00 -0000	1.1.2.600.2.238
***************
*** 3494,3501 ****
  	#$self init_window
  	#set @mapped 1
  	netsend [list .$self vis 1]
  	netsend [list .$self map 1]
  	$self init_window
! 	$self redraw
  }
  
--- 3494,3502 ----
  	#$self init_window
  	#set @mapped 1
+ 	if {[winfo exists [$self widget]]} {raise .$self; return}
  	netsend [list .$self vis 1]
  	netsend [list .$self map 1]
  	$self init_window
! 	#$self redraw
  }