Pd-cvs November 2006

pd-cvs@lists.iem.at

16 participants
561 discussions

pd/src desire.tk, 1.1.2.596, 1.1.2.597 defaults.ddrc, 1.1.2.9, 1.1.2.10
by chunlee 28 Nov '06

28 Nov '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12257 Modified Files: Tag: devel_0_39 desire.tk defaults.ddrc Log Message: pasted objects should alwasy be visible now Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.596 retrieving revision 1.1.2.597 diff -C2 -d -r1.1.2.596 -r1.1.2.597 *** desire.tk 27 Nov 2006 21:17:27 -0000 1.1.2.596 --- desire.tk 27 Nov 2006 23:10:52 -0000 1.1.2.597 *************** *** 2730,2757 **** set w [expr (1 / ($r - $l)) * $width] set h [expr (1 / ($b - $t)) * $height] - puts " l $l :: r $r :: t $t :: b $b" - puts " $w :::: $h" mset {l2 r2} [lmap * [$c xview] $w] mset {t2 b2} [lmap * [$c yview] $h] ! foreach mess [pd_mess_split [$::clipboard value]] { set type [lindex $mess 1] switch $type { ! canvas {} connect {} default { mset {x y} [lmap + [lrange $mess 2 3] $offset] ! if {$x > $r2 || $x < $l2} { ! if {$type != ""} {set visible 0;puts "-----------"; break} ! } ! if {$y > $b2 || $y < $t2} { ! if {$type != ""} {set visible 0;puts "-----------"; break} ! } } - } } ! ! ! puts " $l2 __ $r2 __ $t2 __ $b2 ::: " pd .$self push set paste(state) $self --- 2730,2764 ---- set w [expr (1 / ($r - $l)) * $width] set h [expr (1 / ($b - $t)) * $height] mset {l2 r2} [lmap * [$c xview] $w] mset {t2 b2} [lmap * [$c yview] $h] ! set xcoords {}; set ycoords {} ! foreach mess [pd_mess_split [$::clipboard value]] { set type [lindex $mess 1] switch $type { ! canvas {set in 1} "" {} connect {} default { + if {$type == "restore"} {set in 0} mset {x y} [lmap + [lrange $mess 2 3] $offset] ! if {!$in} {lappend xcoords $x; lappend ycoords $y} } } } ! foreach mess [pd_mess_split [$::clipboard value]] { ! set type [lindex $mess 1] ! switch $type { ! canvas {set in 1} "" {} connect {} ! default { ! if {$type == "restore"} {set in 0} ! mset {x y} [lmap + [lrange $mess 2 3] $offset] ! if {!$in} { ! if {$x > $r2 || $x < $l2} {set visible 0;break} ! if {$y > $b2 || $y < $t2} {set visible 0;break} ! } ! } ! } ! } ! set ref [lsearch $ycoords [lindex [lsort -increasing $ycoords] 0]] ! puts " ref ::::::::::: $ref" pd .$self push set paste(state) $self *************** *** 2759,2786 **** set type [lindex $mess 1] switch $type { ! canvas {set in 1; pd $mess} connect { mset {from outlet to inlet} [lrange $mess 2 end] set count [llength $@children] set mess2 [list #X connect [expr $from+$count] $outlet [expr $to+$count] $inlet] ! if {$in} {pd $mess} else {pd $mess2; if {$type != ""} {incr @wire_count}} } default { if {$type == "restore"} {set in 0} mset {x y} [lmap + [lrange $mess 2 3] $offset] ! if {$x > $r2 || $x < $l2} { ! if {$type != ""} { ! set x $x ! } ! } ! if {$y > $b2 || $y < $t2} { ! if {$type != ""} { ! set y $y } } - set mess2 [lreplace $mess 2 3 $x $y] - if {$in} {pd $mess} else {pd $mess2; if {$type != ""} {incr @obj_count}} } - } } --- 2766,2794 ---- set type [lindex $mess 1] switch $type { ! canvas {set in 1; pd $mess} "" {} connect { mset {from outlet to inlet} [lrange $mess 2 end] set count [llength $@children] set mess2 [list #X connect [expr $from+$count] $outlet [expr $to+$count] $inlet] ! if {$in} {pd $mess} else {pd $mess2; incr @wire_count} } default { if {$type == "restore"} {set in 0} mset {x y} [lmap + [lrange $mess 2 3] $offset] ! set mess2 [lreplace $mess 2 3 $x $y] ! if {$in} { ! pd $mess ! } else { ! if {!$visible} { ! set xoff [expr ($r2 - $l2) * 0.25] ! set yoff [expr ($b2 - $t2) * 0.25] ! set x2 [expr [lindex $mess 2] - [lindex $xcoords $ref] + $l2 + $xoff] ! set y2 [expr [lindex $mess 3] - [lindex $ycoords $ref] + $t2 + $yoff] ! set mess2 [lreplace $mess 2 3 $x2 $y2] } + pd $mess2 + incr @obj_count } } } } *************** *** 3304,3308 **** set @keynav_current $@keynav_last_wire } else { ! if {[llength [$@keynav_current wires]]} { $self deselect_all set @keynav_current [lindex [$@keynav_current wires] 0] --- 3312,3316 ---- set @keynav_current $@keynav_last_wire } else { ! if {[llength [$@keynav_current wires2]]} { $self deselect_all set @keynav_current [lindex [$@keynav_current wires] 0] *************** *** 3804,3808 **** set i 0 if {[info exists fields($@pdclass)]} { ! foreach f $fields($@pdclass) {set _($self:$f) [lindex $mess $i]; incr i} } } --- 3812,3816 ---- set i 0 if {[info exists fields($@pdclass)]} { ! foreach f $fields($@pdclass) {set _($self:$f) [lindex $mess $i];puts " >>> $self:$f <<<"; incr i} } } *************** *** 4356,4361 **** if {[$self selected?]} {set frcol [$self look selectframe]} {set frcol [$self look frame3]} $self item BASE rectangle $xya -fill [$self look bg] -outline $frcol ! $self item BASE1 line $xyb -fill [$self look frame1] ! $self item BASE2 line $xyc -fill [$self look frame2] [$@canvas widget] lower ${self}BASE ${self}TEXT [$@canvas widget] raise ${self}BASE1 ${self}BASE --- 4364,4369 ---- if {[$self selected?]} {set frcol [$self look selectframe]} {set frcol [$self look frame3]} $self item BASE rectangle $xya -fill [$self look bg] -outline $frcol ! #$self item BASE1 line $xyb -fill [$self look frame1] ! #$self item BASE2 line $xyc -fill [$self look frame2] [$@canvas widget] lower ${self}BASE ${self}TEXT [$@canvas widget] raise ${self}BASE1 ${self}BASE Index: defaults.ddrc =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/defaults.ddrc,v retrieving revision 1.1.2.9 retrieving revision 1.1.2.10 diff -C2 -d -r1.1.2.9 -r1.1.2.10 *** defaults.ddrc 21 Nov 2006 21:43:43 -0000 1.1.2.9 --- defaults.ddrc 27 Nov 2006 23:10:56 -0000 1.1.2.10 *************** *** 139,142 **** --- 139,143 ---- clear_wires Ctrl+k auto_wire Ctrl+j + subpatcherize Alt+p } Client {

