diff options
Diffstat (limited to 'pd/tcl/dialog_midi.tcl')
| -rw-r--r-- | pd/tcl/dialog_midi.tcl | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/pd/tcl/dialog_midi.tcl b/pd/tcl/dialog_midi.tcl index d8554665..450d2938 100644 --- a/pd/tcl/dialog_midi.tcl +++ b/pd/tcl/dialog_midi.tcl @@ -2,6 +2,7 @@ package provide dialog_midi 0.1 namespace eval ::dialog_midi:: { namespace export pdtk_midi_dialog + namespace export pdtk_alsa_midi_dialog } # TODO this panel really needs some reworking, it works but the code is @@ -81,10 +82,16 @@ proc ::dialog_midi::pdtk_midi_dialog {id indev1 indev2 indev3 indev4 \ set midi_alsain [llength $midi_indevlist] set midi_alsaout [llength $midi_outdevlist] - toplevel $id + toplevel $id -class DialogWindow wm title $id [_ "MIDI Settings"] - if {$::windowingsystem eq "aqua"} {$id configure -menu .menubar} + wm group $id . + wm resizable $id 0 0 + wm transient $id + $id configure -menu $::dialog_menubar + $id configure -padx 10 -pady 5 ::pd_bindings::dialog_bindings $id "midi" + # not all Tcl/Tk versions or platforms support -topmost, so catch the error + catch {wm attributes $id -topmost 1} frame $id.buttonframe pack $id.buttonframe -side bottom -fill x -pady 2m @@ -165,7 +172,7 @@ proc ::dialog_midi::pdtk_midi_dialog {id indev1 indev2 indev3 indev4 \ } # output device 3 - if {$longform && [llength $midi_midi_outdevlist] > 3} { + if {$longform && [llength $midi_outdevlist] > 3} { frame $id.out3f pack $id.out3f -side top label $id.out3f.l1 -text [_ "Output device 3:"] @@ -176,7 +183,7 @@ proc ::dialog_midi::pdtk_midi_dialog {id indev1 indev2 indev3 indev4 \ } # output device 4 - if {$longform && [llength $midi_midi_outdevlist] > 4} { + if {$longform && [llength $midi_outdevlist] > 4} { frame $id.out4f pack $id.out4f -side top label $id.out4f.l1 -text [_ "Output device 4:"] |