Pd-cvs August 2007

pd-cvs@lists.iem.at

18 participants
618 discussions

autobuild: pd-extended-release ubuntu-dapper-i386 2007-08-04 14.27.20
by pd＠ubuntu-dapper-i386.idmi.poly.edu 04 Aug '07

04 Aug '07

/home/pd/auto-build/pd-extended-release/packages/linux_make/build//usr/local/lib/pd/default.pdsettings install -d -m0775 /home/pd/auto-build/pd-extended-release/packages/linux_make/build//usr/share/pd install -d /home/pd/auto-build/pd-extended-release/packages/linux_make/build//usr/share/emacs/site-lisp/ install -p /home/pd/auto-build/pd-extended-release/scripts/pd-mode.el /home/pd/auto-build/pd-extended-release/packages/linux_make/build//usr/share/emacs/site-lisp/ install -p /home/pd/auto-build/pd-extended-release/scripts/pd-diff /home/pd/auto-build/pd-extended-release/packages/linux_make/build//usr/local/bin install -p /home/pd/auto-build/pd-extended-release/scripts/config-switcher.sh /home/pd/auto-build/pd-extended-release/packages/linux_make/build//usr/local/bin sed -i 's|^Version:.*|Version: 0.39.3-1|' \ /home/pd/auto-build/pd-extended-release/packages/linux_make/debian/control sed -i 's|^Architecture:.*|Architecture: i386|' \ /home/pd/auto-build/pd-extended-release/packages/linux_make/debian/control test -d /home/pd/auto-build/pd-extended-release/packages/linux_make/build//DEBIAN || mkdir -p /home/pd/auto-build/pd-extended-release/packages/linux_make/build//DEBIAN cp /home/pd/auto-build/pd-extended-release/packages/linux_make/debian/control /home/pd/auto-build/pd-extended-release/packages/linux_make/build//DEBIAN fakeroot dpkg-deb --build /home/pd/auto-build/pd-extended-release/packages/linux_make/build/ /home/pd/auto-build/pd-extended-release/packages/linux_make/Pd-0.39.3-extended.deb dpkg-deb: building package `pd-extended' in `/home/pd/auto-build/pd-extended-release/packages/linux_make/Pd-0.39.3-extended.deb'. upload specs linux_make . deb Uploading /home/pd/auto-build/pd-extended-release/packages/linux_make/./Pd*.deb rsync: push_dir#3 "/2007-08-04" (in upload) failed: No such file or directory (2) rsync error: errors selecting input/output files, dirs (code 3) at main.c(565) [receiver=2.6.9] rsync: connection unexpectedly closed (4 bytes received so far) [sender] rsync error: error in rsync protocol data stream (code 12) at io.c(434)

1 0

autobuild: pd-extended ubuntu-dapper-i386 2007-08-04 14.27.20
by pd＠ubuntu-dapper-i386.idmi.poly.edu 04 Aug '07

04 Aug '07

