pd/src desire.tk,1.1.2.600.2.11,1.1.2.600.2.12 - Pd-cvs

5 Dec 2006


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