Pd-cvs June 2006

pd-cvs@lists.iem.at

13 participants
225 discussions

externals/zexy/src Makefile,1.11,1.12 zexyconf.h,1.2,1.3
by IOhannes m zmölnig 20 Jun '06

20 Jun '06

Update of /cvsroot/pure-data/externals/zexy/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13936/src Modified Files: Makefile zexyconf.h Log Message: added a BUGS.txt file; added unit-test for [s2l]; added Makefile for unit tests; added "tests" target to the src/Makefile which calls the unit-tests Index: Makefile =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/Makefile,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** Makefile 6 Jun 2006 12:05:33 -0000 1.11 --- Makefile 20 Jun 2006 08:44:27 -0000 1.12 *************** *** 3,7 **** .PHONEY: default all everything dist \ clean realclean distclean \ ! install install-bin install-doc install-abs HELPERSOURCES=z_zexy.c zexy.c winNT_portio.c --- 3,11 ---- .PHONEY: default all everything dist \ clean realclean distclean \ ! install install-bin install-doc install-abs \ ! tests ! ! ! TESTDIR=../tests HELPERSOURCES=z_zexy.c zexy.c winNT_portio.c *************** *** 87,90 **** --- 91,97 ---- -rm -rf autom4te.cache/ + tests: all + make -C $(TESTDIR) + install: install-bin install-doc install-abs Index: zexyconf.h =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/zexyconf.h,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** zexyconf.h 19 May 2006 14:04:32 -0000 1.2 --- zexyconf.h 20 Jun 2006 08:44:27 -0000 1.3 *************** *** 1,3 **** ! /* zexyconf.h. Generated by configure. */ /* Define if you have the <regex.h> header file. */ --- 1,3 ---- ! /* zexyconf.h. Generated from zexyconf.h.in by configure. */ /* Define if you have the <regex.h> header file. */ *************** *** 11,16 **** /* define if you have the <linux/ppdev.h> header file. ! * (for parport _device_ support) ! * you need Z_WANT_LPT for this to have an effect ! */ #define HAVE_LINUX_PPDEV_H 1 --- 11,16 ---- /* define if you have the <linux/ppdev.h> header file. ! * (for parport _device_ support) ! * you need Z_WANT_LPT for this to have an effect ! */ #define HAVE_LINUX_PPDEV_H 1

1 0

externals/zexy/tests Makefile, NONE, 1.1 runtests.sh, 1.2, 1.3 runtests.txt, 1.3, 1.4
by IOhannes m zmölnig 20 Jun '06

20 Jun '06