install -p /home/pd/auto-build/pd-extended/packages/linux_make/default.pdsettings /home/pd/auto-build/pd-extended/packages/linux_make/build//usr/local/lib/pd install -d -m0775 /home/pd/auto-build/pd-extended/packages/linux_make/build//usr/share/pd install -d /home/pd/auto-build/pd-extended/packages/linux_make/build//usr/share/emacs/site-lisp/ install -p /home/pd/auto-build/pd-extended/scripts/pd-mode.el /home/pd/auto-build/pd-extended/packages/linux_make/build//usr/share/emacs/site-lisp/ install -p /home/pd/auto-build/pd-extended/scripts/pd-diff /home/pd/auto-build/pd-extended/packages/linux_make/build//usr/local/bin install -p /home/pd/auto-build/pd-extended/scripts/config-switcher.sh /home/pd/auto-build/pd-extended/packages/linux_make/build//usr/local/bin sed -i 's|^Version:.*|Version: 0.40.3cvs20070804-1|' \ /home/pd/auto-build/pd-extended/packages/linux_make/debian/control sed -i 's|^Architecture:.*|Architecture: i386|' \ /home/pd/auto-build/pd-extended/packages/linux_make/debian/control test -d /home/pd/auto-build/pd-extended/packages/linux_make/build//DEBIAN || mkdir -p /home/pd/auto-build/pd-extended/packages/linux_make/build//DEBIAN cp /home/pd/auto-build/pd-extended/packages/linux_make/debian/control /home/pd/auto-build/pd-extended/packages/linux_make/build//DEBIAN fakeroot dpkg-deb --build /home/pd/auto-build/pd-extended/packages/linux_make/build/ /home/pd/auto-build/pd-extended/packages/linux_make/Pd-0.40.3-extended-20070804.deb dpkg-deb: building package `pd-extended' in `/home/pd/auto-build/pd-extended/packages/linux_make/Pd-0.40.3-extended-20070804.deb'. upload specs linux_make . deb Uploading /home/pd/auto-build/pd-extended/packages/linux_make/./Pd*.deb rsync: push_dir#3 "/2007-08-04" (in upload) failed: No such file or directory (2) rsync error: errors selecting input/output files, dirs (code 3) at main.c(565) [receiver=2.6.9] rsync: connection unexpectedly closed (4 bytes received so far) [sender] rsync error: error in rsync protocol data stream (code 12) at io.c(434)

1 0

pd/src desire.tk,1.1.2.600.2.281,1.1.2.600.2.282
by chunlee 04 Aug '07

04 Aug '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23187 Modified Files: Tag: desiredata desire.tk Log Message: small fix to Dialog add_font Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.281 retrieving revision 1.1.2.600.2.282 diff -C2 -d -r1.1.2.600.2.281 -r1.1.2.600.2.282 *** desire.tk 4 Aug 2007 16:45:20 -0000 1.1.2.600.2.281 --- desire.tk 4 Aug 2007 18:48:47 -0000 1.1.2.600.2.282 *************** *** 7197,7201 **** $self add_stuff $f $name $label set v $@$name ! label $f.font -text "DesireData" -font [lreplace $v 1 1 -12] -width 13 -height 1 -pady 3 -fg black \ -relief sunken -bg white button $f.preset -text [say "edit"] -pady 2 -font {Helvetica 8} \ --- 7197,7201 ---- $self add_stuff $f $name $label set v $@$name ! label $f.font -text $v -font [lreplace $v 1 1 -10] -width [string length $v] -height 1 -pady 3 -fg black \ -relief sunken -bg white button $f.preset -text [say "edit"] -pady 2 -font {Helvetica 8} \ *************** *** 7302,7306 **** def FontDialog apply {} { set ::look($@class:font) $@str ! $@orig configure -font [lreplace $@str 1 1 -12] } --- 7302,7306 ---- def FontDialog apply {} { set ::look($@class:font) $@str ! $@orig configure -font [lreplace $@str 1 1 -10] -text $@str -width [string length $@str] }

1 0

pd/src desire.tk,1.1.2.600.2.280,1.1.2.600.2.281
by chunlee 04 Aug '07

