Pd-cvs August 2007

pd-cvs@lists.iem.at

18 participants
618 discussions

pd/src defaults.ddrc,1.1.2.10.2.18,1.1.2.10.2.19
by chunlee 09 Aug '07

09 Aug '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14842 Modified Files: Tag: desiredata defaults.ddrc Log Message: adding macro_copy Index: defaults.ddrc =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/defaults.ddrc,v retrieving revision 1.1.2.10.2.18 retrieving revision 1.1.2.10.2.19 diff -C2 -d -r1.1.2.10.2.18 -r1.1.2.10.2.19 *** defaults.ddrc 6 Aug 2007 06:56:11 -0000 1.1.2.10.2.18 --- defaults.ddrc 9 Aug 2007 02:10:33 -0000 1.1.2.10.2.19 *************** *** 159,162 **** --- 159,163 ---- macro_toggle Alt+m macro_play Ctrl+m + macro_copy Ctrl+M } Client {

1 0

pd/src/locale chinese.tcl, 1.1.2.2, 1.1.2.3 index.tcl, 1.1.2.2, 1.1.2.3
by chunlee 09 Aug '07

09 Aug '07

Update of /cvsroot/pure-data/pd/src/locale In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14061/locale Modified Files: Tag: desiredata chinese.tcl index.tcl Log Message: small changes in chinese locale Index: chinese.tcl =================================================================== RCS file: /cvsroot/pure-data/pd/src/locale/Attic/chinese.tcl,v retrieving revision 1.1.2.2 retrieving revision 1.1.2.3 diff -C2 -d -r1.1.2.2 -r1.1.2.3 *** chinese.tcl 31 Jul 2007 02:40:23 -0000 1.1.2.2 --- chinese.tcl 9 Aug 2007 02:09:07 -0000 1.1.2.3 *************** *** 554,558 **** say language "èªèš" say pointer_sense "æ»éŒ æžžæšææåºŠ" - say chinese "äžæ" say clear_selection "åšéšåéž" say popup_remove_from_path "ç§»é€éè·¯äžç©ä»¶" --- 554,557 ---- Index: index.tcl =================================================================== RCS file: /cvsroot/pure-data/pd/src/locale/Attic/index.tcl,v retrieving revision 1.1.2.2 retrieving revision 1.1.2.3 diff -C2 -d -r1.1.2.2 -r1.1.2.3 *** index.tcl 14 Feb 2007 20:15:10 -0000 1.1.2.2 --- index.tcl 9 Aug 2007 02:09:07 -0000 1.1.2.3 *************** *** 7,9 **** say portugues "Português" say catala "Català" ! say euskara "Euskara" \ No newline at end of file --- 7,10 ---- say portugues "Português" say catala "Català" ! say euskara "Euskara" ! say chinese "\u4e2d\u6587"

1 0

pd/src builtins.c, 1.1.2.55, 1.1.2.56 desire.tk, 1.1.2.600.2.327, 1.1.2.600.2.328
by chunlee 09 Aug '07

