pd/src desire.tk,1.1.2.600.2.17,1.1.2.600.2.18 - Pd-cvs

5 Dec 2006


      Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17719
Modified Files:
      Tag: desiredata
    desire.tk 
Log Message:
no more msg_isnew
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.17
retrieving revision 1.1.2.600.2.18
diff -C2 -d -r1.1.2.600.2.17 -r1.1.2.600.2.18
*** desire.tk	5 Dec 2006 06:56:10 -0000	1.1.2.600.2.17
--- desire.tk	5 Dec 2006 12:12:29 -0000	1.1.2.600.2.18
***************
*** 28,32 ****
  #
  #-----------------------------------------------------------------------------------#
! 
  # this command rebuilds the package index: echo pkg_mkIndex . | tclsh
--- 28,32 ----
  #
  #-----------------------------------------------------------------------------------#
!    
  # this command rebuilds the package index: echo pkg_mkIndex . | tclsh
***************
*** 1774,1778 ****
  def Canvas new_object_callback {obj} {}
! def Canvas new_object_edit {obj} {}
def Canvas insertxy {} {return [list $@insert_x $@insert_y]}
--- 1774,1778 ----
  def Canvas new_object_callback {obj} {}
! def Canvas new_object_edit {obj} {$obj isnew= 1}
def Canvas insertxy {} {return [list $@insert_x $@insert_y]}
***************
*** 1824,1828 ****
def Canvas Object  {} {$self new_object obj}
! def Canvas Message {} {$self new_object msg; global canvas; set canvas(msg_isnew) 1} ;# ???
  def Canvas Number  {} {$self new_object floatatom}
  def Canvas Symbol  {} {$self new_object symbolatom}
--- 1824,1828 ----
def Canvas Object  {} {$self new_object obj}
! def Canvas Message {} {$self new_object msg}
  def Canvas Number  {} {$self new_object floatatom}
  def Canvas Symbol  {} {$self new_object symbolatom}
***************
*** 3936,3939 ****
--- 3936,3940 ----
  #	if {[$self class] == "Canvas"} {$self restack}
  }
+ def Box isnew= {val} {set @isnew $val}
  def Box draw_box {} {}
  def Box edit {} {}
***************
*** 4347,4357 ****
    		}
    		$self pdclass= $class
- 			#!@#$ goes with the request tracking feature to be impl in the server
- 			#if {[info exists canvas(msg_isnew)]} {
- 			#	set _($self:isnew) 1
- 			#	puts "   put $self in edit mode....."
- 				#$self edit
- 			#	unset canvas(msg_isnew)
- 			#}
    	}
    	"#A" {
--- 4348,4351 ----
***************
*** 4415,4419 ****
    #comment out the following to see what happens with the q......
    if {[info exists @isnew]} { 
- 		#if {$@isnew} {$self edit;lappend _($@canvas:selection) $self;set @isnew 0} 
    	if {$@isnew} {$self edit;set @isnew 0; set @edit 1} 
    }
--- 4409,4412 ----