1 0

pd/src TODO,1.1.2.24,1.1.2.25
by Mathieu Bouchard 27 Nov '06

27 Nov '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5052 Modified Files: Tag: devel_0_39 TODO Log Message: . Index: TODO =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/TODO,v retrieving revision 1.1.2.24 retrieving revision 1.1.2.25 diff -C2 -d -r1.1.2.24 -r1.1.2.25 *** TODO 27 Nov 2006 21:43:40 -0000 1.1.2.24 --- TODO 27 Nov 2006 22:51:50 -0000 1.1.2.25 *************** *** 157,172 **** [ ] inlet inspector to show what are the message types expected by an inlet that could read like "int: set left operand; bang: do it" - <zkink> matju: can you add a hotkey configuration dialog. it lets you hit a hotkey and it puts down any object under your mouse - <zkink> puts down a [t b i] - <matju> yea, of course... eventually... and a button bar manager at the same time - <zkink> and color code them, and same with wires <zkink> as well as select multiple wires, or multiple objects, and color code them - <zkink> the little square PD window needs cleaning up - <zkink> it takes 5x more space than is needed, for the amount of information it shows - <zkink> PD should highlight the inlet you're connecting to - <zkink> when they're close together, it's difficult to tell which one you're going on - <zkink> max doesn't use a circle icon, instead, it highlights the inlet - <zkink> much more informative <zkink> if you do segmented patchchords, it needs some functions: <zkink> a hotkey to click on the chord, and add a new segment --- 157,168 ---- [ ] inlet inspector to show what are the message types expected by an inlet that could read like "int: set left operand; bang: do it" + [ ] custom buttonbars (including premade objects with args like a [t b f] and such) + [ ] with configurable hotkeys + [ ] colored wires + [ ] insert_object makes error with multiple selection. + [ ] popup_properties on multiple selection. + [ ] <zkink> as well as select multiple wires, or multiple objects, and color code them <zkink> if you do segmented patchchords, it needs some functions: <zkink> a hotkey to click on the chord, and add a new segment *************** *** 178,184 **** <zkink> like _| instead of / <zkink> it makes it into three lines: _|~ ! <zkink> also: pd should have a NULL object. it looks like a point * on the GUI. ! <zkink> it does nothing but pass data through a splitter/merger. ! <zkink> circuits do this. they can split. they dont need to go into a module to split. <zkink> PERHAPS, a hack for multisegmented patchchords, would be to make a null object <zkink> a null object is an actual object that just looks like a . --- 174,182 ---- <zkink> like _| instead of / <zkink> it makes it into three lines: _|~ ! ! [ ] [t a] could be a very small GUI object (called "null object") ! [ ] all the [t] could be GUI objects ! [ ] GUI objects for [inlet] and [outlet] and [pd] ([page]) ! <zkink> PERHAPS, a hack for multisegmented patchchords, would be to make a null object <zkink> a null object is an actual object that just looks like a . *************** *** 195,201 **** <zkink> if you select any wire, it reports whats coming through that wire <matju> the NULL object looks like jMax's [fork] except with only one outlet - <zkink> yes <matju> or almost like [t a] - <zkink> yep <zkink> that would work as a makeshift plan for multisegmented chords <matju> except [t a] is more like "list $1" and converts scalars into 1-element lists (yuck) --- 193,197 ----

