Pd-cvs July 2007

pd-cvs@lists.iem.at

20 participants
623 discussions

pd/src desire.tk,1.1.2.600.2.221,1.1.2.600.2.222
by Mathieu Bouchard 12 Jul '07

12 Jul '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19705 Modified Files: Tag: desiredata desire.tk Log Message: fixed refresh of choices in Dialogs Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.221 retrieving revision 1.1.2.600.2.222 diff -C2 -d -r1.1.2.600.2.221 -r1.1.2.600.2.222 *** desire.tk 11 Jul 2007 22:17:20 -0000 1.1.2.600.2.221 --- desire.tk 12 Jul 2007 01:10:02 -0000 1.1.2.600.2.222 *************** *** 1469,1479 **** def Client audio_on {} {netsend [list pd dsp 1]} def Client audio_off {} {netsend [list pd dsp 0]} ! def Client keyboard_view {} { KeyboardDialog new $::event_history} ! def Client clipboard_view {} {ClipboardDialog new $::clipboard} ! def Client command_history_view {} { ListDialog new $::command_history [say command_history_view]} ! def Client event_history_view {} { ! set dialog [ListDialog new $::event_history [say event_history_view]] ! [$dialog listbox] configure -font {Mono -10} ! return $dialog} def Client do_what_i_mean {} {wonder} --- 1469,1476 ---- def Client audio_on {} {netsend [list pd dsp 1]} def Client audio_off {} {netsend [list pd dsp 0]} ! def Client keyboard_view {} { KeyboardDialog new $::event_history} ! def Client clipboard_view {} { ClipboardDialog new $::clipboard} ! def Client command_history_view {} { ListDialog new $::command_history [say command_history_view]} ! def Client event_history_view {} {EventHistoryDialog new $::event_history} def Client do_what_i_mean {} {wonder} *************** *** 5288,5292 **** set textvar ${var}2 set @$textvar [say [lindex $@$tmp $val]] ! set @$var $val $self do_auto_apply } --- 5285,5289 ---- set textvar ${var}2 set @$textvar [say [lindex $@$tmp $val]] ! super $frame $var $part $val $self do_auto_apply } *************** *** 7145,7148 **** --- 7142,7146 ---- #if {$say} {set text [say $part]} else {set text $part} set @$var $val + $frame.butt configure -text [say $part] } *************** *** 7602,7606 **** } ! #this retrives the values set in the editor def ClientPrefsDialog get_val {} { global ddrc_options look key accels --- 7600,7604 ---- } ! #this retrieves the values set in the editor def ClientPrefsDialog get_val {} { global ddrc_options look key accels *************** *** 7629,7636 **** } } ! toggle {set look($class:$name) $@$name} ! font {set look(View:font) $@str} integer {set look($class:$name) $@$name} ! choice {set look($class:$name) $@$name} } } --- 7627,7634 ---- } } ! toggle { set look($class:$name) $@$name} integer {set look($class:$name) $@$name} ! choice {set look($class:$name) $@$name} ! font {set look(View:font) $@str} } } *************** *** 7888,7903 **** set @history $history wm title .$self $title ! pack [listbox .$self.list -yscrollcommand ".$self.scroll set" -width 72 -height 20] -side left -fill both -expand yes ! pack [scrollbar .$self.scroll -command ".$self.list yview"] -side right -fill y $@history subscribe $self $self notice } ! def ListDialog listbox {} {return .$self.list} def ListDialog notice {args} { ! .$self.list delete 0 end ! foreach e [$@history list] {.$self.list insert end $e} ! .$self.list see end } --- 7886,7904 ---- set @history $history wm title .$self $title ! frame .$self.1 ! pack [listbox .$self.1.list -yscrollcommand ".$self.1.scroll set" -width 72 -height 20] -side left -fill both -expand yes ! pack [scrollbar .$self.1.scroll -command ".$self.1.list yview"] -side right -fill y ! pack .$self.1 $@history subscribe $self $self notice } ! def ListDialog listbox {} {return .$self.1.list} def ListDialog notice {args} { ! set w [$self listbox] ! $w delete 0 end ! foreach e [$@history list] {$w insert end $e} ! $w see end } *************** *** 7907,7910 **** --- 7908,7919 ---- } + class_new EventHistoryDialog {ListDialog} + + def EventHistoryDialog init {history} { + super $history [say event_history_view] + pack [checkbutton .$self.hide -text [say hide_key_release]] -fill x + [$self listbox] configure -font {Mono -10} + } + #----------------------------------------------------------------