04 Aug '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10600 Modified Files: Tag: desiredata desire.tk Log Message: Listener and Runcommand now also uses History, still got some deatils to sort out.. Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.280 retrieving revision 1.1.2.600.2.281 diff -C2 -d -r1.1.2.600.2.280 -r1.1.2.600.2.281 *** desire.tk 4 Aug 2007 07:04:47 -0000 1.1.2.600.2.280 --- desire.tk 4 Aug 2007 16:45:20 -0000 1.1.2.600.2.281 *************** *** 469,481 **** set @hist [linsert $@hist 0 $stuff] if {[llength $@hist] >= $@size} {set @hist [lrange $@hist 0 [expr $@size-1]]} } def History traverse {incr tmp_text} { if {![llength $@hist]} {return} set find [lsearch $@hist $@tmp_text] #what if the tmp_text is well formed?? ! if {$find >= 0 && !$@hist_on} {set @hist [lreplace $@hist $find $find]} set @tmp_text $tmp_text ! if {$tmp_text != "" && !$@hist_on} {lappend @hist $tmp_text; set @hist_on 1} set @histi [expr $@histi + $incr] set mod [expr ([llength $@hist]<[expr $@size+1]) ?[llength $@hist]:[expr $@size+1]] --- 469,484 ---- set @hist [linsert $@hist 0 $stuff] if {[llength $@hist] >= $@size} {set @hist [lrange $@hist 0 [expr $@size-1]]} + puts "hist::: $@hist" } def History traverse {incr tmp_text} { + puts "hist_on :::::::: $@hist_on" if {![llength $@hist]} {return} set find [lsearch $@hist $@tmp_text] #what if the tmp_text is well formed?? ! if {$find >= 0 && !$@hist_on} {set @hist [lreplace $@hist $find $find]; puts "REMOVE::: $@tmp_text"} set @tmp_text $tmp_text ! if {$tmp_text != "" && !$@hist_on} {lappend @hist $tmp_text; set @hist_on 1; puts "ADD::: $@tmp_text"} ! puts "history:::: $@hist" set @histi [expr $@histi + $incr] set mod [expr ([llength $@hist]<[expr $@size+1]) ?[llength $@hist]:[expr $@size+1]] *************** *** 3307,3312 **** def Runcommand init {serf name command} { ! set @hist {} ! set @histi 0 set @serf ${serf}.run set @command $command --- 3310,3314 ---- def Runcommand init {serf name command} { ! set @history [History new 20] set @serf ${serf}.run set @command $command *************** *** 3365,3371 **** set f $@serf if {[winfo exists $f.completion]} { ! set @hist [linsert $@hist 0 [string range $@comp 0 [expr [string first ":" $@comp 0]-1]]] ! set @histi 0 ! $self replace destroy $f.completion return --- 3367,3373 ---- set f $@serf if {[winfo exists $f.completion]} { ! set l [string range $@comp 0 [expr [string first ":" $@comp 0]-1]] ! $@history prepend $l ! $self replace $l destroy $f.completion return *************** *** 6293,6296 **** --- 6295,6299 ---- def Listener init {serf name command} { + set @history [History new 20] set @hist {} set @histi 0 *************** *** 6338,6362 **** } ! def Listener replace {} { $(a)serf.entry delete 0 end ! $(a)serf.entry insert 0 [lindex $@hist $@histi] $(a)serf.entry icursor end } ! def Listener up {} {if {$@histi>0} {set @histi [expr $@histi-1]; $self replace}} ! def Listener down {} {if {$@histi<[llength $@hist]} {incr @histi; $self replace}} ! def Listener append {v} {lappend @hist $v; set @histi [llength $@hist]} ! def Listener eval {} { set e $(a)serf.entry if {$@expanded} { ! set l [$e get 0.0 end] ! $self append $l ! $e delete 0.0 end ! } { ! set l [$e get] ! $self append $l ! $e delete 0 end } $@command $self $l } --- 6341,6374 ---- } ! def Listener replace {stuff} { $(a)serf.entry delete 0 end ! $(a)serf.entry insert 0 $stuff $(a)serf.entry icursor end } ! def Listener up {} {$self replace [$@history traverse +1 [$self get_command]]} ! def Listener down {} {$self replace [$@history traverse -1 [$self get_command]]} ! def Listener append {v} { ! $@history prepend $v ! lappend @hist $v; set @histi [llength $@hist] ! } ! ! def Listener get_command {} { set e $(a)serf.entry if {$@expanded} { ! set l [$e get 0.0 end]; return $l ! } else { ! set l [$e get]; return $l } + + } + + def Listener eval {} { + set e $(a)serf.entry + $@history hist_on= 0; $@history histi= -1 + set l [$self get_command] + $self append $l + if {$@expanded} {$e delete 0.0 end} {$e delete 0 end} $@command $self $l }

1 0

