[PD-cvs] pd/src u_main.tk,1.4.4.10.2.3,1.4.4.10.2.4

[carmen rocco]

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

Modified Files:
      Tag: devel_0_39
	u_main.tk 
Log Message:
setting the default colors to almost black and white (except inlets/outlets)


Index: u_main.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v
retrieving revision 1.4.4.10.2.3
retrieving revision 1.4.4.10.2.4
diff -C2 -d -r1.4.4.10.2.3 -r1.4.4.10.2.4
*** u_main.tk	19 Jun 2005 05:05:03 -0000	1.4.4.10.2.3
--- u_main.tk	1 Jul 2005 18:08:55 -0000	1.4.4.10.2.4
***************
*** 213,217 ****
  
  namespace eval ::pdtheme {
!     array set theme "border purple bg white box green line gray50 arrow last object green message orange inlet purple outlet red atom yellow graph red text black selected #ff049b lasso green fontweight normal"
      foreach element [array names theme] {
  	eval "set ::pdtheme::$element $theme($element)"}}
--- 213,218 ----
  
  namespace eval ::pdtheme {
! #    array set theme "border purple bg white box gray line gray50 arrow last object peru message orange inlet purple outlet red atom yellow graph red text black selected #ff049b lasso green fontweight normal"
!     array set theme "border black bg white box black line black arrow none object black message black inlet purple outlet red atom black graph black text black selected blue lasso blue fontweight bold"
      foreach element [array names theme] {
  	eval "set ::pdtheme::$element $theme($element)"}}
***************
*** 4063,4064 ****
--- 4064,4070 ----
      focus $id.f0
  }
+ 
+ catch {
+ source /usr/local/bin/tkcon.tcl
+ tkcon show
+ }
\ No newline at end of file