Pd-cvs December 2006

pd-cvs@lists.iem.at

19 participants
825 discussions

pd/src desire.tk,1.1.2.600.2.120,1.1.2.600.2.121
by Mathieu Bouchard 20 Dec '06

20 Dec '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2639 Modified Files: Tag: desiredata desire.tk Log Message: pre5 ? Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.120 retrieving revision 1.1.2.600.2.121 diff -C2 -d -r1.1.2.600.2.120 -r1.1.2.600.2.121 *** desire.tk 19 Dec 2006 21:59:13 -0000 1.1.2.600.2.120 --- desire.tk 20 Dec 2006 00:50:30 -0000 1.1.2.600.2.121 *************** *** 426,429 **** --- 426,430 ---- foreach tkclass {Menu Button Checkbutton Radiobutton Entry Text Spinbox Scrollbar Canvas} { option add *$tkclass*borderWidth 1 + option add *$tkclass*activeBorderWidth 1 } foreach tkclass {CheckButton RadioButton} { *************** *** 757,762 **** -variable $y -anchor w -command $z] -side left } ! button .controls.clear -text [say console_clear] -command {.log.1 delete 0.0 end} -padx 2 -pady 2 ! button .controls.dio -text [say io_errors] -command {netsend [list pd audiostatus]} -padx 2 -pady 2 pack .controls.clear .controls.dio -side right if {$::debug} { --- 758,763 ---- -variable $y -anchor w -command $z] -side left } ! button .controls.clear -text [say console_clear] -command {.log.1 delete 0.0 end} -padx 2 -pady 0 ! button .controls.dio -text [say io_errors] -command {netsend [list pd audiostatus]} -padx 2 -pady 0 pack .controls.clear .controls.dio -side right if {$::debug} { *************** *** 1871,1874 **** --- 1872,1897 ---- } + def Canvas new_object_insert {canvas obj} { + # if {[lsearch $@children $obj] < 0} { + # set future($self) [list $self new_object_insert $self $obj]; return + # } + set wire [$self selection_wire] + mset {obj1 outlet obj2 inlet} [$wire report] + $self disconnect [$wire connects] + set obj1_idx [$self children_idx $obj1] + set obj2_idx [$self children_idx $obj2] + set obj3_idx [$self children_idx $obj] + $self connect [list $obj1_idx $outlet $obj3_idx 0] + $self connect [list $obj3_idx 0 $obj2_idx $inlet] + $self action= none + # if {[$@canvas action] == "chain_obj"} { + # set obj1_idx [$@canvas children_idx [lindex [$@canvas selection] 0]] + # set obj2_idx [$@canvas children_idx $self] + # $@canvas connect [list $obj1_idx 0 $obj2_idx 0] + # $@canvas deselect_all + # $@canvas action= none + # after 100 $@canvas selection2= $obj2_idx + # } + } def Canvas insertxy {} {return [list $@insert_x $@insert_y]} *************** *** 1909,1930 **** } - def Canvas new_object_insert_wire {obj} { - set wire [$self selection_wire] - $wire selected?= 0 - mset {obj1 outlet obj2 inlet} [$wire report] - $self disconnect [$wire connects] - set obj1_idx [$self children_idx $obj1] - set obj2_idx [$self children_idx $obj2] - set obj3_idx [$self children_idx $obj] - $self connect [list $obj1_idx $outlet $obj3_idx 0] - $self connect [list $obj3_idx 0 $obj2_idx $inlet] - $self action= none - } - def Canvas chain_object {} { if {[llength $@selection] == 1} { mset {x1 y1 x2 y2} [$@selection bbox] # this should use callback... ! netsend [list .$self obj $x1 [expr $y2 + 10]] [list $self new_object_edit] set @action chain_obj } else { --- 1932,1940 ---- } def Canvas chain_object {} { if {[llength $@selection] == 1} { mset {x1 y1 x2 y2} [$@selection bbox] # this should use callback... ! netsend [list .$self obj $x1 [expr $y2 + 10]] set @action chain_obj } else { *************** *** 1932,1943 **** } } - def Canvas new_object_chain_wire {obj} { - set obj1_idx [$self children_idx [lindex [$self selection] 0]] - $self deselect_all - set obj2_idx [$self children_idx $obj] - $self connect [list $obj1_idx 0 $obj2_idx 0] - $self action= none - $self selection= $obj - } def Canvas Object {} {$self new_object obj} --- 1942,1945 ---- *************** *** 2211,2216 **** def TextBox text {} {return $@text} def TextBox update_size {} { - # if {([$self class] == "FloatBox" || [$self class] == "NumBox") && $@w} {return} if {[info exists @gop]} {if {$@gop} {set @xs $@pixwidth; set @ys $@pixheight; return}} --- 2213,2221 ---- def TextBox text {} {return $@text} + # with multiline support + #proc font_metrics_xy {} { + #} + def TextBox update_size {} { if {([$self class] == "FloatBox" || [$self class] == "NumBox") && $@w} {return} if {[info exists @gop]} {if {$@gop} {set @xs $@pixwidth; set @ys $@pixheight; return}} *************** *** 2220,2224 **** if {$@canvas == ""} {puts "update_size: this textbox has no canvas, try again later"; return} set n [string length $@text] ! set c [$@canvas widget] set t $c.${self}text set width [font measure [$self look font] W] --- 2225,2230 ---- if {$@canvas == ""} {puts "update_size: this textbox has no canvas, try again later"; return} set n [string length $@text] ! set c [[$self get_canvas] widget] ! if {![winfo exists $c]} {return} ;# hack for update_size called too early. set t $c.${self}text set width [font measure [$self look font] W] *************** *** 2236,2240 **** } catch { - set text [$c.${self}text get $(a)longline.0 $(a)longline.end] set textwidth [expr {[font measure [$self look font] $text]+20}];#+20 hack --- 2242,2245 ---- *************** *** 2265,2268 **** --- 2270,2278 ---- foreach o $@selection {$o selected?= 1} } + def Canvas selection2= {idx} { + foreach o $@selection {$o selected?= 0} + set @selection [lindex $@children $idx] + foreach o $@selection {$o selected?= 1} + } def Canvas selection+= {objs} { foreach o $objs {switch $_($o:_class) {Wire {error "selection error"}}} *************** *** 2323,2331 **** $@canvas selection-= [list $self] switch [$@canvas action] { ! insert {set goto [list $@canvas new_object_insert_wire]} ! chain_obj {set goto [list $@canvas new_object_chain_wire]} default {set goto [list $@canvas new_object_callback]} } netsend [list .$@canvas text_setto $self $l] $goto } --- 2333,2361 ---- $@canvas selection-= [list $self] switch [$@canvas action] { ! insert {set goto [list $@canvas new_object_insert $@canvas]} ! chain_obj {set goto [list $@canvas new_object_insert]} default {set goto [list $@canvas new_object_callback]} } netsend [list .$@canvas text_setto $self $l] $goto + # netsend [list .$@canvas text_setto $self $l] [list $@canvas new_object_callback] + # if {[$@canvas action] == "insert"} { + # set wire [$@canvas selection_wire] + # mset {obj1 outlet obj2 inlet} [$wire report] + # $@canvas disconnect [$wire connects] + # set obj1_idx [$@canvas children_idx $obj1] + # set obj2_idx [$@canvas children_idx $obj2] + # set obj3_idx [$@canvas children_idx $self] + # $@canvas connect [list $obj1_idx $outlet $obj3_idx 0] + # $@canvas connect [list $obj3_idx 0 $obj2_idx $inlet] + # $@canvas action= none + # } + # if {[$@canvas action] == "chain_obj"} { + # set obj1_idx [$@canvas children_idx [lindex [$@canvas selection] 0]] + # set obj2_idx [$@canvas children_idx $self] + # $@canvas connect [list $obj1_idx 0 $obj2_idx 0] + # $@canvas deselect_all + # $@canvas action= none + # after 100 $@canvas selection2= $obj2_idx + # } } *************** *** 2621,2625 **** if {$type == "wire"} { mset {obj1 outlet obj2 inlet} [$id report] ! $self disconnect [$id connects] set obj1_idx [$self children_idx $obj1] set obj2_idx [$self children_idx $obj2] --- 2651,2655 ---- if {$type == "wire"} { mset {obj1 outlet obj2 inlet} [$id report] ! $self disconnect [$wire connects] set obj1_idx [$self children_idx $obj1] set obj2_idx [$self children_idx $obj2]