externals/unauthorized/scrolllist CHANGES.LOG, 1.2, 1.3 help-scrolllist.pd, 1.2, 1.3 scrolllist.c, 1.5, 1.6
by Yves Degoyon 04 Aug '07

04 Aug '07

Update of /cvsroot/pure-data/externals/unauthorized/scrolllist In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24565 Modified Files: CHANGES.LOG help-scrolllist.pd scrolllist.c Log Message: change colors by messages Index: CHANGES.LOG =================================================================== RCS file: /cvsroot/pure-data/externals/unauthorized/scrolllist/CHANGES.LOG,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** CHANGES.LOG 26 Jul 2006 16:56:58 -0000 1.2 --- CHANGES.LOG 4 Aug 2007 15:50:36 -0000 1.3 *************** *** 1,2 **** --- 1,4 ---- + 0.3 + change colors by messages 0.2 fixed coordinates for GOP support Index: help-scrolllist.pd =================================================================== RCS file: /cvsroot/pure-data/externals/unauthorized/scrolllist/help-scrolllist.pd,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** help-scrolllist.pd 26 Jul 2006 16:56:58 -0000 1.2 --- help-scrolllist.pd 4 Aug 2007 15:50:36 -0000 1.3 *************** *** 3,8 **** #X text 576 527 scrolllist; #X text 500 515 Examples :; ! #X text 72 507 Comments and bugs @ ydegoyon(a)free.fr; ! #X symbolatom 26 481 30 0 0 0 - - -; #X text 472 332 Note : you can scroll the list by dragging; #X msg 67 79 seek \$1; --- 3,8 ---- #X text 576 527 scrolllist; #X text 500 515 Examples :; ! #X text 75 533 Comments and bugs @ ydegoyon(a)free.fr; ! #X symbolatom 29 507 30 0 0 0 - - -; #X text 472 332 Note : you can scroll the list by dragging; #X msg 67 79 seek \$1; *************** *** 27,31 **** #X text 168 86 It behaves as a circular list; #X text 142 104 Sort the text items; ! #X text 248 481 Selected text item; #X text 470 397 with the "Properties" dialog; #X text 470 383 You can change all the properties of the object; --- 27,31 ---- #X text 168 86 It behaves as a circular list; #X text 142 104 Sort the text items; ! #X text 251 507 Selected text item; #X text 470 397 with the "Properties" dialog; #X text 470 383 You can change all the properties of the object; *************** *** 51,58 **** #X obj 527 269 l2s; #X msg 525 236 add \$1; ! #X obj 748 216 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1; #X obj 747 237 metro 1000; ! #X obj 35 222 scrolllist 25 400 200 {Courier 12 bold} black green #904562 ; #X text 470 343 the mouse in the text area; --- 51,58 ---- #X obj 527 269 l2s; #X msg 525 236 add \$1; ! #X obj 748 216 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1; #X obj 747 237 metro 1000; ! #X obj 40 273 scrolllist 25 400 200 {Courier 12 bold} blue white #567823 ; #X text 470 343 the mouse in the text area; *************** *** 63,69 **** #X msg 481 295 scroll 12; #X obj 585 213 loadbang; ! #X obj 73 237 r smsg; #X obj 62 383 s somsg; ! #X obj 26 455 r somsg; #X obj 14 176 s smsg; #X obj 557 295 s smsg; --- 63,69 ---- #X msg 481 295 scroll 12; #X obj 585 213 loadbang; ! #X obj 57 275 r smsg; #X obj 62 383 s somsg; ! #X obj 29 481 r somsg; #X obj 14 176 s smsg; #X obj 557 295 s smsg; *************** *** 71,74 **** --- 71,81 ---- #X msg 95 105 sort; #X msg 617 295 read ave-lucifer.txt cr; + #X msg 96 211 bgcolor blue; + #X msg 196 212 fgcolor white; + #X msg 304 211 secolor #567823; + #X text 421 212 change colors; + #X msg 97 234 bgcolor black; + #X msg 197 235 fgcolor green; + #X msg 304 234 secolor red; #X connect 6 0 60 0; #X connect 7 0 6 0; *************** *** 110,111 **** --- 117,124 ---- #X connect 63 0 60 0; #X connect 64 0 42 0; + #X connect 65 0 60 0; + #X connect 66 0 60 0; + #X connect 67 0 60 0; + #X connect 69 0 60 0; + #X connect 70 0 60 0; + #X connect 71 0 60 0; Index: scrolllist.c =================================================================== RCS file: /cvsroot/pure-data/externals/unauthorized/scrolllist/scrolllist.c,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** scrolllist.c 26 Jul 2006 16:56:58 -0000 1.5 --- scrolllist.c 4 Aug 2007 15:50:36 -0000 1.6 *************** *** 55,59 **** static int guidebug=0; ! static char *scrolllist_version = "scrolllist: scrolling list of text items : version 0.2, written by Yves Degoyon (ydegoyon(a)free.fr)"; #define MIN(a,b) (a>b?b:a) --- 55,59 ---- static int guidebug=0; ! static char *scrolllist_version = "scrolllist: scrolling list of text items : version 0.3, written by Yves Degoyon (ydegoyon(a)free.fr)"; #define MIN(a,b) (a>b?b:a) *************** *** 524,527 **** --- 524,560 ---- } + static void scrolllist_bgcolor(t_scrolllist *x, t_symbol *s) + { + scrolllist_erase( x, x->x_glist ); + scrolllist_draw_erase(x, x->x_glist); + + strcpy( x->x_bgcolor, s->s_name ); + + scrolllist_draw_new(x, x->x_glist); + scrolllist_update(x, x->x_glist); + } + + static void scrolllist_fgcolor(t_scrolllist *x, t_symbol *s) + { + scrolllist_erase( x, x->x_glist ); + scrolllist_draw_erase(x, x->x_glist); + + strcpy( x->x_fgcolor, s->s_name ); + + scrolllist_draw_new(x, x->x_glist); + scrolllist_update(x, x->x_glist); + } + + static void scrolllist_secolor(t_scrolllist *x, t_symbol *s) + { + scrolllist_erase( x, x->x_glist ); + scrolllist_draw_erase(x, x->x_glist); + + strcpy( x->x_secolor, s->s_name ); + + scrolllist_draw_new(x, x->x_glist); + scrolllist_update(x, x->x_glist); + } + static void scrolllist_sort(t_scrolllist* x) { *************** *** 978,981 **** --- 1011,1017 ---- class_addmethod(scrolllist_class, (t_method)scrolllist_replace, gensym("replace"), A_SYMBOL, A_DEFFLOAT, A_NULL ); class_addmethod(scrolllist_class, (t_method)scrolllist_add, gensym("add"), A_SYMBOL, A_NULL ); + class_addmethod(scrolllist_class, (t_method)scrolllist_bgcolor, gensym("bgcolor"), A_SYMBOL, A_NULL ); + class_addmethod(scrolllist_class, (t_method)scrolllist_fgcolor, gensym("fgcolor"), A_SYMBOL, A_NULL ); + class_addmethod(scrolllist_class, (t_method)scrolllist_secolor, gensym("secolor"), A_SYMBOL, A_NULL ); class_addmethod(scrolllist_class, (t_method)scrolllist_delete, gensym("delete"), A_DEFFLOAT, A_NULL ); class_addmethod(scrolllist_class, (t_method)scrolllist_clear, gensym("clear"), A_NULL );

