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 }