1 0

pd/src desire.c,1.1.2.217.2.83,1.1.2.217.2.84
by Mathieu Bouchard 20 Dec '06

20 Dec '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32608 Modified Files: Tag: desiredata desire.c Log Message: fix premature havewindow= Index: desire.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.c,v retrieving revision 1.1.2.217.2.83 retrieving revision 1.1.2.217.2.84 diff -C2 -d -r1.1.2.217.2.83 -r1.1.2.217.2.84 *** desire.c 19 Dec 2006 20:08:40 -0000 1.1.2.217.2.83 --- desire.c 19 Dec 2006 23:14:22 -0000 1.1.2.217.2.84 *************** *** 717,722 **** static void canvas_vis(t_canvas *x, t_floatarg f) { ! sys_mgui(x,"havewindow=","f",f); ! x->havewindow = (unsigned)f; } --- 717,721 ---- static void canvas_vis(t_canvas *x, t_floatarg f) { ! SET(havewindow,!!f); } *************** *** 6538,6541 **** --- 6537,6541 ---- sys_mgui(self,"name=","s",can->name); sys_mgui(self,"folder=","s",canvas_getenv(can)->dir); + sys_mgui(self,"havewindow=","i",can->havewindow); } if (c==gatom_class) { *************** *** 6855,6859 **** static void radio_savefn(t_radio *x, t_binbuf *b) { t_foo foo = {0,0,b}; if (!b) return; - post("orient=%d oldstyle=%d",x->orient,x->oldstyle); pd_savehead(b,x,radio_flavor(x)->s_name); radio_pickle(x,&foo); --- 6855,6858 ----

