[PD-cvs] pd/src u_main.tk,1.4.4.10.2.13,1.4.4.10.2.14

[Tim Blechmann]

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
      }