[PD-cvs] pd/src desire.tk,1.1.2.600.2.17,1.1.2.600.2.18
chunlee
chunlee at users.sourceforge.net
Tue Dec 5 13:12:33 CET 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 ----
More information about the Pd-cvs
mailing list