1 0

pd/src configure.in, 1.5.4.5.2.16.2.12, 1.5.4.5.2.16.2.13 configure, 1.6.2.14.2.10, 1.6.2.14.2.11
by Mathieu Bouchard 19 Dec '06

19 Dec '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26038 Modified Files: Tag: desiredata configure.in configure Log Message: fix from Charles Turner (<vatic>) Index: configure =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/configure,v retrieving revision 1.6.2.14.2.10 retrieving revision 1.6.2.14.2.11 diff -C2 -d -r1.6.2.14.2.10 -r1.6.2.14.2.11 *** configure 8 Dec 2006 19:54:52 -0000 1.6.2.14.2.10 --- configure 19 Dec 2006 22:57:18 -0000 1.6.2.14.2.11 *************** *** 4330,4334 **** STRIPFLAG="" # LDSOFLAGS="-dylib -bundle -flat_namespace -undefined suppress" ! LDSOFLAGS="-dylib -flat_namespace" EXTERNTARGET=pd_darwin ### this comes from pd 0.40 --- 4330,4336 ---- STRIPFLAG="" # LDSOFLAGS="-dylib -bundle -flat_namespace -undefined suppress" ! # LDSOFLAGS="-dylib -flat_namespace" ! # Charles Turner told me to use this: ! LDSOFLAGS="-dynamiclib -Wl,-single_module" EXTERNTARGET=pd_darwin ### this comes from pd 0.40 Index: configure.in =================================================================== RCS file: /cvsroot/pure-data/pd/src/configure.in,v retrieving revision 1.5.4.5.2.16.2.12 retrieving revision 1.5.4.5.2.16.2.13 diff -C2 -d -r1.5.4.5.2.16.2.12 -r1.5.4.5.2.16.2.13 *** configure.in 8 Dec 2006 19:54:53 -0000 1.5.4.5.2.16.2.12 --- configure.in 19 Dec 2006 22:57:18 -0000 1.5.4.5.2.16.2.13 *************** *** 80,84 **** STRIPFLAG="" # LDSOFLAGS="-dylib -bundle -flat_namespace -undefined suppress" ! LDSOFLAGS="-dylib -flat_namespace" EXTERNTARGET=pd_darwin ### this comes from pd 0.40 --- 80,86 ---- STRIPFLAG="" # LDSOFLAGS="-dylib -bundle -flat_namespace -undefined suppress" ! # LDSOFLAGS="-dylib -flat_namespace" ! # Charles Turner told me to use this: ! LDSOFLAGS="-dynamiclib -Wl,-single_module" EXTERNTARGET=pd_darwin ### this comes from pd 0.40

1 0

pd/src desire.tk,1.1.2.600.2.119,1.1.2.600.2.120
by chunlee 19 Dec '06

