You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
317 lines
14 KiB
Plaintext
317 lines
14 KiB
Plaintext
# -*-mode: tcl; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
|
|
#
|
|
# $Id: WmDefault.csc,v 1.2 2001/12/09 05:03:09 idiscovery Exp $
|
|
#
|
|
#
|
|
|
|
proc tixPref:SetScheme-Color:WmDefault {args} {
|
|
global tixOption
|
|
|
|
package require wm_default
|
|
if {![info exists ::wm_default::wm]} {
|
|
wm_default::setup
|
|
wm_default::addoptions
|
|
}
|
|
|
|
set tixOption(bg) $::wm_default::background
|
|
set tixOption(fg) $::wm_default::foreground
|
|
|
|
# was "#808080"
|
|
set tixOption(dark1_bg) $::wm_default::disabledbackground
|
|
|
|
set tixOption(inactive_bg) $::wm_default::disabledbackground
|
|
set tixOption(inactive_fg) black; # unused
|
|
|
|
# light1 was used for listbox widgets and trough colors
|
|
set tixOption(light1_bg) $::wm_default::scrollbars
|
|
set tixOption(light1_fg) white; #unused
|
|
|
|
# text is now used for listbox widgets
|
|
set tixOption(list_bg) $::wm_default::textbackground
|
|
|
|
set tixOption(active_bg) $::wm_default::activebackground
|
|
set tixOption(active_fg) $::wm_default::activeforeground
|
|
|
|
set tixOption(disabled_fg) $::wm_default::disabledforeground
|
|
# new
|
|
set tixOption(disabled_bg) $::wm_default::disabledtextbackground
|
|
|
|
set tixOption(textbackground) $::wm_default::textbackground
|
|
set tixOption(input1_fg) $::wm_default::textforeground
|
|
|
|
set tixOption(select_fg) $::wm_default::selectforeground
|
|
set tixOption(select_bg) $::wm_default::selectbackground
|
|
|
|
set tixOption(selector) $::wm_default::selectcolor
|
|
|
|
set pri $tixOption(prioLevel)
|
|
|
|
# Try to give the subwidget (hlist) the highlightThickness
|
|
foreach pref {*TixDirTree *TixDirList *TixTree \
|
|
*TixScrolledListBox \
|
|
*TixScrolledTList *TixScrolledText} {
|
|
option add $pref.highlightThickness 0 $pri
|
|
}
|
|
|
|
|
|
# necessary:
|
|
option add *TixBalloon*background white $pri
|
|
option add *TixBalloon*foreground black $pri
|
|
option add *TixBalloon.background black $pri
|
|
|
|
# necessary: but should be restricted
|
|
# was - option add *Label.anchor w $pri
|
|
option add *TixBalloon*Label.anchor w $pri
|
|
option add *TixComboBox*Label.anchor w $pri
|
|
option add *TixFileEntry*Label.anchor w $pri
|
|
option add *TixLabelEntry*Label.anchor w $pri
|
|
option add *TixOptionMenu*Label.anchor w $pri
|
|
|
|
option add *TixComboBox*background $tixOption(background) $pri
|
|
option add *TixFileEntry*Entry.borderWidth 0 $pri
|
|
option add *TixFileEntry.frame.background $tixOption(textbackground) $pri
|
|
|
|
option add *TixFileEntry*Entry.highlightBackground $::wm_default::highlightbackground $pri
|
|
|
|
option add *TixOptionMenu*menubutton.relief raised $pri
|
|
option add *TixOptionMenu*menubutton.borderWidth $::wm_default::borderwidth $pri
|
|
option add *TixResizeHandle*background $tixOption(disabledbackground) $pri
|
|
|
|
option add *handleActiveBg $::wm_default::selectbackground $pri
|
|
|
|
|
|
# These may already have been covered by wm_default
|
|
|
|
option add *TixControl*entry.insertBackground $tixOption(textforeground) $pri
|
|
|
|
option add *TixDirTree*hlist.activeBackground $tixOption(light1_bg) $pri
|
|
option add *TixDirTree*hlist.disabledBackground $tixOption(disabled_bg) $pri
|
|
option add *TixDirTree*f1.borderWidth $::wm_default::borderwidth $pri
|
|
option add *TixDirTree*f1.relief sunken $pri
|
|
|
|
option add *TixDirList*hlist.activeBackground $tixOption(light1_bg) $pri
|
|
option add *TixDirList*hlist.disabledBackground $tixOption(disabled_bg) $pri
|
|
option add *TixDirList*f1.borderWidth $::wm_default::borderwidth $pri
|
|
option add *TixDirList*f1.relief sunken $pri
|
|
|
|
option add *TixScrolledHList*hlist.activeBackground $tixOption(light1_bg) $pri
|
|
option add *TixScrolledHList*hlist.disabledBackground $tixOption(disabled_bg) $pri
|
|
option add *TixScrolledHList*f1.borderWidth $::wm_default::borderwidth $pri
|
|
option add *TixScrolledHList*f1.relief sunken $pri
|
|
|
|
option add *TixTree*hlist.background $tixOption(textbackground) $pri
|
|
option add *TixTree*hlist.activeBackground $tixOption(light1_bg) $pri
|
|
option add *TixTree*hlist.disabledBackground $tixOption(disabled_bg) $pri
|
|
option add *TixTree*f1.borderWidth $::wm_default::borderwidth $pri
|
|
option add *TixTree*f1.relief sunken $pri
|
|
|
|
option add *TixFileEntry.background $tixOption(background) $pri
|
|
|
|
option add *TixHList.activeBackground $tixOption(light1_bg) $pri
|
|
option add *TixHList.disabledBackground $tixOption(disabled_bg) $pri
|
|
|
|
option add *TixLabelEntry*entry.background $tixOption(textbackground) $pri
|
|
option add *TixLabelEntry*entry.foreground $tixOption(textforeground) $pri
|
|
option add *TixLabelEntry*entry.insertBackground $tixOption(textforeground) $pri
|
|
|
|
option add *TixMultiView*Listbox.borderWidth 0 $pri
|
|
option add *TixMultiView*Listbox.highlightThickness 0 $pri
|
|
option add *TixMultiView*Scrollbar.relief sunken $pri
|
|
option add *TixMultiView*Scrollbar.width 15 $pri
|
|
option add *TixMultiView*f1.borderWidth 2 $pri
|
|
option add *TixMultiView*f1.relief sunken $pri
|
|
option add *TixMultiView*f1.highlightThickness 2 $pri
|
|
|
|
option add *TixNoteBook.Background $tixOption(background) $pri
|
|
option add *TixNoteBook.nbframe.Background $tixOption(background) $pri
|
|
option add *TixNoteBook.nbframe.backPageColor $tixOption(background) $pri
|
|
option add *TixNoteBook.nbframe.inactiveBackground $tixOption(disabledbackground) $pri
|
|
option add *TixPanedWindow.handleActiveBg $tixOption(active_bg) $pri
|
|
# option add *TixPanedWindow.seperatorBg $tixOption(disabledbackground) $pri
|
|
# option add *TixPanedWindow.handleBg $tixOption(disabledbackground) $pri
|
|
|
|
option add *TixPopupMenu*menubutton.background $tixOption(dark1_bg) $pri
|
|
|
|
option add *TixScrolledTList*tlist.background $tixOption(textbackground) $pri
|
|
|
|
option add *TixScrolledListBox*listbox.background $tixOption(textbackground) $pri
|
|
|
|
option add *TixScrolledWindow.frame.background $tixOption(list_bg) $pri
|
|
|
|
option add *TixTree*hlist.highlightBackground $tixOption(background) $pri
|
|
option add *TixTree*hlist.background $tixOption(textbackground) $pri
|
|
option add *TixTree*hlist.borderWidth $::wm_default::borderwidth $pri
|
|
|
|
option add *TixComboBox*Entry.highlightBackground $tixOption(background) $pri
|
|
option add *TixComboBox*Entry.background $tixOption(textbackground) $pri
|
|
option add *TixComboBox*Entry.foreground $tixOption(textforeground) $pri
|
|
option add *TixComboBox*Entry.insertBackground $tixOption(textforeground) $pri
|
|
}
|
|
|
|
proc tixPref:SetScheme-Mono:Gray {} {
|
|
global tixOption
|
|
|
|
package require wm_default
|
|
if {![info exists ::wm_default::wm]} {
|
|
wm_default::setup
|
|
wm_default::addoptions
|
|
}
|
|
|
|
set tixOption(background) lightgray
|
|
set tixOption(foreground) black
|
|
|
|
set tixOption(dark1_bg) gray70
|
|
|
|
set tixOption(inactive_bg) lightgray
|
|
set tixOption(inactive_fg) black
|
|
|
|
set tixOption(light1_bg) gray90
|
|
set tixOption(light1_fg) white
|
|
|
|
set tixOption(active_bg) gray90
|
|
set tixOption(active_fg) $tixOption(foreground)
|
|
set tixOption(disabled_fg) gray55
|
|
|
|
set tixOption(textbackground) $tixOption(light1_bg)
|
|
|
|
set tixOption(select_fg) white
|
|
set tixOption(select_bg) black
|
|
|
|
set tixOption(selector) black
|
|
|
|
set pri $tixOption(prioLevel)
|
|
|
|
# Override what you want with optional arguments to wm_default::adoptions
|
|
|
|
# necessary:
|
|
option add *TixBalloon*background white $pri
|
|
option add *TixBalloon*foreground black $pri
|
|
option add *TixBalloon.background black $pri
|
|
|
|
# necessary: but should be restricted
|
|
# was - option add *Label.anchor w $pri
|
|
option add *TixBalloon*Label.anchor w $pri
|
|
option add *TixComboBox*Label.anchor w $pri
|
|
option add *TixFileEntry*Label.anchor w $pri
|
|
option add *TixLabelEntry*Label.anchor w $pri
|
|
|
|
# option add *TixDirTree*hlist.highlightBackground $tixOption(background) $pri
|
|
# option add *TixDirTree*hlist.background $tixOption(light1_bg) $pri
|
|
# option add *TixDirTree*hlist.activeBackground $tixOption(light1_bg) $pri
|
|
# option add *TixDirTree*hlist.disabledBackground $tixOption(disabled_bg) $pri
|
|
# option add *TixDirTree*f1.borderWidth $::wm_default::borderwidth $pri
|
|
option add *TixDirTree*f1.relief sunken $pri
|
|
# option add *TixDirList*hlist.highlightBackground $tixOption(background) $pri
|
|
# option add *TixDirList*hlist.background $tixOption(light1_bg) $pri
|
|
# option add *TixDirList*hlist.activeBackground $tixOption(light1_bg) $pri
|
|
# option add *TixDirList*hlist.disabledBackground $tixOption(disabled_bg) $pri
|
|
# option add *TixDirList*f1.borderWidth $::wm_default::borderwidth $pri
|
|
option add *TixDirList*f1.relief sunken $pri
|
|
# option add *TixScrolledHList*hlist.highlightBackground $tixOption(background) $pri
|
|
# option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $pri
|
|
# option add *TixScrolledHList*hlist.activeBackground $tixOption(light1_bg) $pri
|
|
# option add *TixScrolledHList*hlist.disabledBackground $tixOption(disabled_bg) $pri
|
|
# option add *TixScrolledHList*f1.borderWidth $::wm_default::borderwidth $pri
|
|
option add *TixScrolledHList*f1.relief sunken $pri
|
|
# option add *TixTree*hlist.highlightBackground $tixOption(background) $pri
|
|
# option add *TixTree*hlist.background $tixOption(light1_bg) $pri
|
|
# option add *TixTree*hlist.activeBackground $tixOption(light1_bg) $pri
|
|
# option add *TixTree*hlist.disabledBackground $tixOption(disabled_bg) $pri
|
|
# option add *TixTree*f1.borderWidth $::wm_default::borderwidth $pri
|
|
option add *TixTree*f1.relief sunken $pri
|
|
# option add *TixHList.background $tixOption(light1_bg) $pri
|
|
# option add *TixHList.activeBackground $tixOption(light1_bg) $pri
|
|
# option add *TixHList.disabledBackground $tixOption(light1_bg) $pri
|
|
# option add *TixMultiView*Listbox.borderWidth 0 $pri
|
|
# option add *TixMultiView*Listbox.highlightThickness 0 $pri
|
|
option add *TixMultiView*Scrollbar.relief sunken $pri
|
|
# option add *TixMultiView*f1.borderWidth 2 $pri
|
|
option add *TixMultiView*f1.relief sunken $pri
|
|
# option add *TixMultiView*f1.highlightThickness 2 $pri
|
|
# option add *TixMDIMenuBar*menubar.relief raised $pri
|
|
# option add *TixMDIMenuBar*menubar.borderWidth 2 $pri
|
|
# option add *TixMDIMenuBar*Menubutton.padY 2 $pri
|
|
# option add *TixNoteBook.Background $tixOption(background) $pri
|
|
# option add *TixNoteBook.nbframe.Background $tixOption(background) $pri
|
|
# option add *TixNoteBook.nbframe.backPageColor $tixOption(background) $pri
|
|
# option add *TixNoteBook.nbframe.inactiveBackground $tixOption(inactive_bg) $pri
|
|
# option add *TixPanedWindow.handleActiveBg $tixOption(active_bg) $pri
|
|
# option add *TixPanedWindow.seperatorBg $tixOption(disabledbackground) $pri
|
|
# option add *TixPanedWindow.handleBg $tixOption(disabledbackground) $pri
|
|
# option add *TixPopupMenu*menubutton.background $tixOption(dark1_bg) $pri
|
|
# option add *TixScrolledHList*hlist.highlightBackground $tixOption(background) $pri
|
|
# option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $pri
|
|
# option add *TixScrolledTList*tlist.highlightBackground $tixOption(background) $pri
|
|
# option add *TixScrolledTList*tlist.background $tixOption(light1_bg) $pri
|
|
# option add *TixScrolledListBox*listbox.highlightBackground $tixOption(background) $pri
|
|
# option add *TixScrolledWindow.frame.background $tixOption(light1_bg) $pri
|
|
# option add *TixTree*hlist.highlightBackground $tixOption(background) $pri
|
|
# option add *TixTree*hlist.background $tixOption(light1_bg) $pri
|
|
# option add *TixTree*hlist.borderWidth $::wm_default::borderwidth $pri
|
|
|
|
# These were missing
|
|
|
|
# option add *TixMenu*Menu.selectColor $NIMLook(foreground) $pri
|
|
|
|
# option add *TixMDIMenuBar*Menubutton.padY 2 $pri
|
|
# option add *TixMDIMenuBar*menubar.borderWidth 2 $pri
|
|
# option add *TixMDIMenuBar*menubar.relief raised $pri
|
|
|
|
# option add *TixMultiView*Listbox.borderWidth 0 $pri
|
|
# option add *TixMultiView*Listbox.highlightThickness 0 $pri
|
|
# option add *TixMultiView*Scrollbar.relief sunken $pri
|
|
# option add *TixMultiView*f1.borderWidth 2 $pri
|
|
# option add *TixMultiView*f1.highlightThickness 2 $pri
|
|
option add *TixMultiView*f1.relief sunken $pri
|
|
|
|
}
|
|
|
|
# Leave the standard widgets alone
|
|
if {0} {
|
|
option add *Background $tixOption(background) $pri
|
|
option add *background $tixOption(background) $pri
|
|
option add *Foreground $tixOption(foreground) $pri
|
|
option add *foreground $tixOption(foreground) $pri
|
|
option add *activeBackground $tixOption(active_bg) $pri
|
|
option add *activeForeground $tixOption(active_fg) $pri
|
|
option add *HighlightBackground $tixOption(background) $pri
|
|
|
|
option add *selectBackground $tixOption(select_bg) $pri
|
|
option add *selectForeground $tixOption(select_fg) $pri
|
|
option add *selectBorderWidth 0 $pri
|
|
|
|
option add *Menu.selectColor $tixOption(foreground) $pri
|
|
option add *TixMenu.selectColor $tixOption(foreground) $pri
|
|
option add *Menubutton.padY 5 $pri
|
|
|
|
option add *Button.borderWidth 2 $pri
|
|
option add *Button.anchor c $pri
|
|
|
|
option add *Checkbutton.selectColor $tixOption(selector) $pri
|
|
option add *Radiobutton.selectColor $tixOption(selector) $pri
|
|
option add *Entry.relief sunken $pri
|
|
option add *Entry.highlightBackground $tixOption(background) $pri
|
|
option add *Entry.background $tixOption(textbackground) $pri
|
|
option add *Entry.foreground $tixOption(textforeground) $pri
|
|
option add *Entry.insertBackground $tixOption(textforeground) $pri
|
|
option add *Label.anchor w $pri
|
|
option add *Label.borderWidth 0 $pri
|
|
|
|
option add *Listbox.background $tixOption(textbackground) $pri
|
|
option add *Listbox.relief sunken $pri
|
|
|
|
option add *Scale.foreground $tixOption(foreground) $pri
|
|
option add *Scale.activeForeground $tixOption(background) $pri
|
|
option add *Scale.background $tixOption(background) $pri
|
|
option add *Scale.sliderForeground $tixOption(background) $pri
|
|
option add *Scale.sliderBackground $tixOption(light1_bg) $pri
|
|
|
|
option add *Scrollbar.relief sunken $pri
|
|
option add *Scrollbar.borderWidth $::wm_default::borderwidth $pri
|
|
option add *Scrollbar.width 15 $pri
|
|
|
|
option add *Text.background $tixOption(textbackground) $pri
|
|
option add *Text.relief sunken $pri
|
|
|
|
}
|