1 0

pd/src m_fifo.c,1.1.2.14.2.5,1.1.2.14.2.6
by Thomas Grill 27 Nov '06

27 Nov '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24471/src Modified Files: Tag: devel_0_39 m_fifo.c Log Message: fixed local symbols Index: m_fifo.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/m_fifo.c,v retrieving revision 1.1.2.14.2.5 retrieving revision 1.1.2.14.2.6 diff -C2 -d -r1.1.2.14.2.5 -r1.1.2.14.2.6 *** m_fifo.c 10 Aug 2006 00:33:09 -0000 1.1.2.14.2.5 --- m_fifo.c 27 Nov 2006 22:17:21 -0000 1.1.2.14.2.6 *************** *** 288,301 **** "movl (%%esi), %%eax \n\t" "testl %%eax, %%eax \n\t" ! "jz 20f \n" ! "10:\t" "movl (%%eax), %%ebx \n\t" "movl %%edx, %%ecx \n\t" "incl %%ecx \n\t" LOCK "cmpxchg8b (%%esi) \n\t" ! "jz 20f \n\t" "testl %%eax, %%eax \n\t" ! "jnz 10b \n" ! "20:\t" "popl %%ecx \n\t" "popl %%ebx \n\t" --- 288,301 ---- "movl (%%esi), %%eax \n\t" "testl %%eax, %%eax \n\t" ! "jz 2f \n" ! "1:\t" "movl (%%eax), %%ebx \n\t" "movl %%edx, %%ecx \n\t" "incl %%ecx \n\t" LOCK "cmpxchg8b (%%esi) \n\t" ! "jz 2f \n\t" "testl %%eax, %%eax \n\t" ! "jnz 1b \n" ! "2:\t" "popl %%ecx \n\t" "popl %%ebx \n\t" *************** *** 341,354 **** "mov (%%rdi), %%rax \n\t" "test %%rax, %%rax \n\t" ! "jz 20f \n" ! "10:\t" "mov (%%rax), %%rbx \n\t" "mov %%rdx, %%rcx \n\t" "inc %%rcx \n\t" LOCK "cmpxchg16b (%%rdi) \n\t" ! "jz 20f \n\t" "test %%rax, %%rax \n\t" ! "jnz 10b \n" ! "20:\t" "pop %%rcx \n\t" "pop %%rbx \n\t" --- 341,354 ---- "mov (%%rdi), %%rax \n\t" "test %%rax, %%rax \n\t" ! "jz 2f \n" ! "1:\t" "mov (%%rax), %%rbx \n\t" "mov %%rdx, %%rcx \n\t" "inc %%rcx \n\t" LOCK "cmpxchg16b (%%rdi) \n\t" ! "jz 2f \n\t" "test %%rax, %%rax \n\t" ! "jnz 1b \n" ! "2:\t" "pop %%rcx \n\t" "pop %%rbx \n\t"

1 0

pd/src TODO,1.1.2.23,1.1.2.24
by Mathieu Bouchard 27 Nov '06