1 0

pd/src rules.txt,NONE,1.1.2.1
by Mathieu Bouchard 12 Jul '07

12 Jul '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2948 Added Files: Tag: desiredata rules.txt Log Message: . --- NEW FILE: rules.txt --- Those rules are in no particular order. Written by matju, on 2007.07.11 - ... #000: Tk-specific Tcl code goes in *.tk files; Tk-independent Tcl code is allowed to go in *.tcl files. Exceptions: debug.tcl ... #001: Long source files are usually better than short files because they are easier to search in, with most editors. #002: It's better to make classes/procs/defs smaller but not to the extent that there are too many of them. #003: Accessing an object's privates directly, is likely to cause trouble in the future. All @variables are private, but methods may also be marked as private or protected, by a visible comment where the definition is. #004: Indentation is whatever you like as long as it's locally consistent. Tab stops (of the tab key) are at multiples of 8, but indentation could be 2, 4, 8. (It's a bad idea to use less than 2 or more than 8). Open-braces don't deserve their own line, but close-braces do, at least because of how the diff program works. #005: Screen width is assumed to be about 132 characters, not 80. This is especially useful for cutting down the need to wrap lines. Newlines that have to do with linewrap get confused with meaningful newlines. Blank lines should be used sparsely: the more there are blank lines, the less meaningful they are. If you want blank lines everywhere, change the spacing of your font. #006: Short pieces of code that are quite repetitive but not completely, should be put on one line each and organised into alternating columns of recurrent and non-recurrent material. This highlights patterns in code. e.g.: for (int i=0; i<ninlets ; i++) x->inlets [i]->name = gensprintf( "inlet #%d",i); for (int i=0; i<noutlets; i++) x->outlets[i]->name = gensprintf("outlet #%d",i); #007: #008: #009: #010:

1 0

pd/src s_audio_jack.c,1.5.4.8.2.7.2.10,1.5.4.8.2.7.2.11
by Mathieu Bouchard 12 Jul '07

12 Jul '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25481 Modified Files: Tag: desiredata s_audio_jack.c Log Message: fix by Robert C Atwood Index: s_audio_jack.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/s_audio_jack.c,v retrieving revision 1.5.4.8.2.7.2.10 retrieving revision 1.5.4.8.2.7.2.11 diff -C2 -d -r1.5.4.8.2.7.2.10 -r1.5.4.8.2.7.2.11 *** s_audio_jack.c 10 Jul 2007 22:24:36 -0000 1.5.4.8.2.7.2.10 --- s_audio_jack.c 12 Jul 2007 00:05:30 -0000 1.5.4.8.2.7.2.11 *************** *** 198,205 **** static void jack_error(const char *desc) {} int jack_open_audio(int inchans, int outchans, int rate, int scheduler) { jack_dio_error = 0; if (inchans==0 && outchans==0) return 0; ! int ret = jack_open_audio(inchans,outchans,rate,scheduler); if (ret) sys_setscheduler(0); return ret; --- 198,206 ---- static void jack_error(const char *desc) {} + int jack_open_audio_2(int inchans, int outchans, int rate, int scheduler); int jack_open_audio(int inchans, int outchans, int rate, int scheduler) { jack_dio_error = 0; if (inchans==0 && outchans==0) return 0; ! int ret = jack_open_audio_2(inchans,outchans,rate,scheduler); if (ret) sys_setscheduler(0); return ret;

1 0

pd/src desire.tk,1.1.2.600.2.220,1.1.2.600.2.221
by Mathieu Bouchard 12 Jul '07