1 0

autobuild: pd-main macosx104-i386 2007-08-04 07.16.33
by pd＠macosx104-i386.idmi.poly.edu 04 Aug '07

04 Aug '07

/usr/bin/libtool: internal link edit command failed lipo: can't figure out the architecture type of: /var/tmp//ccei7l3A.out make[2]: *** [../bin/libPdTcl.dylib] Error 1 make[1]: [pd] Error 2 (ignored) make -C /Users/pd/auto-build/pd-main/pd/src BUILDLAYOUT_DIR=/Users/pd/auto-build/pd-main/packages cvs_root_dir=/Users/pd/auto-build/pd-main DESTDIR=/Users/pd/auto-build/pd-main/packages/darwin_app/build/Pd-0.41.0-test04.app/Contents/Resources prefix= libpddir=/Users/pd/auto-build/pd-main/packages/darwin_app/build/Pd-0.41.0-test04.app/Contents/Resources OPT_CFLAGS="-march=pentium4 -msse2 -mfpmath=sse -ftree-vectorize -ftree-vectorizer-verbose=2" UNAME=Darwin install cd ../obj && cc -g -O2 -DPD -Wall -W -Wstrict-prototypes -Wno-unused -Wno-parentheses -Wno-switch -DDL_OPEN -DMACOSX -DUNISTD -I/usr/X11R6/include -I../portaudio/pa_common -I../portaudio/pablio -I../portmidi/pm_common -I../portmidi/pm_mac -I../portmidi/porttime -DUSEAPI_PORTAUDIO -DPA19 -DPA_USE_COREAUDIO -isysroot /Developer/SDKs/MacOSX10.4u.sdk -arch i386 -arch ppc -Wno-error -O2 -DUSEAPI_JACK -dynamiclib -read_only_relocs warning \ -o ../bin/libPdTcl.dylib t_main.o t_tkcmd.o \ -F/Library/Frameworks \ -framework Tcl -framework Tk -framework System \ -Wl,-install_name,@executable_path/../Resources/bin/libPdTcl.dylib ld: Undefined symbols: _Tcl_CreateCommand _Tcl_CreateFileHandler _Tcl_Eval _Tcl_GetVar /usr/bin/libtool: internal link edit command failed lipo: can't figure out the architecture type of: /var/tmp//ccGiyfAe.out make[2]: *** [../bin/libPdTcl.dylib] Error 1 make[1]: *** [pd_install] Error 2 make: *** [darwin_app_core] Error 2