27 Nov '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11724 Modified Files: Tag: devel_0_39 TODO Log Message: . Index: TODO =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/TODO,v retrieving revision 1.1.2.23 retrieving revision 1.1.2.24 diff -C2 -d -r1.1.2.23 -r1.1.2.24 *** TODO 27 Nov 2006 15:01:53 -0000 1.1.2.23 --- TODO 27 Nov 2006 21:43:40 -0000 1.1.2.24 *************** *** 15,18 **** --- 15,20 ---- [ ] rightclick help [ ] msgbox's entry may be bigger than msgbox (when zoomed) + [ ] switch to UTF-8 + [ ] patching-in-tongues follow-up ---------------------------------------------------------------- 0.39.A *************** *** 77,82 **** to accept patches to open in the same instance from, say a web browser. Like also when you are in a file manager and browsing some .pd files you really want them to open in the same running instance. - [ ] install Tcl/Tk 8.5 and TRY IT [ ] aalex says use /usr/bin/iconv to switch text files to utf-8 [ ] Vincent Lordier suggests trying: --- 79,92 ---- to accept patches to open in the same instance from, say a web browser. Like also when you are in a file manager and browsing some .pd files you really want them to open in the same running instance. [ ] aalex says use /usr/bin/iconv to switch text files to utf-8 + [ ] must work with ALL gridflow samples + [ ] objectbox argument completion + [ ] messagebox completion + [ ] tooltips on arguments/inlets/outlets + [ ] colorised console with hyperlinked error messages + [ ] option to make non-gui objects appear on a GOP (?) + [ ] multilingual labels in objects + [ ] multilingual comments + [ ] fix look of selection [ ] Vincent Lordier suggests trying: *************** *** 114,173 **** exactly the same as the "About" dialog. ! * objectbox argument completion ! * messagebox completion ! * tooltips on arguments/inlets/outlets ! * colorised console with hyperlinked error messages ! * <numberat> is there a way to make non-gui objects appear on a GOP? ! * multilingual labels in objects ! * multilingual comments ! * must work with ALL gridflow samples ! * bug: redraws hidden gui objects ! * fix look of selection ! * Tcl needs default values ! * make sure $0 actually works (see canvas_realizedollar) ! * test rcv_able, snd_able ! * maybe use 0 (==NULL) instead of gensym("empty") ! * pdrc: bug in tcl loader (see on boltanski) ! * iem: what's the default for steady? ! * iem: snd/rcv problem! ! * slider: is_log ! * numbox: is_log ! * menuclose problem ! <ix> btw u know about the 'infinite loop' thing w/ vsliders right ! * [hradio] : chg -> is_log ! * [vu] props : scale should appear instead of is_log ! * [vu],[cnv] have fcol in props ! ! * [vu] has snd in props ! ! * Duplicate wires? ! * Can connect object to an object that is inside a GOP (!!!!) ! * weird offset stuff when there are negative canvas coords sometimes. ! * fontbomb blows up GOP or stuff. ! * better reporting of errors in .pdrc ! * examine licensing / legal stuff ! * Bug: bad quoting in sys_mgui() ! * Bug: Control key is fucked on OSX ! * Bug: spaces in name of vslider cause corruption of properties (devel_0_37) ! * classlist: add method signatures ! * bang flash delays should be reimplemented ! * pdrc_options radio don't load/save ! <MiS> sys_vgui: buffer overflow ! <MiS> matju: may I request a little cosmetic fix. In the "Open" dialog window, I have always found it annoying that all dot directories show up. I'd prefer this to be an option so that I get to scroll less... ! * patch window may open off-screen (all branches) ! * patch window may open too big (all branches, osx) ! * properties on objectboxes (generic dialogs tapping into method signatures) ! * hooks for outsourcing the preceding stuff to a plugin (eg: GridFlow, PyExt) ! * VT100 colours in console ! * use tcl_platform, ditch pd_nt ! * <alx2> matju: a GOP object is created with the same colour as the edit mode background, it should be made lighter ! * [graph] is too slow (gui) for real big arrays ! * add scale, theme ! * doublequotes have problems in comments ! * floats have problems in comments ! * newlines have problems in comments, msgboxes, objectboxes. ! * make better C<->Tcl layer (to allow \{ \} \\ spaces newlines etc) ! <scuntz> matju, could you add an inlet inspector? that goes in the bottom of the window ! <scuntz> so when you mouseover, it shows you the data types, and what the inlet is expecting ! <scuntz> like "int: set left operand, bang: do it" ! <zkink> matju: can you add a font selector right into PD? a menu instead of setting it at load time <zkink> matju: can you add a hotkey configuration dialog. it lets you hit a hotkey and it puts down any object under your mouse <zkink> puts down a [t b i] --- 124,161 ---- exactly the same as the "About" dialog. ! [ ] make sure $0 actually works (see canvas_realizedollar) ! [ ] test rcv_able, snd_able ! [ ] iem: what's the default for steady? ! [ ] iem: snd/rcv problem(s) ? ! [ ] slider: is_log ! [ ] numbox: is_log ! [ ] [hradio] : chg -> is_log ! [ ] [vu] props : scale should appear instead of is_log ! [ ] [vu],[cnv] have fcol in props ! ! [ ] [vu] has snd in props ! ! [ ] Duplicate wires? ! [ ] Can connect object to an object that is inside a GOP (!!!!) ! [ ] weird offset stuff when there are negative canvas coords sometimes. ! [ ] Bug: bad quoting in sys_mgui() ! [ ] Bug: spaces in name of vslider cause corruption of properties (devel_0_37) ! [ ] classlist: add method signatures ! [ ] bang flash delays should be reimplemented ! [ ] pdrc_options radio don't load/save ! [ ] <MiS> sys_vgui: buffer overflow ! [ ] <MiS> matju: may I request a little cosmetic fix. In the "Open" dialog window, I have always found it ! annoying that all dot directories show up. I'd prefer this to be an option so that I get to scroll less... ! [ ] patch window may open off-screen (all branches) ! [ ] patch window may open too big (all branches, osx) ! [ ] properties on objectboxes (generic dialogs tapping into method signatures) ! [ ] hooks for outsourcing the preceding stuff to a plugin (eg: GridFlow, PyExt) ! [ ] VT100 colours in console ! [ ] [graph] is too slow (gui) for real big arrays ! [ ] doublequotes have problems in comments ! [ ] floats have problems in comments ! [ ] newlines have problems in comments, msgboxes, objectboxes. ! [ ] make better C<->Tcl layer (to allow \{ \} \\ spaces newlines etc) ! [ ] inlet inspector to show what are the message types expected by an inlet ! that could read like "int: set left operand; bang: do it" ! <zkink> matju: can you add a hotkey configuration dialog. it lets you hit a hotkey and it puts down any object under your mouse <zkink> puts down a [t b i]

