[PD-cvs] pd/src u_main.tk,1.1.1.4.2.7.4.24,1.1.1.4.2.7.4.25

[Mathieu Bouchard]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11369

Modified Files:
      Tag: impd_0_37
	u_main.tk 
Log Message:
how am i supposed to make scrollbars work on subframes?


Index: u_main.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v
retrieving revision 1.1.1.4.2.7.4.24
retrieving revision 1.1.1.4.2.7.4.25
diff -C2 -d -r1.1.1.4.2.7.4.24 -r1.1.1.4.2.7.4.25
*** u_main.tk	28 Mar 2004 02:30:42 -0000	1.1.1.4.2.7.4.24
--- u_main.tk	28 Mar 2004 03:15:23 -0000	1.1.1.4.2.7.4.25
***************
*** 2201,2205 ****
  	-inchannels  sys_parsedevlist "audio input channels (by device, like \"2\" or \"16,8\")"
  	-outchannels sys_parsedevlist "number of audio out channels (same)"
!     	-channels    sys_parsedevlist {!}
      	-audiobuf|-soundbuf int "specify size of audio buffer in msec"
      	-blocksize   int "specify audio I/O block size in sample frames"
--- 2201,2205 ----
  	-inchannels  sys_parsedevlist "audio input channels (by device, like \"2\" or \"16,8\")"
  	-outchannels sys_parsedevlist "number of audio out channels (same)"
!     	-channels    alias {list -inchannels %1 -outchannels %1}
      	-audiobuf|-soundbuf int "specify size of audio buffer in msec"
      	-blocksize   int "specify audio I/O block size in sample frames"
***************
*** 2207,2225 ****
      	-nodac       void "suppress audio output"
      	-noadc       void "suppress audio input"
!     	-noaudio|-nosound void "suppress audio input and output"
  
- 	-oss         void "use OSS audio API"
-     	-32bit       void "allow 32 bit OSS audio (for RME Hammerfall)"
      	-alsa        void " use ALSA audio API"
      	-jack        void "use JACK audio API"
- 	-portaudio|-pa|-asio void "use ASIO audio driver (via Portaudio)"
      	-mmio        void "use MMIO audio API (default for Windows)"
  
  	-nomidiin    void "suppress MIDI input"
      	-nomidiout   void "suppress MIDI output"
!     	-nomidi      void {!}
      	-midiindev   sys_parsedevlist "midi in device list; e.g., \"1,3\" for first and third"
      	-midioutdev  sys_parsedevlist "midi out device list, same format"
!     	-mididev     sys_parsedevlist {!}
      	-path        folder "add to file search path"
      	-helppath    folder "add to help file search path"
--- 2207,2225 ----
      	-nodac       void "suppress audio output"
      	-noadc       void "suppress audio input"
!     	-noaudio|-nosound alias {list -nodac -noadc}
  
      	-alsa        void " use ALSA audio API"
      	-jack        void "use JACK audio API"
      	-mmio        void "use MMIO audio API (default for Windows)"
+ 	-portaudio|-pa|-asio void "use ASIO audio driver (via Portaudio)"
+ 	-oss         void "use OSS audio API"
+     	-32bit       void "allow 32 bit OSS audio (for RME Hammerfall)"
  
  	-nomidiin    void "suppress MIDI input"
      	-nomidiout   void "suppress MIDI output"
!     	-nomidi      alias {list -nomidiin -nomidiout}
      	-midiindev   sys_parsedevlist "midi in device list; e.g., \"1,3\" for first and third"
      	-midioutdev  sys_parsedevlist "midi out device list, same format"
!     	-mididev     sys_parsedevlist {list -midindev %1 -midioutdev %1}
      	-path        folder "add to file search path"
      	-helppath    folder "add to help file search path"
***************
*** 2245,2248 ****
--- 2245,2250 ----
  proc pdrc_editor_apply {self} {error "BOO"}
  
+ proc foo {args} {puts stderr "$args"}
+ 
  proc pdrc_editor_new {} {
  	global _ pdrc_options
***************
*** 2250,2265 ****
  	toplevel .$self
  	frame .$self.1
! 	canvas .$self.1.1
! 	frame .$self.1.1.2 -width 420 -height 420
! 	.$self.1.1 create window 0 0 -window .$self.1.1.2
  	scrollbar .$self.1.2 -command ".$self.1.1 yview"
  	foreach {x y z} $pdrc_options {
  		puts "$x $y $z"
! 		properties_dialog $self pdrc_editor_ok [list $x "$x: $z" $y {}]
  	}
  	pack .$self.1.1 -expand yes -fill both -side left
! 	pack .$self.1.2 -expand yes -fill y -side left
! 	pack .$self.1
  	cancel_apply_ok $self pdrc_editor
  	return $self
  }
--- 2252,2270 ----
  	toplevel .$self
  	frame .$self.1
! 	canvas .$self.1.1 -yscrollcommand ".$self.1.2 set"
! 	frame .$self.1.1.2
! 	.$self.1.1 create window 0 0 -window .$self.1.1.2 -anchor nw
  	scrollbar .$self.1.2 -command ".$self.1.1 yview"
  	foreach {x y z} $pdrc_options {
  		puts "$x $y $z"
! 		properties_dialog $self.1.1.2 pdrc_editor_ok [list $x "$x: $z" $y {}]
  	}
  	pack .$self.1.1 -expand yes -fill both -side left
! 	pack .$self.1.2 -fill y -side left
! 	pack .$self.1 -expand yes -fill both
  	cancel_apply_ok $self pdrc_editor
+ 	.$self.1.1 configure -scrollregion \
+ 		[list 0 0 [.$self.1.1 cget -width] [.$self.1.1 cget -height]]
+ 	.$self.1.2 set 0 [.$self.1.1 cget -height]
  	return $self
  }