12 Jul '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16784 Modified Files: Tag: desiredata desire.tk Log Message: KeyboardView: switched to using keycodes Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.220 retrieving revision 1.1.2.600.2.221 diff -C2 -d -r1.1.2.600.2.220 -r1.1.2.600.2.221 *** desire.tk 11 Jul 2007 21:39:58 -0000 1.1.2.600.2.220 --- desire.tk 11 Jul 2007 22:17:20 -0000 1.1.2.600.2.221 *************** *** 334,338 **** def EventHistory init {} {super; set @list {}} def EventHistory add {e} {lappend @list $e; $self changed add $e} ! def EventHistory list {} {return $@list} set ::event_history [EventHistory new] --- 334,346 ---- def EventHistory init {} {super; set @list {}} def EventHistory add {e} {lappend @list $e; $self changed add $e} ! def EventHistory list {{formatted 1}} { ! if {!$formatted} {return $@list} ! set r {} ! foreach event $@list { ! mset {type W X Y mod K k} $event ! lappend r [format "%-13s %9s %4d %4d %4d %4d %s" $type $K $k $X $Y $mod $W] ! } ! return $r ! } set ::event_history [EventHistory new] *************** *** 493,510 **** foreach type {KeyPress KeyRelease} { foreach {subtype mod} $mods { ! bind all <$subtype$type> "event_record $type %W %X %Y $mod %K" } } foreach type {ButtonPress ButtonRelease} { foreach {subtype mod} $mods { ! bind all <$type> "event_record $type %W %X %Y $mod %b" } } } - proc event_record {type W X Y mod K} { - $::event_history add [format "%-13s %9s %4d %4d %4d %s" $type $K $X $Y $mod $W] - } - # there are two palettes of 30 colours used in Pd # when placed in a 3*10 grid, the difference is that --- 501,514 ---- foreach type {KeyPress KeyRelease} { foreach {subtype mod} $mods { ! bind all <$subtype$type> "$::event_history add \[list $type %W %X %Y $mod %K %k\]" } } foreach type {ButtonPress ButtonRelease} { foreach {subtype mod} $mods { ! bind all <$subtype$type> "$::event_history add \[list $type %W %X %Y $mod %b %b\]" } } } # there are two palettes of 30 colours used in Pd # when placed in a 3*10 grid, the difference is that *************** *** 7908,7938 **** set keyboard_layout { ! {Escape " " F1 F2 F3 F4 " " F5 F6 F7 F8 " " F9 F10 F11 F12} ! {grave 1 2 3 4 5 6 7 8 9 0 minus equal BackSpace} ! {Tab q w e r t y u i o p bracketleft bracketright backslash} ! {Caps_Lock a s d f g h j k l semicolon apostrophe Return} ! {Shift_L z x c v b n m comma period slash Shift_R} ! {Control_L Super_L Alt_L space Alt_R Super_R Menu Control_R} } foreach {k v} { ! Escape 5 ! BackSpace 5 ! Tab 4 backslash 4 ! Caps_Lock 5 Return 7 ! Shift_L 8 Shift_R 8 ! Control_L 4 Super_L 4 Alt_L 4 space 24 Alt_R 4 Super_R 4 Menu 4 Control_R 4 } {set keyboard_width_of($k) $v} ! foreach {k v} { ! grave ` minus - equal = bracketleft \[ bracketright \] backslash \\ BackSpace BkSp ! Caps_Lock Caps semicolon ; apostrophe ' comma , period . slash / ! Shift_L Shift Shift_R Shift Control_L Ctrl Control_R Ctrl Alt_L Alt Alt_R AltGr ! Super_L Win Super_R Win Escape Esc ! } {set keyboard_text_of($k) $v} ! foreach {k v} { ! ! 1 @ 2 # 3 $ 4 % 5 ^ 6 & 7 * 8 ( 9 ) 0 _ - + = ! Q q W w E e R r T t Y y U u I i O o P p \{ [ \} ] | \\ ! A a S s D d F f G g H h J j K k L l ; ' ! Z z X x C c V v B b N n M m < , > . ? / ! } {set keyboard_aliases($k) $v} def KeyboardDialog init {history} { --- 7912,7951 ---- set keyboard_layout { ! {1 " " 67 68 69 70 " " 71 72 73 74 " " 75 76 95 96} ! {49 10 11 12 13 14 15 16 17 18 19 20 21 22} ! {23 24 25 26 27 28 29 30 31 32 33 34 35 51} ! {66 38 39 40 41 42 43 44 45 46 47 48 36} ! {50 52 53 54 55 56 57 58 59 60 61 62} ! {37 115 64 65 113 116 117 109} } + foreach {k v} { ! 1 5 ! 22 5 ! 23 4 51 4 ! 66 5 36 7 ! 50 8 62 8 ! 37 4 115 4 64 4 65 24 113 4 116 4 117 4 109 4 } {set keyboard_width_of($k) $v} ! ! proc namekey {i args} {foreach name $args {set ::keyboard_text_of($i) $name; incr i}} ! namekey 1 Esc ! namekey 67 F1 F2 F3 F4 F5 F6 F7 F8 F9 F10 ! namekey 95 F11 F12 ! namekey 49 ` ! namekey 10 1! 2@ 3# 4\$ 5% 6^ 7& 8* 9( 0) -_ =+ BkSp ! namekey 23 Tab Q W E R T Y U I O P \{\[ \}\] ! namekey 51 \\| ! namekey 66 Caps ! namekey 38 A S D F G H J K L \;: '\" ! namekey 36 Return ! namekey 50 Shift ! namekey 52 Z X C V B N M ,< .> /? Shift ! namekey 37 Ctrl ! namekey 115 Sup ! namekey 64 Alt Space ! namekey 113 AltGr ! namekey 116 Sup Menu ! namekey 109 Ctrl def KeyboardDialog init {history} { *************** *** 7961,7966 **** def KeyboardDialog notice {origin add event} { ! mset {type k x y m w} $event ! if {![info exists ::keyboard_row_of($k)]} {puts "unknown event $event"; return} set i $::keyboard_row_of($k) switch -- $type { --- 7974,7979 ---- def KeyboardDialog notice {origin add event} { ! mset {type W X Y mod K k} $event ! if {![info exists ::keyboard_row_of($k)]} {puts "unknown key $k"; return} set i $::keyboard_row_of($k) switch -- $type {

1 0

packages/patches cmd-click_manipulates_GUIs-0.41.0-test03.patch, NONE, 1.1 cmd-click_toggles_editmode-0.41.0-test03.patch, 1.1, NONE
by Hans-Christoph Steiner 11 Jul '07

11 Jul '07

Update of /cvsroot/pure-data/packages/patches In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9185 Added Files: cmd-click_manipulates_GUIs-0.41.0-test03.patch Removed Files: cmd-click_toggles_editmode-0.41.0-test03.patch Log Message: switched Cmd-Click to the more Pd-ish behavior that Ctrl-Click has on the other platforms --- NEW FILE: cmd-click_manipulates_GUIs-0.41.0-test03.patch --- --- u_main.tk 2006-12-11 21:20:49.000000000 -0500 +++ u_main.tk 2007-07-11 17:46:11.000000000 -0400 @@ -1152,6 +1192,7 @@ bind $name.c <Option-Button> {pdtk_canvas_click %W %x %y %b 4} bind $name.c <Option-Shift-Button> {pdtk_canvas_click %W %x %y %b 5} bind $name.c <Option-Control-Button> {pdtk_canvas_click %W %x %y %b 6} + bind $name.c <Mod1-Button> {pdtk_canvas_click %W %x %y %b 6} bind $name.c <Option-Control-Shift-Button> \ {pdtk_canvas_click %W %x %y %b 7} } else { --- cmd-click_toggles_editmode-0.41.0-test03.patch DELETED ---

1 0

pd/src u_main.tk,1.17.2.19,1.17.2.20
by Hans-Christoph Steiner 11 Jul '07

11 Jul '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8801 Modified Files: Tag: branch-v0-39-2-extended u_main.tk Log Message: switched Cmd-Click to the more Pd-ish behavior that Ctrl-Click has on the other platforms Index: u_main.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v retrieving revision 1.17.2.19 retrieving revision 1.17.2.20 diff -C2 -d -r1.17.2.19 -r1.17.2.20 *** u_main.tk 9 Jul 2007 18:40:26 -0000 1.17.2.19 --- u_main.tk 11 Jul 2007 21:55:45 -0000 1.17.2.20 *************** *** 1193,1199 **** bind $name.c <Option-Shift-Button> {pdtk_canvas_click %W %x %y %b 5} bind $name.c <Option-Control-Button> {pdtk_canvas_click %W %x %y %b 6} bind $name.c <Option-Control-Shift-Button> \ {pdtk_canvas_click %W %x %y %b 7} - bind $name.c <Mod1-Button> {pdtk_canvas_ctrlclick %W %x %y %b} } else { bind $name.c <Alt-Button> {pdtk_canvas_click %W %x %y %b 4} --- 1193,1199 ---- bind $name.c <Option-Shift-Button> {pdtk_canvas_click %W %x %y %b 5} bind $name.c <Option-Control-Button> {pdtk_canvas_click %W %x %y %b 6} + bind $name.c <Mod1-Button> {pdtk_canvas_click %W %x %y %b 6} bind $name.c <Option-Control-Shift-Button> \ {pdtk_canvas_click %W %x %y %b 7} } else { bind $name.c <Alt-Button> {pdtk_canvas_click %W %x %y %b 4} *************** *** 1516,1521 **** proc pdtk_canvas_ctrlclick {name x y b} { ! # first get rid of ".c" suffix; we'll refer to the toplevel instead ! menu_editmode [string trimright $name .c] } --- 1516,1520 ---- proc pdtk_canvas_ctrlclick {name x y b} { ! pd [canvastosym $name] mouse [$name canvasx $x] [$name canvasy $y] $b 2 \; }

