Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21345
Modified Files: Tag: impd_0_37 u_main.tk Log Message: changing menu font and changing the look of in/out parts of mainwindow
Index: u_main.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v retrieving revision 1.1.1.4.2.7.4.20 retrieving revision 1.1.1.4.2.7.4.21 diff -C2 -d -r1.1.1.4.2.7.4.20 -r1.1.1.4.2.7.4.21 *** u_main.tk 23 Mar 2004 02:17:42 -0000 1.1.1.4.2.7.4.20 --- u_main.tk 24 Mar 2004 04:03:01 -0000 1.1.1.4.2.7.4.21 *************** *** 11,14 **** --- 11,19 ---- #option add *backgroundPixmap /usr/share/themes/BrushedMetalBlue/gtk/brushed-dark.xpm widgetDefault #option add *backgroundPixmap /home/matju/brushed-dark.gif widgetDefault + option add *Menu*font {helvetica 9} + #option add *background #000000 + #option add *foreground #ffffff + option add *Menu*borderWidth 1 + option add *Menu*pady 42 option add *Button*borderWidth 1 option add *Checkbutton*borderWidth 1 *************** *** 98,102 **** -variable ctrls_audio_on -anchor w \ -command {pd "pd dsp $ctrls_audio_on ;"} - checkbutton .controls.switches.meterbutton -text "Peak Meters" \ -variable ctrls_meter_on -anchor w \ --- 103,106 ---- *************** *** 107,116 **** frame .controls.inout foreach z {in out} { ! frame .controls.inout.$z ! label .controls.inout.$z.label -text [string toupper $z] ! entry .controls.inout.$z.level -textvariable ctrls_${z}level -width 3 ! button .controls.inout.$z.clip -text "CLIP" -state disabled ! pack .controls.inout.$z.label .controls.inout.$z.level \ ! .controls.inout.$z.clip -side top -pady 2 }
--- 111,125 ---- frame .controls.inout foreach z {in out} { ! set f .controls.inout.$z ! frame $f ! frame $f.1 -borderwidth 2 -relief ridge ! frame $f.1.pad -height 5 ! entry $f.1.level -textvariable ctrls_${z}level -width 3 ! button $f.1.clip -text "Clip" -state disabled ! pack $f.1.pad $f.1.level $f.1.clip -side top -pady 4 -padx 4 ! pack $f.1 -padx 4 -pady 4 ! label $f.2 -text [string toupper $z] ! place $f.2 -x 14 -y -4 ! pack $f -side left -pady 4 -padx 4 }
*************** *** 118,122 ****
#pack .controls.switches -side bottom -pady 12 - pack .controls.inout.in .controls.inout.out -side left -padx 6 pack .controls.inout -side left -padx 14 pack .controls.switches -side left -pady 12 --- 127,130 ----