# -*-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

}