19 Dec '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3981 Modified Files: Tag: desiredata desire.tk Log Message: fix object insert/chain Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.119 retrieving revision 1.1.2.600.2.120 diff -C2 -d -r1.1.2.600.2.119 -r1.1.2.600.2.120 *** desire.tk 19 Dec 2006 21:50:52 -0000 1.1.2.600.2.119 --- desire.tk 19 Dec 2006 21:59:13 -0000 1.1.2.600.2.120 *************** *** 1871,1896 **** } - def Canvas new_object_insert {canvas obj} { - # if {[lsearch $@children $obj] < 0} { - # set future($self) [list $self new_object_insert $self $obj]; return - # } - set wire [$self selection_wire] - mset {obj1 outlet obj2 inlet} [$wire report] - $self disconnect [$wire connects] - set obj1_idx [$self children_idx $obj1] - set obj2_idx [$self children_idx $obj2] - set obj3_idx [$self children_idx $obj] - $self connect [list $obj1_idx $outlet $obj3_idx 0] - $self connect [list $obj3_idx 0 $obj2_idx $inlet] - $self action= none - # if {[$@canvas action] == "chain_obj"} { - # set obj1_idx [$@canvas children_idx [lindex [$@canvas selection] 0]] - # set obj2_idx [$@canvas children_idx $self] - # $@canvas connect [list $obj1_idx 0 $obj2_idx 0] - # $@canvas deselect_all - # $@canvas action= none - # after 100 $@canvas selection2= $obj2_idx - # } - } def Canvas insertxy {} {return [list $@insert_x $@insert_y]} --- 1871,1874 ---- *************** *** 1931,1939 **** } def Canvas chain_object {} { if {[llength $@selection] == 1} { mset {x1 y1 x2 y2} [$@selection bbox] # this should use callback... ! netsend [list .$self obj $x1 [expr $y2 + 10]] set @action chain_obj } else { --- 1909,1930 ---- } + def Canvas new_object_insert_wire {obj} { + set wire [$self selection_wire] + $wire selected?= 0 + mset {obj1 outlet obj2 inlet} [$wire report] + $self disconnect [$wire connects] + set obj1_idx [$self children_idx $obj1] + set obj2_idx [$self children_idx $obj2] + set obj3_idx [$self children_idx $obj] + $self connect [list $obj1_idx $outlet $obj3_idx 0] + $self connect [list $obj3_idx 0 $obj2_idx $inlet] + $self action= none + } + def Canvas chain_object {} { if {[llength $@selection] == 1} { mset {x1 y1 x2 y2} [$@selection bbox] # this should use callback... ! netsend [list .$self obj $x1 [expr $y2 + 10]] [list $self new_object_edit] set @action chain_obj } else { *************** *** 1941,1944 **** --- 1932,1943 ---- } } + def Canvas new_object_chain_wire {obj} { + set obj1_idx [$self children_idx [lindex [$self selection] 0]] + $self deselect_all + set obj2_idx [$self children_idx $obj] + $self connect [list $obj1_idx 0 $obj2_idx 0] + $self action= none + $self selection= $obj + } def Canvas Object {} {$self new_object obj} *************** *** 2266,2274 **** foreach o $@selection {$o selected?= 1} } - def Canvas selection2= {idx} { - foreach o $@selection {$o selected?= 0} - set @selection [lindex $@children $idx] - foreach o $@selection {$o selected?= 1} - } def Canvas selection+= {objs} { foreach o $objs {switch $_($o:_class) {Wire {error "selection error"}}} --- 2265,2268 ---- *************** *** 2329,2357 **** $@canvas selection-= [list $self] switch [$@canvas action] { ! insert {set goto [list $@canvas new_object_insert $@canvas]} ! chain_obj {set goto [list $@canvas new_object_insert]} default {set goto [list $@canvas new_object_callback]} } netsend [list .$@canvas text_setto $self $l] $goto - # netsend [list .$@canvas text_setto $self $l] [list $@canvas new_object_callback] - # if {[$@canvas action] == "insert"} { - # set wire [$@canvas selection_wire] - # mset {obj1 outlet obj2 inlet} [$wire report] - # $@canvas disconnect [$wire connects] - # set obj1_idx [$@canvas children_idx $obj1] - # set obj2_idx [$@canvas children_idx $obj2] - # set obj3_idx [$@canvas children_idx $self] - # $@canvas connect [list $obj1_idx $outlet $obj3_idx 0] - # $@canvas connect [list $obj3_idx 0 $obj2_idx $inlet] - # $@canvas action= none - # } - # if {[$@canvas action] == "chain_obj"} { - # set obj1_idx [$@canvas children_idx [lindex [$@canvas selection] 0]] - # set obj2_idx [$@canvas children_idx $self] - # $@canvas connect [list $obj1_idx 0 $obj2_idx 0] - # $@canvas deselect_all - # $@canvas action= none - # after 100 $@canvas selection2= $obj2_idx - # } } --- 2323,2331 ---- $@canvas selection-= [list $self] switch [$@canvas action] { ! insert {set goto [list $@canvas new_object_insert_wire]} ! chain_obj {set goto [list $@canvas new_object_chain_wire]} default {set goto [list $@canvas new_object_callback]} } netsend [list .$@canvas text_setto $self $l] $goto } *************** *** 2647,2651 **** if {$type == "wire"} { mset {obj1 outlet obj2 inlet} [$id report] ! $self disconnect [$wire connects] set obj1_idx [$self children_idx $obj1] set obj2_idx [$self children_idx $obj2] --- 2621,2625 ---- if {$type == "wire"} { mset {obj1 outlet obj2 inlet} [$id report] ! $self disconnect [$id connects] set obj1_idx [$self children_idx $obj1] set obj2_idx [$self children_idx $obj2]