09 Aug '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13673 Modified Files: Tag: desiredata builtins.c desire.tk Log Message: more on the macro object Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.327 retrieving revision 1.1.2.600.2.328 diff -C2 -d -r1.1.2.600.2.327 -r1.1.2.600.2.328 *** desire.tk 9 Aug 2007 00:48:34 -0000 1.1.2.600.2.327 --- desire.tk 9 Aug 2007 02:07:52 -0000 1.1.2.600.2.328 *************** *** 4985,4994 **** } ! def Canvas macro_event_append {e} { ! if {![llength $@macro_q]} {after $@macro_delay [list $self macro_schedule $@macro_delay]} lappend @macro_q $e } ! def Canvas macro_schedule {delay} { if {[llength $@macro_q]} { set w [focus] --- 4985,4994 ---- } ! def Canvas macro_event_append {e obj} { ! if {![llength $@macro_q]} {after $@macro_delay [list $self macro_schedule $@macro_delay] $obj} lappend @macro_q $e } ! def Canvas macro_schedule {delay obj} { if {[llength $@macro_q]} { set w [focus] *************** *** 5001,5004 **** --- 5001,5010 ---- ButtonRelease {set name $event-$k; set fudge_motion 1} Motion {set name $event} + bang { + after $delay [list $self macro_schedule $@macro_delay] $obj + netsend [list .$obj mbang] + set @macro_q [lreplace $@macro_q 0 0] + return + } default {puts "Error: this event should not have been here.."} } *************** *** 5007,5011 **** if {$event=="KeyPress"} {event generate $w <KeyRelease-$k> -x $x -y $y} set @macro_q [lreplace $@macro_q 0 0] ! after $delay [list $self macro_schedule $@macro_delay] } } --- 5013,5017 ---- if {$event=="KeyPress"} {event generate $w <KeyRelease-$k> -x $x -y $y} set @macro_q [lreplace $@macro_q 0 0] ! after $delay [list $self macro_schedule $@macro_delay] $obj } } Index: builtins.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/builtins.c,v retrieving revision 1.1.2.55 retrieving revision 1.1.2.56 diff -C2 -d -r1.1.2.55 -r1.1.2.56 *** builtins.c 8 Aug 2007 18:40:43 -0000 1.1.2.55 --- builtins.c 9 Aug 2007 02:07:52 -0000 1.1.2.56 *************** *** 987,990 **** --- 987,991 ---- struct t_macro : t_object { t_symbol *sym; + t_outlet *bangout; }; *************** *** 993,1008 **** if (*s->name) x->sym = s; else x->sym = gensym("macro"); return x; } static void macro_send(t_macro *x, t_symbol *s, int argc, t_atom *argv) { std::ostringstream t; t << s->name; for (int i=0; i<argc; i++) {t << " " << &argv[i];} ! sys_mgui(x->dix->canvas, "macro_event_append", "S", t.str().data()); } static void macro_setup() { t_class *c = macro_class = class_new2("macro",macro_new,0,sizeof(t_macro),0,"S"); class_addanything(c, macro_send); } --- 994,1013 ---- if (*s->name) x->sym = s; else x->sym = gensym("macro"); + x-> bangout = outlet_new(x, &s_bang); return x; } + static void macro_bang(t_macro *x) {outlet_bang(x->bangout);} + static void macro_send(t_macro *x, t_symbol *s, int argc, t_atom *argv) { std::ostringstream t; t << s->name; for (int i=0; i<argc; i++) {t << " " << &argv[i];} ! sys_mgui(x->dix->canvas, "macro_event_append", "Sp", t.str().data(), x); } static void macro_setup() { t_class *c = macro_class = class_new2("macro",macro_new,0,sizeof(t_macro),0,"S"); class_addanything(c, macro_send); + class_addmethod2(c, macro_bang, "mbang",""); }

1 0

pd/src desire.tk,1.1.2.600.2.326,1.1.2.600.2.327
by Mathieu Bouchard 09 Aug '07

09 Aug '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17468 Modified Files: Tag: desiredata desire.tk Log Message: fixed wire deletion Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.326 retrieving revision 1.1.2.600.2.327 diff -C2 -d -r1.1.2.600.2.326 -r1.1.2.600.2.327 *** desire.tk 9 Aug 2007 00:05:48 -0000 1.1.2.600.2.326 --- desire.tk 9 Aug 2007 00:48:34 -0000 1.1.2.600.2.327 *************** *** 5124,5128 **** $@from delete_wire $self $@to delete_wire $self ! [$@canvas objects] remove $@index super } --- 5124,5128 ---- $@from delete_wire $self $@to delete_wire $self ! [$@canvas objects] unset $@index super }

1 0

pd/src desire.tk,1.1.2.600.2.325,1.1.2.600.2.326
by Mathieu Bouchard 09 Aug '07

09 Aug '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1898 Modified Files: Tag: desiredata desire.tk Log Message: fixed bug related to removal of objects_reinit,wires_reinit Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.325 retrieving revision 1.1.2.600.2.326 diff -C2 -d -r1.1.2.600.2.325 -r1.1.2.600.2.326 *** desire.tk 8 Aug 2007 23:45:06 -0000 1.1.2.600.2.325 --- desire.tk 9 Aug 2007 00:05:48 -0000 1.1.2.600.2.326 *************** *** 4795,4798 **** --- 4795,4800 ---- } + def Box delete {} {if {$@canvas != ""} {[$@canvas objects] unset $@index}; super} + def Box remove_braces {str} { # this hack is to remove the "\" in the text *************** *** 5122,5125 **** --- 5124,5128 ---- $@from delete_wire $self $@to delete_wire $self + [$@canvas objects] remove $@index super }

1 0

pd/src desire.tk,1.1.2.600.2.324,1.1.2.600.2.325
by chunlee 09 Aug '07