1 0

autobuild: pd-extended-release macosx104-i386 2007-08-04 07.16.33
by pd＠macosx104-i386.idmi.poly.edu 04 Aug '07

04 Aug '07

Reading (Apple_Free : 3)... (CRC32 $00000000: (Apple_Free : 3)) Adding resources... Elapsed Time: 3.601s File size: 34962209 bytes, Checksum: CRC32 $33918835 Sectors processed: 271978, 247873 compressed Speed: 33.6Mbytes/sec Savings: 74.9% created: /Users/pd/auto-build/pd-extended-release/packages/darwin_app/Pd-0.39.3-extended.dmg rm -f build.dmg hdiutil unflatten "Pd-0.39.3-extended.dmg" hdiutil: unflatten: unflattening "Pd-0.39.3-extended.dmg"... /Developer/Tools/Rez /Developer/Headers/FlatCarbon/*.r SLA.r -a \ -o "Pd-0.39.3-extended.dmg" hdiutil flatten "Pd-0.39.3-extended.dmg" hdiutil: flatten: flattening "Pd-0.39.3-extended.dmg"... upload specs darwin_app . dmg Uploading /home/pd/auto-build/pd-extended-release/packages/darwin_app/./Pd*.dmg rsync: failed to connect to 128.238.56.50: Operation timed out (60) rsync error: error in socket IO (code 10) at /SourceCache/rsync/rsync-24.1/rsync/clientserver.c(94)

1 0

autobuild: pd-extended macosx104-i386 2007-08-04 07.16.33
by pd＠macosx104-i386.idmi.poly.edu 04 Aug '07

04 Aug '07

Reading (Apple_Free : 3)... (CRC32 $00000000: (Apple_Free : 3)) Adding resources... Elapsed Time: 3.233s File size: 32152881 bytes, Checksum: CRC32 $F3ACBB78 Sectors processed: 248922, 231385 compressed Speed: 34.9Mbytes/sec Savings: 74.8% created: /Users/pd/auto-build/pd-extended/packages/darwin_app/Pd-0.40.3-extended-20070803.dmg rm -f build.dmg hdiutil unflatten "Pd-0.40.3-extended-20070803.dmg" hdiutil: unflatten: unflattening "Pd-0.40.3-extended-20070803.dmg"... /Developer/Tools/Rez /Developer/Headers/FlatCarbon/*.r SLA.r -a \ -o "Pd-0.40.3-extended-20070803.dmg" hdiutil flatten "Pd-0.40.3-extended-20070803.dmg" hdiutil: flatten: flattening "Pd-0.40.3-extended-20070803.dmg"... upload specs darwin_app . dmg Uploading /home/pd/auto-build/pd-extended/packages/darwin_app/./Pd*.dmg rsync: failed to connect to 128.238.56.50: Operation timed out (60) rsync error: error in socket IO (code 10) at /SourceCache/rsync/rsync-24.1/rsync/clientserver.c(94)

1 0

pd/src desire.tk,1.1.2.600.2.279,1.1.2.600.2.280
by chunlee 04 Aug '07

04 Aug '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26913 Modified Files: Tag: desiredata desire.tk Log Message: added class History to unify the handling of history Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.279 retrieving revision 1.1.2.600.2.280 diff -C2 -d -r1.1.2.600.2.279 -r1.1.2.600.2.280 *** desire.tk 4 Aug 2007 05:30:11 -0000 1.1.2.600.2.279 --- desire.tk 4 Aug 2007 07:04:47 -0000 1.1.2.600.2.280 *************** *** 453,456 **** --- 453,490 ---- #-----------------------------------------------------------------------------------# + class_new History {Thing} + + def History init {size} { + set @size $size + set @hist {} + set @histi -1 + set @hist_on 0 + set @tmp_text {} + } + + def History hist_on= {val} {set @hist_on $val} + def History histi= {val} {set @histi $val} + + def History prepend {stuff} { + set @hist [linsert $@hist 0 $stuff] + if {[llength $@hist] >= $@size} {set @hist [lrange $@hist 0 [expr $@size-1]]} + } + + def History traverse {incr tmp_text} { + if {![llength $@hist]} {return} + set find [lsearch $@hist $@tmp_text] + #what if the tmp_text is well formed?? + if {$find >= 0 && !$@hist_on} {set @hist [lreplace $@hist $find $find]} + set @tmp_text $tmp_text + if {$tmp_text != "" && !$@hist_on} {lappend @hist $tmp_text; set @hist_on 1} + set @histi [expr $@histi + $incr] + set mod [expr ([llength $@hist]<[expr $@size+1]) ?[llength $@hist]:[expr $@size+1]] + if {$@histi >=$mod} {set @histi [expr $@histi%$mod]} + if {$@histi < 0} {set @histi [expr ($@histi+$mod)%$mod]} + return [lindex $@hist $@histi] + } + + History new_as obj_hist 5 + #-----------------------------------------------------------------------------------# # this is the beginning of the more application-dependent part. *************** *** 2006,2016 **** } - set obj_history {} - set obj_history_num 5 def Canvas add_to_obj_history {obj} { - set i $::obj_history_num if {![[$obj class] <= ObjectBox]} {return} ! set ::obj_history [linsert $::obj_history 0 [$obj text]] ! if {[llength $::obj_history] >= $i} {set ::obj_history [lrange $::obj_history 0 [expr $i-1]]} } --- 2040,2046 ---- } def Canvas add_to_obj_history {obj} { if {![[$obj class] <= ObjectBox]} {return} ! obj_hist prepend [$obj text] } *************** *** 2082,2086 **** } def Canvas new_object_chain_wire {obj} { ! $self add_to_obj_history $obj set obj1_idx [$self children_idx [lindex [$self selection] 0]] $self deselect_all --- 2112,2116 ---- } def Canvas new_object_chain_wire {obj} { ! obj_hist prepend [$obj text] set obj1_idx [$self children_idx [lindex [$self selection] 0]] $self deselect_all *************** *** 2257,2264 **** set @edit 1 set @tab_repeats 0 - set @histi -1 - set @hist $::obj_history set @tmp_text {} ! set @hist_on 0 # stores which line is the longest if multiple line set @longline 1 --- 2287,2293 ---- set @edit 1 set @tab_repeats 0 set @tmp_text {} ! obj_hist hist_on= 0 ! obj_hist histi= -1 # stores which line is the longest if multiple line set @longline 1 *************** *** 2330,2334 **** set t $c.${self}text if {[[$self class] <= AtomBox]} {if {$@clear} {$t delete 1.0 1.end; set @clear 0}} ! set @tmp_text [$t get 1.0 1.end]$key switch -- $key { Tab { --- 2359,2363 ---- set t $c.${self}text if {[[$self class] <= AtomBox]} {if {$@clear} {$t delete 1.0 1.end; set @clear 0}} ! if {[regexp {^[a-zA-Z0-9]$} $key k]} {set @tmp_text [$t get 1.0 1.end]$key} switch -- $key { Tab { *************** *** 2348,2366 **** def TextBox scroll_history {incr} { - set i $::obj_history_num - if {![llength $::obj_history]} {return} - if {$@tmp_text != "" && !$@hist_on} {lappend @hist $@tmp_text; set @hist_on 1} - set @histi [expr $@histi + $incr] - set mod [expr ([llength $@hist]<[expr $i+1]) ?[llength $@hist]:[expr $i+1]] - if {$@histi >=$mod} {set @histi [expr $@histi%$mod]} - if {$@histi < 0} {set @histi [expr ($@histi+$mod)%$mod]} set c [$self cwidget] set t $c.${self}text $t delete 1.0 1.end ! set text [lindex $@hist $@histi] $t insert 1.0 $text $t configure -width [string length $text] $self update_size after 0 $self changed } --- 2377,2389 ---- def TextBox scroll_history {incr} { set c [$self cwidget] set t $c.${self}text $t delete 1.0 1.end ! set text [obj_hist traverse $incr $@tmp_text] $t insert 1.0 $text $t configure -width [string length $text] $self update_size after 0 $self changed + } *************** *** 6279,6283 **** pack [frame $serf.1.1] -side bottom pack [button $serf.1.1.expander -image icon_plus -command "$self toggle_expand"] -side left ! pack [label $serf.1.1.label -width 11 -text "$name: " -font $::look(View:font)] -side left pack [entry $serf.entry -width 40 -font $::look(View:font)] -side left -fill x -expand yes pack $serf -fill x -expand no --- 6302,6306 ---- pack [frame $serf.1.1] -side bottom pack [button $serf.1.1.expander -image icon_plus -command "$self toggle_expand"] -side left ! pack [label $serf.1.1.label -width 11 -text "$name: " -font {Courier 10}] -side left pack [entry $serf.entry -width 40 -font $::look(View:font)] -side left -fill x -expand yes pack $serf -fill x -expand no

1 0

pd/src poe.tcl,1.1.2.2.2.16,1.1.2.2.2.17
by Mathieu Bouchard 04 Aug '07

04 Aug '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7877 Modified Files: Tag: desiredata poe.tcl Log Message: added "suicidal" flag, to exit at the first uncaught exception. Index: poe.tcl =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/poe.tcl,v retrieving revision 1.1.2.2.2.16 retrieving revision 1.1.2.2.2.17 diff -C2 -d -r1.1.2.2.2.16 -r1.1.2.2.2.17 *** poe.tcl 29 Jul 2007 19:21:38 -0000 1.1.2.2.2.16 --- poe.tcl 4 Aug 2007 06:11:18 -0000 1.1.2.2.2.17 *************** *** 223,228 **** --- 223,230 ---- return $e } + set suicidal 0 proc error_dump {} { puts "[VTred]Exception:[VTgrey] [error_text]" + if {$::suicidal} {exit 1} }

1 0

← Newer
1
...
47
48
49
50
51
52
53
...
62
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 August 2007