From 21c068f1916330e90f814bed461fe0821d1665ec Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Sun, 9 Oct 2011 16:36:37 +0000
Subject: checked in pd-0.43-0.src.tar.gz

svn path=/trunk/; revision=15557
---
 pd/tcl/dialog_midi.tcl | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

(limited to 'pd/tcl/dialog_midi.tcl')

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:"]
-- 
cgit v1.2.1