1 0

pd/src desire.tk,1.1.2.600.2.118,1.1.2.600.2.119
by Mathieu Bouchard 19 Dec '06

19 Dec '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv505 Modified Files: Tag: desiredata desire.tk Log Message: refixed add_choice (maybe broke it further...) Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.118 retrieving revision 1.1.2.600.2.119 diff -C2 -d -r1.1.2.600.2.118 -r1.1.2.600.2.119 *** desire.tk 19 Dec 2006 21:11:24 -0000 1.1.2.600.2.118 --- desire.tk 19 Dec 2006 21:50:52 -0000 1.1.2.600.2.119 *************** *** 617,625 **** }].tcl if {[file exists $langfile]} { #source -encoding utf-8 $langfile source $langfile } else { ! source [file join [file dirname [file dirname $argh0]] lib/pd/bin/$langfile] } --- 617,628 ---- }].tcl + proc localedir {x} {file join [file dirname [file dirname $argh0]] lib/pd/bin/$x} if {[file exists $langfile]} { #source -encoding utf-8 $langfile + source locale/index.tcl source $langfile } else { ! source [localedir locale/index.tcl] ! source [localedir $langfile] } *************** *** 6027,6033 **** } set trim_name [string trimleft $name "-"] - set _($self:${name}2) [say [lindex $choices $@$name]] set _($self:${name}choices) $choices ! label $f.butt -textvariable _($self:${name}2) -relief raised -width 20 balloon $f.butt "click to change setting" pack $f.label $f.butt -side left --- 6030,6037 ---- } set trim_name [string trimleft $name "-"] set _($self:${name}choices) $choices ! set choice $@$name ! if {[string is integer $choice]} {set choice [lindex $choices $choice]} ! label $f.butt -text [say $choice] -relief raised -width 20 balloon $f.butt "click to change setting" pack $f.label $f.butt -side left *************** *** 6808,6813 **** } else { set _($self:${trim_var}0) $part ! } ! super $frame $var $part $val } #used by choice and devlist --- 6812,6817 ---- } else { set _($self:${trim_var}0) $part ! } ! super $frame $var $part $val } #used by choice and devlist *************** *** 7046,7050 **** def ClientPrefsDialog dropmenu_set {frame var part val} { set @$var $part ! set _($self:${var}2) [say $part] } --- 7050,7055 ---- def ClientPrefsDialog dropmenu_set {frame var part val} { set @$var $part ! # set _($self:${var}2) [say $part] ! $frame.butt configure -text [say $part] }

1 0

pd/src/locale index.tcl, NONE, 1.1.2.1 english.tcl, 1.1.2.34.2.9, 1.1.2.34.2.10 francais.tcl, 1.1.2.5.2.4, 1.1.2.5.2.5
by Mathieu Bouchard 19 Dec '06

19 Dec '06

Update of /cvsroot/pure-data/pd/src/locale In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31772 Modified Files: Tag: desiredata english.tcl francais.tcl Added Files: Tag: desiredata index.tcl Log Message: translations for the language selector --- NEW FILE: index.tcl --- (This appears to be a binary file; contents omitted.) Index: english.tcl =================================================================== RCS file: /cvsroot/pure-data/pd/src/locale/Attic/english.tcl,v retrieving revision 1.1.2.34.2.9 retrieving revision 1.1.2.34.2.10 diff -C2 -d -r1.1.2.34.2.9 -r1.1.2.34.2.10 *** english.tcl 19 Dec 2006 17:54:21 -0000 1.1.2.34.2.9 --- english.tcl 19 Dec 2006 21:47:30 -0000 1.1.2.34.2.10 *************** *** 536,537 **** --- 536,538 ---- say horizontal "Horizontal" say vertical "Vertical" + say language "Language" Index: francais.tcl =================================================================== RCS file: /cvsroot/pure-data/pd/src/locale/Attic/francais.tcl,v retrieving revision 1.1.2.5.2.4 retrieving revision 1.1.2.5.2.5 diff -C2 -d -r1.1.2.5.2.4 -r1.1.2.5.2.5 *** francais.tcl 19 Dec 2006 17:54:22 -0000 1.1.2.5.2.4 --- francais.tcl 19 Dec 2006 21:47:30 -0000 1.1.2.5.2.5 *************** *** 536,537 **** --- 536,538 ---- say horizontal "Horizontal" say vertical "Vertical" + say language "Langue"