Update of /cvsroot/pure-data/externals/zexy/tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13936/tests Modified Files: runtests.sh runtests.txt Added Files: Makefile Log Message: added a BUGS.txt file; added unit-test for [s2l]; added Makefile for unit tests; added "tests" target to the src/Makefile which calls the unit-tests Index: runtests.txt =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/tests/runtests.txt,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** runtests.txt 16 Mar 2006 17:03:16 -0000 1.3 --- runtests.txt 20 Jun 2006 08:44:27 -0000 1.4 *************** *** 70,71 **** --- 70,72 ---- help-msg/z~; repeat/noargs; + s2l/numsymbols; --- NEW FILE: Makefile --- default: nogui nogui: sh runtests.sh gui: sh runtests.sh -gui Index: runtests.sh =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/tests/runtests.sh,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** runtests.sh 30 Jan 2006 09:12:44 -0000 1.2 --- runtests.sh 20 Jun 2006 08:44:27 -0000 1.3 *************** *** 9,13 **** ls -1 */*.pd | sed 's/\.pd/;/' > ${RUNTESTS_TXT} ! LIBFLAGS="-lib ../zexy -path ../abs/" function run_nogui() { --- 9,13 ---- ls -1 */*.pd | sed 's/\.pd/;/' > ${RUNTESTS_TXT} ! LIBFLAGS="-path ../src -lib zexy -path ../abs/" function run_nogui() {

1 0

externals/zexy BUGS.txt,NONE,1.1
by IOhannes m zmölnig 20 Jun '06

20 Jun '06

Update of /cvsroot/pure-data/externals/zexy In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13936 Added Files: BUGS.txt Log Message: added a BUGS.txt file; added unit-test for [s2l]; added Makefile for unit tests; added "tests" target to the src/Makefile which calls the unit-tests --- NEW FILE: BUGS.txt --- [drip] - sometimes crashes with small delays . according to the backtrace this should be a memory corruption . (actually the crashing bug was buggy by design and i haven't got a simple bug-patch yet) [s2l] - numerically looking sub-symbols are converted wrongly to floats: e.g. "192.168.0.1" -> 192,168

1 0

externals/zexy/tests/s2l - New directory
by IOhannes m zmölnig 20 Jun '06

20 Jun '06

Update of /cvsroot/pure-data/externals/zexy/tests/s2l In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10711/s2l Log Message: Directory /cvsroot/pure-data/externals/zexy/tests/s2l added to the repository

1 0

pd/src desire.tk,1.1.2.252,1.1.2.253
by chunlee 20 Jun '06

20 Jun '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7580 Modified Files: Tag: devel_0_39 desire.tk Log Message: messagebox fixed... Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.252 retrieving revision 1.1.2.253 diff -C2 -d -r1.1.2.252 -r1.1.2.253 *** desire.tk 19 Jun 2006 20:14:50 -0000 1.1.2.252 --- desire.tk 20 Jun 2006 04:07:31 -0000 1.1.2.253 *************** *** 116,120 **** } def* Observable changed {args} { - puts " subscribers ::: $@subscribers" foreach x $@subscribers {eval [concat [list $x notice $self] $args]} } --- 116,119 ---- *************** *** 155,159 **** set poolset($origin) {-1} lappend @q $origin - puts " adding $origin to the q....." } post "Manager notice: queue length is now %d" [llength $@q] --- 154,157 ---- *************** *** 2288,2294 **** #foreach {type id} [$self identify_target $cx $cy -1 -1 "blah "] {} mset {type id} [$self identify_target $x $y [expr $x-1] [expr $y-1] "unclick"] ! puts "++++++++ type:$type id:$id class:$_($id:class)" set @obj_in_edit $id $id edit } --- 2286,2293 ---- #foreach {type id} [$self identify_target $cx $cy -1 -1 "blah "] {} mset {type id} [$self identify_target $x $y [expr $x-1] [expr $y-1] "unclick"] ! #puts "++++++++ type:$type id:$id class:$_($id:class)" set @obj_in_edit $id $id edit + $id draw } *************** *** 2755,2759 **** foreach f $fields($class) { set _($x:$f) [lindex $d $i] ! puts "------> set $x:$f to [lindex $d $i] <------" incr i } --- 2754,2758 ---- foreach f $fields($class) { set _($x:$f) [lindex $d $i] ! #puts "------> set $x:$f to [lindex $d $i] <------" incr i } *************** *** 2810,2820 **** foreach f $fields($class) { set _($x:$f) [lindex $d $i] ! puts "==== setting $x:$f to [lindex $d $i] ====" incr i } if {$class == "msg"} {set _($x:text) [join [lrange $d 4 end]]} if {[info exists canvas(msg_isnew)]} { ! puts "_______ spanking new message ________" set _($x:isnew) 1 unset canvas(msg_isnew) } --- 2809,2820 ---- foreach f $fields($class) { set _($x:$f) [lindex $d $i] ! #puts "==== setting $x:$f to [lindex $d $i] ====" incr i } if {$class == "msg"} {set _($x:text) [join [lrange $d 4 end]]} if {[info exists canvas(msg_isnew)]} { ! #puts "_______ spanking new message ________" set _($x:isnew) 1 + $x selected?= 1 unset canvas(msg_isnew) } *************** *** 2899,2903 **** #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} } } --- 2899,2904 ---- #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} } } *************** *** 2909,2918 **** set t $c.${self}text set @text [$t get 1.0 1.end] ! $self delete after 1 "destroy $t" set l {} foreach char [split $@text ""] {lappend l [scan $char %c]} pd .$@canvas text_setto !$self $l ! #$self draw focus $c } --- 2910,2920 ---- set t $c.${self}text set @text [$t get 1.0 1.end] ! #$self delete ! $self selected?= 0 after 1 "destroy $t" set l {} foreach char [split $@text ""] {lappend l [scan $char %c]} pd .$@canvas text_setto !$self $l ! $self draw focus $c }

1 0

externals/grill/flext/source flatom_pr.cpp, 1.23, 1.24 flbase.h, 1.38, 1.39 fllib.cpp, 1.38, 1.39 flproxy.cpp, 1.13, 1.14 flstdc.h, 1.38, 1.39 flthr.cpp, 1.34, 1.35
by Thomas Grill 20 Jun '06

20 Jun '06

Update of /cvsroot/pure-data/externals/grill/flext/source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23703/source Modified Files: flatom_pr.cpp flbase.h fllib.cpp flproxy.cpp flstdc.h flthr.cpp Log Message: more robust structure pack setting for Max/MSP @ Windows fixed bug for Max/MSP when there's no signal inlet - Max: fixed reported bug (#67), where list elements are distributed over inlets - preprocessor symbol FLEXT_COMPATIBLE - if defined don't implement specialities of either PD or Max/MSP cosmetic changes to calm the compiler Index: flproxy.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/grill/flext/source/flproxy.cpp,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** flproxy.cpp 15 May 2006 23:03:52 -0000 1.13 --- flproxy.cpp 20 Jun 2006 00:04:11 -0000 1.14 *************** *** 125,131 **** void flext_base::cb_px_ft ## IX(flext_hdr *c,double v) { t_atom atom; SetFloat(atom,v); thisObject(c)->CbMethodHandler(IX,sym_float,1,&atom); } ! //void flext_base::cb_px_in ## IX(flext_hdr *c,long v) { t_atom atom; SetInt(atom,v); thisObject(c)->CbMethodHandler(IX,sym_int,1,&atom); } \ ! //void flext_base::cb_px_ft ## IX(flext_hdr *c,double v) { t_atom atom; SetFloat(atom,v); thisObject(c)->CbMethodHandler(IX,sym_float,1,&atom); } ! #define ADD_PROXYMSG(c,IX) \ --- 125,132 ---- void flext_base::cb_px_ft ## IX(flext_hdr *c,double v) { t_atom atom; SetFloat(atom,v); thisObject(c)->CbMethodHandler(IX,sym_float,1,&atom); } ! /* ! void flext_base::cb_px_in ## IX(flext_hdr *c,long v) { t_atom atom; SetInt(atom,v); thisObject(c)->CbMethodHandler(IX,sym_int,1,&atom); } \ ! void flext_base::cb_px_ft ## IX(flext_hdr *c,double v) { t_atom atom; SetFloat(atom,v); thisObject(c)->CbMethodHandler(IX,sym_float,1,&atom); } ! */ #define ADD_PROXYMSG(c,IX) \ *************** *** 133,142 **** addftx((method)(cb_px_ft ## IX),IX) ! //add_method1(c,cb_px_in ## IX,"in" #IX,A_INT); \ ! //add_method1(c,cb_px_ft ## IX,"ft" #IX,A_FLOAT) ! ! //AddMethod(c,0,flext::MakeSymbol("in" #IX),cb_px_in ## IX); \ ! //AddMethod(c,0,flext::MakeSymbol("ft" #IX),cb_px_ft ## IX) #endif --- 134,144 ---- addftx((method)(cb_px_ft ## IX),IX) ! /* ! add_method1(c,cb_px_in ## IX,"in" #IX,A_INT); \ ! add_method1(c,cb_px_ft ## IX,"ft" #IX,A_FLOAT) + AddMethod(c,0,flext::MakeSymbol("in" #IX),cb_px_in ## IX); \ + AddMethod(c,0,flext::MakeSymbol("ft" #IX),cb_px_ft ## IX) + */ #endif Index: flbase.h =================================================================== RCS file: /cvsroot/pure-data/externals/grill/flext/source/flbase.h,v retrieving revision 1.38 retrieving revision 1.39 diff -C2 -d -r1.38 -r1.39 *** flbase.h 24 May 2006 12:20:57 -0000 1.38 --- flbase.h 20 Jun 2006 00:04:11 -0000 1.39 *************** *** 200,209 **** protected: - //! pointer to flext class definition - flext_class *clss; - //! backpointer to object header mutable flext_hdr *x_obj; // static bool process_attributes; --- 200,209 ---- protected: //! backpointer to object header mutable flext_hdr *x_obj; + //! pointer to flext class definition + flext_class *clss; + // static bool process_attributes; Index: fllib.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/grill/flext/source/fllib.cpp,v retrieving revision 1.38 retrieving revision 1.39 diff -C2 -d -r1.38 -r1.39 *** fllib.cpp 24 May 2006 12:20:57 -0000 1.38 --- fllib.cpp 20 Jun 2006 00:04:11 -0000 1.39 *************** *** 129,141 **** flext_class(t_class *&cl,flext_obj *(*newf)(int,t_atom *),void (*freef)(flext_hdr *)); flext_obj *(*newfun)(int,t_atom *); void (*freefun)(flext_hdr *c); - t_class *const &clss; - flext_library *lib; - bool dsp,attr,dist; int argc; int *argv; flext_base::ItemCont meths,attrs; }; --- 129,143 ---- flext_class(t_class *&cl,flext_obj *(*newf)(int,t_atom *),void (*freef)(flext_hdr *)); + t_class *const &clss; + flext_obj *(*newfun)(int,t_atom *); void (*freefun)(flext_hdr *c); int argc; int *argv; + flext_library *lib; + bool dsp,attr,dist; + flext_base::ItemCont meths,attrs; }; Index: flstdc.h =================================================================== RCS file: /cvsroot/pure-data/externals/grill/flext/source/flstdc.h,v retrieving revision 1.38 retrieving revision 1.39 diff -C2 -d -r1.38 -r1.39 *** flstdc.h 29 May 2006 10:19:27 -0000 1.38 --- flstdc.h 20 Jun 2006 00:04:11 -0000 1.39 *************** *** 252,260 **** #ifdef FLEXT_DEBUG #ifdef _MSC_VER ! #define FLEXT_ASSERT(b) (!(b)?_CrtDbgReport(_CRT_ASSERT,__FILE__,__LINE__,"flext",#b):1) #define FLEXT_WARN(str) _CrtDbgReport(_CRT_WARN,__FILE__,__LINE__,"flext",NULL) #define FLEXT_ERROR(str) _CrtDbgReport(_CRT_ERROR,__FILE__,__LINE__,"flext",NULL) #else ! #define FLEXT_ASSERT(b) (!(b)?(error("Assertion failed: " #b " - in " __FILE__ " line %i",(int)__LINE__),0):1) #define FLEXT_WARN(str) error("Warning: in " __FILE__ " line %i",(int)__LINE__) #define FLEXT_ERROR(str) error("Error: in " __FILE__ " line %i",(int)__LINE__) --- 252,260 ---- #ifdef FLEXT_DEBUG #ifdef _MSC_VER ! #define FLEXT_ASSERT(b) do { if(!(b)) _CrtDbgReport(_CRT_ASSERT,__FILE__,__LINE__,"flext",#b); } while(false) #define FLEXT_WARN(str) _CrtDbgReport(_CRT_WARN,__FILE__,__LINE__,"flext",NULL) #define FLEXT_ERROR(str) _CrtDbgReport(_CRT_ERROR,__FILE__,__LINE__,"flext",NULL) #else ! #define FLEXT_ASSERT(b) do { if(!(b)) error("Assertion failed: " #b " - in " __FILE__ " line %i",(int)__LINE__); } while(false) #define FLEXT_WARN(str) error("Warning: in " __FILE__ " line %i",(int)__LINE__) #define FLEXT_ERROR(str) error("Error: in " __FILE__ " line %i",(int)__LINE__) Index: flthr.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/grill/flext/source/flthr.cpp,v retrieving revision 1.34 retrieving revision 1.35 diff -C2 -d -r1.34 -r1.35 *** flthr.cpp 24 May 2006 12:20:57 -0000 1.34 --- flthr.cpp 20 Jun 2006 00:04:11 -0000 1.35 *************** *** 353,357 **** // -------------------------- - bool found = false; while((ti = thrpending.Pop()) != NULL) if(ti->This() == this) --- 353,356 ---- Index: flatom_pr.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/grill/flext/source/flatom_pr.cpp,v retrieving revision 1.23 retrieving revision 1.24 diff -C2 -d -r1.23 -r1.24 *** flatom_pr.cpp 15 May 2006 23:03:52 -0000 1.23 --- flatom_pr.cpp 20 Jun 2006 00:04:11 -0000 1.24 *************** *** 34,49 **** } else if(IsSymbol(a)) { ! if(!FLEXT_ASSERT(GetSymbol(a))) ! *buf = 0; ! else { ! const char *c = GetString(a); ! size_t len = strlen(c); ! if(len < bufsz) { ! memcpy(buf,c,len); buf[len] = 0; ! ok = true; ! } ! else ! ok = false; ! } } #if FLEXT_SYS == FLEXT_SYS_PD --- 34,47 ---- } else if(IsSymbol(a)) { ! FLEXT_ASSERT(IsSymbol(a)); ! ! const char *c = GetString(a); ! size_t len = strlen(c); ! if(len < bufsz) { ! memcpy(buf,c,len); buf[len] = 0; ! ok = true; ! } ! else ! ok = false; } #if FLEXT_SYS == FLEXT_SYS_PD

1 0

pd/src desire.tk,1.1.2.251,1.1.2.252
by chunlee 19 Jun '06

19 Jun '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12871 Modified Files: Tag: devel_0_39 desire.tk Log Message: messagebox q bug Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.251 retrieving revision 1.1.2.252 diff -C2 -d -r1.1.2.251 -r1.1.2.252 *** desire.tk 19 Jun 2006 06:22:19 -0000 1.1.2.251 --- desire.tk 19 Jun 2006 20:14:50 -0000 1.1.2.252 *************** *** 115,119 **** if {$i>=0} {set @subscribers [lreplace $@subscribers $i $i]} } ! def Observable changed {args} { foreach x $@subscribers {eval [concat [list $x notice $self] $args]} } --- 115,120 ---- if {$i>=0} {set @subscribers [lreplace $@subscribers $i $i]} } ! def* Observable changed {args} { ! puts " subscribers ::: $@subscribers" foreach x $@subscribers {eval [concat [list $x notice $self] $args]} } *************** *** 154,157 **** --- 155,159 ---- set poolset($origin) {-1} lappend @q $origin + puts " adding $origin to the q....." } post "Manager notice: queue length is now %d" [llength $@q] *************** *** 938,943 **** def* View unclick {args} {} def* View unclickedit {args} {} ! def* View motion {args} {} ! def* View motionedit {args} {} def View selected? {} {return $@selected?} def View selected?= {x} {set @selected? $x; $self changed} --- 940,945 ---- def* View unclick {args} {} def* View unclickedit {args} {} ! def View motion {args} {} ! def View motionedit {args} {} def View selected? {} {return $@selected?} def View selected?= {x} {set @selected? $x; $self changed} *************** *** 1293,1297 **** $self populate_menu put { {Object {[%W canvas] editmode= 1;pd .%W obj %X %Y} ""} ! {Message {[%W canvas] editmode= 1;pd .%W msg %X %Y} ""} {Number {[%W canvas] editmode= 1;pd .%W floatatom %X %Y} ""} {Symbol {[%W canvas] editmode= 1;pd .%W symbolatom %X %Y} ""} --- 1295,1299 ---- $self populate_menu put { {Object {[%W canvas] editmode= 1;pd .%W obj %X %Y} ""} ! {Message {[%W canvas] editmode= 1;pd .%W msg %X %Y;global canvas;set canvas(msg_isnew) 1} ""} {Number {[%W canvas] editmode= 1;pd .%W floatatom %X %Y} ""} {Symbol {[%W canvas] editmode= 1;pd .%W symbolatom %X %Y} ""} *************** *** 1446,1449 **** --- 1448,1452 ---- if {$@edit} {return} set t .$(a)canvas.c.${self}text + if {[info exists @isnew]} {set @isnew 0} #--------------------------------------- label completion #set propose .$(a)canvas.c.${self}propose *************** *** 1846,1850 **** if {$@editmode && [llength [$id bbox]]} { mset {x1 y1 x2 y2} [$id bbox] ! post %s "y=$y y1=$y1 y2=$y2" if {$y<$y1+2} { set port [$id hilite_io i $x $y] --- 1849,1853 ---- if {$@editmode && [llength [$id bbox]]} { mset {x1 y1 x2 y2} [$id bbox] ! #post %s "y=$y y1=$y1 y2=$y2" if {$y<$y1+2} { set port [$id hilite_io i $x $y] *************** *** 2110,2114 **** def* Canvas deselect_all {} { ! foreach o $@selection {$o selected?= 0} foreach w $@selection_wire {$w selected?= 0} set @selection {} --- 2113,2117 ---- def* Canvas deselect_all {} { ! foreach o $@selection {$o selected?= 0; puts "----------- deselecte $o"} foreach w $@selection_wire {$w selected?= 0} set @selection {} *************** *** 2285,2289 **** #foreach {type id} [$self identify_target $cx $cy -1 -1 "blah "] {} mset {type id} [$self identify_target $x $y [expr $x-1] [expr $y-1] "unclick"] ! puts "type:$type id:$id class:$_($id:class)" set @obj_in_edit $id $id edit --- 2288,2292 ---- #foreach {type id} [$self identify_target $cx $cy -1 -1 "blah "] {} mset {type id} [$self identify_target $x $y [expr $x-1] [expr $y-1] "unclick"] ! puts "++++++++ type:$type id:$id class:$_($id:class)" set @obj_in_edit $id $id edit *************** *** 2684,2687 **** --- 2687,2691 ---- #set fields(canvas) {name width height geometry editable} set fields(canvas) {foo bar x y w h editable} + set fields(msg) {foo bar x1 y1} set fields(coords) {foo bar xfrom yfrom xto yto w h gop x1 y1} *************** *** 2746,2750 **** set _($x:_class) ObjectBox } ! if {![info exists fields($class)]} {set class obj} set i 0 --- 2750,2754 ---- set _($x:_class) ObjectBox } ! # duped here because some objs needs this properties before init if {![info exists fields($class)]} {set class obj} set i 0 *************** *** 2755,2758 **** --- 2759,2764 ---- } + if {$class == "msg"} {set _($x:text) [join [lrange $d 4 end]];set _($x:class) "msg"} + $x init if {$_($canvas(current):duplicating)} { *************** *** 2800,2810 **** } ! #if {![info exists fields($class)]} {set class obj} ! #set i 0 ! #foreach f $fields($class) { ! # set _($x:$f) [lindex $d $i] ! # puts "==== setting $x:$f to [lindex $d $i] ====" ! # incr i ! #} #hack to get the file loading working, not sure if its a good solution --- 2806,2823 ---- } ! if {![info exists fields($class)]} {set class obj} ! set i 0 ! foreach f $fields($class) { ! set _($x:$f) [lindex $d $i] ! puts "==== setting $x:$f to [lindex $d $i] ====" ! incr i ! } ! if {$class == "msg"} {set _($x:text) [join [lrange $d 4 end]]} ! if {[info exists canvas(msg_isnew)]} { ! puts "_______ spanking new message ________" ! set _($x:isnew) 1 ! unset canvas(msg_isnew) ! } ! #hack to get the file loading working, not sure if its a good solution *************** *** 2883,2888 **** if {[$self selected?]} {set frcol $look(objectframe4)} {set frcol $look(objectframe3)} .$(a)canvas.c itemconfigure ${self}BASE -outline $frcol - super } --- 2896,2904 ---- if {[$self selected?]} {set frcol $look(objectframe4)} {set frcol $look(objectframe3)} .$(a)canvas.c itemconfigure ${self}BASE -outline $frcol super + #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} + } } *************** *** 2893,2901 **** set t $c.${self}text set @text [$t get 1.0 1.end] ! $self erase after 1 "destroy $t" set l {} foreach char [split $@text ""] {lappend l [scan $char %c]} pd .$@canvas text_setto !$self $l focus $c } --- 2909,2918 ---- set t $c.${self}text set @text [$t get 1.0 1.end] ! $self delete after 1 "destroy $t" set l {} foreach char [split $@text ""] {lappend l [scan $char %c]} pd .$@canvas text_setto !$self $l + #$self draw focus $c } *************** *** 3772,3776 **** if {$cmdline(console) != 0} { frame .log ! text .log.1 -width 60 -height 10 -yscrollcommand ".log.2 set" scrollbar .log.2 -command ".log.1 yview" global tcl_version tk_version pd_myversion tcl_platform OS --- 3789,3793 ---- if {$cmdline(console) != 0} { frame .log ! text .log.1 -width 60 -height 30 -yscrollcommand ".log.2 set" scrollbar .log.2 -command ".log.1 yview" global tcl_version tk_version pd_myversion tcl_platform OS

1 0

pd/src desire.tk,1.1.2.250,1.1.2.251
by Mathieu Bouchard 19 Jun '06

19 Jun '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14683 Modified Files: Tag: devel_0_39 desire.tk Log Message: new class GraphPropertiesDialog new class ArrayPropertiesDialog Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.250 retrieving revision 1.1.2.251 diff -C2 -d -r1.1.2.250 -r1.1.2.251 *** desire.tk 19 Jun 2006 06:09:28 -0000 1.1.2.250 --- desire.tk 19 Jun 2006 06:22:19 -0000 1.1.2.251 *************** *** 3169,3172 **** --- 3169,3243 ---- } + class_new GraphPropertiesDialog {Dialog} + + def GraphPropertiesDialog apply {} { + pd ".$self dialog $@x1 $@y1 $@x2 $@y2 $@xpix $@ypix ;" + } + + def GraphPropertiesDialog cancel {} {pd ".$self cancel ;"} + + set properties(graph) { + x1 "x from: " entry {-width 7} + x2 "x to: " entry {-width 7} + xpix "screen width: " entry {-width 7} + y2 "y from: " entry {-width 7} + y1 "y to: " entry {-width 7} + ypix "screen height: " entry {-width 7} + } + + def GraphPropertiesDialog init {of} { + super $of + foreach var {x1 y1 x2 y2 xpix ypix} {set @$var $_($of:$var)} + wm title .$self "Graph" + pack [label .$self.label -text "GRAPH BOUNDS"] -side top + global properties + properties_dialog $self .$self graph_ok $properties(graph) + #.$self.xrangef.x2 select from 0 + #.$self.xrangef.x2 select adjust end + #focus .$self.xrangef.x2 + } + + class_new ArrayPropertiesDialog {Dialog} + + def ArrayPropertiesDialog apply {} { + set mofo $@name + if {[string index $mofo 0] == "$"} { + set mofo [string replace $mofo 0 0 #] } + pd ".$self arraydialog $mofo $@n $@saveit $@otherflag ;" + } + + def ArrayPropertiesDialog cancel {} {pd ".$self cancel ;"} + + def ArrayPropertiesDialog init {of} { + super $of + foreach var {name n saveit} {set @$var $_($of:$var)} + set @otherflag 0 + wm title $id "[say array] [say popup_properties]" + set props { + name "name: " entry {} + n "size: " entry {} + } + properties_dialog $self .$self array_ok $props + + pack [checkbutton .$self.saveme -text "save contents" -variable @saveit -anchor w] -side top + + if {$newone != 0} { + pack [frame .$self.radio] -side top + foreach {i label} {0 "in new graph" 1 "in last graph"} { + pack [radiobutton .$self.radio.radio$i -value $i -variable @otherflag -text $label] \ + -side top -anchor w + } + } else { + pack [checkbutton .$self.deleteme -text "delete me" \ + -variable @otherflag -anchor w] -side top + } + if {$newone} {.$self.buttonframe.apply configure -state disabled} + bind .$self.name.entry <KeyPress-Return> "$self ok" + bind .$self.n.entry <KeyPress-Return> "$self ok" + .$self.name.entry select from 0 + .$self.name.entry select adjust end + focus .$self.name.entry + } + class_new NumBox {Labeled Box} def* NumBox init {args} {

1 0

pd/src desire.tk,1.1.2.249,1.1.2.250
by Mathieu Bouchard 19 Jun '06

19 Jun '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8581 Modified Files: Tag: devel_0_39 desire.tk Log Message: added class GAtomPropertiesDialog Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.249 retrieving revision 1.1.2.250 diff -C2 -d -r1.1.2.249 -r1.1.2.250 *** desire.tk 19 Jun 2006 05:43:14 -0000 1.1.2.249 --- desire.tk 19 Jun 2006 06:09:28 -0000 1.1.2.250 *************** *** 3115,3118 **** --- 3115,3172 ---- def* CanvasPropertiesDialog cancel {id} {pd ".$self cancel ;"} + set properties(gatom) { + width "width: " entry {-width 4} + lo "lower limit: " entry {-width 8} + hi "upper limit: " entry {-width 8} + label "label: " entry {-width 20} + wherelabel "show label on: " side {} + symto "send symbol: " entry {-width 20} + symfrom "receive symbol: " entry {-width 20} + } + + proc gatom_escape {sym} { + if {[string length $sym] == 0} { + return "-" + } else { + if {[string equal -length 1 $sym "-"]} { + return [string replace $sym 0 0 "--"] + } else { + return $sym + } + } + } + + proc gatom_unescape {sym} { + if {[string equal -length 1 $sym "-"]} { + return [string replace $sym 0 0 ""] + } else { + return $sym + } + } + + class_new GAtomPropertiesDialog {Dialog} + + def GAtomPropertiesDialog apply {} { + pd ".$self param $@width $@lo $@hi [gatom_escape $@label] $@wherelabel \ + [gatom_escape $@symfrom] [gatom_escape $@symto] ;" + } + + def GAtomPropertiesDialog cancel {} {pd ".$self cancel ;"} + + def GAtomPropertiesDialog init {of} { + super $of + foreach var {width lo hi wherelabel} {set @$var $_($of:$var)} + foreach var {label symfrom symto} {set @$var [gatom_unescape $_($of:$var)]} + wm title .$self "Atom" + global properties + properties_dialog $self .$self dogatom_ok $properties(gatom) + foreach name {hi lo width} { + bind .$self.$name.entry <KeyPress-Return> "$self ok" + } + .$self.width.entry select from 0 + .$self.width.entry select adjust end + focus .$self.width.entry + } + class_new NumBox {Labeled Box} def* NumBox init {args} {

1 0

pd/src objective.tcl,1.1.2.11,1.1.2.12
by Mathieu Bouchard 19 Jun '06

19 Jun '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2897 Modified Files: Tag: devel_0_39 objective.tcl Log Message: added Thing _inspect that returns a string giving a lot of info about an object (a thing, sorry) Index: objective.tcl =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/objective.tcl,v retrieving revision 1.1.2.11 retrieving revision 1.1.2.12 diff -C2 -d -r1.1.2.11 -r1.1.2.12 *** objective.tcl 19 Jun 2006 05:51:49 -0000 1.1.2.11 --- objective.tcl 19 Jun 2006 05:58:31 -0000 1.1.2.12 *************** *** 128,131 **** --- 128,138 ---- } + def Thing _inspect {} { + set t [list "#<$self: "] + foreach k [$self _vars] {lappend t "$k=[list $@$k] "} + lappend t ">" + return [join $t ""] + } + class_new Class def Class subclasses {} {return $@subclasses}

1 0

← Newer
1
...
4
5
6
7
8
9
10
...
23
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

Pd-cvs June 2006