[PD-cvs] pd/src desire.tk,1.1.2.600.2.201,1.1.2.600.2.202
Mathieu Bouchard
matju at users.sourceforge.net
Thu Jul 5 04:08:52 CEST 2007
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25379
Modified Files:
Tag: desiredata
desire.tk
Log Message:
Labeled is correctly spelled Labelled
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.201
retrieving revision 1.1.2.600.2.202
diff -C2 -d -r1.1.2.600.2.201 -r1.1.2.600.2.202
*** desire.tk 2 Jul 2007 06:52:51 -0000 1.1.2.600.2.201
--- desire.tk 5 Jul 2007 02:08:48 -0000 1.1.2.600.2.202
***************
*** 5251,5256 ****
return [$self class]
}
! class_new BlueBox {Labeled IEMGUI Box}
! #class_new BlueBox {Box Labeledo}
def BlueBox draw_box {} {
--- 5251,5256 ----
return [$self class]
}
! class_new BlueBox {Labelled IEMGUI Box}
! #class_new BlueBox {Box Labelled}
def BlueBox draw_box {} {
***************
*** 5630,5634 ****
def SymbolBox motion {x y f target} {}
! class_new NumBox {Labeled IEMGUI AtomBox}
def NumBox init {mess} {
--- 5630,5634 ----
def SymbolBox motion {x y f target} {}
! class_new NumBox {Labelled IEMGUI AtomBox}
def NumBox init {mess} {
***************
*** 5861,5867 ****
def Slider unfocus {} {$self draw}
! class_new Labeled {}
! def Labeled draw {} {
global leet
super
--- 5861,5867 ----
def Slider unfocus {} {$self draw}
! class_new Labelled {}
! def Labelled draw {} {
global leet
super
***************
*** 6050,6054 ****
def Dropper erase {} {destroy $@canvas.${self}DROP; super}
! class_new Cnv {Labeled IEMGUI Box}
def Cnv draw {} {
--- 6050,6054 ----
def Dropper erase {} {destroy $@canvas.${self}DROP; super}
! class_new Cnv {Labelled IEMGUI Box}
def Cnv draw {} {
***************
*** 6881,6885 ****
set v $_($self:$name) ;# bug in objtcl
frame $f.a
! listbox $f.a.list -width 32 -height 10 -yscrollcommand "$f.a.yscroll set" \
-activestyle none -xscrollcommand "$f.a.xscroll set"
#foreach line $@$name {$f.a.list insert end $line}
--- 6881,6885 ----
set v $_($self:$name) ;# bug in objtcl
frame $f.a
! listbox $f.a.list -width 32 -height 16 -yscrollcommand "$f.a.yscroll set" \
-activestyle none -xscrollcommand "$f.a.xscroll set"
#foreach line $@$name {$f.a.list insert end $line}
More information about the Pd-cvs
mailing list