1 0

pd/src desire.tk,1.1.2.595,1.1.2.596
by Mathieu Bouchard 27 Nov '06

27 Nov '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1782 Modified Files: Tag: devel_0_39 desire.tk Log Message: tclsh mode with our own repl Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.595 retrieving revision 1.1.2.596 diff -C2 -d -r1.1.2.595 -r1.1.2.596 *** desire.tk 27 Nov 2006 20:46:47 -0000 1.1.2.595 --- desire.tk 27 Nov 2006 21:17:27 -0000 1.1.2.596 *************** *** 7424,7427 **** set cmdline(console) 0 package require tclreadline ! ::tclreadline::Loop } --- 7424,7434 ---- set cmdline(console) 0 package require tclreadline ! #::tclreadline::Loop ! proc ::tclreadline::prompt1 {} {return "desire> "} ! while {1} { ! puts "What?" ! if {[catch {puts [::tclreadline::readline read]}]} { ! puts $::errorInfo ! } ! } }

1 0

pd/src desire.tk,1.1.2.594,1.1.2.595
by Mathieu Bouchard 27 Nov '06

27 Nov '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22533 Modified Files: Tag: devel_0_39 desire.tk Log Message: fix for console when running in tclsh Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.594 retrieving revision 1.1.2.595 diff -C2 -d -r1.1.2.594 -r1.1.2.595 *** desire.tk 27 Nov 2006 19:37:45 -0000 1.1.2.594 --- desire.tk 27 Nov 2006 20:46:47 -0000 1.1.2.595 *************** *** 5467,5482 **** } ! set console_lines 0 proc post_to_gui {x} { ! global cmdline console_lines ! if {!$cmdline(console)} {puts -nonewline stderr $x; return} set oldpos [lindex [.log.2 get] 1] .log.1 insert end $x regsub -all "\n" $x "" y set n [expr [string length $x]-[string length $y]] ! set console_lines [expr $console_lines+$n] ! while {$console_lines >= $cmdline(console)} { .log.1 delete 1.0 2.0 ! set console_lines [expr $console_lines-1] } if {$oldpos > 0.9999} {.log.1 see end} --- 5467,5482 ---- } ! set ::console_lines 0 proc post_to_gui {x} { ! global ::console_lines ! if {!$::cmdline(console)} {puts -nonewline stderr $x; return} set oldpos [lindex [.log.2 get] 1] .log.1 insert end $x regsub -all "\n" $x "" y set n [expr [string length $x]-[string length $y]] ! incr ::console_lines $n ! while {$::console_lines >= $::cmdline(console)} { .log.1 delete 1.0 2.0 ! incr console_lines -1 } if {$oldpos > 0.9999} {.log.1 see end} *************** *** 7422,7425 **** --- 7422,7426 ---- set window_list [list $main] } else { + set cmdline(console) 0 package require tclreadline ::tclreadline::Loop

1 0

pd/src desire.tk,1.1.2.593,1.1.2.594
by Mathieu Bouchard 27 Nov '06

