[PD-cvs] pd/src desire.tk,1.1.2.600.2.54,1.1.2.600.2.55
Mathieu Bouchard
matju at users.sourceforge.net
Sun Dec 10 21:36:56 CET 2006
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
More information about the Pd-cvs
mailing list