09 Aug '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26735 Modified Files: Tag: desiredata desire.tk Log Message: multiline messagebox Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.324 retrieving revision 1.1.2.600.2.325 diff -C2 -d -r1.1.2.600.2.324 -r1.1.2.600.2.325 *** desire.tk 8 Aug 2007 23:23:52 -0000 1.1.2.600.2.324 --- desire.tk 8 Aug 2007 23:45:06 -0000 1.1.2.600.2.325 *************** *** 2485,2493 **** $self item text window [l+ $@textoffset [$self xy]] -window $t -anchor nw -tags "${self}text $self text" } else { set text [$self filter_text] if {$::leet} {set text [string map -nocase {a 4 e 3 t 7 s 5 i 1 o 0 g 9} $text]} $self item TEXT text [l+ $@textoffset [$self xy]] \ -font [View_look $self font] -text $text \ ! -fill [View_look $self fg] -anchor nw } $self update_size --- 2485,2494 ---- $self item text window [l+ $@textoffset [$self xy]] -window $t -anchor nw -tags "${self}text $self text" } else { + set fw [font measure [$self look font] 0] set text [$self filter_text] if {$::leet} {set text [string map -nocase {a 4 e 3 t 7 s 5 i 1 o 0 g 9} $text]} $self item TEXT text [l+ $@textoffset [$self xy]] \ -font [View_look $self font] -text $text \ ! -fill [View_look $self fg] -anchor nw -width [expr $fw*40] } $self update_size *************** *** 2538,2543 **** text $t -height $nl -width $width -relief flat -bg [$self look bgedit] -borderwidth 0 \ -highlightthickness 0 -font $font_str -fg $fg -insertbackground $insertbg ! bind $t <Key> "$self resize %K; $self key_input %W %x %y %K %A 0" ! bind $t <Control-Return> "$self key_input %W %x %y 10 %A 0" bind $t <Return> "$self unedit" bind $t <Escape> "$self unedit 0" --- 2539,2544 ---- text $t -height $nl -width $width -relief flat -bg [$self look bgedit] -borderwidth 0 \ -highlightthickness 0 -font $font_str -fg $fg -insertbackground $insertbg ! bind $t <Key> "$self key_input %W %x %y %K %A 0; after 0 \[$self resize %K\]" ! bind $t <Control-Return> "$self key_input %W %x %y 10 %A 0" bind $t <Return> "$self unedit" bind $t <Escape> "$self unedit 0" *************** *** 2572,2577 **** set width [expr (($textpix+$fwidth-1)/$fwidth)+1] } if {$key == "BackSpace"} {set width [expr $width - 2]} ! $t configure -width $width } --- 2573,2584 ---- set width [expr (($textpix+$fwidth-1)/$fwidth)+1] } + set maxwidth 40 if {$key == "BackSpace"} {set width [expr $width - 2]} ! mset {y1 y2} [$t yview] ! set height [$t cget -height] ! if {$y2-$y1 < 1} { ! set height [expr $height/($y2-$y1)] ! } ! $t configure -width [min $width $maxwidth] -height $height -wrap word } *************** *** 2647,2664 **** set c [$self cwidget] set t $c.${self}text if {[winfo exists $c.${self}text]} { set nl [lindex [$t configure -height] 4] } else { } set height [expr {$nl*$ls}] - #set height [expr [font metrics [$self look font] -linespace] * $nl] set textwidth [expr {$width*($n+$@edit)}] if {[llength [$c gettags ${self}TEXT]]} { mset {x1 y1 x2 y2} [$c bbox ${self}TEXT] set textwidth [expr {($x2 - $x1)/[$@canvas zoom]}] } 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 mset {x1 y1 x2 y2} [[[$self canvas] widget] bbox ${self}text] set textwidth [expr ($x2-$x1+2)/[$@canvas zoom]] --- 2654,2671 ---- set c [$self cwidget] set t $c.${self}text + if {[winfo exists $c.${self}text]} { set nl [lindex [$t configure -height] 4] + set height [expr {$nl*$ls}] } else { } set height [expr {$nl*$ls}] set textwidth [expr {$width*($n+$@edit)}] if {[llength [$c gettags ${self}TEXT]]} { mset {x1 y1 x2 y2} [$c bbox ${self}TEXT] set textwidth [expr {($x2 - $x1)/[$@canvas zoom]}] + set height [expr $y2-$y1] } catch { mset {x1 y1 x2 y2} [[[$self canvas] widget] bbox ${self}text] set textwidth [expr ($x2-$x1+2)/[$@canvas zoom]]

1 0

