puredata-gui 0.48.1-3 / usr / lib / puredata / tcl / dialog_midi.tcl

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
# very unreadable


####################### midi dialog ##################

proc ::dialog_midi::apply {mytoplevel} {
    global midi_indev1 midi_indev2 midi_indev3 midi_indev4 midi_indev5 \
        midi_indev6 midi_indev7 midi_indev8 midi_indev9
    global midi_outdev1 midi_outdev2 midi_outdev3 midi_outdev4 midi_outdev5 \
        midi_outdev6 midi_outdev7 midi_outdev8 midi_outdev9
    global midi_alsain midi_alsaout

    pdsend "pd midi-dialog \
        $midi_indev1 \
        $midi_indev2 \
        $midi_indev3 \
        $midi_indev4 \
        $midi_indev5 \
        $midi_indev6 \
        $midi_indev7 \
        $midi_indev8 \
        $midi_indev9 \
        $midi_outdev1 \
        $midi_outdev2 \
        $midi_outdev3 \
        $midi_outdev4 \
        $midi_outdev5 \
        $midi_outdev6 \
        $midi_outdev7 \
        $midi_outdev8 \
        $midi_outdev9 \
        $midi_alsain \
        $midi_alsaout"
}

proc ::dialog_midi::cancel {mytoplevel} {
    pdsend "$mytoplevel cancel"
}

proc ::dialog_midi::ok {mytoplevel} {
    ::dialog_midi::apply $mytoplevel
    ::dialog_midi::cancel $mytoplevel
}

# callback from popup menu
proc midi_popup_action {buttonname varname devlist index} {
    global midi_indevlist midi_outdevlist $varname
    $buttonname configure -text [lindex $devlist $index]
    set $varname $index
}

# create a popup menu
proc midi_popup {name buttonname varname devlist} {
    if [winfo exists $name.popup] {destroy $name.popup}
    menu $name.popup -tearoff false
    if {$::windowingsystem eq "win32"} {
        $name.popup configure -font menuFont
    }
    #puts stderr [concat $devlist ]
    for {set x 0} {$x<[llength $devlist]} {incr x} {
        $name.popup add command -label [lindex $devlist $x] \
            -command [list midi_popup_action \
                $buttonname $varname $devlist $x]
    }
    # open popup over source button
    set x [expr [winfo rootx $buttonname] + ( [winfo width $buttonname] / 2 )]
    set y [expr [winfo rooty $buttonname] + ( [winfo height $buttonname] / 2 )]
    tk_popup $name.popup $x $y 0
}