1 0

pd/src desire.tk,1.1.2.600.2.219,1.1.2.600.2.220
by Mathieu Bouchard 11 Jul '07

11 Jul '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2780 Modified Files: Tag: desiredata desire.tk Log Message: event history supports multiple modifiers; keyboard dialog shows fadeout Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.219 retrieving revision 1.1.2.600.2.220 diff -C2 -d -r1.1.2.600.2.219 -r1.1.2.600.2.220 *** desire.tk 11 Jul 2007 20:58:58 -0000 1.1.2.600.2.219 --- desire.tk 11 Jul 2007 21:39:58 -0000 1.1.2.600.2.220 *************** *** 490,494 **** bind Text <Control-t> {} bind Text <Control-s> {} ! set mods {{} 0 Shift- 1 Control- 4 Alt- 8} foreach type {KeyPress KeyRelease} { foreach {subtype mod} $mods { --- 490,494 ---- bind Text <Control-t> {} bind Text <Control-s> {} ! set mods {{} 0 Shift- 1 Control- 4 Shift-Control- 5 Alt- 8 Shift-Alt- 9 Control-Alt- 12 Shift-Control-Alt- 13} foreach type {KeyPress KeyRelease} { foreach {subtype mod} $mods { *************** *** 7929,7936 **** --- 7929,7943 ---- Super_L Win Super_R Win Escape Esc } {set keyboard_text_of($k) $v} + foreach {k v} { + ! 1 @ 2 # 3 $ 4 % 5 ^ 6 & 7 * 8 ( 9 ) 0 _ - + = + Q q W w E e R r T t Y y U u I i O o P p \{ [ \} ] | \\ + A a S s D d F f G g H h J j K k L l ; ' + Z z X x C c V v B b N n M m < , > . ? / + } {set keyboard_aliases($k) $v} def KeyboardDialog init {history} { super close set @history $history + set @fade [dict create] wm title .$self "Keyboard View" ;# say set i 0; set j 0 *************** *** 7950,7965 **** } $@history subscribe $self } def KeyboardDialog notice {origin add event} { ! mset {type k x y w} $event if {![info exists ::keyboard_row_of($k)]} {puts "unknown event $event"; return} ! set row $::keyboard_row_of($k) switch -- $type { ! KeyPress {.$self.$row.key$k configure -bg "#ff0000"} ! KeyRelease {.$self.$row.key$k configure -bg "#dddddd"} } } def KeyboardDialog delete {} { $@history unsubscribe $self --- 7957,7986 ---- } $@history subscribe $self + $self fade } def KeyboardDialog notice {origin add event} { ! mset {type k x y m w} $event if {![info exists ::keyboard_row_of($k)]} {puts "unknown event $event"; return} ! set i $::keyboard_row_of($k) switch -- $type { ! KeyPress {if { [dict exists $@fade $k]} {dict unset @fade $k}; .$self.$i.key$k configure -bg "#ff0000"} ! KeyRelease {if {![dict exists $@fade $k]} {dict set @fade $k 255}; puts $@fade} } } + def KeyboardDialog fade {} { + foreach {k v} $@fade { + incr v -85 + if {$v<0} {set v 0} + set r [expr 221+$v*2/15] + set g [expr 221-$v*13/15] + set i $::keyboard_row_of($k) + .$self.$i.key$k configure -bg [format #%02x%02x%02x $r $g $g] + if {$v} {dict set @fade $k $v} {dict unset @fade $k} + } + after 100 "$self fade" + } + def KeyboardDialog delete {} { $@history unsubscribe $self

1 0

pd/src desire.tk,1.1.2.600.2.218,1.1.2.600.2.219
by Mathieu Bouchard 11 Jul '07

11 Jul '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20944 Modified Files: Tag: desiredata desire.tk Log Message: event recording catches Shift-... Control-... Alt-... properly, with modifier numbers. Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.218 retrieving revision 1.1.2.600.2.219 diff -C2 -d -r1.1.2.600.2.218 -r1.1.2.600.2.219 *** desire.tk 11 Jul 2007 18:59:33 -0000 1.1.2.600.2.218 --- desire.tk 11 Jul 2007 20:58:58 -0000 1.1.2.600.2.219 *************** *** 28,32 **** # #-----------------------------------------------------------------------------------# ! # this command rebuilds the package index: echo pkg_mkIndex . | tclsh --- 28,32 ---- # #-----------------------------------------------------------------------------------# ! # this command rebuilds the package index: echo pkg_mkIndex . | tclsh *************** *** 334,338 **** def EventHistory init {} {super; set @list {}} def EventHistory add {e} {lappend @list $e; $self changed add $e} ! def EventHistory list {} {lreverse $@list} set ::event_history [EventHistory new] --- 334,338 ---- def EventHistory init {} {super; set @list {}} def EventHistory add {e} {lappend @list $e; $self changed add $e} ! def EventHistory list {} {return $@list} set ::event_history [EventHistory new] *************** *** 490,501 **** bind Text <Control-t> {} bind Text <Control-s> {} ! bind all <KeyPress> {event_record KeyPress %W %X %Y %K} ! bind all <KeyRelease> {event_record KeyRelease %W %X %Y %K} ! bind all <ButtonPress> {event_record ButtonPress %W %X %Y %b} ! bind all <ButtonRelease> {event_record ButtonRelease %W %X %Y %b} } ! proc event_record {type W X Y K} { ! $::event_history add [format "%13s %9s %4d %4d %s" $type $K $X $Y $W] } --- 490,508 ---- bind Text <Control-t> {} bind Text <Control-s> {} ! set mods {{} 0 Shift- 1 Control- 4 Alt- 8} ! foreach type {KeyPress KeyRelease} { ! foreach {subtype mod} $mods { ! bind all <$subtype$type> "event_record $type %W %X %Y $mod %K" ! } ! } ! foreach type {ButtonPress ButtonRelease} { ! foreach {subtype mod} $mods { ! bind all <$type> "event_record $type %W %X %Y $mod %b" ! } ! } } ! proc event_record {type W X Y mod K} { ! $::event_history add [format "%-13s %9s %4d %4d %4d %s" $type $K $X $Y $mod $W] } *************** *** 1072,1077 **** quit} $self populate_menu help { ! about documentation class_browser client_class_tree clipboard_view command_history_view event_history_view do_what_i_mean {} ! test_audio_and_midi load_meter latency_meter} } --- 1079,1085 ---- quit} $self populate_menu help { ! about documentation class_browser do_what_i_mean {} ! test_audio_and_midi load_meter latency_meter {} ! clipboard_view command_history_view event_history_view keyboard_view client_class_tree} } *************** *** 1088,1091 **** --- 1096,1101 ---- Listener new .pd " Pd Server" pd_eval } + wm geometry .[$self keyboard_view] -0+0 + wm geometry .[$self event_history_view] -0-0 } *************** *** 1455,1461 **** def Client audio_on {} {netsend [list pd dsp 1]} def Client audio_off {} {netsend [list pd dsp 0]} def Client clipboard_view {} {ClipboardDialog new $::clipboard} def Client command_history_view {} { ListDialog new $::command_history [say command_history_view]} ! def Client event_history_view {} { [[ListDialog new $::event_history [say event_history_view]] listbox] configure -font {Mono -10}} def Client do_what_i_mean {} {wonder} --- 1465,1475 ---- def Client audio_on {} {netsend [list pd dsp 1]} def Client audio_off {} {netsend [list pd dsp 0]} + def Client keyboard_view {} { KeyboardDialog new $::event_history} def Client clipboard_view {} {ClipboardDialog new $::clipboard} def Client command_history_view {} { ListDialog new $::command_history [say command_history_view]} ! def Client event_history_view {} { ! set dialog [ListDialog new $::event_history [say event_history_view]] ! [$dialog listbox] configure -font {Mono -10} ! return $dialog} def Client do_what_i_mean {} {wonder} *************** *** 7870,7874 **** set @history $history wm title .$self $title ! pack [listbox .$self.list -yscrollcommand ".$self.scroll set" -width 72] -side left -fill both -expand yes pack [scrollbar .$self.scroll -command ".$self.list yview"] -side right -fill y $@history subscribe $self --- 7884,7888 ---- set @history $history wm title .$self $title ! pack [listbox .$self.list -yscrollcommand ".$self.scroll set" -width 72 -height 20] -side left -fill both -expand yes pack [scrollbar .$self.scroll -command ".$self.list yview"] -side right -fill y $@history subscribe $self *************** *** 7881,7884 **** --- 7895,7899 ---- .$self.list delete 0 end foreach e [$@history list] {.$self.list insert end $e} + .$self.list see end } *************** *** 7915,7921 **** } {set keyboard_text_of($k) $v} ! def KeyboardDialog init {} { super close ! set @history $::event_history wm title .$self "Keyboard View" ;# say set i 0; set j 0 --- 7930,7936 ---- } {set keyboard_text_of($k) $v} ! def KeyboardDialog init {history} { super close ! set @history $history wm title .$self "Keyboard View" ;# say set i 0; set j 0 *************** *** 7942,7947 **** set row $::keyboard_row_of($k) switch -- $type { ! KeyPress {puts "$k on"; .$self.$row.key$k configure -bg "#ff0000"} ! KeyRelease {puts "$k off"; .$self.$row.key$k configure -bg "#dddddd"} } } --- 7957,7962 ---- set row $::keyboard_row_of($k) switch -- $type { ! KeyPress {.$self.$row.key$k configure -bg "#ff0000"} ! KeyRelease {.$self.$row.key$k configure -bg "#dddddd"} } } *************** *** 8108,8112 **** } puts "$nodes" - foreach wire $@wires { mset {obj1 port1 obj2 port2} [$wire report] --- 8123,8126 ---- *************** *** 8116,8128 **** } #$g layout ! #if {[info exists debug]} { ! # puts [$g render] ;# see what render produces ! #} #eval [$g render] set f {} set fd [open graph.txt w] $g write $fd plain - close $fd set fd [open graph.txt r] set contents [read $fd] --- 8130,8141 ---- } #$g layout ! ;# see what render produces ! #if {$debug} {puts [$g render]} #eval [$g render] set f {} set fd [open graph.txt w] $g write $fd plain close $fd + set fd [open graph.txt r] set contents [read $fd] *************** *** 8146,8150 **** } } - - after 100 {KeyboardDialog new} - --- 8159,8160 ----

1 0

pd/src s_stuff.h,1.5.4.10.2.8.2.14,1.5.4.10.2.8.2.15
by Mathieu Bouchard 11 Jul '07

11 Jul '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20190 Modified Files: Tag: desiredata s_stuff.h Log Message: removed obsolete decls Index: s_stuff.h =================================================================== RCS file: /cvsroot/pure-data/pd/src/s_stuff.h,v retrieving revision 1.5.4.10.2.8.2.14 retrieving revision 1.5.4.10.2.8.2.15 diff -C2 -d -r1.5.4.10.2.8.2.14 -r1.5.4.10.2.8.2.15 *** s_stuff.h 10 Jul 2007 22:24:36 -0000 1.5.4.10.2.8.2.14 --- s_stuff.h 11 Jul 2007 20:57:10 -0000 1.5.4.10.2.8.2.15 *************** *** 31,35 **** extern t_namelist *sys_helppath; - // IOhannes : added namespace support for libraries // the define QUALIFIED_NAME both turns on namespaces and sets the library-object delimiter --- 31,34 ---- *************** *** 51,62 **** extern char *sys_guicmd; extern int sys_tooltips; - extern int sys_defeatrt; extern t_symbol *sys_flags; - - EXTERN int sys_nearestfontsize(int fontsize); - EXTERN int sys_hostfontsize(int fontsize); - - extern int sys_defaultfont; extern t_symbol *sys_libdir; /* library directory for auxilliary files */ --- 50,55 ---- *************** *** 65,73 **** /* s_audio.c */ - #define SENDDACS_NO 0 /* return values for sys_send_dacs() */ #define SENDDACS_YES 1 #define SENDDACS_SLEPT 2 - #define DEFDACBLKSIZE 64 /* the default dac~blocksize */ extern int sys_dacblocksize; /* the real dac~blocksize */ --- 58,64 ---- *************** *** 90,95 **** void sys_reopen_audio(void); void sys_close_audio(void); - - int sys_send_dacs(void); void sys_set_priority(int higher); --- 81,84 ---- *************** *** 98,105 **** void sys_listdevs(void); void sys_setblocksize(int n); ! ! /* tb { */ ! void sys_update_sleepgrain(void); ! /* } */ /* s_midi.c */ --- 87,91 ---- void sys_listdevs(void); void sys_setblocksize(int n); ! void sys_update_sleepgrain(void); //tb /* s_midi.c */ *************** *** 110,114 **** extern int sys_midiindevlist[]; extern int sys_midioutdevlist[]; - void sys_open_midi(int nmidiin, int *midiinvec, int nmidiout, int *midioutvec, int enable); void sys_get_midi_params(int *pnmidiindev, int *pmidiindev, int *pnmidioutdev, int *pmidioutdev); --- 96,99 ---- *************** *** 121,126 **** EXTERN void sys_setmiditimediff(double inbuftime, double outbuftime); EXTERN void sys_midibytein(int portno, int byte); ! ! /* implemented in the system dependent MIDI code (s_midi_pm.c, etc. ) */ void midi_getdevs(char *indevlist, int *nindevs, char *outdevlist, int *noutdevs, int maxndev, int devdescsize); void sys_do_open_midi(int nmidiindev, int *midiindev, int nmidioutdev, int *midioutdev); --- 106,110 ---- EXTERN void sys_setmiditimediff(double inbuftime, double outbuftime); EXTERN void sys_midibytein(int portno, int byte); ! /* implemented in the system dependent MIDI code (s_midi_pm.c, etc.) */ void midi_getdevs(char *indevlist, int *nindevs, char *outdevlist, int *noutdevs, int maxndev, int devdescsize); void sys_do_open_midi(int nmidiindev, int *midiindev, int nmidioutdev, int *midioutdev); *************** *** 133,137 **** EXTERN void sys_alsa_midibytein(int portno, int byte); EXTERN void sys_alsa_close_midi( void); - /* implemented in the system dependent MIDI code (s_midi_pm.c, etc. ) */ void midi_alsa_getdevs(char *indevlist, int *nindevs, char *outdevlist, int *noutdevs, int maxndev, int devdescsize); --- 117,120 ---- *************** *** 149,157 **** #define ERR_SYSLOCK 6 void sched_set_using_dacs(int flag); ! ! /* tb { */ ! void sys_setscheduler(int scheduler); ! int sys_getscheduler(void); ! /* tb } */ /* s_inter.c */ --- 132,137 ---- #define ERR_SYSLOCK 6 void sched_set_using_dacs(int flag); ! void sys_setscheduler(int scheduler); //tb ! int sys_getscheduler(void); //tb /* s_inter.c */ *************** *** 277,286 **** void asio_open_audio(int nindev, int *indev, int nchindev, int *chindev, int noutdev, int *outdev, int nchoutdev, int *choutdev, int rate, int scheduler); - - void oss_getdevs(char *indevlist, int *nindevs, char *outdevlist, int *noutdevs, int *canmulti, int maxndev, int devdescsize); - void alsa_getdevs(char *indevlist, int *nindevs, char *outdevlist, int *noutdevs, int *canmulti, int maxndev, int devdescsize); - void jack_getdevs(char *indevlist, int *nindevs, char *outdevlist, int *noutdevs, int *canmulti, int maxndev, int devdescsize); - void mmio_getdevs(char *indevlist, int *nindevs, char *outdevlist, int *noutdevs, int *canmulti, int maxndev, int devdescsize); - void asio_getdevs(char *indevlist, int *nindevs, char *outdevlist, int *noutdevs, int *canmulti, int maxndev, int devdescsize); void jack_listdevs(void); void sys_listmididevs(void); --- 257,260 ---- *************** *** 299,303 **** /* s_file.c */ - typedef void (*t_printhook)(const char *s); extern t_printhook sys_printhook; /* set this to override printing */ --- 273,276 ---- *************** *** 308,312 **** /* jsarlo { */ - EXTERN double sys_time; EXTERN double sys_time_per_dsp_tick; --- 281,284 ----

1 0

externals/mrpeach/osc unpackOSC.c,1.4,1.5
by Martin Peach 11 Jul '07

11 Jul '07

Update of /cvsroot/pure-data/externals/mrpeach/osc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12935 Modified Files: unpackOSC.c Log Message: Added handler for blob type. Index: unpackOSC.c =================================================================== RCS file: /cvsroot/pure-data/externals/mrpeach/osc/unpackOSC.c,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** unpackOSC.c 11 Jul 2007 17:34:38 -0000 1.4 --- unpackOSC.c 11 Jul 2007 20:38:37 -0000 1.5 *************** *** 353,356 **** --- 353,372 ---- switch (*thisType) { + case 'b': /* blob: an int32 size count followed by that many 8-bit bytes */ + { + int i, blob_bytes = ntohl(*((int *) p)); + #ifdef DEBUG + post("blob: %lu bytes", blob_bytes); + #endif + p += 4; + for (i = 0; i < blob_bytes; ++i, ++p, ++myargc) + SETFLOAT(mya+myargc,(*(unsigned char *)p)); + while (i%4) + { + ++i; + ++p; + } + break; + } case 'i': case 'r': case 'm': case 'c': #ifdef DEBUG

1 0

← Newer
1
...
39
40
41
42
43
44
45
...
63
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 July 2007