27 Nov '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29220 Modified Files: Tag: devel_0_39 desire.tk Log Message: first attempt to make desire.tk work without tk Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.593 retrieving revision 1.1.2.594 diff -C2 -d -r1.1.2.593 -r1.1.2.594 *** desire.tk 27 Nov 2006 18:31:47 -0000 1.1.2.593 --- desire.tk 27 Nov 2006 19:37:45 -0000 1.1.2.594 *************** *** 31,34 **** --- 31,36 ---- # this command rebuilds the package index: echo pkg_mkIndex . | tclsh + if {[catch {winfo children .}]} {set tk 0} {set tk 1} + set argh0 [file normalize [file join [pwd] $argv0]] set auto_path [concat . \ *************** *** 39,43 **** package require poe ! package require bgerror #catch {package require Tclx} #if {[catch {source profile_dd.tcl}]} {error_dump} --- 41,45 ---- package require poe ! if {$tk} {package require bgerror} #catch {package require Tclx} #if {[catch {source profile_dd.tcl}]} {error_dump} *************** *** 238,242 **** def Clipboard2 value {} {return $@value} ! set clipboard [Clipboard1 new] #-----------------------------------------------------------------------------------# #used during subpatcherize --- 240,249 ---- def Clipboard2 value {} {return $@value} ! if {$tk} { ! set clipboard [Clipboard1 new] ! } else { ! set clipboard [Clipboard2 new] ! } ! #-----------------------------------------------------------------------------------# #used during subpatcherize *************** *** 349,378 **** } ! option add *foreground #000000 ! #option add *backgroundPixmap /usr/share/themes/BrushedMetalBlue/gtk/brushed-dark.xpm widgetDefault ! #option add *backgroundPixmap /home/matju/brushed-dark.gif widgetDefault ! option add *font {Helvetica -12} ! foreach tkclass {Menu Button Checkbutton Radiobutton Entry Text Spinbox Scrollbar Canvas} { ! option add *$tkclass*borderWidth 1 ! } ! foreach tkclass {CheckButton RadioButton} { ! option add *$tkclass*selectColor #dd3000 ! } ! foreach tkclass {Entry Text} { ! option add *$tkclass*background #b0c4d8 ! option add *$tkclass*selectBackground #6088b0 ! #option add *$tkclass*background #d8c0c0 # motif-style ! #option add *$tkclass*background #b0d8d8 # hospital-green (call it "lichen") ! #option add *$tkclass*selectBackground #60b0b0 ! } ! option add *__tk__messagebox*Canvas*borderWidth 0 ! ! foreach tkclass {Listbox} { ! option add *$tkclass*background #c4d8b0 ! option add *$tkclass*selectBackground #88b060 ! } ! ! foreach tkclass {Label} { ! #option add *$tkclass*background #909090 } --- 356,398 ---- } ! if {$tk} { ! option add *foreground #000000 ! option add *font {Helvetica -12} ! foreach tkclass {Menu Button Checkbutton Radiobutton Entry Text Spinbox Scrollbar Canvas} { ! option add *$tkclass*borderWidth 1 ! } ! foreach tkclass {CheckButton RadioButton} { ! option add *$tkclass*selectColor #dd3000 ! } ! foreach tkclass {Entry Text} { ! option add *$tkclass*background #b0c4d8 ! option add *$tkclass*selectBackground #6088b0 ! } ! option add *__tk__messagebox*Canvas*borderWidth 0 ! foreach tkclass {Listbox} { ! option add *$tkclass*background #c4d8b0 ! option add *$tkclass*selectBackground #88b060 ! } ! foreach tkclass {Label} { ! #option add *$tkclass*background #909090 ! } ! # very small icons: ! foreach {name w h values} { ! icon_empty 7 7 "0,0,0,0,0,0,0" ! icon_plus 7 7 "8,8,8,127,8,8,8" ! icon_minus 7 7 "0,0,0,127,0,0,0" ! icon_uparrow 7 5 "8,28,62,127,0" ! icon_downarrow 7 5 "0,127,62,28,8" ! } { ! image create bitmap $name -data "#define z_width $w\n#define z_height $h ! static unsigned char z_bits[] = { $values };" ! } ! # it's unfortunate but we seem to have to turn off global bindings ! # for Text objects to get control-s and control-t to do what we want for ! # "text" dialogs below. Also we have to get rid of tab's changing the focus. ! bind all <Key-Tab> "" ! bind all <<PrevWindow>> "" ! bind Text <Control-t> {} ! bind Text <Control-s> {} } *************** *** 393,408 **** } - # very small icons: - foreach {name w h values} { - icon_empty 7 7 "0,0,0,0,0,0,0" - icon_plus 7 7 "8,8,8,127,8,8,8" - icon_minus 7 7 "0,0,0,127,0,0,0" - icon_uparrow 7 5 "8,28,62,127,0" - icon_downarrow 7 5 "0,127,62,28,8" - } { - image create bitmap $name -data "#define z_width $w\n#define z_height $h - static unsigned char z_bits[] = { $values };" - } - switch $::OS { osx {set pd_tearoff 0} --- 413,416 ---- *************** *** 410,423 **** } - # it's unfortunate but we seem to have to turn off global bindings - # for Text objects to get control-s and control-t to do what we want for - # "text" dialogs below. Also we have to get rid of tab's changing the focus. - - bind all <Key-Tab> "" - bind all <<PrevWindow>> "" - bind Text <Control-t> {} - bind Text <Control-s> {} - # puts stderr [bind all] - proc guess_lang {} { set lang C --- 418,421 ---- *************** *** 431,435 **** set leet 0 - proc say {k args} { global text leet --- 429,432 ---- *************** *** 884,887 **** --- 881,889 ---- # it's necessary to raise the window on OSX switch $::OS { osx {raise .; wm iconify .; after 100 {wm deiconify .}}} + after 0 { + Listener new .tcl "Tcl Client" tcl_eval + Listener new .pd " Pd Server" pd_eval + } + if {$::cmdline(console)} {make_console} } *************** *** 979,984 **** } - set main [Client new] - #-----------------------------------------------------------------------------------# #fixme: actually, is it ok that View<Menuable ? --matju --- 981,984 ---- *************** *** 1820,1825 **** } - set window_list [list $main] - def Menuable fix_window_menu {} { global window_list --- 1820,1823 ---- *************** *** 5496,5501 **** } - if {$cmdline(console)} {make_console} - ############ evaluator --- 5494,5497 ---- *************** *** 5576,5585 **** proc pd_eval {self l} {post %s "pd: $l"; pd $l} - after 0 { - Listener new .tcl "Tcl Client" tcl_eval - Listener new .pd " Pd Server" pd_eval - - } - ############ button bar --- 5572,5575 ---- *************** *** 7425,7426 **** --- 7415,7426 ---- # Nous sommes donc en présence d'un incendie. C'est normal... def OopsDialog damn {} {$self ok} + + #---------------------------------------------------------------- + + if {$tk} { + set main [Client new] + set window_list [list $main] + } else { + package require tclreadline + ::tclreadline::Loop + }