1 0

pd/src desire.tk,1.1.2.600.2.117,1.1.2.600.2.118
by Mathieu Bouchard 19 Dec '06

19 Dec '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17928 Modified Files: Tag: desiredata desire.tk Log Message: server prefs: remove grey checkmarks (Tk 8.5 only); remove Gooey section Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.117 retrieving revision 1.1.2.600.2.118 diff -C2 -d -r1.1.2.600.2.117 -r1.1.2.600.2.118 *** desire.tk 19 Dec 2006 20:32:13 -0000 1.1.2.600.2.117 --- desire.tk 19 Dec 2006 21:11:24 -0000 1.1.2.600.2.118 *************** *** 768,772 **** wm title . "DesireData" catch {wm iconphoto . icon_pd} ! post "DesireData 0.39.A, Tcl %s, Tk %s" $::tcl_patchLevel $::tk_patchLevel } --- 768,772 ---- wm title . "DesireData" catch {wm iconphoto . icon_pd} ! post "DesireData 0.40, Tcl %s, Tk %s" $::tcl_patchLevel $::tk_patchLevel } *************** *** 6572,6580 **** folders -helppath - section {section_gui 50} - void -nogui - string -guicmd - integer -font - section {section_other 50} files -open --- 6572,6575 ---- *************** *** 6691,6695 **** set contents [concat [join $contents " "]] ;# concat casts to list type (faster) (?) set i 0 ! while {$i < [llength $contents]} { set op [lindex $contents $i] --- 6686,6695 ---- set contents [concat [join $contents " "]] ;# concat casts to list type (faster) (?) set i 0 ! ! # prevent Tk8.5 from showing grey checkmarks ! foreach name {-nodac -noadc -32bit -nomidiin -nomidiout -verbose -noloadbang -listdev -realtime} { ! set _($self:$name) 0 ! } ! while {$i < [llength $contents]} { set op [lindex $contents $i]

1 0

pd/src s_audio.c, 1.5.4.16.2.20.2.3, 1.5.4.16.2.20.2.4 s_midi.c, 1.4.4.1.2.12.2.3, 1.4.4.1.2.12.2.4
by Mathieu Bouchard 19 Dec '06

19 Dec '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11167 Modified Files: Tag: desiredata s_audio.c s_midi.c Log Message: fix mistake in removing gfxstub Index: s_audio.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/s_audio.c,v retrieving revision 1.5.4.16.2.20.2.3 retrieving revision 1.5.4.16.2.20.2.4 diff -C2 -d -r1.5.4.16.2.20.2.3 -r1.5.4.16.2.20.2.4 *** s_audio.c 19 Dec 2006 18:31:24 -0000 1.5.4.16.2.20.2.3 --- s_audio.c 19 Dec 2006 20:52:40 -0000 1.5.4.16.2.20.2.4 *************** *** 775,780 **** audiooutchan3 = (naudiooutdev > 2 ? choutdev[2] : 0); audiooutchan4 = (naudiooutdev > 3 ? choutdev[3] : 0); ! sprintf(buf, ! "pdtk_audio_dialog %%s \ %s %d %d %d %d %d %d %d %d \ %s %d %d %d %d %d %d %d %d \ --- 775,779 ---- audiooutchan3 = (naudiooutdev > 2 ? choutdev[2] : 0); audiooutchan4 = (naudiooutdev > 3 ? choutdev[3] : 0); ! sys_vgui("pdtk_audio_dialog %%s \ %s %d %d %d %d %d %d %d %d \ %s %d %d %d %d %d %d %d %d \ Index: s_midi.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/s_midi.c,v retrieving revision 1.4.4.1.2.12.2.3 retrieving revision 1.4.4.1.2.12.2.4 diff -C2 -d -r1.4.4.1.2.12.2.3 -r1.4.4.1.2.12.2.4 *** s_midi.c 19 Dec 2006 18:31:24 -0000 1.4.4.1.2.12.2.3 --- s_midi.c 19 Dec 2006 20:52:40 -0000 1.4.4.1.2.12.2.4 *************** *** 697,714 **** } ! #ifdef USEAPI_ALSA ! if (sys_midiapi == API_ALSA) ! sprintf(buf, ! "pdtk_alsa_midi_dialog %%s %s %s %s %s %d\n", ! indevliststring,midiinstr, ! outdevliststring,midioutstr, ! (flongform != 0)); ! else ! #endif ! sprintf(buf, ! "pdtk_midi_dialog %%s %s %s %s %s %d\n", ! indevliststring,midiinstr, ! outdevliststring,midioutstr, ! (flongform != 0)); } --- 697,702 ---- } ! sys_vgui("pdtk_midi_dialog %%s %s %s %s %s %d\n", ! indevliststring,midiinstr,outdevliststring,midioutstr,!!flongform); }

