[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