pd/src desire.c, 1.1.2.217.2.195, 1.1.2.217.2.196 desire.tk, 1.1.2.600.2.323, 1.1.2.600.2.324
by Mathieu Bouchard 09 Aug '07

09 Aug '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18727 Modified Files: Tag: desiredata desire.c desire.tk Log Message: remove objects_reinit Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.323 retrieving revision 1.1.2.600.2.324 diff -C2 -d -r1.1.2.600.2.323 -r1.1.2.600.2.324 *** desire.tk 8 Aug 2007 22:36:10 -0000 1.1.2.600.2.323 --- desire.tk 8 Aug 2007 23:23:52 -0000 1.1.2.600.2.324 *************** *** 2783,2791 **** } - def Canvas objects_reinit {children} { - eval [concat [list $@objects reinit] $children] - $self changed children - } - def Canvas visibles+= {child} { if {[lsearch $@visibles $child] < 0} {lappend @visibles $child; $self changed visibles} --- 2783,2786 ---- *************** *** 4563,4571 **** set s $::scale_amount switch $mode { in { set s [expr 1/$s] }} ! if {[llength $@selection]} { ! set children [$@objectsel values] ! } else { ! set children [$@objects values] ! } foreach child $children { mset {x y} [$child xy] --- 4558,4563 ---- set s $::scale_amount switch $mode { in { set s [expr 1/$s] }} ! set sel [$@objectsel values] ! if {![llength $sel]} {set sel [$@objects values]} foreach child $children { mset {x y} [$child xy] *************** *** 4688,4692 **** def Canvas arrow_key {val1 val2} { if {![$self editmode]} { ! if {[llength $@objectsel size] == 1} { set o [$@selection values] if {[[$o class] <= IEMGUI] || [[$o class] == FloatBox]} {$o key_incr $val1 $val2} --- 4680,4684 ---- def Canvas arrow_key {val1 val2} { if {![$self editmode]} { ! if {[$@objectsel size] == 1} { set o [$@selection values] if {[[$o class] <= IEMGUI] || [[$o class] == FloatBox]} {$o key_incr $val1 $val2} *************** *** 5027,5034 **** } ! def Wire index= {i} { ! super $i ! [$@canvas wires] set $i $self ! } def Wire init {mess} { --- 5019,5024 ---- } ! def Box index= {i} {super $i; if {$@canvas != ""} {[$@canvas objects] set $i $self}} ! def Wire index= {i} {super $i; [$@canvas wires] set $i $self } def Wire init {mess} { Index: desire.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.c,v retrieving revision 1.1.2.217.2.195 retrieving revision 1.1.2.217.2.196 diff -C2 -d -r1.1.2.217.2.195 -r1.1.2.217.2.196 *** desire.c 8 Aug 2007 22:36:07 -0000 1.1.2.217.2.195 --- desire.c 8 Aug 2007 23:23:49 -0000 1.1.2.217.2.196 *************** *** 5977,5982 **** t_binbuf *b = binbuf_new(); t_class *c = self->_class; - int n; - char *s; t_text *x = (t_text *)self; if (c==canvas_class) { --- 5977,5980 ---- *************** *** 5995,5998 **** --- 5993,5998 ---- c->savefn(self,b); } + int n; + char *s; appendix_save(self,b); binbuf_gettext(b,&s,&n); *************** *** 6007,6016 **** free(s); if (c==canvas_class) { - // buffer overflow bug here - char foo[8192]; t_canvas *can = (t_canvas *)self; - char *bar=foo; *foo=0; - canvas_each(y,can) bar+=sprintf(bar,"%ld x%lx ",y->dix->index,(long)y); - sys_mgui(self,"objects_reinit","S",foo); sys_mgui(self,"name=","s",can->name); sys_mgui(self,"folder=","s",canvas_getenv(can)->dir); --- 6007,6011 ----

1 0

pd/src desire.c, 1.1.2.217.2.194, 1.1.2.217.2.195 desire.tk, 1.1.2.600.2.322, 1.1.2.600.2.323
by Mathieu Bouchard 09 Aug '07

