Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14141
Modified Files: Tag: devel_0_39 u_main.tk Log Message: fixed midi dialog bug
Index: u_main.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v retrieving revision 1.4.4.10.2.13 retrieving revision 1.4.4.10.2.14 diff -C2 -d -r1.4.4.10.2.13 -r1.4.4.10.2.14 *** u_main.tk 27 Jul 2006 19:18:05 -0000 1.4.4.10.2.13 --- u_main.tk 5 Aug 2006 20:00:44 -0000 1.4.4.10.2.14 *************** *** 3950,3962 **** }
! # input device 4 ! if {$longform && [llength $indevlist] > 4} { ! frame $id.in4f ! pack $id.in4f -side top
! label $id.in4f.l1 -text "input device 4:" ! button $id.in4f.x1 -text [lindex $indevlist $midi_indev4] \ -command [list midi_popup $id $id.in4f.x1 midi_indev4 $indevlist] ! pack $id.in4f.l1 $id.in4f.x1 -side left }
--- 3950,3962 ---- }
! # input device 5 ! if {$longform && [llength $indevlist] > 5} { ! frame $id.in5f ! pack $id.in5f -side top
! label $id.in5f.l1 -text "input device 5:" ! button $id.in5f.x1 -text [lindex $indevlist $midi_indev5] \ -command [list midi_popup $id $id.in4f.x1 midi_indev4 $indevlist] ! pack $id.in5f.l1 $id.in5f.x1 -side left }
*************** *** 4346,4392 ****
if {$alsa == 0} { - # input device 1 - label $id.in1f.l1 -text "input device 1:" - button $id.in1f.x1 -text [lindex $indevlist $midi_indev1] \ - -command [list midi_popup $id $id.in1f.x1 midi_indev1 $indevlist] - pack $id.in1f.l1 $id.in1f.x1 -side left - - # input device 2 - if {$longform && [llength $indevlist] > 2} { - frame $id.in2f - pack $id.in2f -side top - - label $id.in2f.l1 -text "input device 2:" - button $id.in2f.x1 -text [lindex $indevlist $midi_indev2] \ - -command [list midi_popup $id $id.in2f.x1 midi_indev2 $indevlist] - pack $id.in2f.l1 $id.in2f.x1 -side left - } - - # input device 3 - if {$longform && [llength $indevlist] > 3} { - frame $id.in3f - pack $id.in3f -side top - - label $id.in3f.l1 -text "input device 3:" - button $id.in3f.x1 -text [lindex $indevlist $midi_indev3] \ - -command [list midi_popup $id $id.in3f.x1 midi_indev3 $indevlist] - pack $id.in3f.l1 $id.in3f.x1 -side left - } - - # input device 4 - if {$longform && [llength $indevlist] > 4} { - frame $id.in4f - pack $id.in4f -side top - - label $id.in4f.l1 -text "input device 4:" - button $id.in4f.x1 -text [lindex $indevlist $midi_indev4] \ - -command [list midi_popup $id $id.in4f.x1 midi_indev4 $indevlist] - pack $id.in4f.l1 $id.in4f.x1 -side left - } - - - # input device 1 - frame $id.in1f - pack $id.in1f -side top
label $id.in1f.l1 -text "input device 1:" --- 4346,4349 ---- *************** *** 4428,4440 **** }
! # input device 4 ! if {$longform && [llength $indevlist] > 4} { ! frame $id.in4f ! pack $id.in4f -side top
! label $id.in4f.l1 -text "input device 4:" ! button $id.in4f.x1 -text [lindex $indevlist $midi_indev4] \ -command [list midi_popup $id $id.in4f.x1 midi_indev4 $indevlist] ! pack $id.in4f.l1 $id.in4f.x1 -side left }
--- 4385,4397 ---- }
! # input device 5 ! if {$longform && [llength $indevlist] > 5} { ! frame $id.in5f ! pack $id.in5f -side top
! label $id.in5f.l1 -text "input device 5:" ! button $id.in5f.x1 -text [lindex $indevlist $midi_indev5] \ -command [list midi_popup $id $id.in4f.x1 midi_indev4 $indevlist] ! pack $id.in5f.l1 $id.in5f.x1 -side left }