e85d191b46
- merge v0.01 --> Añadido fileselector - Añadidas fuentes de Gem y Pure Data - pix2jpg incluído en Gem. Archivos de construcción de Gem modificados. - Añadido fichero ompiling.txt con instrucciones de compilación
351 lines
12 KiB
Tcl
351 lines
12 KiB
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
|
|
global midi_outdev1 midi_outdev2 midi_outdev3 midi_outdev4
|
|
global midi_alsain midi_alsaout
|
|
|
|
pdsend "pd midi-dialog \
|
|
$midi_indev1 \
|
|
$midi_indev2 \
|
|
$midi_indev3 \
|
|
$midi_indev4 \
|
|
$midi_outdev1 \
|
|
$midi_outdev2 \
|
|
$midi_outdev3 \
|
|
$midi_outdev4 \
|
|
$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]
|
|
}
|
|
tk_popup $name.popup [winfo pointerx $name] [winfo pointery $name] 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 \
|
|
outdev1 outdev2 outdev3 outdev4 longform} {
|
|
global midi_indev1 midi_indev2 midi_indev3 midi_indev4
|
|
global midi_outdev1 midi_outdev2 midi_outdev3 midi_outdev4
|
|
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_outdev1 $outdev1
|
|
set midi_outdev2 $outdev2
|
|
set midi_outdev3 $outdev3
|
|
set midi_outdev4 $outdev4
|
|
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
|
|
$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
|
|
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"
|
|
pack $id.buttonframe.cancel -side left -expand 1
|
|
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
|
|
|
|
label $id.in1f.l1 -text [_ "Input device 1:"]
|
|
button $id.in1f.x1 -text [lindex $midi_indevlist $midi_indev1] \
|
|
-command [list midi_popup $id $id.in1f.x1 midi_indev1 $midi_indevlist]
|
|
pack $id.in1f.l1 $id.in1f.x1 -side left
|
|
|
|
# input device 2
|
|
if {$longform && [llength $midi_indevlist] > 2} {
|
|
frame $id.in2f
|
|
pack $id.in2f -side top
|
|
|
|
label $id.in2f.l1 -text [_ "Input device 2:"]
|
|
button $id.in2f.x1 -text [lindex $midi_indevlist $midi_indev2] \
|
|
-command [list midi_popup $id $id.in2f.x1 midi_indev2 \
|
|
$midi_indevlist]
|
|
pack $id.in2f.l1 $id.in2f.x1 -side left
|
|
}
|
|
|
|
# input device 3
|
|
if {$longform && [llength $midi_indevlist] > 3} {
|
|
frame $id.in3f
|
|
pack $id.in3f -side top
|
|
|
|
label $id.in3f.l1 -text [_ "Input device 3:"]
|
|
button $id.in3f.x1 -text [lindex $midi_indevlist $midi_indev3] \
|
|
-command [list midi_popup $id $id.in3f.x1 midi_indev3 \
|
|
$midi_indevlist]
|
|
pack $id.in3f.l1 $id.in3f.x1 -side left
|
|
}
|
|
|
|
# input device 4
|
|
if {$longform && [llength $midi_indevlist] > 4} {
|
|
frame $id.in4f
|
|
pack $id.in4f -side top
|
|
|
|
label $id.in4f.l1 -text [_ "Input device 4:"]
|
|
button $id.in4f.x1 -text [lindex $midi_indevlist $midi_indev4] \
|
|
-command [list midi_popup $id $id.in4f.x1 midi_indev4 \
|
|
$midi_indevlist]
|
|
pack $id.in4f.l1 $id.in4f.x1 -side left
|
|
}
|
|
|
|
# output device 1
|
|
|
|
frame $id.out1f
|
|
pack $id.out1f -side top
|
|
label $id.out1f.l1 -text [_ "Output device 1:"]
|
|
button $id.out1f.x1 -text [lindex $midi_outdevlist $midi_outdev1] \
|
|
-command [list midi_popup $id $id.out1f.x1 midi_outdev1 \
|
|
$midi_outdevlist]
|
|
pack $id.out1f.l1 $id.out1f.x1 -side left
|
|
|
|
# output device 2
|
|
if {$longform && [llength $midi_outdevlist] > 2} {
|
|
frame $id.out2f
|
|
pack $id.out2f -side top
|
|
label $id.out2f.l1 -text [_ "Output device 2:"]
|
|
button $id.out2f.x1 -text [lindex $midi_outdevlist $midi_outdev2] \
|
|
-command \
|
|
[list midi_popup $id $id.out2f.x1 midi_outdev2 $midi_outdevlist]
|
|
pack $id.out2f.l1 $id.out2f.x1 -side left
|
|
}
|
|
|
|
# output device 3
|
|
if {$longform && [llength $midi_outdevlist] > 3} {
|
|
frame $id.out3f
|
|
pack $id.out3f -side top
|
|
label $id.out3f.l1 -text [_ "Output device 3:"]
|
|
button $id.out3f.x1 -text [lindex $midi_outdevlist $midi_outdev3] \
|
|
-command \
|
|
[list midi_popup $id $id.out3f.x1 midi_outdev3 $midi_outdevlist]
|
|
pack $id.out3f.l1 $id.out3f.x1 -side left
|
|
}
|
|
|
|
# output device 4
|
|
if {$longform && [llength $midi_outdevlist] > 4} {
|
|
frame $id.out4f
|
|
pack $id.out4f -side top
|
|
label $id.out4f.l1 -text [_ "Output device 4:"]
|
|
button $id.out4f.x1 -text [lindex $midi_outdevlist $midi_outdev4] \
|
|
-command \
|
|
[list midi_popup $id $id.out4f.x1 midi_outdev4 $midi_outdevlist]
|
|
pack $id.out4f.l1 $id.out4f.x1 -side left
|
|
}
|
|
|
|
# if not the "long form" make a button to
|
|
# restart with longform set.
|
|
|
|
if {$longform == 0} {
|
|
frame $id.longbutton
|
|
pack $id.longbutton -side top
|
|
button $id.longbutton.b -text [_ "Use multiple devices"] \
|
|
-command {pdsend "pd midi-properties 1"}
|
|
pack $id.longbutton.b
|
|
}
|
|
}
|
|
|
|
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
|
|
global midi_outdev1 midi_outdev2 midi_outdev3 midi_outdev4
|
|
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_outdev1 $outdev1
|
|
set midi_outdev2 $outdev2
|
|
set midi_outdev3 $outdev3
|
|
set midi_outdev4 $outdev4
|
|
set midi_alsain [llength $midi_indevlist]
|
|
set midi_alsaout [llength $midi_outdevlist]
|
|
|
|
toplevel $id
|
|
wm title $id [_ "ALSA MIDI Settings"]
|
|
if {$::windowingsystem eq "aqua"} {$id configure -menu .menubar}
|
|
::pd_bindings::dialog_bindings $id "midi"
|
|
|
|
frame $id.buttonframe
|
|
pack $id.buttonframe -side bottom -fill x -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"
|
|
pack $id.buttonframe.cancel -side left -expand 1
|
|
pack $id.buttonframe.apply -side left -expand 1
|
|
pack $id.buttonframe.ok -side left -expand 1
|
|
|
|
frame $id.in1f
|
|
pack $id.in1f -side top
|
|
|
|
if {$alsa == 0} {
|
|
# input device 1
|
|
label $id.in1f.l1 -text [_ "Input device 1:"]
|
|
button $id.in1f.x1 -text [lindex $midi_indevlist $midi_indev1] \
|
|
-command [list midi_popup $id $id.in1f.x1 midi_indev1 $midi_indevlist]
|
|
pack $id.in1f.l1 $id.in1f.x1 -side left
|
|
|
|
# input device 2
|
|
if {$longform && [llength $midi_indevlist] > 2} {
|
|
frame $id.in2f
|
|
pack $id.in2f -side top
|
|
|
|
label $id.in2f.l1 -text [_ "Input device 2:"]
|
|
button $id.in2f.x1 -text [lindex $midi_indevlist $midi_indev2] \
|
|
-command [list midi_popup $id $id.in2f.x1 midi_indev2 \
|
|
$midi_indevlist]
|
|
pack $id.in2f.l1 $id.in2f.x1 -side left
|
|
}
|
|
|
|
# input device 3
|
|
if {$longform && [llength $midi_indevlist] > 3} {
|
|
frame $id.in3f
|
|
pack $id.in3f -side top
|
|
|
|
label $id.in3f.l1 -text [_ "Input device 3:"]
|
|
button $id.in3f.x1 -text [lindex $midi_indevlist $midi_indev3] \
|
|
-command [list midi_popup $id $id.in3f.x1 midi_indev3 \
|
|
$midi_indevlist]
|
|
pack $id.in3f.l1 $id.in3f.x1 -side left
|
|
}
|
|
|
|
# input device 4
|
|
if {$longform && [llength $midi_indevlist] > 4} {
|
|
frame $id.in4f
|
|
pack $id.in4f -side top
|
|
|
|
label $id.in4f.l1 -text [_ "Input device 4:"]
|
|
button $id.in4f.x1 -text [lindex $midi_indevlist $midi_indev4] \
|
|
-command [list midi_popup $id $id.in4f.x1 midi_indev4 \
|
|
$midi_indevlist]
|
|
pack $id.in4f.l1 $id.in4f.x1 -side left
|
|
}
|
|
|
|
# output device 1
|
|
|
|
frame $id.out1f
|
|
pack $id.out1f -side top
|
|
label $id.out1f.l1 -text [_ "Output device 1:"]
|
|
button $id.out1f.x1 -text [lindex $midi_outdevlist $midi_outdev1] \
|
|
-command [list midi_popup $id $id.out1f.x1 midi_outdev1 \
|
|
$midi_outdevlist]
|
|
pack $id.out1f.l1 $id.out1f.x1 -side left
|
|
|
|
# output device 2
|
|
if {$longform && [llength $midi_outdevlist] > 2} {
|
|
frame $id.out2f
|
|
pack $id.out2f -side top
|
|
label $id.out2f.l1 -text [_ "Output device 2:"]
|
|
button $id.out2f.x1 -text [lindex $midi_outdevlist $midi_outdev2] \
|
|
-command \
|
|
[list midi_popup $id $id.out2f.x1 midi_outdev2 $midi_outdevlist]
|
|
pack $id.out2f.l1 $id.out2f.x1 -side left
|
|
}
|
|
|
|
# output device 3
|
|
if {$longform && [llength $midi_outdevlist] > 3} {
|
|
frame $id.out3f
|
|
pack $id.out3f -side top
|
|
label $id.out3f.l1 -text [_ "Output device 3:"]
|
|
button $id.out3f.x1 -text [lindex $midi_outdevlist $midi_outdev3] \
|
|
-command \
|
|
[list midi_popup $id $id.out3f.x1 midi_outdev3 $midi_outdevlist]
|
|
pack $id.out3f.l1 $id.out3f.x1 -side left
|
|
}
|
|
|
|
# output device 4
|
|
if {$longform && [llength $midi_outdevlist] > 4} {
|
|
frame $id.out4f
|
|
pack $id.out4f -side top
|
|
label $id.out4f.l1 -text [_ "Output device 4:"]
|
|
button $id.out4f.x1 -text [lindex $midi_outdevlist $midi_outdev4] \
|
|
-command \
|
|
[list midi_popup $id $id.out4f.x1 midi_outdev4 $midi_outdevlist]
|
|
pack $id.out4f.l1 $id.out4f.x1 -side left
|
|
}
|
|
|
|
# if not the "long form" make a button to
|
|
# restart with longform set.
|
|
|
|
if {$longform == 0} {
|
|
frame $id.longbutton
|
|
pack $id.longbutton -side top
|
|
button $id.longbutton.b -text [_ "Use multiple ALSA devices"] \
|
|
-command {pdsend "pd midi-properties 1"}
|
|
pack $id.longbutton.b
|
|
}
|
|
}
|
|
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
|
|
}
|
|
}
|