1 0

abstractions Makefile,1.32,1.33 TODO,1.3,1.4
by Hans-Christoph Steiner 27 Nov '06

27 Nov '06

Update of /cvsroot/pure-data/abstractions In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18961 Modified Files: Makefile TODO Log Message: changed to fix & install problem with RTC-lib Index: Makefile =================================================================== RCS file: /cvsroot/pure-data/abstractions/Makefile,v retrieving revision 1.32 retrieving revision 1.33 diff -C2 -d -r1.32 -r1.33 *** Makefile 27 Nov 2006 18:36:41 -0000 1.32 --- Makefile 27 Nov 2006 19:10:53 -0000 1.33 *************** *** 28,32 **** # WARNING! this MUST be all on one line because the automatic package # building scripts rely on it being that way. ! LIB_TARGETS = gyre jmmmp keyboardkeys la-kitchen list-abs memento nusmuk nqpoly parazit pddp pixeltango purepd rradical # in case anything needs to be compiled or processed somehow before installing --- 28,32 ---- # WARNING! this MUST be all on one line because the automatic package # building scripts rely on it being that way. ! LIB_TARGETS = gyre jmmmp keyboardkeys la-kitchen list-abs memento nusmuk nqpoly parazit pddp pixeltango purepd rradical rtc-lib # in case anything needs to be compiled or processed somehow before installing *************** *** 370,392 **** $(examplesdir)/$(RRADICAL_NAME)/showcase/songs ! ## Something's wrong here: ! ## #------------------------------------------------------------------------------- ! ## # rtc-lib ! ## RTC-LIB_NAME = rtc ! ## rtc-lib_install: ! ## install -d $(objectsdir)/$(RTC-LIB_NAME) ! ## install -p $(shell ls -1 $(abstractions_src)/footils/rtc-lib/rtc/*.pd | \ ! ## grep -v '\-help.pd\|RTC-Overview.pd') $(objectsdir)/$(RTC-LIB_NAME) ! ## $(scripts_src)/generate-libdir-metafile.sh $(objectsdir) $(RTC-LIB_NAME) \ ! ## --author "Karlheinz Essel and Frank Barknecht" \ ! ## --license "Pd license" \ ! ## --description "Realtime Composition Library for Max ported to Pd" ! ## install -d $(helpdir)/$(RTC-LIB_NAME) ! ## install -d $(helpdir)/$(RTC-LIB_NAME)/rtc-help ! ## install -p $(abstractions_src)/footils/rtc-lib/rtc/*-help.pd \ ! ## $(abstractions_src)/footils/rtc-lib/rtc/RTC-Overview.pd \ ! ## $(helpdir)/$(RTC-LIB_NAME) ! ## install -p $(abstractions_src)/footils/rtc-lib/rtc/rtc-help/*.pd \ ! ## $(helpdir)/$(RTC-LIB_NAME)/rtc-help #==============================================================================# --- 370,392 ---- $(examplesdir)/$(RRADICAL_NAME)/showcase/songs ! #------------------------------------------------------------------------------- ! # rtc-lib ! RTC-LIB_NAME = rtc ! rtc-lib_install: ! install -d $(objectsdir)/$(RTC-LIB_NAME) ! install -p $(shell ls -1 $(abstractions_src)/footils/rtc-lib/rtc/*.pd | \ ! grep -v '\-help.pd\|RTC-Overview.pd'| sed 's|$.*$|"\1"|g') \ ! $(objectsdir)/$(RTC-LIB_NAME) ! $(scripts_src)/generate-libdir-metafile.sh $(objectsdir) $(RTC-LIB_NAME) \ ! --author "Karlheinz Essel and Frank Barknecht" \ ! --license "Pd license" \ ! --description "Realtime Composition Library for Max ported to Pd" ! install -d $(helpdir)/$(RTC-LIB_NAME) ! install -d $(helpdir)/$(RTC-LIB_NAME)/rtc-help ! install -p $(abstractions_src)/footils/rtc-lib/rtc/*-help.pd \ ! $(abstractions_src)/footils/rtc-lib/rtc/RTC-Overview.pd \ ! $(helpdir)/$(RTC-LIB_NAME) ! install -p $(abstractions_src)/footils/rtc-lib/rtc/rtc-help/*.pd \ ! $(helpdir)/$(RTC-LIB_NAME)/rtc-help #==============================================================================# Index: TODO =================================================================== RCS file: /cvsroot/pure-data/abstractions/TODO,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** TODO 27 Jul 2006 20:45:28 -0000 1.3 --- TODO 27 Nov 2006 19:10:53 -0000 1.4 *************** *** 3,5 **** --- 3,6 ---- externals/Makefile + - make a library for bw limited oscs written in Pd

1 0

abstractions Makefile,1.31,1.32
by Frank Barknecht 27 Nov '06

27 Nov '06

