File Manager

X7ROOT File Manager

Current Path: /lib64/tcl8.6/Tix8.4.3/pref

?? ..
?? 10Point.fs(641 B)
?? 10Point.fsc(2 KB)
?? 12Point.fs(640 B)
?? 12Point.fsc(2 KB)
?? 14Point.fs(639 B)
?? 14Point.fsc(2.06 KB)
?? Bisque.cs(1 KB)
?? Bisque.csc(22.01 KB)
?? Blue.cs(1.02 KB)
?? Blue.csc(22.02 KB)
?? Gray.cs(1.02 KB)
?? Gray.csc(22.02 KB)
?? Old12Pt.fs(541 B)
?? Old14Pt.fs(499 B)
?? SGIGray.cs(1 KB)
?? SGIGray.csc(22.01 KB)
?? TK.cs(1 KB)
?? TK.csc(1.98 KB)
?? TK.fs(506 B)
?? TK.fsc(569 B)
?? TixGray.cs(1 KB)
?? TixGray.csc(22.01 KB)
?? TkWin.cs(2.19 KB)
?? TkWin.csc(21.78 KB)
?? TkWin.fs(390 B)
?? TkWin.fsc(1.63 KB)
?? WmDefault.cs(1.42 KB)
?? WmDefault.csc(14.22 KB)
?? WmDefault.fs(755 B)
?? WmDefault.fsc(2.13 KB)
?? WmDefault.py(3.42 KB)
?? WmDefault.tcl(33.05 KB)
?? WmDefault.txt(4.22 KB)
?? pkgIndex.tcl(262 B)

Editing: WmDefault.csc

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

#    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

}

X7ROOT File Manager

Editing: WmDefault.csc

Upload File

Create Folder