Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27528
Modified Files: Tag: desiredata desire.tk Log Message: fix for properties apply for floatatom and symbolatom.
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.54 retrieving revision 1.1.2.600.2.55 diff -C2 -d -r1.1.2.600.2.54 -r1.1.2.600.2.55 *** desire.tk 9 Dec 2006 17:09:38 -0000 1.1.2.600.2.54 --- desire.tk 10 Dec 2006 20:36:53 -0000 1.1.2.600.2.55 *************** *** 1975,1979 **** set @y1 [lindex $mess 3] set textstr [join [lrange $mess 4 end]] - # this hack is to remove the "" in the text regsub -all {\} $textstr "" text --- 1975,1978 ---- *************** *** 4698,4702 ****
def GAtomPropertiesDialog apply {} { ! pd .$@of param $@w $@min $@max [gatom_escape $@lab] $@pos [gatom_escape $@rcv] [gatom_escape $@snd] }
--- 4697,4701 ----
def GAtomPropertiesDialog apply {} { ! netsend [list .$@of reload $@w $@min $@max $@pos [gatom_escape $@lab] [gatom_escape $@rcv] [gatom_escape $@snd]] }
*************** *** 4724,4728 ****
def GraphPropertiesDialog apply {} { ! pd .$@of dialog $@x1 $@y1 $@x2 $@y2 $@xpix $@ypix }
--- 4723,4727 ----
def GraphPropertiesDialog apply {} { ! netsend [list .$@of dialog $@x1 $@y1 $@x2 $@y2 $@xpix $@ypix] }
*************** *** 4749,4756 ****
def ArrayPropertiesDialog apply {} { ! set mofo $@name ! if {[string index $mofo 0] == "$"} { ! set mofo [string replace $mofo 0 0 #] } ! pd .$@apply arraydialog $mofo $@n $@saveit $@otherflag }
--- 4748,4753 ----
def ArrayPropertiesDialog apply {} { ! regsub {^$} $@name "#" name ! netsend [list .$@apply arraydialog $name $@n $@saveit $@otherflag] }
*************** *** 4801,4808 **** }
! def FloatAtom init {mess} {super $mess; set @text 0} def SymbolAtom init {mess} {super $mess; set @text "symbol"} - def AtomBox canonize {x} {return x} - def FloatAtom canonize {x} {return [expr $x]}
def AtomBox set {val} { --- 4798,4803 ---- }
! def FloatAtom init {mess} {super $mess; set @text 0} def SymbolAtom init {mess} {super $mess; set @text "symbol"}
def AtomBox set {val} { *************** *** 4812,4815 **** --- 4807,4813 ---- }
+ def FloatAtom apply_value {} {netsend [list .$self float $@val]} + def SymbolAtom apply_value {} {netsend [list .$self symbol $@val]} + def AtomBox key {key shift} { set @clicking 0 *************** *** 4817,4822 **** Return { $@canvas focus= "" ! pd .$self set [$self canonize $@val] ! pd .$self bang set @text $@val set @clicking 0 --- 4815,4819 ---- Return { $@canvas focus= "" ! $self apply_value set @text $@val set @clicking 0