[PD-cvs] pd/src desire.tk,1.1.2.600.2.11,1.1.2.600.2.12

[Mathieu Bouchard]

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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
fixed rightclick help and added rightclick copy_id


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.11
retrieving revision 1.1.2.600.2.12
diff -C2 -d -r1.1.2.600.2.11 -r1.1.2.600.2.12
*** desire.tk	5 Dec 2006 00:13:17 -0000	1.1.2.600.2.11
--- desire.tk	5 Dec 2006 02:42:56 -0000	1.1.2.600.2.12
***************
*** 225,228 ****
--- 225,231 ----
  }
  
+ # you pass the 2nd argument if and only if the message creates an object (or pretends to).
+ # this is every #X line except #X coords.
+ # #N doesn't count and instead #X restore counts and #X pop counts.
  proc netsend {message {callback nonesuch}} {
  	global serial replyset sock
***************
*** 2957,2965 ****
  	} else {
  		$id populate_menu $p {popup_properties popup_open popup_help 
! 			popup_clear_wires popup_auto_wire}
  	}
  	tk_popup $p [expr $x-5] [expr $y-5]
  }
  
  def Canvas disconnect {wire} {
  	puts "$@wires_pair"
--- 2960,2973 ----
  	} else {
  		$id populate_menu $p {popup_properties popup_open popup_help 
! 			popup_clear_wires popup_auto_wire popup_copy_id}
  	}
  	tk_popup $p [expr $x-5] [expr $y-5]
  }
  
+ def View popup_copy_id {} {
+ 	clipboard clear
+ 	clipboard append $self
+ }
+ 
  def Canvas disconnect {wire} {
  	puts "$@wires_pair"
***************
*** 4306,4311 ****
  			if {[info exists classinfo($class)]} {
  				set _class [lindex $classinfo($class) 0]
! 			} {
! 				set class obj
  				set _class ObjectBox
  				# this is not the same @isnew as $isnew !
--- 4314,4319 ----
  			if {[info exists classinfo($class)]} {
  				set _class [lindex $classinfo($class) 0]
! 			} else {
! 				#set class obj
  				set _class ObjectBox
  				# this is not the same @isnew as $isnew !
***************
*** 4318,4322 ****
  				default {$self position= [lrange $mess 2 3]}
  			}
! 			$self  pdclass= $class
  			#!@#$ goes with the request tracking feature to be impl in the server
  			if {[info exists canvas(msg_isnew)]} {
--- 4326,4330 ----
  				default {$self position= [lrange $mess 2 3]}
  			}
! 			$self pdclass= $class
  			#!@#$ goes with the request tracking feature to be impl in the server
  			if {[info exists canvas(msg_isnew)]} {