pd/src u_main.tk,1.25.6.7,1.25.6.8 - Pd-cvs

13 Nov 2007


      Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1618
Modified Files:
      Tag: branch-v0-40-extended
    u_main.tk 
Log Message:
added preference like the others to set default canvas background color
Index: u_main.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v
retrieving revision 1.25.6.7
retrieving revision 1.25.6.8
diff -C2 -d -r1.25.6.7 -r1.25.6.8
*** u_main.tk	9 Nov 2007 19:02:03 -0000	1.25.6.7
--- u_main.tk	13 Nov 2007 02:40:49 -0000	1.25.6.8
***************
*** 79,82 ****
--- 79,83 ----
# color scheme
+ set canvas_fill "#fff"
  set text_color "#000"
  set select_color "#00f"
***************
*** 1046,1049 ****
--- 1047,1051 ----
      global pd_nt
      global tcl_version
+ 	global canvas_fill
toplevel $name -menu $name.m
***************
*** 1064,1068 ****
      }
      wm geometry $name $geometry
!     canvas $name.c -width $width -height $height -background white \
    	-highlightthickness 0 \
          -yscrollcommand "$name.scrollvert set" \
--- 1066,1070 ----
      }
      wm geometry $name $geometry
!     canvas $name.c -width $width -height $height -background $canvas_fill \
    	-highlightthickness 0 \
          -yscrollcommand "$name.scrollvert set" \