09 Aug '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1634 Modified Files: Tag: desiredata desire.c desire.tk Log Message: remove wire_reinit Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.322 retrieving revision 1.1.2.600.2.323 diff -C2 -d -r1.1.2.600.2.322 -r1.1.2.600.2.323 *** desire.tk 8 Aug 2007 21:43:51 -0000 1.1.2.600.2.322 --- desire.tk 8 Aug 2007 22:36:10 -0000 1.1.2.600.2.323 *************** *** 2838,2847 **** } - # should be only called from the server - def Canvas wires_reinit {wires} { - eval [concat [list $@wires reinit] $wires] - $self changed wires - } - def Canvas wires {} {return $@wires} --- 2838,2841 ---- *************** *** 5033,5036 **** --- 5027,5035 ---- } + def Wire index= {i} { + super $i + [$@canvas wires] set $i $self + } + def Wire init {mess} { super Index: desire.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.c,v retrieving revision 1.1.2.217.2.194 retrieving revision 1.1.2.217.2.195 diff -C2 -d -r1.1.2.217.2.194 -r1.1.2.217.2.195 *** desire.c 7 Aug 2007 21:03:38 -0000 1.1.2.217.2.194 --- desire.c 8 Aug 2007 22:36:07 -0000 1.1.2.217.2.195 *************** *** 1085,1089 **** } } - gobj_changed(x,"wires"); } --- 1085,1088 ---- *************** *** 1257,1261 **** if (is_dummy(from)) while (outlet >= obj_noutlets(from)) outlet_new(from, &s_); if (is_dummy(to)) while ( inlet >= obj_ninlets(to)) inlet_new(to,to,&s_,&s_); - gobj_changed(x,"wires"); if (!(oc = obj_connect(from,outlet,to,inlet))) goto bad; pd_set_newest(oc); --- 1256,1259 ---- *************** *** 6015,6021 **** canvas_each(y,can) bar+=sprintf(bar,"%ld x%lx ",y->dix->index,(long)y); sys_mgui(self,"objects_reinit","S",foo); - bar=foo; *foo=0; - canvas_wires_each(oc,t,can) bar+=sprintf(bar,"%ld x%lx ",oc->dix->index,(long)oc); - sys_mgui(self,"wires_reinit","S",foo); sys_mgui(self,"name=","s",can->name); sys_mgui(self,"folder=","s",canvas_getenv(can)->dir); --- 6013,6016 ----

1 0

pd/src desire.tk,1.1.2.600.2.321,1.1.2.600.2.322
by Mathieu Bouchard 08 Aug '07

08 Aug '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15508 Modified Files: Tag: desiredata desire.tk Log Message: fix wire connection/disconnection/etc (proc dex) Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.321 retrieving revision 1.1.2.600.2.322 diff -C2 -d -r1.1.2.600.2.321 -r1.1.2.600.2.322 *** desire.tk 8 Aug 2007 21:33:55 -0000 1.1.2.600.2.321 --- desire.tk 8 Aug 2007 21:43:51 -0000 1.1.2.600.2.322 *************** *** 2807,2811 **** # this is a shim between the client's new-style indices and the server's remaining old-style indices ! proc dex {h k} {lsearch [lsort [$h keys]] $k} # for undo; calls the server --- 2807,2811 ---- # this is a shim between the client's new-style indices and the server's remaining old-style indices ! proc dex {h k} {lsearch [lsort -integer [$h keys]] $k} # for undo; calls the server *************** *** 3688,3695 **** } ! def Canvas duplicate {} { ! $self do_duplicate 15 ! } ! def Canvas do_duplicate {offset} { --- 3688,3692 ---- } ! def Canvas duplicate {} {$self do_duplicate 15} def Canvas do_duplicate {offset} {

1 0

pd/src desire.tk,1.1.2.600.2.320,1.1.2.600.2.321
by Mathieu Bouchard 08 Aug '07

08 Aug '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11518 Modified Files: Tag: desiredata desire.tk Log Message: fix for select_all Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.320 retrieving revision 1.1.2.600.2.321 diff -C2 -d -r1.1.2.600.2.320 -r1.1.2.600.2.321 *** desire.tk 8 Aug 2007 21:12:36 -0000 1.1.2.600.2.320 --- desire.tk 8 Aug 2007 21:33:55 -0000 1.1.2.600.2.321 *************** *** 3707,3711 **** } ! def Canvas select_all {} {$@objectsel reinit [$objects list]} def Canvas deselect_all {} {$@objectsel clear; $@wiresel clear} --- 3707,3714 ---- } ! def Canvas select_all {} { ! eval [concat [list $@objectsel reinit] [$@objects list]] ! eval [concat [list $@wiresel reinit] [ $@wires list]] ! } def Canvas deselect_all {} {$@objectsel clear; $@wiresel clear}

1 0

← Newer
1
...
36
37
38
39
40
41
42
...
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