[PD-cvs] pd/src u_main.tk,1.1.1.4.2.7.4.9,1.1.1.4.2.7.4.10

[matju at users.sourceforge.net]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6182

Modified Files:
      Tag: impd_0_37
	u_main.tk 
Log Message:
a beginning of global color configuration (for use by upcoming commits)


Index: u_main.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v
retrieving revision 1.1.1.4.2.7.4.9
retrieving revision 1.1.1.4.2.7.4.10
diff -C2 -d -r1.1.1.4.2.7.4.9 -r1.1.1.4.2.7.4.10
*** u_main.tk	5 Mar 2004 05:25:03 -0000	1.1.1.4.2.7.4.9
--- u_main.tk	5 Mar 2004 19:02:10 -0000	1.1.1.4.2.7.4.10
***************
*** 2633,2644 ****
  #####################iemlib#######################
  proc pdtk_canvas_editval {name value} {
      if {$value} {
  	$name.m.edit entryconfigure "Edit mode" -indicatoron true
  	catch {$name.bbar.edit configure -image icon_mode_edit}
! 	$name.c configure -background #dddddd
      } else {                          
          $name.m.edit entryconfigure "Edit mode" -indicatoron false
  	catch {$name.bbar.edit configure -image icon_mode_run}
! 	$name.c configure -background #ffffff
      }                                                 
  }
--- 2633,2645 ----
  #####################iemlib#######################
  proc pdtk_canvas_editval {name value} {
+     global look
      if {$value} {
  	$name.m.edit entryconfigure "Edit mode" -indicatoron true
  	catch {$name.bbar.edit configure -image icon_mode_edit}
! 	$name.c configure -background $look(canvasbgedit)
      } else {                          
          $name.m.edit entryconfigure "Edit mode" -indicatoron false
  	catch {$name.bbar.edit configure -image icon_mode_run}
! 	$name.c configure -background $look(canvasbgrun)
      }                                                 
  }
***************
*** 3591,3593 ****
--- 3592,3617 ----
  source $pd_guidir/bin/u_object.tk
  
+ # theme:
+ if {1} {
+ 	set look(objectfg) #000000
+ 	set look(objectbg) #ffffff
+ 	set look(objectframe1) #99cccc
+ 	set look(objectframe2) #668888
+ 	set look(objectframe3) #000000
+ 	set look(objectframe4) #0000ff
+ 	set look(canvasbgrun) #ffffff
+ 	set look(canvasbgedit) #dddddd
+ 	set look(wirefg) #888888
+ } {
+ 	set look(objectfg) #ffffff
+ 	set look(objectbg) #888888
+ 	set look(objectframe1) #008888
+ 	set look(objectframe2) #005555
+ 	set look(objectframe3) #000000
+ 	set look(objectframe4) #0000ff
+ 	set look(canvasbgrun) #000000
+ 	set look(canvasbgedit) #500030
+ 	set look(wirefg) #88cccc
+ }
+ 
  raise .