# start a dialog window to select midi devices.  "longform" asks us to make
# controls for opening several devices; if not, we get an extra button to
# turn longform on and restart the dialog.
proc ::dialog_midi::pdtk_midi_dialog {id \
      indev1 indev2 indev3 indev4 indev5 indev6 indev7 indev8 indev9 \
      outdev1 outdev2 outdev3 outdev4 outdev5 outdev6 outdev7 outdev8 outdev9 \
      longform} {
    global midi_indev1 midi_indev2 midi_indev3 midi_indev4 midi_indev5 \
         midi_indev6 midi_indev7 midi_indev8 midi_indev9
    global midi_outdev1 midi_outdev2 midi_outdev3 midi_outdev4 midi_outdev5 \
         midi_outdev6 midi_outdev7 midi_outdev8 midi_outdev9
    global midi_indevlist midi_outdevlist
    global midi_alsain midi_alsaout

    set midi_indev1 $indev1
    set midi_indev2 $indev2
    set midi_indev3 $indev3
    set midi_indev4 $indev4
    set midi_indev5 $indev5
    set midi_indev6 $indev6
    set midi_indev7 $indev7
    set midi_indev8 $indev8
    set midi_indev9 $indev9
    set midi_outdev1 $outdev1
    set midi_outdev2 $outdev2
    set midi_outdev3 $outdev3
    set midi_outdev4 $outdev4
    set midi_outdev5 $outdev5
    set midi_outdev6 $outdev6
    set midi_outdev7 $outdev7
    set midi_outdev8 $outdev8
    set midi_outdev9 $outdev9
    set midi_alsain [llength $midi_indevlist]
    set midi_alsaout [llength $midi_outdevlist]

    toplevel $id -class DialogWindow
    wm title $id [_ "MIDI Settings"]
    wm group $id .
    wm resizable $id 0 0
    wm transient $id
    wm minsize $id 240 260
    $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}

    # input devices
    labelframe $id.inputs -text [_ "Input Devices"] -padx 5 -pady 5 -borderwidth 1
    pack $id.inputs -side top -fill x -pady 5

    # input device 1
    frame $id.inputs.in1f
    pack $id.inputs.in1f -side top -fill x
    label $id.inputs.in1f.l1 -text "1:"
    button $id.inputs.in1f.x1 -text [lindex $midi_indevlist $midi_indev1] \
        -command [list midi_popup $id $id.inputs.in1f.x1 midi_indev1 $midi_indevlist]
    pack $id.inputs.in1f.l1 -side left
    pack $id.inputs.in1f.x1 -side left -fill x -expand 1

    # input device 2
    if {$longform && [llength $midi_indevlist] > 2} {
        frame $id.inputs.in2f
        pack $id.inputs.in2f -side top -fill x
        label $id.inputs.in2f.l1 -text "2:"
        button $id.inputs.in2f.x1 -text [lindex $midi_indevlist $midi_indev2] \
            -command [list midi_popup $id $id.inputs.in2f.x1 midi_indev2 \
                $midi_indevlist]
        pack $id.inputs.in2f.l1 -side left
        pack $id.inputs.in2f.x1 -side left -fill x -expand 1
    }

    # input device 3
    if {$longform && [llength $midi_indevlist] > 3} {
        frame $id.inputs.in3f
        pack $id.inputs.in3f -side top -fill x
        label $id.inputs.in3f.l1 -text "3:"
        button $id.inputs.in3f.x1 -text [lindex $midi_indevlist $midi_indev3] \
            -command [list midi_popup $id $id.inputs.in3f.x1 midi_indev3 \
                $midi_indevlist]
        pack $id.inputs.in3f.l1 -side left
        pack $id.inputs.in3f.x1 -side left -fill x -expand 1
    }

    # input device 4
    if {$longform && [llength $midi_indevlist] > 4} {
        frame $id.inputs.in4f
        pack $id.inputs.in4f -side top -fill x
        label $id.inputs.in4f.l1 -text "4:"
        button $id.inputs.in4f.x1 -text [lindex $midi_indevlist $midi_indev4] \
            -command [list midi_popup $id $id.inputs.in4f.x1 midi_indev4 \
                $midi_indevlist]
        pack $id.inputs.in4f.l1 -side left
        pack $id.inputs.in4f.x1 -side left -fill x -expand 1
    }

    # input device 5
    if {$longform && [llength $midi_indevlist] > 5} {
        frame $id.inputs.in5f
        pack $id.inputs.in5f -side top -fill x
        label $id.inputs.in5f.l1 -text "5:"
        button $id.inputs.in5f.x1 -text [lindex $midi_indevlist $midi_indev5] \
            -command [list midi_popup $id $id.inputs.in5f.x1 midi_indev5 \
                $midi_indevlist]
        pack $id.inputs.in5f.l1 -side left
        pack $id.inputs.in5f.x1 -side left -fill x -expand 1
    }

    # input device 6
    if {$longform && [llength $midi_indevlist] > 6} {
        frame $id.inputs.in6f
        pack $id.inputs.in6f -side top -fill x
        label $id.inputs.in6f.l1 -text "6:"
        button $id.inputs.in6f.x1 -text [lindex $midi_indevlist $midi_indev6] \
            -command [list midi_popup $id $id.inputs.in6f.x1 midi_indev6 \
                $midi_indevlist]
        pack $id.inputs.in6f.l1 -side left
        pack $id.inputs.in6f.x1 -side left -fill x -expand 1
    }

    # input device 7
    if {$longform && [llength $midi_indevlist] > 7} {
        frame $id.inputs.in7f
        pack $id.inputs.in7f -side top -fill x
        label $id.inputs.in7f.l1 -text "7:"
        button $id.inputs.in7f.x1 -text [lindex $midi_indevlist $midi_indev7] \
            -command [list midi_popup $id $id.inputs.in7f.x1 midi_indev7 \
                $midi_indevlist]
        pack $id.inputs.in7f.l1 -side left
        pack $id.inputs.in7f.x1 -side left -fill x -expand 1
    }

    # input device 8
    if {$longform && [llength $midi_indevlist] > 8} {
        frame $id.inputs.in8f
        pack $id.inputs.in8f -side top -fill x
        label $id.inputs.in8f.l1 -text "8:"
        button $id.inputs.in8f.x1 -text [lindex $midi_indevlist $midi_indev8] \
            -command [list midi_popup $id $id.inputs.in8f.x1 midi_indev8 \
                $midi_indevlist]
        pack $id.inputs.in8f.l1 -side left
        pack $id.inputs.in8f.x1 -side left -fill x -expand 1
    }

    # input device 9
    if {$longform && [llength $midi_indevlist] > 9} {
        frame $id.inputs.in9f
        pack $id.inputs.in9f -side top -fill x
        label $id.inputs.in9f.l1 -text "9:"
        button $id.inputs.in9f.x1 -text [lindex $midi_indevlist $midi_indev9] \
            -command [list midi_popup $id $id.inputs.in9f.x1 midi_indev9 \
                $midi_indevlist]
        pack $id.inputs.in9f.l1 -side left
        pack $id.inputs.in9f.x1 -side left -fill x -expand 1
    }

    # output devices
    labelframe $id.outputs -text [_ "Output Devices"] -padx 5 -pady 5 -borderwidth 1
    pack $id.outputs -side top -fill x -pady 5

    # output device 1
    frame $id.outputs.out1f
    pack $id.outputs.out1f -side top -fill x
    label $id.outputs.out1f.l1 -text "1:"
    button $id.outputs.out1f.x1 -text [lindex $midi_outdevlist $midi_outdev1] \
        -command [list midi_popup $id $id.outputs.out1f.x1 midi_outdev1 \
            $midi_outdevlist]
    pack $id.outputs.out1f.l1 -side left
    pack $id.outputs.out1f.x1 -side left -fill x -expand 1

    # output device 2
    if {$longform && [llength $midi_outdevlist] > 2} {
        frame $id.outputs.out2f
        pack $id.outputs.out2f -side top -fill x
        label $id.outputs.out2f.l1 -text "2:"
        button $id.outputs.out2f.x1 -text [lindex $midi_outdevlist $midi_outdev2] \
            -command \
            [list midi_popup $id $id.outputs.out2f.x1 midi_outdev2 $midi_outdevlist]
        pack $id.outputs.out2f.l1 -side left
        pack $id.outputs.out2f.x1 -side left -fill x -expand 1
    }

    # output device 3
    if {$longform && [llength $midi_outdevlist] > 3} {
        frame $id.outputs.out3f
        pack $id.outputs.out3f -side top -fill x
        label $id.outputs.out3f.l1 -text "3:"
        button $id.outputs.out3f.x1 -text [lindex $midi_outdevlist $midi_outdev3] \
            -command \
            [list midi_popup $id $id.outputs.out3f.x1 midi_outdev3 $midi_outdevlist]
        pack $id.outputs.out3f.l1 -side left
        pack $id.outputs.out3f.x1 -side left -fill x -expand 1
    }

    # output device 4
    if {$longform && [llength $midi_outdevlist] > 4} {
        frame $id.outputs.out4f
        pack $id.outputs.out4f -side top -fill x
        label $id.outputs.out4f.l1 -text "4:"
        button $id.outputs.out4f.x1 -text [lindex $midi_outdevlist $midi_outdev4] \
            -command \
            [list midi_popup $id $id.outputs.out4f.x1 midi_outdev4 $midi_outdevlist]
        pack $id.outputs.out4f.l1 -side left
        pack $id.outputs.out4f.x1 -side left -fill x -expand 1
    }

    # output device 5
    if {$longform && [llength $midi_outdevlist] > 5} {
        frame $id.outputs.out5f
        pack $id.outputs.out5f -side top -fill x
        label $id.outputs.out5f.l1 -text "5:"
        button $id.outputs.out5f.x1 -text [lindex $midi_outdevlist $midi_outdev5] \
            -command \
            [list midi_popup $id $id.outputs.out5f.x1 midi_outdev5 $midi_outdevlist]
        pack $id.outputs.out5f.l1 -side left
        pack $id.outputs.out5f.x1 -side left -fill x -expand 1
    }

    # output device 6
    if {$longform && [llength $midi_outdevlist] > 6} {
        frame $id.outputs.out6f
        pack $id.outputs.out6f -side top -fill x
        label $id.outputs.out6f.l1 -text "6:"
        button $id.outputs.out6f.x1 -text [lindex $midi_outdevlist $midi_outdev6] \
            -command \
            [list midi_popup $id $id.outputs.out6f.x1 midi_outdev6 $midi_outdevlist]
        pack $id.outputs.out6f.l1 -side left
        pack $id.outputs.out6f.x1 -side left -fill x -expand 1
    }

    # output device 7
    if {$longform && [llength $midi_outdevlist] > 7} {
        frame $id.outputs.out7f
        pack $id.outputs.out7f -side top -fill x
        label $id.outputs.out7f.l1 -text "7:"
        button $id.outputs.out7f.x1 -text [lindex $midi_outdevlist $midi_outdev7] \
            -command \
            [list midi_popup $id $id.outputs.out7f.x1 midi_outdev7 $midi_outdevlist]
        pack $id.outputs.out7f.l1 -side left
        pack $id.outputs.out7f.x1 -side left -fill x -expand 1
    }

    # output device 8
    if {$longform && [llength $midi_outdevlist] > 8} {
        frame $id.outputs.out8f
        pack $id.outputs.out8f -side top -fill x
        label $id.outputs.out8f.l1 -text "8:"
        button $id.outputs.out8f.x1 -text [lindex $midi_outdevlist $midi_outdev8] \
            -command \
            [list midi_popup $id $id.outputs.out8f.x1 midi_outdev8 $midi_outdevlist]
        pack $id.outputs.out8f.l1 -side left
        pack $id.outputs.out8f.x1 -side left -fill x -expand 1
    }

    # output device 9
    if {$longform && [llength $midi_outdevlist] > 9} {
        frame $id.outputs.out9f
        pack $id.outputs.out9f -side top -fill x
        label $id.outputs.out9f.l1 -text "9:"
        button $id.outputs.out9f.x1 -text [lindex $midi_outdevlist $midi_outdev9] \
            -command \
            [list midi_popup $id $id.outputs.out9f.x1 midi_outdev9 $midi_outdevlist]
        pack $id.outputs.out9f.l1 -side left
        pack $id.outputs.out9f.x1 -side left -fill x -expand 1
    }

    # if not the "long form" make a button to
    # restart with longform set.
    if {$longform == 0} {
        frame $id.longbutton
        pack $id.longbutton -side top -fill x
        button $id.longbutton.b -text [_ "Use Multiple Devices"] \
            -command  {pdsend "pd midi-properties 1"}
        pack $id.longbutton.b -expand 1 -ipadx 10 -pady 5
    }

    # save all settings button
    button $id.saveall -text [_ "Save All Settings"] \
        -command "::dialog_midi::apply $id; pdsend \"pd save-preferences\""
    pack $id.saveall -side top -expand 1 -ipadx 10 -pady 5

    # buttons
    frame $id.buttonframe
    pack $id.buttonframe -side top -after $id.saveall -pady 2m
    button $id.buttonframe.cancel -text [_ "Cancel"] \
        -command "::dialog_midi::cancel $id"
    pack $id.buttonframe.cancel -side left -expand 1 -fill x -padx 15 -ipadx 10
    if {$::windowingsystem ne "aqua"} {
        button $id.buttonframe.apply -text [_ "Apply"] \
            -command "::dialog_midi::apply $id"
        pack $id.buttonframe.apply -side left -expand 1 -fill x -padx 15 -ipadx 10
    }
    button $id.buttonframe.ok -text [_ "OK"] \
        -command "::dialog_midi::ok $id" -default active
    pack $id.buttonframe.ok -side left -expand 1 -fill x -padx 15 -ipadx 10

    # set focus
    focus $id.buttonframe.ok

    # for focus handling on OSX
    if {$::windowingsystem eq "aqua"} {

        # remove cancel button from focus list since it's not activated on Return
        $id.buttonframe.cancel config -takefocus 0

        # show active focus on multiple device button
        if {[winfo exists $id.longbutton.b]} {
            bind $id.longbutton.b <KeyPress-Return> "$id.longbutton.b invoke"
            bind $id.longbutton.b <FocusIn> "::dialog_midi::unbind_return $id; $id.longbutton.b config -default active"
            bind $id.longbutton.b <FocusOut> "::dialog_midi::rebind_return $id; $id.longbutton.b config -default normal"
        }

        # show active focus on save settings button
        bind $id.saveall <KeyPress-Return> "$id.saveall invoke"
        bind $id.saveall <FocusIn> "::dialog_midi::unbind_return $id; $id.saveall config -default active"
        bind $id.saveall <FocusOut> "::dialog_midi::rebind_return $id; $id.saveall config -default normal"

        # show active focus on the ok button as it *is* activated on Return
        $id.buttonframe.ok config -default normal
        bind $id.buttonframe.ok <FocusIn> "$id.buttonframe.ok config -default active"
        bind $id.buttonframe.ok <FocusOut> "$id.buttonframe.ok config -default normal"

        # since we show the active focus, disable the highlight outline
        if {[winfo exists $id.longbutton.b]} {
            $id.longbutton.b config -highlightthickness 0
        }
        $id.saveall config -highlightthickness 0
        $id.buttonframe.ok config -highlightthickness 0
        $id.buttonframe.cancel config -highlightthickness 0
    }

    # set min size based on widget sizing & pos over pdwindow
    wm minsize $id [winfo reqwidth $id] [winfo reqheight $id]
    position_over_window $id .pdwindow

    # wait a little for creation, then raise so it's on top
    after 100 raise "$id"
}

