Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12078
Modified Files: Tag: devel_0_39 u_main.tk Log Message: upgrading to 0.39-test2
Index: u_main.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v retrieving revision 1.4.4.10 retrieving revision 1.4.4.10.2.1 diff -C2 -d -r1.4.4.10 -r1.4.4.10.2.1 *** u_main.tk 11 May 2005 20:03:16 -0000 1.4.4.10 --- u_main.tk 22 May 2005 13:04:15 -0000 1.4.4.10.2.1 *************** *** 32,35 **** --- 32,42 ---- set pd_tearoff 1
+ # jsarlo + set pd_array_listview_pagesize 1000 + set pd_array_listview_id(0) 0 + set pd_array_listview_entry(0) 0 + set pd_array_listview_page(0) 0 + # end jsarlo + if {$pd_nt == 1} { global pd_guidir *************** *** 290,309 **** proc menu_open {} { global pd_opendir - set filename [tk_getOpenFile -defaultextension .pd \ -filetypes { {{pd files} {.pd}} {{max files} {.pat}}} \ -initialdir $pd_opendir]
! if {$filename != ""} { ! set directory [string range $filename 0 \ ! [expr [string last / $filename ] - 1]] ! set pd_opendir $directory ! set basename [string range $filename \ ! [expr [string last / $filename ] + 1] end] ! ! # pd_debug [concat file $filename base $basename dir $directory]
! pd [concat pd open [pdtk_enquote $basename] \ ! [pdtk_enquote $directory];] } } --- 297,320 ---- proc menu_open {} { global pd_opendir set filename [tk_getOpenFile -defaultextension .pd \ -filetypes { {{pd files} {.pd}} {{max files} {.pat}}} \ -initialdir $pd_opendir] + if {$filename != ""} {open_file $filename} + }
! proc open_file {filename} { ! global pd_opendir ! set directory [string range $filename 0 [expr [string last / $filename] - 1]] ! set pd_opendir $directory ! set basename [string range $filename [expr [string last / $filename] + 1] end] ! if {[string last .pd $filename] >= 0} { ! pd "pd open [pdtk_enquote $basename] [pdtk_enquote $directory] ;" ! } ! }
! catch { ! package require tkdnd ! dnd bindtarget . text/uri-list <Drop> { ! foreach file %D {open_file $file} } } *************** *** 365,381 **** # open HTML docs from the menu using the OS-default HTML viewer proc menu_openhtml {filename} { ! global pd_nt ! ! if {$pd_nt == 0} { ! exec sh -c \ ! [format "mozilla file:%s || netscape file:%s &\n" \ ! $filename $filename] ! } elseif {$pd_nt == 2} { ! puts stderr [format "open %s" $filename] ! exec sh -c [format "open %s" $filename] ! } else { ! exec rundll32 url.dll,FileProtocolHandler \ ! [format "file:%s" $filename] & ! } }
--- 376,392 ---- # open HTML docs from the menu using the OS-default HTML viewer proc menu_openhtml {filename} { ! global pd_nt ! ! if {$pd_nt == 0} { ! exec sh -c \ ! [format "firefox file:%s || mozilla file:%s &\n" \ ! $filename $filename] ! } elseif {$pd_nt == 2} { ! puts stderr [format "open %s" $filename] ! exec sh -c [format "open %s" $filename] ! } else { ! exec rundll32 url.dll,FileProtocolHandler \ ! [format "file:%s" $filename] & ! } }
*************** *** 431,436 ****
proc doc_submenu {helpmenu subdir} { ! global help_top_directory pd_tearoff ! # see if $subdir exists at all... if { [ catch { --- 442,447 ----
proc doc_submenu {helpmenu subdir} { ! global help_top_directory pd_tearoff ! # see if $subdir exists at all... if { [ catch { *************** *** 438,450 **** } ] } { return }
! set menudir $help_top_directory/$subdir ! regsub -all "\." $subdir "" submenu - - menu $helpmenu.$submenu -tearoff $pd_tearoff - regsub -all "\." $subdir " " submenuname - $helpmenu add cascade -label $submenuname \ - -menu $helpmenu.$submenu
# use this glob pattern to exclude the supporting files # foreach file [ lsort [ glob -dir $menudir {*[0-9][0-9]*} ] ] --- 449,461 ---- } ] } { return }
! set menudir $help_top_directory/$subdir ! regsub -all "\." $subdir "" submenu
+ menu $helpmenu.$submenu -tearoff $pd_tearoff + regsub -all "\." $subdir " " submenuname + $helpmenu add cascade -label $submenuname \ + -menu $helpmenu.$submenu + catch { # use this glob pattern to exclude the supporting files # foreach file [ lsort [ glob -dir $menudir {*[0-9][0-9]*} ] ] *************** *** 455,458 **** --- 466,470 ---- -command "menu_doc_open doc/$subdir $filename" } + } }
*************** *** 581,584 **** --- 593,597 ----
proc menu_close {name} { + pdtk_canvas_checkgeometry $name pd [concat $name menuclose ;] } *************** *** 836,841 ****
toplevel $name -menu $name.m ! # puts stderr [concat geometry: $geometry] ! wm geometry $name $geometry canvas $name.c -width $width -height $height -background white \ -yscrollcommand "$name.scrollvert set" \ --- 849,868 ----
toplevel $name -menu $name.m ! ! # slide offscreen windows into view ! set geometry [split $geometry +] ! set i 1 ! foreach geo {width height} { ! set screen($geo) [winfo screen$geo .] ! if {[expr [lindex $geometry $i] + [set $geo]] > $screen($geo)} { ! set pos($geo) [expr $screen($geo) - [set $geo]] ! if {$pos($geo) < 0} {set pos($geo) 0} ! lset geometry $i $pos($geo) ! } ! incr i ! } ! set geometry [join $geometry +] ! ! wm geometry $name $geometry canvas $name.c -width $width -height $height -background white \ -yscrollcommand "$name.scrollvert set" \ *************** *** 968,974 **** --- 995,1003 ---- if { $editable == 0 } { $name.m.edit entryconfigure "Edit mode" -indicatoron false } + ############iemlib##################
+ # the put menu menu $name.m.put -tearoff $pd_tearoff *************** *** 1134,1140 **** {pdtk_canvas_click %W %x %y %b 7} } else { ! bind $name.c <Alt-Button> {pdtk_canvas_click %W %x %y %b 4} ! bind $name.c <Alt-Shift-Button> {pdtk_canvas_click %W %x %y %b 5} ! bind $name.c <Alt-Control-Button> {pdtk_canvas_click %W %x %y %b 6} bind $name.c <Alt-Control-Shift-Button> \ {pdtk_canvas_click %W %x %y %b 7} --- 1163,1169 ---- {pdtk_canvas_click %W %x %y %b 7} } else { ! bind $name.c <Alt-Button> {pdtk_canvas_click %W %x %y %b 4} ! bind $name.c <Alt-Shift-Button> {pdtk_canvas_click %W %x %y %b 5} ! bind $name.c <Alt-Control-Button> {pdtk_canvas_click %W %x %y %b 6} bind $name.c <Alt-Control-Shift-Button> \ {pdtk_canvas_click %W %x %y %b 7} *************** *** 1169,1184 **** bind $name.c <KeyRelease> {pdtk_canvas_keyup %W %K %A} bind $name.c <Motion> {pdtk_canvas_motion %W %x %y 0} if {$pd_nt == 2} { bind $name.c <Option-Motion> {pdtk_canvas_motion %W %x %y 4} } else { ! bind $name.c <Alt-Motion> {pdtk_canvas_motion %W %x %y 4} } bind $name.c <Map> {pdtk_canvas_map %W} bind $name.c <Unmap> {pdtk_canvas_unmap %W} focus $name.c # puts stderr "all done" # after 1 [concat raise $name] }
#################### event binding procedures ################
--- 1198,1438 ---- bind $name.c <KeyRelease> {pdtk_canvas_keyup %W %K %A} bind $name.c <Motion> {pdtk_canvas_motion %W %x %y 0} + bind $name.c <Control-Motion> {pdtk_canvas_motion %W %x %y 2} if {$pd_nt == 2} { bind $name.c <Option-Motion> {pdtk_canvas_motion %W %x %y 4} } else { ! bind $name.c <Alt-Motion> {pdtk_canvas_motion %W %x %y 4} } bind $name.c <Map> {pdtk_canvas_map %W} bind $name.c <Unmap> {pdtk_canvas_unmap %W} focus $name.c + + switch $pd_nt { 0 { + bind $name.c <Button-4> "pdtk_canvas_scroll $name.c y -1" + bind $name.c <Button-5> "pdtk_canvas_scroll $name.c y +1" + bind $name.c <Shift-Button-4> "pdtk_canvas_scroll $name.c x -1" + bind $name.c <Shift-Button-5> "pdtk_canvas_scroll $name.c x +1" + } default { + bind $name.c <MouseWheel> \ + "pdtk_canvas_scroll $name.c y [expr -abs(%D)/%D]" + bind $name.c <Shift-MouseWheel> \ + "pdtk_canvas_scroll $name.c x [expr -abs(%D)/%D]" + }} + + catch { + dnd bindtarget $name.c text/uri-list <Drop> \ + "pdtk_canvas_makeobjs $name %D %x %y" + } + # puts stderr "all done" # after 1 [concat raise $name] + global pdtk_canvas_mouseup_name + set pdtk_canvas_mouseup_name "" + } + + #### jsarlo ##### + proc pdtk_array_listview_setpage {arrayName page} { + global pd_array_listview_page + set pd_array_listview_page($arrayName) $page + } + + proc pdtk_array_listview_changepage {arrayName np} { + global pd_array_listview_page + pdtk_array_listview_setpage \ + $arrayName [expr $pd_array_listview_page($arrayName) + $np] + pdtk_array_listview_fillpage $arrayName + } + + proc pdtk_array_listview_fillpage {arrayName} { + global pd_array_listview_page + global pd_array_listview_id + set windowName [format ".%sArrayWindow" $arrayName] + if {[winfo exists $windowName]} { + set cmd "$pd_array_listview_id($arrayName) \ + arrayviewlistfillpage \ + $pd_array_listview_page($arrayName)" + pd [concat $cmd ;] + } + } + + proc pdtk_array_listview_new {id arrayName page} { + global pd_nt + global pd_array_listview_page + global pd_array_listview_id + set pd_array_listview_page($arrayName) $page + set pd_array_listview_id($arrayName) $id + set windowName [format ".%sArrayWindow" $arrayName] + if [winfo exists $windowName] then [destroy $windowName] + toplevel $windowName + wm protocol $windowName WM_DELETE_WINDOW \ + "pdtk_array_listview_close $id $arrayName" + wm title $windowName [concat $arrayName "(list view)"] + # FIXME + set font 12 + set $windowName.lb [listbox $windowName.lb -height 20 -width 25\ + -selectmode extended \ + -relief solid -background white -borderwidth 1 \ + -font [format -*-courier-bold--normal--%d-* \ + $font] \ + -yscrollcommand "$windowName.lb.sb set"] + set $windowName.lb.sb [scrollbar $windowName.lb.sb \ + -command "$windowName.lb yview" -orient vertical] + place configure $windowName.lb.sb -relheight 1 -relx 0.9 -relwidth 0.1 + pack $windowName.lb + bind $windowName.lb <Double-ButtonPress-1> \ + "pdtk_array_listview_edit $arrayName $page $font" + # handle copy/paste + if {$pd_nt == 0} { + selection handle $windowName.lb \ + "pdtk_array_listview_lbselection $arrayName" + } else { + if {$pd_nt == 1} { + bind $windowName.lb <ButtonPress-3> \ + "pdtk_array_listview_popup $arrayName" + } + } + set $windowName.prevBtn [button $windowName.prevBtn -text "<-" \ + -command "pdtk_array_listview_changepage $arrayName -1"] + set $windowName.nextBtn [button $windowName.nextBtn -text "->" \ + -command "pdtk_array_listview_changepage $arrayName 1"] + pack $windowName.prevBtn -side left -ipadx 20 -pady 10 + pack $windowName.nextBtn -side right -ipadx 20 -pady 10 + focus $windowName + } + + proc pdtk_array_listview_lbselection {arrayName off size} { + set windowName [format ".%sArrayWindow" $arrayName] + set itemNums [$windowName.lb curselection] + set cbString "" + for {set i 0} {$i < [expr [llength $itemNums] - 1]} {incr i} { + set listItem [$windowName.lb get [lindex $itemNums $i]] + append cbString [string range $listItem \ + [expr [string first ") " $listItem] + 2] \ + end] + append cbString "\n" + } + set listItem [$windowName.lb get [lindex $itemNums $i]] + append cbString [string range $listItem \ + [expr [string first ") " $listItem] + 2] \ + end] + set last $cbString + } + + # Win32 uses a popup menu for copy/paste + proc pdtk_array_listview_popup {arrayName} { + set windowName [format ".%sArrayWindow" $arrayName] + if [winfo exists $windowName.popup] then [destroy $windowName.popup] + menu $windowName.popup -tearoff false + $windowName.popup add command -label {Copy} \ + -command "pdtk_array_listview_copy $arrayName; \ + destroy $windowName.popup" + $windowName.popup add command -label {Paste} \ + -command "pdtk_array_listview_paste $arrayName; \ + destroy $windowName.popup" + tk_popup $windowName.popup [winfo pointerx $windowName] \ + [winfo pointery $windowName] 0 + } + + proc pdtk_array_listview_copy {arrayName} { + set windowName [format ".%sArrayWindow" $arrayName] + set itemNums [$windowName.lb curselection] + set cbString "" + for {set i 0} {$i < [expr [llength $itemNums] - 1]} {incr i} { + set listItem [$windowName.lb get [lindex $itemNums $i]] + append cbString [string range $listItem \ + [expr [string first ") " $listItem] + 2] \ + end] + append cbString "\n" + } + set listItem [$windowName.lb get [lindex $itemNums $i]] + append cbString [string range $listItem \ + [expr [string first ") " $listItem] + 2] \ + end] + clipboard clear + clipboard append $cbString + } + + proc pdtk_array_listview_paste {arrayName} { + global pd_array_listview_page + global pd_array_listview_pagesize + set cbString [selection get -selection CLIPBOARD] + set lbName [format ".%sArrayWindow.lb" $arrayName] + set itemNum [lindex [$lbName curselection] 0] + set splitChars ", \n" + set itemString [split $cbString $splitChars] + set flag 1 + for {set i 0; set counter 0} {$i < [llength $itemString]} {incr i} { + if {[lindex $itemString $i] != {}} { + pd [concat $arrayName [expr $itemNum + \ + [expr $counter + \ + [expr $pd_array_listview_pagesize \ + * $pd_array_listview_page($arrayName)]]] \ + [lindex $itemString $i] ;] + incr counter + set flag 0 + } + } }
+ proc pdtk_array_listview_edit {arrayName page font} { + global pd_array_listview_entry + global pd_nt + if {$pd_nt == 0} { + set font [expr $font - 2] + } + set lbName [format ".%sArrayWindow.lb" $arrayName] + if {[winfo exists $lbName.entry]} { + pdtk_array_listview_update_entry \ + $arrayName $pd_array_listview_entry($arrayName) + unset pd_array_listview_entry($arrayName) + } + set itemNum [$lbName index active] + set pd_array_listview_entry($arrayName) $itemNum + set bbox [$lbName bbox $itemNum] + set y [expr [lindex $bbox 1] - 4] + set $lbName.entry [entry $lbName.entry \ + -font [format -*-courier-bold--normal--%d-* $font]] + $lbName.entry insert 0 [] + place configure $lbName.entry -relx 0 -y $y -relwidth 1 + lower $lbName.entry + focus $lbName.entry + bind $lbName.entry <Return> \ + "pdtk_array_listview_update_entry $arrayName $itemNum;" + } + + proc pdtk_array_listview_update_entry {arrayName itemNum} { + global pd_array_listview_page + global pd_array_listview_pagesize + set lbName [format ".%sArrayWindow.lb" $arrayName] + set splitChars ", \n" + set itemString [split [$lbName.entry get] $splitChars] + set flag 1 + for {set i 0; set counter 0} {$i < [llength $itemString]} {incr i} { + if {[lindex $itemString $i] != {}} { + pd [concat $arrayName [expr $itemNum + \ + [expr $counter + \ + [expr $pd_array_listview_pagesize \ + * $pd_array_listview_page($arrayName)]]] \ + [lindex $itemString $i] ;] + incr counter + set flag 0 + } + } + pdtk_array_listview_fillpage $arrayName + destroy $lbName.entry + } + + proc pdtk_array_listview_closeWindow {arrayName} { + set windowName [format ".%sArrayWindow" $arrayName] + destroy $windowName + } + + proc pdtk_array_listview_close {id arrayName} { + pdtk_array_listview_closeWindow $arrayName + set cmd [concat $id "arrayviewclose" ;] + pd $cmd + } + ##### end jsarlo ##### + #################### event binding procedures ################
*************** *** 1335,1347 **** if {$key == "s" || $key == "S"} {menu_saveas $topname} if {$key == "z" || $key == "Z"} {menu_redo $topname} ! if {$key == "b" || $key == "B"} {menu_bng $topname 1} ! if {$key == "t" || $key == "T"} {menu_toggle $topname 1} ! if {$key == "n" || $key == "N"} {menu_numbox $topname 1} ! if {$key == "v" || $key == "V"} {menu_vslider $topname 1} ! if {$key == "h" || $key == "H"} {menu_hslider $topname 1} ! if {$key == "i" || $key == "I"} {menu_hradio $topname 1} ! if {$key == "d" || $key == "D"} {menu_vradio $topname 1} ! if {$key == "u" || $key == "U"} {menu_vumeter $topname 1} ! if {$key == "c" || $key == "C"} {menu_mycnv $topname 1} } else { if {$key == "e" || $key == "E"} {menu_editmode $topname} --- 1589,1601 ---- if {$key == "s" || $key == "S"} {menu_saveas $topname} if {$key == "z" || $key == "Z"} {menu_redo $topname} ! if {$key == "b" || $key == "B"} {menu_bng $topname 1} ! if {$key == "t" || $key == "T"} {menu_toggle $topname 1} ! if {$key == "n" || $key == "N"} {menu_numbox $topname 1} ! if {$key == "v" || $key == "V"} {menu_vslider $topname 1} ! if {$key == "h" || $key == "H"} {menu_hslider $topname 1} ! if {$key == "i" || $key == "I"} {menu_hradio $topname 1} ! if {$key == "d" || $key == "D"} {menu_vradio $topname 1} ! if {$key == "u" || $key == "U"} {menu_vumeter $topname 1} ! if {$key == "c" || $key == "C"} {menu_mycnv $topname 1} } else { if {$key == "e" || $key == "E"} {menu_editmode $topname} *************** *** 1349,1368 **** if {$key == "s" || $key == "S"} {menu_save $topname} if {$key == "z" || $key == "Z"} {menu_undo $topname} ! if {$key == "n" || $key == "N"} {menu_new} ! if {$key == "o" || $key == "O"} {menu_open} ! if {$key == "m" || $key == "M"} {menu_send} ! if {$key == "w" || $key == "W"} {menu_close $topname} ! if {$key == "p" || $key == "P"} {menu_print $topname} ! if {$key == "x" || $key == "X"} {menu_cut $topname} ! if {$key == "c" || $key == "C"} {menu_copy $topname} ! if {$key == "v" || $key == "V"} {menu_paste $topname} ! if {$key == "d" || $key == "D"} {menu_duplicate $topname} ! if {$key == "a" || $key == "A"} {menu_selectall $topname} ! if {$key == "t" || $key == "T"} {menu_texteditor $topname} ! if {$key == "f" || $key == "F"} {menu_findobject $topname} ! if {$key == "g" || $key == "G"} {menu_findagain $topname} } }
proc pdtk_canvas_motion {name x y mods} { # puts stderr [concat [canvastosym $name] $name $x $y] --- 1603,1626 ---- if {$key == "s" || $key == "S"} {menu_save $topname} if {$key == "z" || $key == "Z"} {menu_undo $topname} ! if {$key == "n" || $key == "N"} {menu_new} ! if {$key == "o" || $key == "O"} {menu_open} ! if {$key == "m" || $key == "M"} {menu_send} ! if {$key == "w" || $key == "W"} {menu_close $topname} ! if {$key == "p" || $key == "P"} {menu_print $topname} ! if {$key == "x" || $key == "X"} {menu_cut $topname} ! if {$key == "c" || $key == "C"} {menu_copy $topname} ! if {$key == "v" || $key == "V"} {menu_paste $topname} ! if {$key == "d" || $key == "D"} {menu_duplicate $topname} ! if {$key == "a" || $key == "A"} {menu_selectall $topname} ! if {$key == "t" || $key == "T"} {menu_texteditor $topname} ! if {$key == "f" || $key == "F"} {menu_findobject $topname} ! if {$key == "g" || $key == "G"} {menu_findagain $topname} } }
+ proc pdtk_canvas_scroll {canvas xy distance} { + $canvas [list $xy]view scroll $distance units + } + proc pdtk_canvas_motion {name x y mods} { # puts stderr [concat [canvastosym $name] $name $x $y] *************** *** 1383,1386 **** --- 1641,1654 ---- }
+ proc pdtk_canvas_makeobjs {name files x y} { + set c 0 + for {set n 0} {$n < [llength $files]} {incr n} { + if {[regexp {.*/(.+).pd$} [lindex $files $n] file obj] == 1} { + pd $name obj $x [expr $y + ($c * 30)] [pdtk_enquote $obj] ; + incr c + } + } + } + set saveas_dir nowhere
*************** *** 1527,1531 **** } } ! pdtk_unspace $ret } --- 1795,1799 ---- } } ! concat $ret } *************** *** 2608,2611 **** --- 2876,2885 ---- }
+ # jsarlo + proc array_viewlist {id name page} { + pd [concat $id arrayviewlistnew;] + } + # end jsarlo + proc array_cancel {id} { set cmd [concat $id cancel ;] *************** *** 2662,2671 **** radiobutton $id.drawasrects.drawasrects0 -value 0 \ -variable $var_array_drawasrects \ ! -text "draw as polygon" radiobutton $id.drawasrects.drawasrects1 -value 1 \ -variable $var_array_drawasrects \ ! -text "draw as points" pack $id.drawasrects.drawasrects0 -side top -anchor w pack $id.drawasrects.drawasrects1 -side top -anchor w
if {$newone != 0} { --- 2936,2949 ---- radiobutton $id.drawasrects.drawasrects0 -value 0 \ -variable $var_array_drawasrects \ ! -text "draw as points" radiobutton $id.drawasrects.drawasrects1 -value 1 \ -variable $var_array_drawasrects \ ! -text "polygon" ! radiobutton $id.drawasrects.drawasrects2 -value 2 \ ! -variable $var_array_drawasrects \ ! -text "bezier curve" pack $id.drawasrects.drawasrects0 -side top -anchor w pack $id.drawasrects.drawasrects1 -side top -anchor w + pack $id.drawasrects.drawasrects2 -side top -anchor w
if {$newone != 0} { *************** *** 2685,2688 **** --- 2963,2973 ---- pack $id.deleteme -side top } + # jsarlo + if {$newone == 0} { + button $id.listview -text {View list}\ + -command "array_viewlist $id $name 0" + pack $id.listview -side left + } + # end jsarlo frame $id.buttonframe pack $id.buttonframe -side bottom -fill x -pady 2m *************** *** 2913,2917 **** # tb: user defined typefaces proc pdtk_pd_startup {version apilist fontname} { ! puts stderr [concat $version $apilist $fontname] global pd_myversion pd_apilist set pd_myversion $version --- 3198,3202 ---- # tb: user defined typefaces proc pdtk_pd_startup {version apilist fontname} { ! # puts stderr [concat $version $apilist $fontname] global pd_myversion pd_apilist set pd_myversion $version *************** *** 3495,3499 **** set midi_alsain [llength $indevlist] set midi_alsaout [llength $outdevlist] ! toplevel $id wm title $id {midi} --- 3780,3784 ---- set midi_alsain [llength $indevlist] set midi_alsaout [llength $outdevlist] ! toplevel $id wm title $id {midi} *************** *** 3511,3515 **** pack $id.buttonframe.apply -side left -expand 1 pack $id.buttonframe.ok -side left -expand 1 ! frame $id.in1f pack $id.in1f -side top --- 3796,3801 ---- pack $id.buttonframe.apply -side left -expand 1 pack $id.buttonframe.ok -side left -expand 1 ! ! # input device 1 frame $id.in1f pack $id.in1f -side top *************** *** 3607,3611 **** pack $id.longbutton.b } ! } if {$alsa} { label $id.in1f.l1 -text "In Channels:" --- 3893,3897 ---- pack $id.longbutton.b } ! } if {$alsa} { label $id.in1f.l1 -text "In Channels:"
-
Tim Blechmann