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 .