# -*-mode: tcl; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-

#

#	$Id: WmDefault.cs,v 1.2 2001/12/09 05:03:09 idiscovery Exp $

#

proc tixSetScheme-Color {} {

    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

    set tixOption(dark1_bg)     #808080

    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(input1_bg)    $::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

}