proc ::dialog_midi::pdtk_alsa_midi_dialog {id indev1 indev2 indev3 indev4 \
        outdev1 outdev2 outdev3 outdev4 longform alsa} {

    global midi_indev1 midi_indev2 midi_indev3 midi_indev4 midi_indev5 \
         midi_indev6 midi_indev7 midi_indev8 midi_indev9
    global midi_outdev1 midi_outdev2 midi_outdev3 midi_outdev4 midi_outdev5 \
         midi_outdev6 midi_outdev7 midi_outdev8 midi_outdev9
    global midi_indevlist midi_outdevlist
    global midi_alsain midi_alsaout

    set midi_indev1 $indev1
    set midi_indev2 $indev2
    set midi_indev3 $indev3
    set midi_indev4 $indev4
    set midi_indev5 0
    set midi_indev6 0
    set midi_indev7 0
    set midi_indev8 0
    set midi_indev9 0
    set midi_outdev1 $outdev1
    set midi_outdev2 $outdev2
    set midi_outdev3 $outdev3
    set midi_outdev4 $outdev4
    set midi_outdev5 0
    set midi_outdev6 0
    set midi_outdev7 0
    set midi_outdev8 0
    set midi_outdev9 0
    set midi_alsain [expr [llength $midi_indevlist] - 1]
    set midi_alsaout [expr [llength $midi_outdevlist] - 1]

    toplevel $id -class DialogWindow
    wm title $id [_ "ALSA MIDI Settings"]
    wm resizable $id 0 0
    wm transient $id
    $id configure -padx 10 -pady 5
    if {$::windowingsystem eq "aqua"} {$id configure -menu .menubar}
    ::pd_bindings::dialog_bindings $id "midi"

    frame $id.in1f
    pack $id.in1f -side top

    if {$alsa} {
        label $id.in1f.l1 -text [_ "In Ports:"]
        entry $id.in1f.x1 -textvariable midi_alsain -width 4
        pack $id.in1f.l1 $id.in1f.x1 -side left
        label $id.in1f.l2 -text [_ "Out Ports:"]
        entry $id.in1f.x2 -textvariable midi_alsaout -width 4
        pack $id.in1f.l2 $id.in1f.x2 -side left
    }

    # save all settings button
    button $id.saveall -text [_ "Save All Settings"] \
        -command "::dialog_midi::apply $id; pdsend \"pd save-preferences\""
    pack $id.saveall -side top -expand 1 -ipadx 10 -pady 5

    # buttons
    frame $id.buttonframe
    pack $id.buttonframe -side top -after $id.saveall -pady 2m
    button $id.buttonframe.cancel -text [_ "Cancel"]\
        -command "::dialog_midi::cancel $id"
    button $id.buttonframe.apply -text [_ "Apply"]\
        -command "::dialog_midi::apply $id"
    button $id.buttonframe.ok -text [_ "OK"]\
        -command "::dialog_midi::ok $id" -default active
    pack $id.buttonframe.cancel -side left -expand 1 -fill x -padx 15 -ipadx 10
    pack $id.buttonframe.apply -side left -expand 1 -fill x -padx 15 -ipadx 10
    pack $id.buttonframe.ok -side left -expand 1 -fill x -padx 15 -ipadx 10

    # set min size based on widget sizing & pos over pdwindow
    wm minsize $id [winfo reqwidth $id] [winfo reqheight $id]
    position_over_window $id .pdwindow

    # wait a little for creation, then raise so it's on top
    after 100 raise "$id"
}

# for focus handling on OSX
proc ::dialog_midi::rebind_return {mytoplevel} {
    bind $mytoplevel <KeyPress-Return> "::dialog_midi::ok $mytoplevel"
    focus $mytoplevel.buttonframe.ok
    return 0
}

# for focus handling on OSX
proc ::dialog_midi::unbind_return {mytoplevel} {
    bind $mytoplevel <KeyPress-Return> break
    return 1
}