[PD-cvs] pd/src u_main.tk,1.1.1.4.2.7.4.20,1.1.1.4.2.7.4.21
Mathieu Bouchard
matju at users.sourceforge.net
Wed Mar 24 05:03:03 CET 2004
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 ----
More information about the Pd-cvs
mailing list