[PD-cvs] pd/src desire.tk,1.1.2.378,1.1.2.379
Mathieu Bouchard
matju at users.sourceforge.net
Sun Aug 20 03:38:55 CEST 2006
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17310
Modified Files:
Tag: devel_0_39
desire.tk
Log Message:
some code for Array
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.378
retrieving revision 1.1.2.379
diff -C2 -d -r1.1.2.378 -r1.1.2.379
*** desire.tk 20 Aug 2006 01:00:44 -0000 1.1.2.378
--- desire.tk 20 Aug 2006 01:38:53 -0000 1.1.2.379
***************
*** 3021,3024 ****
--- 3021,3025 ----
set fields(floatatom) {foo bar x1 y1 w min max pos lab snd rcv}
set fields(symbolatom) {foo bar x1 y1 w min max pos lab snd rcv}
+ set fields(array) {name n elemtype flags}
proc classinfo {pdclass _class} {
***************
*** 3028,3031 ****
--- 3029,3033 ----
}
+ # basic patchables
classinfo obj ObjectBox
classinfo msg MessageBox
***************
*** 3034,3037 ****
--- 3036,3043 ----
classinfo text Comment
+ # non-patchables (scalars, arrays, ...)
+ classinfo array Array
+
+ # GUI patchables
classinfo bng Bang
classinfo tgl Toggle
***************
*** 3055,3058 ****
--- 3061,3068 ----
# remember, _($foo:$bar) notation should die
# because objects ought to be autonomous.
+
+ # in array objects, number of inlets is bogus?
+ #X array array1 1 float 3;
+ #A 0 0;
proc update_object {self e ninlets noutlets} {
global _ fields classinfo canvas
***************
*** 3084,3092 ****
}
if {$isnew} {$_class new_as $self}
! $self position= [lrange $mess 2 3]
$self canvas= $canvas(current)
$self pdclass= $class
! $self ninlets= $ninlets
$self noutlets= $noutlets
switch -- $class {
obj {$self text= [join [lrange $mess 4 end]]}
--- 3094,3106 ----
}
if {$isnew} {$_class new_as $self}
! switch -- $class {
! array {}
! default {$self position= [lrange $mess 2 3]}
! }
$self canvas= $canvas(current)
$self pdclass= $class
! $self ninlets= $ninlets ;# bogus in case of array
$self noutlets= $noutlets
+ #puts "CLASS IS $class"
switch -- $class {
obj {$self text= [join [lrange $mess 4 end]]}
***************
*** 3094,3097 ****
--- 3108,3112 ----
text {$self text= [join [lrange $mess 4 end]]}
restore {$self text= [join [lrange $mess 4 end]]}
+ array {puts "\033\[0;1;32mGOT ARRAY!"}
default {
set i 0; foreach f $fields($class) {
***************
*** 4130,4133 ****
--- 4145,4162 ----
}
+ class_new Array {Box}
+
+ def Array init {} {
+
+ }
+
+ def Array draw {} {
+ global font
+ mset {x1 y1} {0 0}
+ $self item TEXT text [list $x1 $y1] \
+ -font $font(str) -text "an array named '$@name' should appear in this patch" \
+ -fill [look objectfg] -anchor nw
+ }
+
#####################################################################################
# console
More information about the Pd-cvs
mailing list