1 0

pd/src desire.tk,1.1.2.600.2.116,1.1.2.600.2.117
by Mathieu Bouchard 19 Dec '06

19 Dec '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3488 Modified Files: Tag: desiredata desire.tk Log Message: smaller ButtonBar, StatusBar and Client windows. Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.116 retrieving revision 1.1.2.600.2.117 diff -C2 -d -r1.1.2.600.2.116 -r1.1.2.600.2.117 *** desire.tk 19 Dec 2006 19:29:54 -0000 1.1.2.600.2.116 --- desire.tk 19 Dec 2006 20:32:13 -0000 1.1.2.600.2.117 *************** *** 747,761 **** pack $f -side left -pady 0 -padx 0 } - frame .controls.switches foreach {w x y z} { audiobutton audio ctrls_audio_on {netsend [list pd dsp $ctrls_audio_on]} meterbutton meters ctrls_meter_on {netsend [list pd meters $ctrls_meter_on]} } { ! pack [checkbutton .controls.switches.$w -text [say $x] \ -variable $y -anchor w -command $z] -side left } ! pack [button .controls.clear -text [say console_clear] -command {.log.1 delete 0.0 end} -padx 5] -side right ! pack [button .controls.switches.dio -text [say io_errors] -command {netsend [list pd audiostatus]} -padx 5] ! pack .controls.switches -side right if {$::debug} { frame .debug --- 747,760 ---- pack $f -side left -pady 0 -padx 0 } foreach {w x y z} { audiobutton audio ctrls_audio_on {netsend [list pd dsp $ctrls_audio_on]} meterbutton meters ctrls_meter_on {netsend [list pd meters $ctrls_meter_on]} } { ! pack [checkbutton .controls.$w -text [say $x] \ -variable $y -anchor w -command $z] -side left } ! button .controls.clear -text [say console_clear] -command {.log.1 delete 0.0 end} -padx 2 -pady 2 ! button .controls.dio -text [say io_errors] -command {netsend [list pd audiostatus]} -padx 2 -pady 2 ! pack .controls.clear .controls.dio -side right if {$::debug} { frame .debug *************** *** 765,779 **** pack .debug -side bottom -fill x } ! # pack [label .debug.1 -anchor w -text ""] -side left ! #pack [entry .controls.3 -textvariable ::serial -width 5] -side right ! #pack [label .controls.2 -text "obj.serial: " -justify right] -side right ! # set @book [Notebook new_as book] ! # $@book add_section 1 [say posts] ! # $@book add_section 2 [say socket_log] ! # pack .book -side top -fill both -expand 1 ! if {$::cmdline(console)} { ! #set ::console [Console new .book.main.1.log] ! set ::console [Console new .log] ! } . configure -menu .mbar wm title . "DesireData" --- 764,768 ---- pack .debug -side bottom -fill x } ! if {$::cmdline(console)} {set ::console [Console new .log]} . configure -menu .mbar wm title . "DesireData" *************** *** 848,851 **** --- 837,841 ---- while {![eof $gdb] && [clock seconds] < $timeout} { set line [gets $gdb] + if {$line eq ""} {continue} ;# busy-wait regsub {^$gdb$ ?} $line {} line append where "$line\n" *************** *** 2806,2811 **** def StatusBar addw {a b text args} { set f [$self widget] ! if {$text!=""} {eval [concat [list pack [label $f.${a}_l -text $text -font {helvetica -11}] -side left] $args]} ! label $f.$a -width $b -font {helvetica -11} -background #cccccc -foreground black -anchor w pack $f.$a -side left } --- 2796,2803 ---- def StatusBar addw {a b text args} { set f [$self widget] ! if {$text!=""} { ! eval [concat [list pack [label $f.${a}_l -text $text -font {helvetica -10} -pady 0] -side left] $args] ! } ! label $f.$a -width $b -font {helvetica -10} -background #cccccc -foreground black -anchor w -pady 0 pack $f.$a -side left } *************** *** 5547,5552 **** balloon $bb._$name [say $name] } ! pack [entry $bb.name -font {helvetica -12} -width 10 -border 0] -side right ! pack [spinbox $bb.scale -width 6 -command "$canvas zooming %d" -state readonly] -side right $bb.scale set [format %d%% [expr int(100*[$@canvas zoom])]] $bb.name insert 0 $@canvas --- 5539,5544 ---- balloon $bb._$name [say $name] } ! pack [entry $bb.name -font {helvetica -12} -width 8 -border 0] -side right ! pack [spinbox $bb.scale -width 5 -command "$canvas zooming %d" -state readonly] -side right $bb.scale set [format %d%% [expr int(100*[$@canvas zoom])]] $bb.name insert 0 $@canvas *************** *** 5641,5645 **** $self item TEXT text [list [expr $x+12] $ny] -fill $fg -text $@text -anchor w mset {x1 y1 x2 y2} [l+ [$c bbox ${self}TEXT] [list -4 -4 +4 +4]] - logvar x1 y1 x2 y2 switch -- $@type { o {set coords [list $x1 $y1 [expr $x1+8] $y1 $x $y [expr $x1+16] $y1 $x2 $y1 $x2 $y2 $x1 $y2 $x1 $y1]} --- 5633,5636 ---- *************** *** 6344,6348 **** if {$@bold } {lappend @str bold } if {$@italic} {lappend @str italic} ! logvar @str $f.font2.preview.canvas itemconfigure ${self}TEXT -font $@str } --- 6335,6339 ---- if {$@bold } {lappend @str bold } if {$@italic} {lappend @str italic} ! # logvar @str $f.font2.preview.canvas itemconfigure ${self}TEXT -font $@str }