Update of /cvsroot/pure-data/abstractions In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6256 Modified Files: Makefile Log Message: Removed rtc-lib install from Makefile. Seems broken and I don't know how to fix it. Index: Makefile =================================================================== RCS file: /cvsroot/pure-data/abstractions/Makefile,v retrieving revision 1.31 retrieving revision 1.32 diff -C2 -d -r1.31 -r1.32 *** Makefile 26 Nov 2006 13:09:22 -0000 1.31 --- Makefile 27 Nov 2006 18:36:41 -0000 1.32 *************** *** 28,32 **** # WARNING! this MUST be all on one line because the automatic package # building scripts rely on it being that way. ! LIB_TARGETS = gyre jmmmp keyboardkeys la-kitchen list-abs memento nusmuk nqpoly parazit pddp pixeltango purepd rradical rtc-lib # in case anything needs to be compiled or processed somehow before installing --- 28,32 ---- # WARNING! this MUST be all on one line because the automatic package # building scripts rely on it being that way. ! LIB_TARGETS = gyre jmmmp keyboardkeys la-kitchen list-abs memento nusmuk nqpoly parazit pddp pixeltango purepd rradical # in case anything needs to be compiled or processed somehow before installing *************** *** 370,391 **** $(examplesdir)/$(RRADICAL_NAME)/showcase/songs ! #------------------------------------------------------------------------------- ! # rtc-lib ! RTC-LIB_NAME = rtc ! rtc-lib_install: ! install -d $(objectsdir)/$(RTC-LIB_NAME) ! install -p $(shell ls -1 $(abstractions_src)/footils/rtc-lib/rtc/*.pd | \ ! grep -v '\-help.pd\|RTC-Overview.pd') $(objectsdir)/$(RTC-LIB_NAME) ! $(scripts_src)/generate-libdir-metafile.sh $(objectsdir) $(RTC-LIB_NAME) \ ! --author "Karlheinz Essel and Frank Barknecht" \ ! --license "Pd license" \ ! --description "Realtime Composition Library for Max ported to Pd" ! install -d $(helpdir)/$(RTC-LIB_NAME) ! install -d $(helpdir)/$(RTC-LIB_NAME)/rtc-help ! install -p $(abstractions_src)/footils/rtc-lib/rtc/*-help.pd \ ! $(abstractions_src)/footils/rtc-lib/rtc/RTC-Overview.pd \ ! $(helpdir)/$(RTC-LIB_NAME) ! install -p $(abstractions_src)/footils/rtc-lib/rtc/rtc-help/*.pd \ ! $(helpdir)/$(RTC-LIB_NAME)/rtc-help #==============================================================================# --- 370,392 ---- $(examplesdir)/$(RRADICAL_NAME)/showcase/songs ! ## Something's wrong here: ! ## #------------------------------------------------------------------------------- ! ## # rtc-lib ! ## RTC-LIB_NAME = rtc ! ## rtc-lib_install: ! ## install -d $(objectsdir)/$(RTC-LIB_NAME) ! ## install -p $(shell ls -1 $(abstractions_src)/footils/rtc-lib/rtc/*.pd | \ ! ## grep -v '\-help.pd\|RTC-Overview.pd') $(objectsdir)/$(RTC-LIB_NAME) ! ## $(scripts_src)/generate-libdir-metafile.sh $(objectsdir) $(RTC-LIB_NAME) \ ! ## --author "Karlheinz Essel and Frank Barknecht" \ ! ## --license "Pd license" \ ! ## --description "Realtime Composition Library for Max ported to Pd" ! ## install -d $(helpdir)/$(RTC-LIB_NAME) ! ## install -d $(helpdir)/$(RTC-LIB_NAME)/rtc-help ! ## install -p $(abstractions_src)/footils/rtc-lib/rtc/*-help.pd \ ! ## $(abstractions_src)/footils/rtc-lib/rtc/RTC-Overview.pd \ ! ## $(helpdir)/$(RTC-LIB_NAME) ! ## install -p $(abstractions_src)/footils/rtc-lib/rtc/rtc-help/*.pd \ ! ## $(helpdir)/$(RTC-LIB_NAME)/rtc-help #==============================================================================#

1 0

pd/src desire.tk,1.1.2.592,1.1.2.593
by Mathieu Bouchard 27 Nov '06

27 Nov '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4412 Modified Files: Tag: devel_0_39 desire.tk Log Message: don't minimise main window on startup for non-OSX Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.592 retrieving revision 1.1.2.593 diff -C2 -d -r1.1.2.592 -r1.1.2.593 *** desire.tk 27 Nov 2006 14:46:05 -0000 1.1.2.592 --- desire.tk 27 Nov 2006 18:31:47 -0000 1.1.2.593 *************** *** 883,890 **** $self init_menus # it's necessary to raise the window on OSX ! raise . ! wm iconify . ! after 100 {wm deiconify .} ! focus . } --- 883,887 ---- $self init_menus # it's necessary to raise the window on OSX ! switch $::OS { osx {raise .; wm iconify .; after 100 {wm deiconify .}}} }

1 0

← Newer
1
...
13
14
15
16
17
18
19
...
57
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 November 2006