1 0

pd/src desire.c,1.1.2.217.2.82,1.1.2.217.2.83
by Mathieu Bouchard 19 Dec '06

19 Dec '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27259 Modified Files: Tag: desiredata desire.c Log Message: fixed crash due to debugging messages Index: desire.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.c,v retrieving revision 1.1.2.217.2.82 retrieving revision 1.1.2.217.2.83 diff -C2 -d -r1.1.2.217.2.82 -r1.1.2.217.2.83 *** desire.c 19 Dec 2006 19:22:36 -0000 1.1.2.217.2.82 --- desire.c 19 Dec 2006 20:08:40 -0000 1.1.2.217.2.83 *************** *** 212,222 **** } ! #define DEBUG_QUEUE void queue_put (t_queue *self, t_pd *stuff) { #ifdef DEBUG_QUEUE ! t_binbuf *b = ((t_text *)stuff)->binbuf; ! if (b) {char *buf; int bufn; binbuf_gettext(b,&buf,&bufn); printf("queue_put [%.*s]\n",bufn,buf);} ! else {printf("queue_put (%s)\n",stuff->_class->c_name->s_name);} #endif if (self->len==QUEUE_SIZE) {bug("queue full"); return;} --- 212,233 ---- } ! //#define DEBUG_QUEUE ! ! void pd_print (t_pd *self, char *header) { ! if (self->_class->c_patchable) { ! t_binbuf *b = ((t_text *)self)->binbuf; ! if (b) { ! char *buf; int bufn; ! binbuf_gettext(b,&buf,&bufn); ! printf("%s [%.*s]\n",header,bufn,buf); ! return; ! } ! } ! printf("%s (%s)\n",header,self->_class->c_name->s_name); ! } void queue_put (t_queue *self, t_pd *stuff) { #ifdef DEBUG_QUEUE ! pd_print(stuff,"queue_put"); #endif if (self->len==QUEUE_SIZE) {bug("queue full"); return;} *************** *** 234,245 **** #ifdef DEBUG_QUEUE post("queue_get: items in queue: %d",self->len); ! if (stuff) { ! t_binbuf *b = ((t_text *)stuff)->binbuf; ! if (b) { ! char *buf; int bufn; ! binbuf_gettext(b,&buf,&bufn); ! printf("queue_get [%.*s] %p\n",bufn,buf,stuff); ! } else printf("queue_get (%s)\n",stuff->_class->c_name->s_name); ! } #endif return stuff; --- 245,249 ---- #ifdef DEBUG_QUEUE post("queue_get: items in queue: %d",self->len); ! pd_print(stuff,"queue_get"); #endif return stuff;

1 0

← Newer
1
...
20
21
22
23
24
25
26
...
83
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 December 2006