| Current File : /home/mmdealscpanel/yummmdeals.com/pref.tar |
pkgIndex.tcl 0000644 00000000406 15035033121 0007012 0 ustar 00 # -*-mode: tcl; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
#
# Tcl package index file, version 1.0
#
# $Id: pkgIndex.tcl,v 1.2 2002/01/24 09:17:02 idiscovery Exp $
#
package ifneeded wm_default 1.0 [list source [file join $dir WmDefault.tcl]]
TkWin.cs 0000644 00000004306 15035033121 0006123 0 ustar 00 #
# $Id: TkWin.cs,v 1.1 2000/10/12 01:41:04 idiscovery Exp $
#
proc tixSetScheme-Color {} {
global tixOption
set tixOption(bg) SystemButtonFace
set tixOption(fg) SystemButtonText
set tixOption(dark1_bg) SystemScrollbar
set tixOption(dark1_fg) SystemButtonText
# set tixOption(dark2_bg) SystemDisabledText
# set tixOption(dark2_fg) black
set tixOption(inactive_bg) SystemButtonFace
set tixOption(inactive_fg) SystemButtonText
set tixOption(light1_bg) SystemButtonFace
# set tixOption(light1_fg) white
# set tixOption(light2_bg) #fcfcfc
# set tixOption(light2_fg) white
set tixOption(active_bg) $tixOption(dark1_bg)
set tixOption(active_fg) $tixOption(fg)
set tixOption(disabled_fg) SystemDisabledText
set tixOption(input1_bg) SystemWindow
# set tixOption(input2_bg)
# set tixOption(output1_bg) $tixOption(dark1_bg)
# set tixOption(output2_bg) $tixOption(bg)
set tixOption(select_fg) SystemHighlightText
set tixOption(select_bg) SystemHighlight
set tixOption(selector) SystemHighlight
}
proc tixSetScheme-Mono {} {
global tixOption
set tixOption(bg) SystemButtonFace
set tixOption(fg) SystemButtonText
set tixOption(dark1_bg) SystemScrollbar
set tixOption(dark1_fg) SystemButtonText
# set tixOption(dark2_bg) SystemDisabledText
# set tixOption(dark2_fg) black
set tixOption(inactive_bg) SystemButtonFace
set tixOption(inactive_fg) SystemButtonText
set tixOption(light1_bg) SystemButtonFace
# set tixOption(light1_fg) white
# set tixOption(light2_bg) #fcfcfc
# set tixOption(light2_fg) white
set tixOption(active_bg) $tixOption(dark1_bg)
set tixOption(active_fg) $tixOption(fg)
set tixOption(disabled_fg) SystemDisabledText
set tixOption(input1_bg) white
# set tixOption(input2_bg)
# set tixOption(output1_bg) $tixOption(dark1_bg)
# set tixOption(output2_bg) $tixOption(bg)
set tixOption(select_fg) SystemHighlightText
set tixOption(select_bg) SystemHighlight
set tixOption(selector) SystemHighlight
}
10Point.fsc 0000644 00000003776 15035033121 0006501 0 ustar 00 #
# $Id: 10Point.fsc,v 1.2 2002/01/24 09:17:02 idiscovery Exp $
#
proc tixPref:InitFontSet:10Point {} {
global tixOption tcl_platform
switch -- $tcl_platform(platform) "windows" {
# This should be Tahoma for Win2000/XP
set font "MS Sans Sherif"
set fixedfont "Courier New"
} unix {
set font "helvetica"
set fixedfont "courier"
}
set tixOption(font) [list $font -10]
set tixOption(bold_font) [list $font -10 bold]
set tixOption(menu_font) [list $font -10]
set tixOption(italic_font) [list $font -10 bold italic]
set tixOption(fixed_font) [list $fixedfont -10]
set tixOption(border1) 1
}
proc tixPref:SetFontSet:10Point {} {
global tixOption
option add *Font $tixOption(font) $tixOption(prioLevel)
option add *font $tixOption(font) $tixOption(prioLevel)
option add *Menu.font $tixOption(menu_font) $tixOption(prioLevel)
option add *TixMenu.font $tixOption(menu_font) $tixOption(prioLevel)
option add *Menubutton.font $tixOption(menu_font) $tixOption(prioLevel)
option add *Label.font $tixOption(bold_font) $tixOption(prioLevel)
option add *Scale.font $tixOption(italic_font) $tixOption(prioLevel)
option add *TixBalloon*Label.font $tixOption(font) $tixOption(prioLevel)
option add *TixBitmapButton*label.font $tixOption(font) $tixOption(prioLevel)
option add *TixControl*label.font $tixOption(bold_font) $tixOption(prioLevel)
option add *TixLabelEntry*label.font $tixOption(bold_font) $tixOption(prioLevel)
option add *TixLabelFrame*label.font $tixOption(bold_font) $tixOption(prioLevel)
option add *TixMwmClient*title.font $tixOption(menu_font) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.font $tixOption(menu_font) $tixOption(prioLevel)
option add *TixOptionMenu*menubutton.font $tixOption(font) $tixOption(prioLevel)
option add *TixComboBox*Entry.font $tixOption(font) $tixOption(prioLevel)
option add *TixFileSelectBox*Label.font $tixOption(bold_font) $tixOption(prioLevel)
}
14Point.fs 0000644 00000001177 15035033121 0006333 0 ustar 00 #
# $Id: 14Point.fs,v 1.2 2001/12/09 05:03:09 idiscovery Exp $
#
proc tixSetFontset {} {
global tixOption tcl_platform
switch -- $tcl_platform(platform) "windows" {
# This should be Tahoma for Win2000/XP
set font "MS Sans Serif"
set fixedfont "Courier New"
} unix {
set font "helvetica"
set fixedfont "courier"
}
set tixOption(font) [list $font -14]
set tixOption(bold_font) [list $font -14 bold]
set tixOption(menu_font) [list $font -14]
set tixOption(italic_font) [list $font -14 bold italic]
set tixOption(fixed_font) [list $fixedfont -14]
set tixOption(border1) 1
}
Blue.cs 0000644 00000002025 15035033121 0005752 0 ustar 00 #
# $Id: Blue.cs,v 1.1.1.1 2000/05/17 11:08:47 idiscovery Exp $
#
proc tixSetScheme-Color {} {
global tixOption
set tixOption(bg) #9090f0
set tixOption(fg) black
set tixOption(dark1_bg) #8080d0
set tixOption(dark1_fg) black
set tixOption(dark2_bg) #7070c0
set tixOption(dark2_fg) black
set tixOption(inactive_bg) #8080da
set tixOption(inactive_fg) black
set tixOption(light1_bg) #a8a8ff
set tixOption(light1_fg) black
set tixOption(light2_bg) #c0c0ff
set tixOption(light2_fg) black
set tixOption(active_bg) $tixOption(dark1_bg)
set tixOption(active_fg) $tixOption(fg)
set tixOption(disabled_fg) gray25
set tixOption(input1_bg) $tixOption(light1_bg)
set tixOption(input2_bg) $tixOption(bg)
set tixOption(output1_bg) $tixOption(light1_bg)
set tixOption(output2_bg) $tixOption(bg)
set tixOption(select_fg) white
set tixOption(select_bg) black
set tixOption(selector) yellow
}
TixGray.csc 0000644 00000054013 15035033121 0006621 0 ustar 00 #
# $Id: TixGray.csc,v 1.2 2000/10/12 02:00:25 idiscovery Exp $
#
proc tixPref:SetScheme-Color:TixGray {} {
global tixOption
set tixOption(bg) lightgray
set tixOption(fg) black
set tixOption(dark1_bg) gray86
set tixOption(dark1_fg) black
set tixOption(dark2_bg) gray77
set tixOption(dark2_fg) black
set tixOption(inactive_bg) gray77
set tixOption(inactive_fg) black
set tixOption(light1_bg) gray92
set tixOption(light1_fg) white
set tixOption(light2_bg) gray95
set tixOption(light2_fg) white
set tixOption(active_bg) $tixOption(dark1_bg)
set tixOption(active_fg) $tixOption(fg)
set tixOption(disabled_fg) gray55
set tixOption(input1_bg) gray95
set tixOption(input2_bg) gray95
set tixOption(output1_bg) $tixOption(dark1_bg)
set tixOption(output2_bg) $tixOption(bg)
set tixOption(select_fg) black
set tixOption(select_bg) lightblue
set tixOption(selector) yellow
option add *background $tixOption(bg) 10
option add *Background $tixOption(bg) $tixOption(prioLevel)
option add *background $tixOption(bg) $tixOption(prioLevel)
option add *Foreground $tixOption(fg) $tixOption(prioLevel)
option add *foreground $tixOption(fg) $tixOption(prioLevel)
option add *activeBackground $tixOption(active_bg) $tixOption(prioLevel)
option add *activeForeground $tixOption(active_fg) $tixOption(prioLevel)
option add *HighlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *selectBackground $tixOption(select_bg) $tixOption(prioLevel)
option add *selectForeground $tixOption(select_fg) $tixOption(prioLevel)
option add *selectBorderWidth 0 $tixOption(prioLevel)
option add *Menu.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *TixMenu.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *Menubutton.padY 5 $tixOption(prioLevel)
option add *Button.borderWidth 2 $tixOption(prioLevel)
option add *Button.anchor c $tixOption(prioLevel)
option add *Checkbutton.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *Radiobutton.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *Entry.relief sunken $tixOption(prioLevel)
option add *Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *Entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *Entry.foreground black $tixOption(prioLevel)
option add *Entry.insertBackground black $tixOption(prioLevel)
option add *Label.anchor w $tixOption(prioLevel)
option add *Label.borderWidth 0 $tixOption(prioLevel)
option add *Listbox.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *Listbox.relief sunken $tixOption(prioLevel)
option add *Scale.foreground $tixOption(fg) $tixOption(prioLevel)
option add *Scale.activeForeground $tixOption(bg) $tixOption(prioLevel)
option add *Scale.background $tixOption(bg) $tixOption(prioLevel)
option add *Scale.sliderForeground $tixOption(bg) $tixOption(prioLevel)
option add *Scale.sliderBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *Scrollbar.relief sunken $tixOption(prioLevel)
option add *Scrollbar.borderWidth 1 $tixOption(prioLevel)
option add *Scrollbar.width 15 $tixOption(prioLevel)
option add *Text.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *Text.relief sunken $tixOption(prioLevel)
option add *TixBalloon*background #ffff60 $tixOption(prioLevel)
option add *TixBalloon*foreground black $tixOption(prioLevel)
option add *TixBalloon.background black $tixOption(prioLevel)
option add *TixBalloon*Label.anchor w $tixOption(prioLevel)
option add *TixControl*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixControl*entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixControl*entry.foreground black $tixOption(prioLevel)
option add *TixControl*entry.insertBackground black $tixOption(prioLevel)
option add *TixDirTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixDirTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixDirTree*f1.relief sunken $tixOption(prioLevel)
option add *TixDirList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixDirList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixDirList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixDirList*f1.relief sunken $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixScrolledHList*f1.relief sunken $tixOption(prioLevel)
option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixTree*f1.relief sunken $tixOption(prioLevel)
option add *TixFileEntry*Entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixHList.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixHList.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixHList.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixLabelEntry*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixLabelEntry*entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixLabelEntry*entry.foreground black $tixOption(prioLevel)
option add *TixLabelEntry*entry.insertBackground black $tixOption(prioLevel)
option add *TixMultiList*Listbox.borderWidth 0 $tixOption(prioLevel)
option add *TixMultiList*Listbox.highlightThickness 0 $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.relief sunken $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.width 15 $tixOption(prioLevel)
option add *TixMultiList*f1.borderWidth 2 $tixOption(prioLevel)
option add *TixMultiList*f1.relief sunken $tixOption(prioLevel)
option add *TixMultiList*f1.highlightThickness 2 $tixOption(prioLevel)
option add *TixMDIMenuBar*menubar.relief raised $tixOption(prioLevel)
option add *TixMDIMenuBar*menubar.borderWidth 2 $tixOption(prioLevel)
option add *TixMDIMenuBar*Menubutton.padY 2 $tixOption(prioLevel)
option add *TixNoteBook.Background $tixOption(bg) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.Background $tixOption(bg) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.backPageColor $tixOption(bg) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.inactiveBackground $tixOption(inactive_bg) $tixOption(prioLevel)
option add *TixPanedWindow.handleActiveBg $tixOption(active_bg) $tixOption(prioLevel)
option add *TixPanedWindow.seperatorBg $tixOption(bg) $tixOption(prioLevel)
option add *TixPanedWindow.handleBg $tixOption(dark1_bg) $tixOption(prioLevel)
option add *TixPopupMenu*menubutton.background $tixOption(dark1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledTList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledTList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledTList*tlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledTList*tlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledListBox*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledListBox*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledListBox*listbox.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledListBox*listbox.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledText*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledText*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledWindow*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledWindow*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledWindow.frame.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.borderWidth 1 $tixOption(prioLevel)
option add *TixComboBox*Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixComboBox*Entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixComboBox*Entry.foreground black $tixOption(prioLevel)
option add *TixComboBox*Entry.insertBackground black $tixOption(prioLevel)
}
proc tixPref:SetScheme-Mono:TixGray {} {
global tixOption
set tixOption(bg) lightgray
set tixOption(fg) black
set tixOption(dark1_bg) gray70
set tixOption(dark1_fg) black
set tixOption(dark2_bg) gray60
set tixOption(dark2_fg) white
set tixOption(inactive_bg) lightgray
set tixOption(inactive_fg) black
set tixOption(light1_bg) gray90
set tixOption(light1_fg) white
set tixOption(light2_bg) gray95
set tixOption(light2_fg) white
set tixOption(active_bg) gray90
set tixOption(active_fg) $tixOption(fg)
set tixOption(disabled_fg) gray55
set tixOption(input1_bg) $tixOption(light1_bg)
set tixOption(input2_bg) $tixOption(light1_bg)
set tixOption(output1_bg) $tixOption(light1_bg)
set tixOption(output2_bg) $tixOption(light1_bg)
set tixOption(select_fg) white
set tixOption(select_bg) black
set tixOption(selector) black
option add *background $tixOption(bg) 10
option add *Background $tixOption(bg) $tixOption(prioLevel)
option add *background $tixOption(bg) $tixOption(prioLevel)
option add *Foreground $tixOption(fg) $tixOption(prioLevel)
option add *foreground $tixOption(fg) $tixOption(prioLevel)
option add *activeBackground $tixOption(active_bg) $tixOption(prioLevel)
option add *activeForeground $tixOption(active_fg) $tixOption(prioLevel)
option add *HighlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *selectBackground $tixOption(select_bg) $tixOption(prioLevel)
option add *selectForeground $tixOption(select_fg) $tixOption(prioLevel)
option add *selectBorderWidth 0 $tixOption(prioLevel)
option add *Menu.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *TixMenu.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *Menubutton.padY 5 $tixOption(prioLevel)
option add *Button.borderWidth 2 $tixOption(prioLevel)
option add *Button.anchor c $tixOption(prioLevel)
option add *Checkbutton.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *Radiobutton.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *Entry.relief sunken $tixOption(prioLevel)
option add *Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *Entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *Entry.foreground black $tixOption(prioLevel)
option add *Entry.insertBackground black $tixOption(prioLevel)
option add *Label.anchor w $tixOption(prioLevel)
option add *Label.borderWidth 0 $tixOption(prioLevel)
option add *Listbox.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *Listbox.relief sunken $tixOption(prioLevel)
option add *Scale.foreground $tixOption(fg) $tixOption(prioLevel)
option add *Scale.activeForeground $tixOption(bg) $tixOption(prioLevel)
option add *Scale.background $tixOption(bg) $tixOption(prioLevel)
option add *Scale.sliderForeground $tixOption(bg) $tixOption(prioLevel)
option add *Scale.sliderBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *Scrollbar.relief sunken $tixOption(prioLevel)
option add *Scrollbar.borderWidth 1 $tixOption(prioLevel)
option add *Scrollbar.width 15 $tixOption(prioLevel)
option add *Text.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *Text.relief sunken $tixOption(prioLevel)
option add *TixBalloon*background #ffff60 $tixOption(prioLevel)
option add *TixBalloon*foreground black $tixOption(prioLevel)
option add *TixBalloon.background black $tixOption(prioLevel)
option add *TixBalloon*Label.anchor w $tixOption(prioLevel)
option add *TixControl*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixControl*entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixControl*entry.foreground black $tixOption(prioLevel)
option add *TixControl*entry.insertBackground black $tixOption(prioLevel)
option add *TixDirTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixDirTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixDirTree*f1.relief sunken $tixOption(prioLevel)
option add *TixDirList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixDirList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixDirList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixDirList*f1.relief sunken $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixScrolledHList*f1.relief sunken $tixOption(prioLevel)
option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixTree*f1.relief sunken $tixOption(prioLevel)
option add *TixFileEntry*Entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixHList.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixHList.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixHList.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixLabelEntry*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixLabelEntry*entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixLabelEntry*entry.foreground black $tixOption(prioLevel)
option add *TixLabelEntry*entry.insertBackground black $tixOption(prioLevel)
option add *TixMultiList*Listbox.borderWidth 0 $tixOption(prioLevel)
option add *TixMultiList*Listbox.highlightThickness 0 $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.relief sunken $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.width 15 $tixOption(prioLevel)
option add *TixMultiList*f1.borderWidth 2 $tixOption(prioLevel)
option add *TixMultiList*f1.relief sunken $tixOption(prioLevel)
option add *TixMultiList*f1.highlightThickness 2 $tixOption(prioLevel)
option add *TixMDIMenuBar*menubar.relief raised $tixOption(prioLevel)
option add *TixMDIMenuBar*menubar.borderWidth 2 $tixOption(prioLevel)
option add *TixMDIMenuBar*Menubutton.padY 2 $tixOption(prioLevel)
option add *TixNoteBook.Background $tixOption(bg) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.Background $tixOption(bg) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.backPageColor $tixOption(bg) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.inactiveBackground $tixOption(inactive_bg) $tixOption(prioLevel)
option add *TixPanedWindow.handleActiveBg $tixOption(active_bg) $tixOption(prioLevel)
option add *TixPanedWindow.seperatorBg $tixOption(bg) $tixOption(prioLevel)
option add *TixPanedWindow.handleBg $tixOption(dark1_bg) $tixOption(prioLevel)
option add *TixPopupMenu*menubutton.background $tixOption(dark1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledTList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledTList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledTList*tlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledTList*tlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledListBox*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledListBox*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledListBox*listbox.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledListBox*listbox.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledText*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledText*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledWindow*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledWindow*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledWindow.frame.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.borderWidth 1 $tixOption(prioLevel)
option add *TixComboBox*Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixComboBox*Entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixComboBox*Entry.foreground black $tixOption(prioLevel)
option add *TixComboBox*Entry.insertBackground black $tixOption(prioLevel)
}
TK.cs 0000644 00000002000 15035033121 0005372 0 ustar 00 #
# $Id: TK.cs,v 1.1.1.1 2000/05/17 11:08:47 idiscovery Exp $
#
proc tixSetScheme-Color {} {
global tixOption
set tixOption(bg) #d9d9d9
set tixOption(fg) black
set tixOption(dark1_bg) #c3c3c3
set tixOption(dark1_fg) black
set tixOption(dark2_bg) #a3a3a3
set tixOption(dark2_fg) black
set tixOption(inactive_bg) #a3a3a3
set tixOption(inactive_fg) black
set tixOption(light1_bg) #ececec
set tixOption(light1_fg) white
set tixOption(light2_bg) #fcfcfc
set tixOption(light2_fg) white
set tixOption(active_bg) $tixOption(dark1_bg)
set tixOption(active_fg) $tixOption(fg)
set tixOption(disabled_fg) gray55
set tixOption(input1_bg) #d9d9d9
set tixOption(input2_bg) #d9d9d9
set tixOption(output1_bg) $tixOption(dark1_bg)
set tixOption(output2_bg) $tixOption(bg)
set tixOption(select_fg) black
set tixOption(select_bg) #c3c3c3
set tixOption(selector) #b03060
}
Old12Pt.fs 0000644 00000001035 15035033121 0006253 0 ustar 00 #
# $Id: Old12Pt.fs,v 1.2 2001/12/09 05:03:09 idiscovery Exp $
#
proc tixSetFontset:12Point {} {
global tixOption
set tixOption(font) -*-helvetica-medium-r-normal-*-12-*-*-*-*-*-*-*
set tixOption(bold_font) -*-helvetica-bold-r-normal-*-12-*-*-*-*-*-*-*
set tixOption(menu_font) -*-helvetica-bold-o-normal-*-12-*-*-*-*-*-*-*
set tixOption(italic_font) -*-helvetica-bold-o-normal-*-12-*-*-*-*-*-*-*
set tixOption(fixed_font) -*-courier-medium-r-*-*-12-*-*-*-*-*-*-*
set tixOption(border1) 1
}
WmDefault.py 0000644 00000006655 15035033121 0007013 0 ustar 00 # -*- mode: python; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
#
# $Id: WmDefault.py,v 1.2 2001/12/09 05:03:09 idiscovery Exp $
#
"""One of the bad things about Tk/Tkinter is that it does not pick up
the current color and font scheme from the prevailing CDE/KDE/GNOME/Windows
window manager scheme.
One of the good things about Tk/Tkinter is that it is not tied to one
particular widget set so it could pick up the current color and font scheme
from the prevailing CDE/KDE/GNOME/Windows window manager scheme.
The WmDefault package is for making Tk/Tkinter applications use the
prevailing CDE/KDE/GNOME/Windows scheme. It tries to find the files
and/or settings that the current window manager is using, and then
sets the Tk options database accordingly.
Download the latest version of wm_default from http://tix.sourceforge.net
either as a part of the standard Tix distribution, or as a part of the
Tix Applications: http://tix.sourceforge.net/Tide. wm_default does not
require Tix, but is Tix enabled.
"""
import os, sys, traceback, string
import tkMessageBox
def setup(root, wm=''):
"""1) find the files and/or settings (::wm_default::setup).
Takes one optional argument: wm, the name of the window manager
as a string, if known. One of: windows gnome kde1 kde2 cde kde.
"""
try:
try:
# Make sure Tcl/Tk knows wm_default is installed
root.tk.eval("package require wm_default")
except:
# Try again with this directory on the Tcl/Tk path
dir = os.path.dirname (self.__file__)
root.tk.eval('global auto_path; lappend auto_path {%s}' % dir)
root.tk.eval("package require wm_default")
except:
t, v, tb = sys.exc_info()
text = "Error loading WmDefault\n"
for line in traceback.format_exception(t,v,tb): text = text + line + '\n'
try:
tkMessageBox.showerror ('WmDefault Error', text)
except:
sys.stderr.write( text )
return root.tk.call('::wm_default::setup', wm)
def addoptions(root, cnf=None, **kw):
"""2) Setting the Tk options database (::wm_default::addoptions).
You can override the settings in 1) by adding your values to the
call to addoptions().
"""
if cnf is None:
return root.tk.splitlist(root.tk.call('::wm_default::addoptions'))
return root.tk.splitlist(
apply(root.tk.call,
('::wm_default::addoptions',) + root._options(cnf,kw)))
def getoptions(root):
"""Returns the current settings, as a dictionary.
"""
words = root.tk.splitlist(root.tk.call('::wm_default::getoptions'))
dict = {}
for i in range(0, len(words), 2):
key = words[i]
value = words[i+1]
dict[key] = value
return dict
def parray(root):
"""Returns a string of the current settings, one value-pair per line.
"""
return root.tk.call('::wm_default::parray')
if __name__ == "__main__":
dir = ""
if len(sys.argv) > 0:
# Assume the name of the file containing the tixinspect Tcl source
# is the same as argument on the command line with .tcl
dir = os.path.dirname(sys.argv[0])
if not dir or not os.path.isdir(dir) or not os.path.isabs(dir):
# Or, assume it's in the same directory as this one:
dir = os.getcwd()
import Tkinter
root = Tkinter.Tk()
setup(root)
addoptions(root, {'foreground': 'red'})
retval = getoptions(root)
print retval
Gray.csc 0000644 00000054030 15035033121 0006133 0 ustar 00 #
# $Id: Gray.csc,v 1.2 2000/10/12 01:59:44 idiscovery Exp $
#
proc tixPref:SetScheme-Color:Gray {} {
global tixOption
set tixOption(bg) lightgray
set tixOption(fg) black
set tixOption(dark1_bg) gray
set tixOption(dark1_fg) black
set tixOption(dark2_bg) gray50
set tixOption(dark2_fg) black
set tixOption(inactive_bg) gray50
set tixOption(inactive_fg) black
set tixOption(light1_bg) gray90
set tixOption(light1_fg) white
set tixOption(light2_bg) gray95
set tixOption(light2_fg) white
set tixOption(active_bg) $tixOption(dark1_bg)
set tixOption(active_fg) $tixOption(fg)
set tixOption(disabled_fg) gray55
set tixOption(input1_bg) $tixOption(dark1_bg)
set tixOption(input2_bg) $tixOption(bg)
set tixOption(output1_bg) $tixOption(dark1_bg)
set tixOption(output2_bg) $tixOption(bg)
set tixOption(select_fg) black
set tixOption(select_bg) lightblue
set tixOption(selector) yellow
option add *background $tixOption(bg) 10
option add *Background $tixOption(bg) $tixOption(prioLevel)
option add *background $tixOption(bg) $tixOption(prioLevel)
option add *Foreground $tixOption(fg) $tixOption(prioLevel)
option add *foreground $tixOption(fg) $tixOption(prioLevel)
option add *activeBackground $tixOption(active_bg) $tixOption(prioLevel)
option add *activeForeground $tixOption(active_fg) $tixOption(prioLevel)
option add *HighlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *selectBackground $tixOption(select_bg) $tixOption(prioLevel)
option add *selectForeground $tixOption(select_fg) $tixOption(prioLevel)
option add *selectBorderWidth 0 $tixOption(prioLevel)
option add *Menu.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *TixMenu.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *Menubutton.padY 5 $tixOption(prioLevel)
option add *Button.borderWidth 2 $tixOption(prioLevel)
option add *Button.anchor c $tixOption(prioLevel)
option add *Checkbutton.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *Radiobutton.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *Entry.relief sunken $tixOption(prioLevel)
option add *Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *Entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *Entry.foreground black $tixOption(prioLevel)
option add *Entry.insertBackground black $tixOption(prioLevel)
option add *Label.anchor w $tixOption(prioLevel)
option add *Label.borderWidth 0 $tixOption(prioLevel)
option add *Listbox.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *Listbox.relief sunken $tixOption(prioLevel)
option add *Scale.foreground $tixOption(fg) $tixOption(prioLevel)
option add *Scale.activeForeground $tixOption(bg) $tixOption(prioLevel)
option add *Scale.background $tixOption(bg) $tixOption(prioLevel)
option add *Scale.sliderForeground $tixOption(bg) $tixOption(prioLevel)
option add *Scale.sliderBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *Scrollbar.relief sunken $tixOption(prioLevel)
option add *Scrollbar.borderWidth 1 $tixOption(prioLevel)
option add *Scrollbar.width 15 $tixOption(prioLevel)
option add *Text.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *Text.relief sunken $tixOption(prioLevel)
option add *TixBalloon*background #ffff60 $tixOption(prioLevel)
option add *TixBalloon*foreground black $tixOption(prioLevel)
option add *TixBalloon.background black $tixOption(prioLevel)
option add *TixBalloon*Label.anchor w $tixOption(prioLevel)
option add *TixControl*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixControl*entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixControl*entry.foreground black $tixOption(prioLevel)
option add *TixControl*entry.insertBackground black $tixOption(prioLevel)
option add *TixDirTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixDirTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixDirTree*f1.relief sunken $tixOption(prioLevel)
option add *TixDirList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixDirList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixDirList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixDirList*f1.relief sunken $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixScrolledHList*f1.relief sunken $tixOption(prioLevel)
option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixTree*f1.relief sunken $tixOption(prioLevel)
option add *TixFileEntry*Entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixHList.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixHList.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixHList.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixLabelEntry*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixLabelEntry*entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixLabelEntry*entry.foreground black $tixOption(prioLevel)
option add *TixLabelEntry*entry.insertBackground black $tixOption(prioLevel)
option add *TixMultiList*Listbox.borderWidth 0 $tixOption(prioLevel)
option add *TixMultiList*Listbox.highlightThickness 0 $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.relief sunken $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.width 15 $tixOption(prioLevel)
option add *TixMultiList*f1.borderWidth 2 $tixOption(prioLevel)
option add *TixMultiList*f1.relief sunken $tixOption(prioLevel)
option add *TixMultiList*f1.highlightThickness 2 $tixOption(prioLevel)
option add *TixMDIMenuBar*menubar.relief raised $tixOption(prioLevel)
option add *TixMDIMenuBar*menubar.borderWidth 2 $tixOption(prioLevel)
option add *TixMDIMenuBar*Menubutton.padY 2 $tixOption(prioLevel)
option add *TixNoteBook.Background $tixOption(bg) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.Background $tixOption(bg) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.backPageColor $tixOption(bg) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.inactiveBackground $tixOption(inactive_bg) $tixOption(prioLevel)
option add *TixPanedWindow.handleActiveBg $tixOption(active_bg) $tixOption(prioLevel)
option add *TixPanedWindow.seperatorBg $tixOption(bg) $tixOption(prioLevel)
option add *TixPanedWindow.handleBg $tixOption(dark1_bg) $tixOption(prioLevel)
option add *TixPopupMenu*menubutton.background $tixOption(dark1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledTList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledTList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledTList*tlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledTList*tlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledListBox*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledListBox*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledListBox*listbox.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledListBox*listbox.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledText*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledText*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledWindow*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledWindow*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledWindow.frame.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.borderWidth 1 $tixOption(prioLevel)
option add *TixComboBox*Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixComboBox*Entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixComboBox*Entry.foreground black $tixOption(prioLevel)
option add *TixComboBox*Entry.insertBackground black $tixOption(prioLevel)
}
proc tixPref:SetScheme-Mono:Gray {} {
global tixOption
set tixOption(bg) lightgray
set tixOption(fg) black
set tixOption(dark1_bg) gray70
set tixOption(dark1_fg) black
set tixOption(dark2_bg) gray60
set tixOption(dark2_fg) white
set tixOption(inactive_bg) lightgray
set tixOption(inactive_fg) black
set tixOption(light1_bg) gray90
set tixOption(light1_fg) white
set tixOption(light2_bg) gray95
set tixOption(light2_fg) white
set tixOption(active_bg) gray90
set tixOption(active_fg) $tixOption(fg)
set tixOption(disabled_fg) gray55
set tixOption(input1_bg) $tixOption(light1_bg)
set tixOption(input2_bg) $tixOption(light1_bg)
set tixOption(output1_bg) $tixOption(light1_bg)
set tixOption(output2_bg) $tixOption(light1_bg)
set tixOption(select_fg) white
set tixOption(select_bg) black
set tixOption(selector) black
option add *background $tixOption(bg) 10
option add *Background $tixOption(bg) $tixOption(prioLevel)
option add *background $tixOption(bg) $tixOption(prioLevel)
option add *Foreground $tixOption(fg) $tixOption(prioLevel)
option add *foreground $tixOption(fg) $tixOption(prioLevel)
option add *activeBackground $tixOption(active_bg) $tixOption(prioLevel)
option add *activeForeground $tixOption(active_fg) $tixOption(prioLevel)
option add *HighlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *selectBackground $tixOption(select_bg) $tixOption(prioLevel)
option add *selectForeground $tixOption(select_fg) $tixOption(prioLevel)
option add *selectBorderWidth 0 $tixOption(prioLevel)
option add *Menu.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *TixMenu.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *Menubutton.padY 5 $tixOption(prioLevel)
option add *Button.borderWidth 2 $tixOption(prioLevel)
option add *Button.anchor c $tixOption(prioLevel)
option add *Checkbutton.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *Radiobutton.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *Entry.relief sunken $tixOption(prioLevel)
option add *Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *Entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *Entry.foreground black $tixOption(prioLevel)
option add *Entry.insertBackground black $tixOption(prioLevel)
option add *Label.anchor w $tixOption(prioLevel)
option add *Label.borderWidth 0 $tixOption(prioLevel)
option add *Listbox.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *Listbox.relief sunken $tixOption(prioLevel)
option add *Scale.foreground $tixOption(fg) $tixOption(prioLevel)
option add *Scale.activeForeground $tixOption(bg) $tixOption(prioLevel)
option add *Scale.background $tixOption(bg) $tixOption(prioLevel)
option add *Scale.sliderForeground $tixOption(bg) $tixOption(prioLevel)
option add *Scale.sliderBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *Scrollbar.relief sunken $tixOption(prioLevel)
option add *Scrollbar.borderWidth 1 $tixOption(prioLevel)
option add *Scrollbar.width 15 $tixOption(prioLevel)
option add *Text.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *Text.relief sunken $tixOption(prioLevel)
option add *TixBalloon*background #ffff60 $tixOption(prioLevel)
option add *TixBalloon*foreground black $tixOption(prioLevel)
option add *TixBalloon.background black $tixOption(prioLevel)
option add *TixBalloon*Label.anchor w $tixOption(prioLevel)
option add *TixControl*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixControl*entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixControl*entry.foreground black $tixOption(prioLevel)
option add *TixControl*entry.insertBackground black $tixOption(prioLevel)
option add *TixDirTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixDirTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixDirTree*f1.relief sunken $tixOption(prioLevel)
option add *TixDirList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixDirList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixDirList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixDirList*f1.relief sunken $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixScrolledHList*f1.relief sunken $tixOption(prioLevel)
option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixTree*f1.relief sunken $tixOption(prioLevel)
option add *TixFileEntry*Entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixHList.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixHList.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixHList.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixLabelEntry*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixLabelEntry*entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixLabelEntry*entry.foreground black $tixOption(prioLevel)
option add *TixLabelEntry*entry.insertBackground black $tixOption(prioLevel)
option add *TixMultiList*Listbox.borderWidth 0 $tixOption(prioLevel)
option add *TixMultiList*Listbox.highlightThickness 0 $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.relief sunken $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.width 15 $tixOption(prioLevel)
option add *TixMultiList*f1.borderWidth 2 $tixOption(prioLevel)
option add *TixMultiList*f1.relief sunken $tixOption(prioLevel)
option add *TixMultiList*f1.highlightThickness 2 $tixOption(prioLevel)
option add *TixMDIMenuBar*menubar.relief raised $tixOption(prioLevel)
option add *TixMDIMenuBar*menubar.borderWidth 2 $tixOption(prioLevel)
option add *TixMDIMenuBar*Menubutton.padY 2 $tixOption(prioLevel)
option add *TixNoteBook.Background $tixOption(bg) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.Background $tixOption(bg) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.backPageColor $tixOption(bg) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.inactiveBackground $tixOption(inactive_bg) $tixOption(prioLevel)
option add *TixPanedWindow.handleActiveBg $tixOption(active_bg) $tixOption(prioLevel)
option add *TixPanedWindow.seperatorBg $tixOption(bg) $tixOption(prioLevel)
option add *TixPanedWindow.handleBg $tixOption(dark1_bg) $tixOption(prioLevel)
option add *TixPopupMenu*menubutton.background $tixOption(dark1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledTList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledTList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledTList*tlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledTList*tlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledListBox*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledListBox*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledListBox*listbox.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledListBox*listbox.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledText*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledText*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledWindow*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledWindow*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledWindow.frame.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.borderWidth 1 $tixOption(prioLevel)
option add *TixComboBox*Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixComboBox*Entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixComboBox*Entry.foreground black $tixOption(prioLevel)
option add *TixComboBox*Entry.insertBackground black $tixOption(prioLevel)
}
Blue.csc 0000644 00000054030 15035033122 0006121 0 ustar 00 #
# $Id: Blue.csc,v 1.2 2000/10/12 01:59:28 idiscovery Exp $
#
proc tixPref:SetScheme-Color:Blue {} {
global tixOption
set tixOption(bg) #9090f0
set tixOption(fg) black
set tixOption(dark1_bg) #8080d0
set tixOption(dark1_fg) black
set tixOption(dark2_bg) #7070c0
set tixOption(dark2_fg) black
set tixOption(inactive_bg) #8080da
set tixOption(inactive_fg) black
set tixOption(light1_bg) #a8a8ff
set tixOption(light1_fg) black
set tixOption(light2_bg) #c0c0ff
set tixOption(light2_fg) black
set tixOption(active_bg) $tixOption(dark1_bg)
set tixOption(active_fg) $tixOption(fg)
set tixOption(disabled_fg) gray25
set tixOption(input1_bg) $tixOption(light1_bg)
set tixOption(input2_bg) $tixOption(bg)
set tixOption(output1_bg) $tixOption(light1_bg)
set tixOption(output2_bg) $tixOption(bg)
set tixOption(select_fg) white
set tixOption(select_bg) black
set tixOption(selector) yellow
option add *background $tixOption(bg) 10
option add *Background $tixOption(bg) $tixOption(prioLevel)
option add *background $tixOption(bg) $tixOption(prioLevel)
option add *Foreground $tixOption(fg) $tixOption(prioLevel)
option add *foreground $tixOption(fg) $tixOption(prioLevel)
option add *activeBackground $tixOption(active_bg) $tixOption(prioLevel)
option add *activeForeground $tixOption(active_fg) $tixOption(prioLevel)
option add *HighlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *selectBackground $tixOption(select_bg) $tixOption(prioLevel)
option add *selectForeground $tixOption(select_fg) $tixOption(prioLevel)
option add *selectBorderWidth 0 $tixOption(prioLevel)
option add *Menu.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *TixMenu.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *Menubutton.padY 5 $tixOption(prioLevel)
option add *Button.borderWidth 2 $tixOption(prioLevel)
option add *Button.anchor c $tixOption(prioLevel)
option add *Checkbutton.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *Radiobutton.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *Entry.relief sunken $tixOption(prioLevel)
option add *Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *Entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *Entry.foreground black $tixOption(prioLevel)
option add *Entry.insertBackground black $tixOption(prioLevel)
option add *Label.anchor w $tixOption(prioLevel)
option add *Label.borderWidth 0 $tixOption(prioLevel)
option add *Listbox.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *Listbox.relief sunken $tixOption(prioLevel)
option add *Scale.foreground $tixOption(fg) $tixOption(prioLevel)
option add *Scale.activeForeground $tixOption(bg) $tixOption(prioLevel)
option add *Scale.background $tixOption(bg) $tixOption(prioLevel)
option add *Scale.sliderForeground $tixOption(bg) $tixOption(prioLevel)
option add *Scale.sliderBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *Scrollbar.relief sunken $tixOption(prioLevel)
option add *Scrollbar.borderWidth 1 $tixOption(prioLevel)
option add *Scrollbar.width 15 $tixOption(prioLevel)
option add *Text.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *Text.relief sunken $tixOption(prioLevel)
option add *TixBalloon*background #ffff60 $tixOption(prioLevel)
option add *TixBalloon*foreground black $tixOption(prioLevel)
option add *TixBalloon.background black $tixOption(prioLevel)
option add *TixBalloon*Label.anchor w $tixOption(prioLevel)
option add *TixControl*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixControl*entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixControl*entry.foreground black $tixOption(prioLevel)
option add *TixControl*entry.insertBackground black $tixOption(prioLevel)
option add *TixDirTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixDirTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixDirTree*f1.relief sunken $tixOption(prioLevel)
option add *TixDirList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixDirList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixDirList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixDirList*f1.relief sunken $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixScrolledHList*f1.relief sunken $tixOption(prioLevel)
option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixTree*f1.relief sunken $tixOption(prioLevel)
option add *TixFileEntry*Entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixHList.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixHList.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixHList.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixLabelEntry*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixLabelEntry*entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixLabelEntry*entry.foreground black $tixOption(prioLevel)
option add *TixLabelEntry*entry.insertBackground black $tixOption(prioLevel)
option add *TixMultiList*Listbox.borderWidth 0 $tixOption(prioLevel)
option add *TixMultiList*Listbox.highlightThickness 0 $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.relief sunken $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.width 15 $tixOption(prioLevel)
option add *TixMultiList*f1.borderWidth 2 $tixOption(prioLevel)
option add *TixMultiList*f1.relief sunken $tixOption(prioLevel)
option add *TixMultiList*f1.highlightThickness 2 $tixOption(prioLevel)
option add *TixMDIMenuBar*menubar.relief raised $tixOption(prioLevel)
option add *TixMDIMenuBar*menubar.borderWidth 2 $tixOption(prioLevel)
option add *TixMDIMenuBar*Menubutton.padY 2 $tixOption(prioLevel)
option add *TixNoteBook.Background $tixOption(bg) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.Background $tixOption(bg) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.backPageColor $tixOption(bg) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.inactiveBackground $tixOption(inactive_bg) $tixOption(prioLevel)
option add *TixPanedWindow.handleActiveBg $tixOption(active_bg) $tixOption(prioLevel)
option add *TixPanedWindow.seperatorBg $tixOption(bg) $tixOption(prioLevel)
option add *TixPanedWindow.handleBg $tixOption(dark1_bg) $tixOption(prioLevel)
option add *TixPopupMenu*menubutton.background $tixOption(dark1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledTList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledTList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledTList*tlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledTList*tlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledListBox*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledListBox*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledListBox*listbox.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledListBox*listbox.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledText*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledText*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledWindow*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledWindow*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledWindow.frame.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.borderWidth 1 $tixOption(prioLevel)
option add *TixComboBox*Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixComboBox*Entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixComboBox*Entry.foreground black $tixOption(prioLevel)
option add *TixComboBox*Entry.insertBackground black $tixOption(prioLevel)
}
proc tixPref:SetScheme-Mono:Blue {} {
global tixOption
set tixOption(bg) lightgray
set tixOption(fg) black
set tixOption(dark1_bg) gray70
set tixOption(dark1_fg) black
set tixOption(dark2_bg) gray60
set tixOption(dark2_fg) white
set tixOption(inactive_bg) lightgray
set tixOption(inactive_fg) black
set tixOption(light1_bg) gray90
set tixOption(light1_fg) white
set tixOption(light2_bg) gray95
set tixOption(light2_fg) white
set tixOption(active_bg) gray90
set tixOption(active_fg) $tixOption(fg)
set tixOption(disabled_fg) gray55
set tixOption(input1_bg) $tixOption(light1_bg)
set tixOption(input2_bg) $tixOption(light1_bg)
set tixOption(output1_bg) $tixOption(light1_bg)
set tixOption(output2_bg) $tixOption(light1_bg)
set tixOption(select_fg) white
set tixOption(select_bg) black
set tixOption(selector) black
option add *background $tixOption(bg) 10
option add *Background $tixOption(bg) $tixOption(prioLevel)
option add *background $tixOption(bg) $tixOption(prioLevel)
option add *Foreground $tixOption(fg) $tixOption(prioLevel)
option add *foreground $tixOption(fg) $tixOption(prioLevel)
option add *activeBackground $tixOption(active_bg) $tixOption(prioLevel)
option add *activeForeground $tixOption(active_fg) $tixOption(prioLevel)
option add *HighlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *selectBackground $tixOption(select_bg) $tixOption(prioLevel)
option add *selectForeground $tixOption(select_fg) $tixOption(prioLevel)
option add *selectBorderWidth 0 $tixOption(prioLevel)
option add *Menu.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *TixMenu.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *Menubutton.padY 5 $tixOption(prioLevel)
option add *Button.borderWidth 2 $tixOption(prioLevel)
option add *Button.anchor c $tixOption(prioLevel)
option add *Checkbutton.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *Radiobutton.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *Entry.relief sunken $tixOption(prioLevel)
option add *Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *Entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *Entry.foreground black $tixOption(prioLevel)
option add *Entry.insertBackground black $tixOption(prioLevel)
option add *Label.anchor w $tixOption(prioLevel)
option add *Label.borderWidth 0 $tixOption(prioLevel)
option add *Listbox.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *Listbox.relief sunken $tixOption(prioLevel)
option add *Scale.foreground $tixOption(fg) $tixOption(prioLevel)
option add *Scale.activeForeground $tixOption(bg) $tixOption(prioLevel)
option add *Scale.background $tixOption(bg) $tixOption(prioLevel)
option add *Scale.sliderForeground $tixOption(bg) $tixOption(prioLevel)
option add *Scale.sliderBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *Scrollbar.relief sunken $tixOption(prioLevel)
option add *Scrollbar.borderWidth 1 $tixOption(prioLevel)
option add *Scrollbar.width 15 $tixOption(prioLevel)
option add *Text.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *Text.relief sunken $tixOption(prioLevel)
option add *TixBalloon*background #ffff60 $tixOption(prioLevel)
option add *TixBalloon*foreground black $tixOption(prioLevel)
option add *TixBalloon.background black $tixOption(prioLevel)
option add *TixBalloon*Label.anchor w $tixOption(prioLevel)
option add *TixControl*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixControl*entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixControl*entry.foreground black $tixOption(prioLevel)
option add *TixControl*entry.insertBackground black $tixOption(prioLevel)
option add *TixDirTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixDirTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixDirTree*f1.relief sunken $tixOption(prioLevel)
option add *TixDirList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixDirList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixDirList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixDirList*f1.relief sunken $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixScrolledHList*f1.relief sunken $tixOption(prioLevel)
option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixTree*f1.relief sunken $tixOption(prioLevel)
option add *TixFileEntry*Entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixHList.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixHList.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixHList.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixLabelEntry*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixLabelEntry*entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixLabelEntry*entry.foreground black $tixOption(prioLevel)
option add *TixLabelEntry*entry.insertBackground black $tixOption(prioLevel)
option add *TixMultiList*Listbox.borderWidth 0 $tixOption(prioLevel)
option add *TixMultiList*Listbox.highlightThickness 0 $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.relief sunken $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.width 15 $tixOption(prioLevel)
option add *TixMultiList*f1.borderWidth 2 $tixOption(prioLevel)
option add *TixMultiList*f1.relief sunken $tixOption(prioLevel)
option add *TixMultiList*f1.highlightThickness 2 $tixOption(prioLevel)
option add *TixMDIMenuBar*menubar.relief raised $tixOption(prioLevel)
option add *TixMDIMenuBar*menubar.borderWidth 2 $tixOption(prioLevel)
option add *TixMDIMenuBar*Menubutton.padY 2 $tixOption(prioLevel)
option add *TixNoteBook.Background $tixOption(bg) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.Background $tixOption(bg) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.backPageColor $tixOption(bg) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.inactiveBackground $tixOption(inactive_bg) $tixOption(prioLevel)
option add *TixPanedWindow.handleActiveBg $tixOption(active_bg) $tixOption(prioLevel)
option add *TixPanedWindow.seperatorBg $tixOption(bg) $tixOption(prioLevel)
option add *TixPanedWindow.handleBg $tixOption(dark1_bg) $tixOption(prioLevel)
option add *TixPopupMenu*menubutton.background $tixOption(dark1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledTList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledTList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledTList*tlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledTList*tlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledListBox*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledListBox*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledListBox*listbox.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledListBox*listbox.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledText*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledText*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledWindow*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledWindow*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledWindow.frame.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.borderWidth 1 $tixOption(prioLevel)
option add *TixComboBox*Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixComboBox*Entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixComboBox*Entry.foreground black $tixOption(prioLevel)
option add *TixComboBox*Entry.insertBackground black $tixOption(prioLevel)
}
WmDefault.fs 0000644 00000001363 15035033122 0006763 0 ustar 00 # -*-mode: tcl; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
#
# $Id: WmDefault.fs,v 1.2 2001/12/09 05:03:09 idiscovery Exp $
#
proc tixSetFontset {} {
global tixOption
package require wm_default
if {![info exists ::wm_default::wm]} {
wm_default::setup
wm_default::addoptions
}
set tixOption(font) $::wm_default::system_font
set tixOption(bold_font) [concat $::wm_default::system_font bold]
set tixOption(menu_font) $::wm_default::menu_font
set tixOption(italic_font) [concat $::wm_default::system_font italic]
set tixOption(fixed_font) $::wm_default::fixed_font
set tixOption(text_font) $::wm_default::text_font
set tixOption(border1) $::wm_default::borderwidth
}
Bisque.csc 0000644 00000054013 15035033122 0006463 0 ustar 00 #
# $Id: Bisque.csc,v 1.2 2000/10/12 01:59:13 idiscovery Exp $
#
proc tixPref:SetScheme-Color:Bisque {} {
global tixOption
set tixOption(bg) bisque1
set tixOption(fg) black
set tixOption(dark1_bg) bisque2
set tixOption(dark1_fg) black
set tixOption(dark2_bg) bisque3
set tixOption(dark2_fg) black
set tixOption(inactive_bg) bisque3
set tixOption(inactive_fg) black
set tixOption(light1_bg) bisque1
set tixOption(light1_fg) white
set tixOption(light2_bg) bisque1
set tixOption(light2_fg) white
set tixOption(active_bg) $tixOption(dark1_bg)
set tixOption(active_fg) $tixOption(fg)
set tixOption(disabled_fg) gray55
set tixOption(input1_bg) bisque2
set tixOption(input2_bg) bisque2
set tixOption(output1_bg) $tixOption(dark1_bg)
set tixOption(output2_bg) $tixOption(bg)
set tixOption(select_fg) black
set tixOption(select_bg) bisque2
set tixOption(selector) #b03060
option add *background $tixOption(bg) 10
option add *Background $tixOption(bg) $tixOption(prioLevel)
option add *background $tixOption(bg) $tixOption(prioLevel)
option add *Foreground $tixOption(fg) $tixOption(prioLevel)
option add *foreground $tixOption(fg) $tixOption(prioLevel)
option add *activeBackground $tixOption(active_bg) $tixOption(prioLevel)
option add *activeForeground $tixOption(active_fg) $tixOption(prioLevel)
option add *HighlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *selectBackground $tixOption(select_bg) $tixOption(prioLevel)
option add *selectForeground $tixOption(select_fg) $tixOption(prioLevel)
option add *selectBorderWidth 0 $tixOption(prioLevel)
option add *Menu.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *TixMenu.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *Menubutton.padY 5 $tixOption(prioLevel)
option add *Button.borderWidth 2 $tixOption(prioLevel)
option add *Button.anchor c $tixOption(prioLevel)
option add *Checkbutton.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *Radiobutton.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *Entry.relief sunken $tixOption(prioLevel)
option add *Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *Entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *Entry.foreground black $tixOption(prioLevel)
option add *Entry.insertBackground black $tixOption(prioLevel)
option add *Label.anchor w $tixOption(prioLevel)
option add *Label.borderWidth 0 $tixOption(prioLevel)
option add *Listbox.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *Listbox.relief sunken $tixOption(prioLevel)
option add *Scale.foreground $tixOption(fg) $tixOption(prioLevel)
option add *Scale.activeForeground $tixOption(bg) $tixOption(prioLevel)
option add *Scale.background $tixOption(bg) $tixOption(prioLevel)
option add *Scale.sliderForeground $tixOption(bg) $tixOption(prioLevel)
option add *Scale.sliderBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *Scrollbar.relief sunken $tixOption(prioLevel)
option add *Scrollbar.borderWidth 1 $tixOption(prioLevel)
option add *Scrollbar.width 15 $tixOption(prioLevel)
option add *Text.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *Text.relief sunken $tixOption(prioLevel)
option add *TixBalloon*background #ffff60 $tixOption(prioLevel)
option add *TixBalloon*foreground black $tixOption(prioLevel)
option add *TixBalloon.background black $tixOption(prioLevel)
option add *TixBalloon*Label.anchor w $tixOption(prioLevel)
option add *TixControl*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixControl*entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixControl*entry.foreground black $tixOption(prioLevel)
option add *TixControl*entry.insertBackground black $tixOption(prioLevel)
option add *TixDirTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixDirTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixDirTree*f1.relief sunken $tixOption(prioLevel)
option add *TixDirList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixDirList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixDirList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixDirList*f1.relief sunken $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixScrolledHList*f1.relief sunken $tixOption(prioLevel)
option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixTree*f1.relief sunken $tixOption(prioLevel)
option add *TixFileEntry*Entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixHList.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixHList.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixHList.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixLabelEntry*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixLabelEntry*entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixLabelEntry*entry.foreground black $tixOption(prioLevel)
option add *TixLabelEntry*entry.insertBackground black $tixOption(prioLevel)
option add *TixMultiList*Listbox.borderWidth 0 $tixOption(prioLevel)
option add *TixMultiList*Listbox.highlightThickness 0 $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.relief sunken $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.width 15 $tixOption(prioLevel)
option add *TixMultiList*f1.borderWidth 2 $tixOption(prioLevel)
option add *TixMultiList*f1.relief sunken $tixOption(prioLevel)
option add *TixMultiList*f1.highlightThickness 2 $tixOption(prioLevel)
option add *TixMDIMenuBar*menubar.relief raised $tixOption(prioLevel)
option add *TixMDIMenuBar*menubar.borderWidth 2 $tixOption(prioLevel)
option add *TixMDIMenuBar*Menubutton.padY 2 $tixOption(prioLevel)
option add *TixNoteBook.Background $tixOption(bg) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.Background $tixOption(bg) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.backPageColor $tixOption(bg) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.inactiveBackground $tixOption(inactive_bg) $tixOption(prioLevel)
option add *TixPanedWindow.handleActiveBg $tixOption(active_bg) $tixOption(prioLevel)
option add *TixPanedWindow.seperatorBg $tixOption(bg) $tixOption(prioLevel)
option add *TixPanedWindow.handleBg $tixOption(dark1_bg) $tixOption(prioLevel)
option add *TixPopupMenu*menubutton.background $tixOption(dark1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledTList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledTList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledTList*tlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledTList*tlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledListBox*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledListBox*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledListBox*listbox.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledListBox*listbox.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledText*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledText*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledWindow*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledWindow*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledWindow.frame.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.borderWidth 1 $tixOption(prioLevel)
option add *TixComboBox*Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixComboBox*Entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixComboBox*Entry.foreground black $tixOption(prioLevel)
option add *TixComboBox*Entry.insertBackground black $tixOption(prioLevel)
}
proc tixPref:SetScheme-Mono:Bisque {} {
global tixOption
set tixOption(bg) lightgray
set tixOption(fg) black
set tixOption(dark1_bg) gray70
set tixOption(dark1_fg) black
set tixOption(dark2_bg) gray60
set tixOption(dark2_fg) white
set tixOption(inactive_bg) lightgray
set tixOption(inactive_fg) black
set tixOption(light1_bg) gray90
set tixOption(light1_fg) white
set tixOption(light2_bg) gray95
set tixOption(light2_fg) white
set tixOption(active_bg) gray90
set tixOption(active_fg) $tixOption(fg)
set tixOption(disabled_fg) gray55
set tixOption(input1_bg) $tixOption(light1_bg)
set tixOption(input2_bg) $tixOption(light1_bg)
set tixOption(output1_bg) $tixOption(light1_bg)
set tixOption(output2_bg) $tixOption(light1_bg)
set tixOption(select_fg) white
set tixOption(select_bg) black
set tixOption(selector) black
option add *background $tixOption(bg) 10
option add *Background $tixOption(bg) $tixOption(prioLevel)
option add *background $tixOption(bg) $tixOption(prioLevel)
option add *Foreground $tixOption(fg) $tixOption(prioLevel)
option add *foreground $tixOption(fg) $tixOption(prioLevel)
option add *activeBackground $tixOption(active_bg) $tixOption(prioLevel)
option add *activeForeground $tixOption(active_fg) $tixOption(prioLevel)
option add *HighlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *selectBackground $tixOption(select_bg) $tixOption(prioLevel)
option add *selectForeground $tixOption(select_fg) $tixOption(prioLevel)
option add *selectBorderWidth 0 $tixOption(prioLevel)
option add *Menu.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *TixMenu.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *Menubutton.padY 5 $tixOption(prioLevel)
option add *Button.borderWidth 2 $tixOption(prioLevel)
option add *Button.anchor c $tixOption(prioLevel)
option add *Checkbutton.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *Radiobutton.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *Entry.relief sunken $tixOption(prioLevel)
option add *Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *Entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *Entry.foreground black $tixOption(prioLevel)
option add *Entry.insertBackground black $tixOption(prioLevel)
option add *Label.anchor w $tixOption(prioLevel)
option add *Label.borderWidth 0 $tixOption(prioLevel)
option add *Listbox.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *Listbox.relief sunken $tixOption(prioLevel)
option add *Scale.foreground $tixOption(fg) $tixOption(prioLevel)
option add *Scale.activeForeground $tixOption(bg) $tixOption(prioLevel)
option add *Scale.background $tixOption(bg) $tixOption(prioLevel)
option add *Scale.sliderForeground $tixOption(bg) $tixOption(prioLevel)
option add *Scale.sliderBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *Scrollbar.relief sunken $tixOption(prioLevel)
option add *Scrollbar.borderWidth 1 $tixOption(prioLevel)
option add *Scrollbar.width 15 $tixOption(prioLevel)
option add *Text.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *Text.relief sunken $tixOption(prioLevel)
option add *TixBalloon*background #ffff60 $tixOption(prioLevel)
option add *TixBalloon*foreground black $tixOption(prioLevel)
option add *TixBalloon.background black $tixOption(prioLevel)
option add *TixBalloon*Label.anchor w $tixOption(prioLevel)
option add *TixControl*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixControl*entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixControl*entry.foreground black $tixOption(prioLevel)
option add *TixControl*entry.insertBackground black $tixOption(prioLevel)
option add *TixDirTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixDirTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixDirTree*f1.relief sunken $tixOption(prioLevel)
option add *TixDirList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixDirList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixDirList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixDirList*f1.relief sunken $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixScrolledHList*f1.relief sunken $tixOption(prioLevel)
option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixTree*f1.relief sunken $tixOption(prioLevel)
option add *TixFileEntry*Entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixHList.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixHList.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixHList.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixLabelEntry*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixLabelEntry*entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixLabelEntry*entry.foreground black $tixOption(prioLevel)
option add *TixLabelEntry*entry.insertBackground black $tixOption(prioLevel)
option add *TixMultiList*Listbox.borderWidth 0 $tixOption(prioLevel)
option add *TixMultiList*Listbox.highlightThickness 0 $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.relief sunken $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.width 15 $tixOption(prioLevel)
option add *TixMultiList*f1.borderWidth 2 $tixOption(prioLevel)
option add *TixMultiList*f1.relief sunken $tixOption(prioLevel)
option add *TixMultiList*f1.highlightThickness 2 $tixOption(prioLevel)
option add *TixMDIMenuBar*menubar.relief raised $tixOption(prioLevel)
option add *TixMDIMenuBar*menubar.borderWidth 2 $tixOption(prioLevel)
option add *TixMDIMenuBar*Menubutton.padY 2 $tixOption(prioLevel)
option add *TixNoteBook.Background $tixOption(bg) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.Background $tixOption(bg) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.backPageColor $tixOption(bg) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.inactiveBackground $tixOption(inactive_bg) $tixOption(prioLevel)
option add *TixPanedWindow.handleActiveBg $tixOption(active_bg) $tixOption(prioLevel)
option add *TixPanedWindow.seperatorBg $tixOption(bg) $tixOption(prioLevel)
option add *TixPanedWindow.handleBg $tixOption(dark1_bg) $tixOption(prioLevel)
option add *TixPopupMenu*menubutton.background $tixOption(dark1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledTList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledTList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledTList*tlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledTList*tlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledListBox*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledListBox*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledListBox*listbox.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledListBox*listbox.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledText*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledText*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledWindow*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledWindow*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledWindow.frame.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.borderWidth 1 $tixOption(prioLevel)
option add *TixComboBox*Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixComboBox*Entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixComboBox*Entry.foreground black $tixOption(prioLevel)
option add *TixComboBox*Entry.insertBackground black $tixOption(prioLevel)
}
Old14Pt.fs 0000644 00000000763 15035033122 0006265 0 ustar 00 #
# $Id: Old14Pt.fs,v 1.2 2001/12/09 05:03:09 idiscovery Exp $
#
proc tixSetFontset {} {
global tixOption
set tixOption(font) -*-helvetica-medium-r-normal-*-14-*-*-*-*-*-*-*
set tixOption(bold_font) -*-helvetica-bold-r-normal-*-14-*-*-*-*-*-*-*
set tixOption(menu_font) -*-helvetica-bold-o-normal-*-14-*-*-*-*-*-*-*
set tixOption(italic_font) -*-helvetica-bold-o-normal-*-14-*-*-*-*-*-*-*
set tixOption(fixed_font) -*-courier-medium-r-*-*-14-*-*-*-*-*-*-*
}
WmDefault.csc 0000644 00000034346 15035033123 0007133 0 ustar 00 # -*-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
}
10Point.fs 0000644 00000001201 15035033123 0006315 0 ustar 00 #
# $Id: 10Point.fs,v 1.2 2002/01/24 09:17:02 idiscovery Exp $
#
proc tixSetFontset {} {
global tixOption tcl_platform
switch -- $tcl_platform(platform) "windows" {
# This should be Tahoma for Win2000/XP
set font "MS Sans Sherif"
set fixedfont "Courier New"
} unix {
set font "helvetica"
set fixedfont "courier"
}
set tixOption(font) [list $font -10]
set tixOption(bold_font) [list $font -10 bold]
set tixOption(menu_font) [list $font -10]
set tixOption(italic_font) [list $font -10 bold italic]
set tixOption(fixed_font) [list $fixedfont -10]
set tixOption(border1) 1
}
Gray.cs 0000644 00000002025 15035033123 0005767 0 ustar 00 #
# $Id: Gray.cs,v 1.1.1.1 2000/05/17 11:08:47 idiscovery Exp $
#
proc tixSetScheme-Color {} {
global tixOption
set tixOption(bg) lightgray
set tixOption(fg) black
set tixOption(dark1_bg) gray
set tixOption(dark1_fg) black
set tixOption(dark2_bg) gray50
set tixOption(dark2_fg) black
set tixOption(inactive_bg) gray50
set tixOption(inactive_fg) black
set tixOption(light1_bg) gray90
set tixOption(light1_fg) white
set tixOption(light2_bg) gray95
set tixOption(light2_fg) white
set tixOption(active_bg) $tixOption(dark1_bg)
set tixOption(active_fg) $tixOption(fg)
set tixOption(disabled_fg) gray55
set tixOption(input1_bg) $tixOption(dark1_bg)
set tixOption(input2_bg) $tixOption(bg)
set tixOption(output1_bg) $tixOption(dark1_bg)
set tixOption(output2_bg) $tixOption(bg)
set tixOption(select_fg) black
set tixOption(select_bg) lightblue
set tixOption(selector) yellow
}
SGIGray.csc 0000644 00000054011 15035033124 0006500 0 ustar 00 #
# $Id: SGIGray.csc,v 1.2 2000/10/12 02:00:00 idiscovery Exp $
#
proc tixPref:SetScheme-Color:SGIGray {} {
global tixOption
set tixOption(bg) lightgray
set tixOption(fg) black
set tixOption(dark1_bg) gray
set tixOption(dark1_fg) black
set tixOption(dark2_bg) gray50
set tixOption(dark2_fg) black
set tixOption(inactive_bg) gray50
set tixOption(inactive_fg) black
set tixOption(light1_bg) gray90
set tixOption(light1_fg) white
set tixOption(light2_bg) gray95
set tixOption(light2_fg) white
set tixOption(active_bg) $tixOption(bg)
set tixOption(active_fg) $tixOption(fg)
set tixOption(disabled_fg) gray35
set tixOption(input1_bg) rosybrown
set tixOption(input2_bg) rosybrown
set tixOption(output1_bg) $tixOption(dark1_bg)
set tixOption(output2_bg) $tixOption(bg)
set tixOption(select_fg) black
set tixOption(select_bg) lightblue
set tixOption(selector) yellow
option add *background $tixOption(bg) 10
option add *Background $tixOption(bg) $tixOption(prioLevel)
option add *background $tixOption(bg) $tixOption(prioLevel)
option add *Foreground $tixOption(fg) $tixOption(prioLevel)
option add *foreground $tixOption(fg) $tixOption(prioLevel)
option add *activeBackground $tixOption(active_bg) $tixOption(prioLevel)
option add *activeForeground $tixOption(active_fg) $tixOption(prioLevel)
option add *HighlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *selectBackground $tixOption(select_bg) $tixOption(prioLevel)
option add *selectForeground $tixOption(select_fg) $tixOption(prioLevel)
option add *selectBorderWidth 0 $tixOption(prioLevel)
option add *Menu.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *TixMenu.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *Menubutton.padY 5 $tixOption(prioLevel)
option add *Button.borderWidth 2 $tixOption(prioLevel)
option add *Button.anchor c $tixOption(prioLevel)
option add *Checkbutton.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *Radiobutton.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *Entry.relief sunken $tixOption(prioLevel)
option add *Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *Entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *Entry.foreground black $tixOption(prioLevel)
option add *Entry.insertBackground black $tixOption(prioLevel)
option add *Label.anchor w $tixOption(prioLevel)
option add *Label.borderWidth 0 $tixOption(prioLevel)
option add *Listbox.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *Listbox.relief sunken $tixOption(prioLevel)
option add *Scale.foreground $tixOption(fg) $tixOption(prioLevel)
option add *Scale.activeForeground $tixOption(bg) $tixOption(prioLevel)
option add *Scale.background $tixOption(bg) $tixOption(prioLevel)
option add *Scale.sliderForeground $tixOption(bg) $tixOption(prioLevel)
option add *Scale.sliderBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *Scrollbar.relief sunken $tixOption(prioLevel)
option add *Scrollbar.borderWidth 1 $tixOption(prioLevel)
option add *Scrollbar.width 15 $tixOption(prioLevel)
option add *Text.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *Text.relief sunken $tixOption(prioLevel)
option add *TixBalloon*background #ffff60 $tixOption(prioLevel)
option add *TixBalloon*foreground black $tixOption(prioLevel)
option add *TixBalloon.background black $tixOption(prioLevel)
option add *TixBalloon*Label.anchor w $tixOption(prioLevel)
option add *TixControl*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixControl*entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixControl*entry.foreground black $tixOption(prioLevel)
option add *TixControl*entry.insertBackground black $tixOption(prioLevel)
option add *TixDirTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixDirTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixDirTree*f1.relief sunken $tixOption(prioLevel)
option add *TixDirList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixDirList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixDirList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixDirList*f1.relief sunken $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixScrolledHList*f1.relief sunken $tixOption(prioLevel)
option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixTree*f1.relief sunken $tixOption(prioLevel)
option add *TixFileEntry*Entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixHList.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixHList.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixHList.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixLabelEntry*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixLabelEntry*entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixLabelEntry*entry.foreground black $tixOption(prioLevel)
option add *TixLabelEntry*entry.insertBackground black $tixOption(prioLevel)
option add *TixMultiList*Listbox.borderWidth 0 $tixOption(prioLevel)
option add *TixMultiList*Listbox.highlightThickness 0 $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.relief sunken $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.width 15 $tixOption(prioLevel)
option add *TixMultiList*f1.borderWidth 2 $tixOption(prioLevel)
option add *TixMultiList*f1.relief sunken $tixOption(prioLevel)
option add *TixMultiList*f1.highlightThickness 2 $tixOption(prioLevel)
option add *TixMDIMenuBar*menubar.relief raised $tixOption(prioLevel)
option add *TixMDIMenuBar*menubar.borderWidth 2 $tixOption(prioLevel)
option add *TixMDIMenuBar*Menubutton.padY 2 $tixOption(prioLevel)
option add *TixNoteBook.Background $tixOption(bg) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.Background $tixOption(bg) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.backPageColor $tixOption(bg) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.inactiveBackground $tixOption(inactive_bg) $tixOption(prioLevel)
option add *TixPanedWindow.handleActiveBg $tixOption(active_bg) $tixOption(prioLevel)
option add *TixPanedWindow.seperatorBg $tixOption(bg) $tixOption(prioLevel)
option add *TixPanedWindow.handleBg $tixOption(dark1_bg) $tixOption(prioLevel)
option add *TixPopupMenu*menubutton.background $tixOption(dark1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledTList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledTList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledTList*tlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledTList*tlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledListBox*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledListBox*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledListBox*listbox.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledListBox*listbox.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledText*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledText*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledWindow*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledWindow*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledWindow.frame.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.borderWidth 1 $tixOption(prioLevel)
option add *TixComboBox*Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixComboBox*Entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixComboBox*Entry.foreground black $tixOption(prioLevel)
option add *TixComboBox*Entry.insertBackground black $tixOption(prioLevel)
}
proc tixPref:SetScheme-Mono:SGIGray {} {
global tixOption
set tixOption(bg) lightgray
set tixOption(fg) black
set tixOption(dark1_bg) gray70
set tixOption(dark1_fg) black
set tixOption(dark2_bg) gray60
set tixOption(dark2_fg) white
set tixOption(inactive_bg) lightgray
set tixOption(inactive_fg) black
set tixOption(light1_bg) gray90
set tixOption(light1_fg) white
set tixOption(light2_bg) gray95
set tixOption(light2_fg) white
set tixOption(active_bg) gray90
set tixOption(active_fg) $tixOption(fg)
set tixOption(disabled_fg) gray55
set tixOption(input1_bg) $tixOption(light1_bg)
set tixOption(input2_bg) $tixOption(light1_bg)
set tixOption(output1_bg) $tixOption(light1_bg)
set tixOption(output2_bg) $tixOption(light1_bg)
set tixOption(select_fg) white
set tixOption(select_bg) black
set tixOption(selector) black
option add *background $tixOption(bg) 10
option add *Background $tixOption(bg) $tixOption(prioLevel)
option add *background $tixOption(bg) $tixOption(prioLevel)
option add *Foreground $tixOption(fg) $tixOption(prioLevel)
option add *foreground $tixOption(fg) $tixOption(prioLevel)
option add *activeBackground $tixOption(active_bg) $tixOption(prioLevel)
option add *activeForeground $tixOption(active_fg) $tixOption(prioLevel)
option add *HighlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *selectBackground $tixOption(select_bg) $tixOption(prioLevel)
option add *selectForeground $tixOption(select_fg) $tixOption(prioLevel)
option add *selectBorderWidth 0 $tixOption(prioLevel)
option add *Menu.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *TixMenu.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *Menubutton.padY 5 $tixOption(prioLevel)
option add *Button.borderWidth 2 $tixOption(prioLevel)
option add *Button.anchor c $tixOption(prioLevel)
option add *Checkbutton.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *Radiobutton.selectColor $tixOption(selector) $tixOption(prioLevel)
option add *Entry.relief sunken $tixOption(prioLevel)
option add *Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *Entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *Entry.foreground black $tixOption(prioLevel)
option add *Entry.insertBackground black $tixOption(prioLevel)
option add *Label.anchor w $tixOption(prioLevel)
option add *Label.borderWidth 0 $tixOption(prioLevel)
option add *Listbox.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *Listbox.relief sunken $tixOption(prioLevel)
option add *Scale.foreground $tixOption(fg) $tixOption(prioLevel)
option add *Scale.activeForeground $tixOption(bg) $tixOption(prioLevel)
option add *Scale.background $tixOption(bg) $tixOption(prioLevel)
option add *Scale.sliderForeground $tixOption(bg) $tixOption(prioLevel)
option add *Scale.sliderBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *Scrollbar.relief sunken $tixOption(prioLevel)
option add *Scrollbar.borderWidth 1 $tixOption(prioLevel)
option add *Scrollbar.width 15 $tixOption(prioLevel)
option add *Text.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *Text.relief sunken $tixOption(prioLevel)
option add *TixBalloon*background #ffff60 $tixOption(prioLevel)
option add *TixBalloon*foreground black $tixOption(prioLevel)
option add *TixBalloon.background black $tixOption(prioLevel)
option add *TixBalloon*Label.anchor w $tixOption(prioLevel)
option add *TixControl*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixControl*entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixControl*entry.foreground black $tixOption(prioLevel)
option add *TixControl*entry.insertBackground black $tixOption(prioLevel)
option add *TixDirTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixDirTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixDirTree*f1.relief sunken $tixOption(prioLevel)
option add *TixDirList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixDirList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixDirList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixDirList*f1.relief sunken $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixScrolledHList*f1.relief sunken $tixOption(prioLevel)
option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixTree*f1.relief sunken $tixOption(prioLevel)
option add *TixFileEntry*Entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixHList.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixHList.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixHList.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixLabelEntry*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixLabelEntry*entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixLabelEntry*entry.foreground black $tixOption(prioLevel)
option add *TixLabelEntry*entry.insertBackground black $tixOption(prioLevel)
option add *TixMultiList*Listbox.borderWidth 0 $tixOption(prioLevel)
option add *TixMultiList*Listbox.highlightThickness 0 $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.relief sunken $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.width 15 $tixOption(prioLevel)
option add *TixMultiList*f1.borderWidth 2 $tixOption(prioLevel)
option add *TixMultiList*f1.relief sunken $tixOption(prioLevel)
option add *TixMultiList*f1.highlightThickness 2 $tixOption(prioLevel)
option add *TixMDIMenuBar*menubar.relief raised $tixOption(prioLevel)
option add *TixMDIMenuBar*menubar.borderWidth 2 $tixOption(prioLevel)
option add *TixMDIMenuBar*Menubutton.padY 2 $tixOption(prioLevel)
option add *TixNoteBook.Background $tixOption(bg) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.Background $tixOption(bg) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.backPageColor $tixOption(bg) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.inactiveBackground $tixOption(inactive_bg) $tixOption(prioLevel)
option add *TixPanedWindow.handleActiveBg $tixOption(active_bg) $tixOption(prioLevel)
option add *TixPanedWindow.seperatorBg $tixOption(bg) $tixOption(prioLevel)
option add *TixPanedWindow.handleBg $tixOption(dark1_bg) $tixOption(prioLevel)
option add *TixPopupMenu*menubutton.background $tixOption(dark1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledTList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledTList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledTList*tlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledTList*tlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledListBox*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledListBox*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledListBox*listbox.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledListBox*listbox.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledText*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledText*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledWindow*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledWindow*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledWindow.frame.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.borderWidth 1 $tixOption(prioLevel)
option add *TixComboBox*Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixComboBox*Entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixComboBox*Entry.foreground black $tixOption(prioLevel)
option add *TixComboBox*Entry.insertBackground black $tixOption(prioLevel)
}
TK.fsc 0000644 00000001071 15035033124 0005552 0 ustar 00 #
# $Id: TK.fsc,v 1.2 2001/12/09 05:03:09 idiscovery Exp $
#
proc tixPref:InitFontSet:TK {} {
global tixOption
set tixOption(font) -Adobe-Helvetica-Medium-R-Normal--*-120-*
set tixOption(bold_font) -Adobe-Helvetica-Bold-R-Normal--*-120-*
set tixOption(menu_font) -Adobe-Helvetica-Bold-R-Normal--*-120-*
set tixOption(italic_font) -Adobe-Helvetica-Bold-O-Normal--*-120-*
set tixOption(fixed_font) -*-courier-medium-r-*-*-14-*-*-*-*-*-*-*
set tixOption(border1) 1
}
proc tixPref:SetFontSet:TK {} {
global tixOption
}
SGIGray.cs 0000644 00000002002 15035033124 0006326 0 ustar 00 #
# $Id: SGIGray.cs,v 1.1.1.1 2000/05/17 11:08:47 idiscovery Exp $
#
proc tixSetScheme-Color {} {
global tixOption
set tixOption(bg) lightgray
set tixOption(fg) black
set tixOption(dark1_bg) gray
set tixOption(dark1_fg) black
set tixOption(dark2_bg) gray50
set tixOption(dark2_fg) black
set tixOption(inactive_bg) gray50
set tixOption(inactive_fg) black
set tixOption(light1_bg) gray90
set tixOption(light1_fg) white
set tixOption(light2_bg) gray95
set tixOption(light2_fg) white
set tixOption(active_bg) $tixOption(bg)
set tixOption(active_fg) $tixOption(fg)
set tixOption(disabled_fg) gray35
set tixOption(input1_bg) rosybrown
set tixOption(input2_bg) rosybrown
set tixOption(output1_bg) $tixOption(dark1_bg)
set tixOption(output2_bg) $tixOption(bg)
set tixOption(select_fg) black
set tixOption(select_bg) lightblue
set tixOption(selector) yellow
}
TkWin.fsc 0000644 00000003212 15035033124 0006267 0 ustar 00 #
# $Id: TkWin.fsc,v 1.2 2001/12/09 05:03:09 idiscovery Exp $
#
proc tixPref:InitFontSet:TkWin {} {
global tixOption
set tixOption(font) "windows-message"
set tixOption(bold_font) "windows-status"
set tixOption(menu_font) "windows-menu"
set tixOption(italic_font) "windows-message"
set tixOption(fixed_font) "systemfixed"
set tixOption(border1) 1
}
proc tixPref:SetFontSet:TkWin {} {
global tixOption
option add *Menu.font $tixOption(menu_font) $tixOption(prioLevel)
option add *TixMenu.font $tixOption(menu_font) $tixOption(prioLevel)
option add *Menubutton.font $tixOption(menu_font) $tixOption(prioLevel)
option add *Label.font $tixOption(bold_font) $tixOption(prioLevel)
option add *Scale.font $tixOption(italic_font) $tixOption(prioLevel)
option add *TixBalloon*Label.font $tixOption(font) $tixOption(prioLevel)
option add *TixBitmapButton*label.font $tixOption(font) $tixOption(prioLevel)
option add *TixControl*label.font $tixOption(bold_font) $tixOption(prioLevel)
option add *TixLabelEntry*label.font $tixOption(bold_font) $tixOption(prioLevel)
option add *TixLabelFrame*label.font $tixOption(bold_font) $tixOption(prioLevel)
option add *TixMwmClient*title.font $tixOption(menu_font) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.font $tixOption(menu_font) $tixOption(prioLevel)
option add *TixOptionMenu*menubutton.font $tixOption(font) $tixOption(prioLevel)
option add *TixComboBox*Entry.font $tixOption(font) $tixOption(prioLevel)
option add *TixFileSelectBox*Label.font $tixOption(bold_font) $tixOption(prioLevel)
}
WmDefault.fsc 0000644 00000004210 15035033125 0007123 0 ustar 00 # -*-mode: tcl; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
#
# $Id: WmDefault.fsc,v 1.2 2001/12/09 05:03:09 idiscovery Exp $
#
#
proc tixPref:InitFontSet:WmDefault {} {
global tixOption
package require wm_default
if {1 || ![info exists ::wm_default::wm]} {
wm_default::setup
wm_default::addoptions
}
set tixOption(font) $::wm_default::system_font
set tixOption(bold_font) [concat $::wm_default::system_font bold]
set tixOption(menu_font) $::wm_default::menu_font
set tixOption(italic_font) [concat $::wm_default::system_font italic]
set tixOption(fixed_font) $::wm_default::fixed_font
set tixOption(border1) $::wm_default::borderwidth
}
proc tixPref:SetFontSet:WmDefault {} {
global tixOption
package require wm_default
if {1 || ![info exists ::wm_default::wm]} {
wm_default::setup
wm_default::addoptions
}
set pri $tixOption(prioLevel)
set tixOption(font) $::wm_default::system_font
set tixOption(bold_font) [concat $::wm_default::system_font bold]
set tixOption(menu_font) $::wm_default::menu_font
set tixOption(italic_font) [concat $::wm_default::system_font italic]
set tixOption(fixed_font) $::wm_default::fixed_font
set tixOption(text_font) $::wm_default::text_font
set tixOption(border1) $::wm_default::borderwidth
option add *TixBalloon*Label.font $tixOption(font) $pri
option add *TixBitmapButton*label.font $tixOption(font) $pri
option add *TixControl*label.font $tixOption(font) $pri
option add *TixLabelEntry*label.font $tixOption(font) $pri
option add *TixLabelFrame*label.font $tixOption(font) $pri
option add *TixMenu.font $tixOption(menu_font) $pri
option add *TixMwmClient*title.font $tixOption(font) $pri
option add *TixNoteBook.nbframe.font $tixOption(font) $pri
# Although its a menubutton, it's more like a button than a menu IMHO
option add *TixOptionMenu*menubutton.font $tixOption(font) $pri
option add *TixComboBox*Entry.font $tixOption(font) $pri
option add *TixFileSelectBox*Label.font $tixOption(font) $pri
}
12Point.fsc 0000644 00000003775 15035033125 0006506 0 ustar 00 #
# $Id: 12Point.fsc,v 1.2 2001/12/09 05:03:09 idiscovery Exp $
#
proc tixPref:InitFontSet:12Point {} {
global tixOption tcl_platform
switch -- $tcl_platform(platform) "windows" {
# This should be Tahoma for Win2000/XP
set font "MS Sans Serif"
set fixedfont "Courier New"
} unix {
set font "helvetica"
set fixedfont "courier"
}
set tixOption(font) [list $font -12]
set tixOption(bold_font) [list $font -12 bold]
set tixOption(menu_font) [list $font -12]
set tixOption(italic_font) [list $font -12 bold italic]
set tixOption(fixed_font) [list $fixedfont -12]
set tixOption(border1) 1
}
proc tixPref:SetFontSet:12Point {} {
global tixOption
option add *Font $tixOption(font) $tixOption(prioLevel)
option add *font $tixOption(font) $tixOption(prioLevel)
option add *Menu.font $tixOption(menu_font) $tixOption(prioLevel)
option add *TixMenu.font $tixOption(menu_font) $tixOption(prioLevel)
option add *Menubutton.font $tixOption(menu_font) $tixOption(prioLevel)
option add *Label.font $tixOption(bold_font) $tixOption(prioLevel)
option add *Scale.font $tixOption(italic_font) $tixOption(prioLevel)
option add *TixBalloon*Label.font $tixOption(font) $tixOption(prioLevel)
option add *TixBitmapButton*label.font $tixOption(font) $tixOption(prioLevel)
option add *TixControl*label.font $tixOption(bold_font) $tixOption(prioLevel)
option add *TixLabelEntry*label.font $tixOption(bold_font) $tixOption(prioLevel)
option add *TixLabelFrame*label.font $tixOption(bold_font) $tixOption(prioLevel)
option add *TixMwmClient*title.font $tixOption(menu_font) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.font $tixOption(menu_font) $tixOption(prioLevel)
option add *TixOptionMenu*menubutton.font $tixOption(font) $tixOption(prioLevel)
option add *TixComboBox*Entry.font $tixOption(font) $tixOption(prioLevel)
option add *TixFileSelectBox*Label.font $tixOption(bold_font) $tixOption(prioLevel)
}
TkWin.fs 0000644 00000000606 15035033125 0006131 0 ustar 00 #
# $Id: TkWin.fs,v 1.2 2001/12/09 05:03:09 idiscovery Exp $
#
proc tixSetFontset {} {
global tixOption
set tixOption(font) "windows-message"
set tixOption(bold_font) "windows-status"
set tixOption(menu_font) "windows-menu"
set tixOption(italic_font) "windows-message"
set tixOption(fixed_font) "systemfixed"
set tixOption(border1) 1
}
WmDefault.tcl 0000644 00000102065 15035033125 0007141 0 ustar 00 # -*-mode: tcl; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
#
#
# $Id: WmDefault.tcl,v 1.7 2008/03/17 22:47:00 hobbs Exp $
#
# Description: Package for making Tk apps use the CDE/KDE/Gnome/Windows scheme
# Prefix: wm_default::
# Url: http://tix.sourceforge.net/Tixapps/
#
# Usage:
# It should be sufficient at the beginning of a wish app to simply:
#
# package require wm_default
# wm_default::setup
# wm_default::addoptions
#
# wm_default::setup takes an optional argument - the scheme if already
# known, one of: windows gnome kde1 kde2 cde kde
# wm_default::addoptions takes optional arguments - pairs of variables
# and values to override the kde settings. e.g.
# wm_default::addoptions -background blue
#
# Description:
# package for making Tk apps look nice under CDE or KDE or Windows
#
# The stuff below attempts to use the options database and the
# various files under ~/.dt, $DTHOME, and /usr/dt to figure out
# the user's current font and color set. It then uses tk's
# palette routines to set sensible defaults, and then override
# some of the options to try to make them look like CDE.
#
# There really *must* be an easier way to get text background
# colors and the radiobutton highlight colors out of the
# options database or winfo atom... Unfortunately, I can't
# figure out how...
# This package is based on the cde package by D. J. Hagberg, Jr.:
# dhagberg@glatmos.com
########################################################################
#
#
# Copyright 1998 D. J. Hagberg, Jr. and Global Atmospherics, Inc.
#
# Permission to use, copy, modify, and distribute this software and its
# documentation for any purpose and without fee is hereby granted, provided
# that the above copyright notice appear in all copies.
# D. J. Hagberg, Jr. and Global Atmospherics, Inc. make no representations
# about the suitability of this software for any It is provided "as is"
# without express or implied warranty. By use of this software the user
# agrees to indemnify and hold harmless D. J. Hagberg, Jr. and Global
# Atmospherics, Inc. from any claims or liability for loss arising out
# of such use.
########################################################################
package require Tk
proc tixDetermineWM {} {
# Returns one of cde kde1 kde2 gnome windows or ""
global tcl_platform env
set type ""
if {$tcl_platform(platform) eq "windows"} {
set type windows
} else {
# The most definitive way is to check the X atoms
# I'm not sure if we can determine this using regular Tk wm calls
# I don't want to intern these symbols if they're not there.
if {![catch {exec xlsatoms} xatoms]} {
if {[string match *GNOME_SESSION_CORBA_COOKIE* $xatoms]} {
set type gnome
} elseif {[string match *KDEChangeStyle* $xatoms]} {
set type kde1
} elseif {[string match *KDE_DESKTOP_WINDOW* $xatoms]} {
set type kde2
}
}
if {$type != ""} {
# drop through
} elseif {[info exists env(KDEDIR)] && [file isdir $env(KDEDIR)]} {
# one or two?
set type kde2
} elseif {[info exists env(DTHOME)] && [file isdir $env(DTHOME)]} {
set type cde
} else {
# Maybe look for other Unix window managers?
# if {[file isfile $env(HOME)/.fwm2rc]} {}
# if {[file isfile $env(HOME)/.fwmrc]} {}
# if {[file isfile $env(HOME)/.twmrc]} {}
# But twm and fwm don't color applications; mwm maybe?
# Hope someone comes up with the code for openlook :-)
return ""
}
}
return $type
}
namespace eval ::wm_default {
global tcl_platform env
set _usetix [llength [info commands "tix"]]
variable wm ""
variable _frame_widgets {*Frame *Toplevel}
#what about tixGrid?
if {$_usetix} {
lappend _frame_widgets *TixLabelFrame *TixButtonBox *TixCObjView \
*TixListNoteBook *TixPanedWindow *TixStdButtonBox \
*TixExFileSelectBox
}
variable _menu_font_widgets {*Menu *Menubutton}
if {$_usetix} {lappend _menu_font_widgets *TixMenu}
variable _button_font_widgets {*Button}
variable _system_font_widgets {*Label \
*Message \
*Scale *Radiobutton *Checkbutton
}
if {$_usetix} {
lappend _system_font_widgets \
*TixBalloon*message *TixLabelFrame*Label \
*TixControl*label *TixControl*Label \
*TixLabelEntry*label *TixNoteBook.nbframe \
*TixFileEntry*label *TixComboBox*label \
*TixOptionMenu*menubutton *TixBitmapButton*label \
*TixMwmClient*title *TixFileSelectBox*Label
}
variable _text_type_widgets {*Canvas *Entry *Listbox *Text}
if {$_usetix} {
lappend _text_type_widgets \
*TixComboBox*Entry *TixControl*entry *TixScrolledHList*hlist \
*TixDirTree*hlist *TixDirList*hlist *TixTree*hlist \
*TixMultiList*Listbox *TixScrolledListBox*listbox \
*TixFileEntry*Entry *TixLabelEntry*Entry \
*TixFileEntry*entry *TixLabelEntry*entry \
*TixScrolledTList*tlist *TixScrolledText*text \
*TixHList *TixCheckList*hlist
# These arent working yet
lappend _text_type_widgets \
*TixDirTree*f1 *TixDirList*f1 \
*TixFileSelectBox*file*listbox \
*TixFileSelectBox*directory*listbox \
*TixExFileSelectBox*filelist*listbox
}
variable _insert_type_widgets {*Entry *Text}
if {$_usetix} {
lappend _insert_type_widgets \
*TixControl*entry *TixComboBox*Entry
}
variable _select_type_widgets {*Checkbutton \
*Radiobutton \
*Menu}
variable _active_borderwidth_widgets {*Button *Radiobutton *Checkbutton}
# Other Widgets that are given a borderwidth of $wm_default::borderwidth
variable _nonzero_borderwidth_widgets {}
# Widgets that are given a borderwidth of 0
# must not be *Entry
variable _null_borderwidth_widgets {*Menubutton *Label}
variable _scrollbar_widgets {}
variable _scrollbar_widgets {*Scrollbar}
if {$_usetix} {
lappend _scrollbar_widgets \
*TixTree*Scrollbar *TixDirTree*Scrollbar *TixDirList*Scrollbar \
*TixScrolledTList*Scrollbar *TixScrolledListBox*Scrollbar \
*TixScrolledHList*Scrollbar *TixMultiView*Scrollbar \
*TixScrolledText*Scrollbar *TixScrolledWindow*Scrollbar \
*TixCObjView*Scrollbar
}
proc debug {str} {
if {[llength [info commands "tix"]] &&
[string is true -strict [tix cget -debug]]} {
puts $str
}
}
# Return the array of what we have deduced
proc getoptions {} {
set retval {}
set len [string length "::wm_default::"]
foreach variable [lsort [info vars ::wm_default::*]] {
if {[string match ::wm_default::_* $variable]} {continue}
set key [string range $variable $len end]
lappend retval $key [set $variable]
}
return $retval
}
# Print out the array of what we have deduced
proc parray {} {
set retval ""
foreach {key val} [::wm_default::getoptions] {
append retval [join [list $key $val]] "\n"
}
debug $retval
return $retval
}
# Pick a default borderwidth in pixels
set _bd 2
# Pick a default font size in pixels
set _screenheight [winfo screenheight .]
if {$_screenheight < 500} {
# for 800x600 or smaller
set _pixel 10
set _point 8
# Pick a default borderwidth which smaller
set _bd 1
} elseif {$_screenheight < 800} {
# for 1024x768
set _pixel 12
set _point 8
} elseif {$_screenheight < 1100} {
# for 1200x1000
set _pixel 12
set _point 8
} else {
set _pixel 12
set _point 10
}
# setup defaults depending on the OS and Window Manager
# Really should do another version for mono
if {$tcl_platform(platform) eq "windows"} {
if {$tcl_platform(osVersion) < 5} {
set _prop_default "MS Sans Serif"
} else {
set _prop_default "Tahoma"
}
# make sure this font is installed
set _allowed [string tolow [font families]]
foreach font [list $_prop_default "MS Sans Serif" Tahoma Arial System] {
if {[lsearch -exact $_allowed [string tolow $font]] > -1} {
set _prop_default $font
break
}
}
set _fixed_default {Courier New}
# make sure this font is installed
foreach font [list $_fixed_default Courier System] {
if {[lsearch -exact $_allowed [string tolow $font]] > -1} {
set _fixed_default $font
break
}
}
# Windows colors:
# "3dDarkShadow", COLOR_3DDKSHADOW,
# "3dLight", COLOR_3DLIGHT,
# "ActiveBorder", COLOR_ACTIVEBORDER,
# "ActiveCaption", COLOR_ACTIVECAPTION,
# "AppWorkspace", COLOR_APPWORKSPACE,
# "Background", COLOR_BACKGROUND,
# "ButtonFace", COLOR_BTNFACE,
# "ButtonHighlight", COLOR_BTNHIGHLIGHT,
# "ButtonShadow", COLOR_BTNSHADOW,
# "ButtonText", COLOR_BTNTEXT,
# "CaptionText", COLOR_CAPTIONTEXT,
# "DisabledText", COLOR_GRAYTEXT,
# "GrayText", COLOR_GRAYTEXT,
# "Highlight", COLOR_HIGHLIGHT,
# "HighlightText", COLOR_HIGHLIGHTTEXT,
# "InactiveBorder", COLOR_INACTIVEBORDER,
# "InactiveCaption", COLOR_INACTIVECAPTION,
# "InactiveCaptionText", COLOR_INACTIVECAPTIONTEXT,
# "InfoBackground", COLOR_INFOBK,
# "InfoText", COLOR_INFOTEXT,
# "Menu", COLOR_MENU,
# "MenuText", COLOR_MENUTEXT,
# "Scrollbar", COLOR_SCROLLBAR,
# "Window", COLOR_WINDOW,
# "WindowFrame", COLOR_WINDOWFRAME,
# "WindowText", COLOR_WINDOWTEXT,
variable \
background "SystemButtonFace" \
foreground "SystemButtonText" \
disabledforeground "SystemDisabledText" \
disabledbackground "SystemButtonShadow" \
textfamily $_prop_default \
systemfamily $_prop_default \
menufamily $_prop_default \
fixedfamily $_fixed_default \
fontsize $_point \
textbackground "SystemWindow" \
textforeground "SystemWindowText" \
disabledtextbackground "SystemDisabledText" \
selectbackground "SystemHighlight" \
selectforeground "SystemHighlightText" \
selectcolor "SystemWindow" \
highlightcolor "SystemWindowFrame" \
highlightbackground "SystemButtonFace" \
scrollbars "SystemScrollbar" \
borderwidth $_bd \
menubackground "SystemMenu" \
menuforeground "SystemMenuText"
variable highlightthickness 1
# Windows does not have an activebackground, but Tk does
variable activebackground $background
variable activeforeground $foreground
} else {
# intended for Unix
# Tk uses the following defaults:
#define NORMAL_BG "#d9d9d9"
#define ACTIVE_BG "#ececec"
#define SELECT_BG "#c3c3c3"
#define TROUGH "#c3c3c3"
#define INDICATOR "#b03060"
#define DISABLED "#a3a3a3"
# We know . exists and it has a background
# This should be "#d9d9d9" under default Tk
set _bg [. cget -background]
set _prop_default helvetica
# make sure this font is installed
set _allowed [string tolow [font families]]
foreach font [list $_prop_default times fixed] {
if {[lsearch -exact $_allowed [string tolow $font]] > -1} {
set _prop_default $font
break
}
}
set _fixed_default courier
# make sure this font is installed
foreach font [list $_fixed_default fixed] {
if {[lsearch -exact $_allowed [string tolow $font]] > -1} {
set _fixed_default $font
break
}
}
variable \
background $_bg \
foreground Black \
disabledforeground #808080 \
disabledbackground #a3a3a3 \
textfamily $_prop_default \
systemfamily $_prop_default \
menufamily $_prop_default \
fixedfamily $_fixed_default \
fontsize $_pixel \
textbackground white \
textforeground Black \
disabledtextbackground $_bg \
selectbackground #000080 \
selectforeground white \
selectcolor yellow \
highlightcolor Black \
highlightbackground $_bg \
scrollbars "#c3c3c3" \
borderwidth $_bd \
menubackground $_bg \
menuforeground Black
variable highlightthickness 1
# Windows does not have an activebackground, but Tk does
variable activebackground "#ececec"
variable activeforeground $foreground
}
# priority should be userDefault?
if {$_usetix} {
variable priority [tix cget -schemepriority]
} else {
variable priority 75
}
# variables that will be derived during addoptions - set to null for now
variable system_font {}
variable menu_font {}
variable fixed_font {}
variable text_font {}
# Different desktops have different visible regions
# This is not working properly yet.
variable geometry 0+0+[winfo screenwidth .]+$_screenheight
# Different desktops have different focusmodels: clicktofocus or
# followsmouse This is not working properly yet
variable focusmodel clicktofocus
# Some desktops have standardized link colors
# This is not working properly yet
variable linkcolor "#0000ff" vlinkcolor "#800000" alinkcolor "#800080"
proc default {args} {
# Override the defaults with any optional arguments
foreach {var val} $args {
set $var $val
}
}
proc setup {{type ""}} {
# type is one of the recognized window managers
# one of: cde kde win
global tcl_platform env
if {$type == ""} {
if {[set type [::tixDetermineWM]] == ""} {
set ::wm_default::wm ""
# Generic unix
return
}
}
setup-$type
set ::wm_default::wm $type
# todo - make the menubutton enter and leave events more compatible
}
proc setup-windows {args} {
# Already done by Tk above.
# Should find out the useable window region
}
proc setup-gnome {args} {
# GNOME is still barely supported because of the difficulty
# of finding and parsing sawfish definition files.
# First you have to find what window manager, then what theme,
# then find the files, then parse them according to each Wm's syntax.
global env
set bg $wm_default::background
set fg $wm_default::foreground
set txtFont $wm_default::textfamily
set btnFont $wm_default::systemfamily
debug "Setting up Gnome environment"
set file ~/.gnome/theme-switcher-capplet
if {![file exists $file] || \
[catch {open $file} fd] || $fd == ""} {
debug "Skipping $file"
} else {
debug "Reading $file"
set contents [read $fd]
catch {close $fd}
if {![regexp -- "use_theme_font=true" $contents]} {
# not activated
} elseif {[regexp -- "\nfont=(\[-a-zA-Z0-9,\]+)" $contents \
foo font]} {
set_unix_font $font
}
}
}
proc set_unix_font {font} {
set list [split $font "-"]
set font [lindex $list 2]
set font [string tolow $font]
if {$font != "" && [lsearch -exact [font families] $font] > -1} {
set wm_default::textfamily $font
debug "Setting textfamily to $font"
set wm_default::systemfamily $font
set wm_default::menufamily $font
} else {
debug "Unable to set font: '$list'"
}
if {[set size [lindex $list 7]] != "" && \
[string is integer -strict $size]} {
debug "Setting fontsize to '$size'"
set wm_default::fontsize $size
} elseif {[set size [lindex $list 8]] != "" && \
[string is integer -strict $size]} {
if {$size > 100} {set size [expr {$size / 10}]}
debug "Setting fontsize to '$size'"
set wm_default::fontsize $size
} else {
debug "Unable to set fontsize: '$list'"
}
}
# Common to KDE1 and KDE2
proc setup-kde {args} {
global env
set file ~/.kderc
if {![file exists $file] || [catch {open $file} fd] || $fd == ""} {
debug "Skipping $file"
} else {
debug "Reading $file"
set contents [read $fd]
catch {close $fd}
if {[regexp -- "\nfixedfamily=(\[-a-zA-Z0-9, \]+)" $contents \
foo font]} {
set list [split $font ","]
set font [lindex $list 0]
set wm_default::fixedfamily $font
debug "Setting fixedfamily to $font"
}
if {[regexp -- "\nfont=(\[-a-zA-Z0-9, \]+)" $contents \
foo font]} {
set list [split $font ","]
set font [lindex $list 0]
set wm_default::textfamily $font
debug "Setting textfamily to $font"
set wm_default::systemfamily $font
set wm_default::menufamily $font
}
}
}
proc setup-kde1 {args} {
# Shortcut for the moment
return [eval setup-kde $args]
}
proc set-kde2-color {str contents var} {
if {[regexp -- "\n${str}=(\[0-9,\]+)" $contents -> color]} {
set color [eval [list format "#%02x%02x%02x"] [split $color ","]]
set ::wm_default::$var $color
debug "setting $var to $color"
}
}
proc setup-kde2 {args} {
global env
set bg $wm_default::background
set fg $wm_default::foreground
set txtFont $wm_default::textfamily
set btnFont $wm_default::systemfamily
debug "Setting up KDE environment"
# Look for system the user settings
set dirs ~/.kde
if {[info exists env(KDEDIR)] && [file isdir $env(KDEDIR)]} {
lappend dirs $env(KDEDIR)
}
# read them sequentially and overwrite the previous values
foreach dir $dirs {
set file $dir/share/config/kdeglobals
if {![file exists $file] || [catch {open $file} fd] || $fd == ""} {
debug "Skipping $file"
} else {
debug "Reading $file"
set contents [read $fd]
catch {close $fd}
set-kde2-color background $contents background
set-kde2-color foreground $contents foreground
set-kde2-color selectBackground $contents selectbackground
set-kde2-color selectForeground $contents selectforeground
set-kde2-color windowBackground $contents textbackground
set-kde2-color visitedLinkColor $contents vlinkcolor
set-kde2-color linkColor $contents linkcolor
if {[regexp -- "\nactiveFont=(\[-a-zA-Z0-9, \]+)" $contents \
foo font]} {
set list [split $font ","]
set font [lindex $list 0]
set wm_default::textfamily $font
set size [lindex $list 1]
if {[string is integer -strict $size]} {
set wm_default::fontsize $size
}
debug "Setting textfamily to $font"
set wm_default::systemfamily $font
set wm_default::menufamily $font
}
}
# should pick up visitedLinkColor
set file $dir/share/config/kwmrc
if {![file exists $file] || [catch {open $file} fd] || $fd == ""} {
debug "Skipping $file"
} else {
debug "Reading $file"
set contents [read $fd]
catch {close $fd}
if {[regexp -- "\nDesktop1Region=(\[0-9+\]+)" $contents \
foo region]} {
set wm_default::geometry $region
debug "Setting geometry to $region"
}
if {[regexp -- "\nFocusPolicy=ClickToFocus" $contents \
foo region]} {
set wm_default::focusmodel clicktofocus
debug "Setting focusmodel to clicktofocus"
} else {
# followsmouse
}
}
}
return [eval setup-kde $args]
}
proc setup-cde {args} {
namespace import wm_default::*
set bg $wm_default::background
set fg $wm_default::foreground
set txtFont $wm_default::textfamily
set sysFont $wm_default::systemfamily
debug "Setting up CDE environment"
# if any of these options are missing, we must not be under CDE
set txtFont [option get . textfamilyList textfamilyList]
set sysFont [option get . systemfamilyList systemfamilyList]
if {$txtFont ne "" && $sysFont ne ""} {
set txtFont [lindex [split $txtFont :] 0]
set sysFont [lindex [split $sysFont :] 0]
if {$txtFont ne ""} {set textfamily $txtFont}
if {$sysFont ne ""} {set systemfamily $sysFont}
#
# If we can find the user's dt.resources file, we can find out the
# palette and text background/foreground colors
#
set txtBg $bg
set txtFg $fg
set selFg $selectforeground
set selBg $selectbackground
set selCol $selectcolor
set fh ""
set palf ""
set cur_rsrc ~/.dt/sessions/current/dt.resources
set hom_rsrc ~/.dt/sessions/home/dt.resources
if {[file readable $cur_rsrc] && [file readable $hom_rsrc]} {
if {[file mtime $cur_rsrc] > [file mtime $hom_rsrc]} {
if {[catch {open $cur_rsrc r} fh]} {set fh ""}
} else {
if {[catch {open $hom_rsrc r} fh]} {set fh ""}
}
} elseif {[file readable $cur_rsrc]} {
if {[catch {open $cur_rsrc r} fh]} {set fh ""}
} elseif {[file readable $hom_rsrc]} {
if {[catch {open $hom_rsrc r} fh]} {set fh ""}
}
if {[string length $fh] > 0} {
while {[gets $fh ln] != -1} {
regexp -- "^\\*0\\*ColorPalette:\[ \t]*(.*)\$" $ln nil palf
regexp -- "^Window.Color.Background:\[ \t]*(.*)\$" $ln nil txtBg
regexp -- "^Window.Color.Foreground:\[ \t]*(.*)\$" $ln nil txtFg
}
catch {close $fh}
if {$txtBg ne $bg} {
set selBg $txtFg
set selFg $txtBg
}
}
#
# If the *0*ColorPalette setting was found above, try to find the
# indicated file in ~/.dt, $DTHOME, or /usr/dt. The 3rd line in the
# file will be the radiobutton/checkbutton selectColor.
#
if {[string length $palf]} {
set dtdir /usr/dt
if [info exists env(DTHOME)] {
set dtdir $env(DTHOME)
}
if {[file readable ~/.dt/palettes/$palf]} {
set palf ~/.dt/palettes/$palf
} elseif {[file readable $dtdir/palettes/$palf]} {
set palf $dtdir/palettes/$palf
} else {
set palf ""
}
if {[string length $palf]} {
if {![catch {open $palf r} fh]} {
# selectColor will be the 3rd line in the file --
set ln ""; catch {gets $fh; gets $fh; gets $fh ln}
set ln [string trim $ln]
if {[string length $ln]} {set selCol $ln}
close $fh
}
}
}
set wm_default::background $bg
set wm_default::foreground $fg
set wm_default::textfamily $txtFont
set wm_default::systemfamily $sysFont
set wm_default::menufamily $sysFont
set wm_default::textbackground $txtBg
set wm_default::textforeground $txtFg
set wm_default::selectbackground $selBg
set wm_default::selectforeground $selFg
set wm_default::selectcolor $selCol
}
}
proc derivefonts {} {
global tcl_platform env
# variables that will be derived
variable system_font
variable menu_font
variable fixed_font
variable text_font
#
# Set default fonts
#
global tcl_platform env
switch -exact -- $tcl_platform(platform) windows {
set system_font [list $::wm_default::systemfamily $::wm_default::fontsize]
set menu_font [list $::wm_default::menufamily $::wm_default::fontsize]
set text_font [list $::wm_default::textfamily $::wm_default::fontsize]
set fixed_font [list $::wm_default::fixedfamily $::wm_default::fontsize]
} default {
set system_font [list $::wm_default::systemfamily -$::wm_default::fontsize]
if {[set type $::wm_default::wm] == ""} {
# Generic unix
# some Unix Wms seem to make Menu fonts bold - ugly IMHO
set menu_font [list $::wm_default::menufamily -$::wm_default::fontsize bold]
} else {
# gnome kde1 kde2 cde kde don't
set menu_font [list $::wm_default::menufamily -$::wm_default::fontsize]
}
set text_font [list $::wm_default::textfamily -$::wm_default::fontsize]
set fixed_font [list $::wm_default::fixedfamily -$::wm_default::fontsize]
}
}
proc addoptions {args} {
global tcl_platform env tix_version
# variables that will be derived
variable system_font
variable menu_font
variable fixed_font
variable text_font
if {[info commands "tix"] != ""} {set _usetix 1} {set _usetix 0}
# Override what you have found with any optional arguments
foreach {var val} $args {
set var [string trimleft $var "-"]
set ::wm_default::$var $val
}
set pri $::wm_default::priority
# If you are running under Tix, set the colorscheme now
# The options below will then override the Tix settings
if {$_usetix} {
# Tix's focus model is very non-standard
bind TixComboBox <FocusIn> ""
bind TixComboBox <FocusOut> ""
if {$tix_version < "8.2"} {
# works??
option add *TixNoteBook.nbframe.inactiveBackground \
$::wm_default::disabledbackground $pri
} else {
# works??
option add *TixNoteBook.nbframe.inactiveBackground \
$::wm_default::background $pri
}
# works??
option add *TixPanedWindow.seperatorBg \
$::wm_default::disabledbackground $pri
option add *TixPanedWindow.handleBg \
$::wm_default::disabledbackground $pri
# works??
option add *TixPanedWindow.separatorActiveBg \
$::wm_default::activebackground $pri
option add *TixPanedWindow.handleActiveBg \
$::wm_default::activebackground $pri
option add *TixPanedWindow.Background \
$::wm_default::disabledbackground $pri
# works??
option add *TixResizeHandle*background \
$::wm_default::disabledbackground $pri
}
foreach pref $wm_default::_frame_widgets {
option add $pref.background $::wm_default::background $pri
}
option add *Background $::wm_default::background $pri
derivefonts
# Set the global defaults to the system font
foreach pref [list *Font *font] {
option add $pref $system_font $pri
}
# Set the "system" type defaults to the system font
foreach pref $wm_default::_menu_font_widgets {
option add $pref.font $menu_font $pri
}
foreach pref $wm_default::_button_font_widgets {
option add $pref.font $system_font $pri
option add $pref.disabledForeground $::wm_default::disabledforeground $pri
option add $pref.background $::wm_default::background $pri
option add $pref.foreground $::wm_default::foreground $pri
option add $pref.highlightBackground $::wm_default::highlightbackground $pri
}
foreach pref $wm_default::_system_font_widgets {
option add $pref.font $system_font $pri
option add $pref.background $::wm_default::background $pri
option add $pref.foreground $::wm_default::foreground $pri
option add $pref.highlightBackground $::wm_default::highlightbackground $pri
}
foreach pref $wm_default::_text_type_widgets {
option add $pref.font $text_font $pri
option add $pref.relief sunken $pri
option add $pref.borderWidth $::wm_default::borderwidth $pri
option add $pref.background $::wm_default::textbackground $pri
option add $pref.foreground $::wm_default::textforeground $pri
option add $pref.selectBackground $::wm_default::selectbackground $pri
option add $pref.selectForeground $::wm_default::selectforeground $pri
option add $pref.highlightThickness $::wm_default::highlightthickness $pri
option add $pref.disabledBackground $::wm_default::disabledtextbackground $pri
}
foreach pref $wm_default::_insert_type_widgets {
option add $pref.relief sunken $pri
option add $pref.insertBackground $::wm_default::textforeground $pri
option add $pref.highlightThickness $::wm_default::highlightthickness $pri
}
#
# Set the Selector color for radiobuttons, checkbuttons, et. al
#
foreach pref $wm_default::_select_type_widgets {
option add $pref.selectColor $::wm_default::selectcolor $pri
option add $pref.background $::wm_default::background $pri
option add $pref.foreground $::wm_default::foreground $pri
option add $pref.activeBackground $::wm_default::activebackground $pri
option add $pref.activeForeground $::wm_default::activeforeground $pri
}
# Set the "active" defaults - this could be controversial
foreach pref $wm_default::_menu_font_widgets {
option add $pref.activeBackground $::wm_default::activebackground $pri
option add $pref.activeForeground $::wm_default::activeforeground $pri
option add $pref.background $::wm_default::background $pri
option add $pref.foreground $::wm_default::foreground $pri
option add $pref.disabledForeground $::wm_default::disabledforeground $pri
option add $pref.highlightThickness $::wm_default::highlightthickness $pri
}
switch -exact -- $tcl_platform(platform) windows {
# Make sure this is set to foreground - check marks on menus
set _menu_select_color $::wm_default::foreground
} default {
# On unix there are recessed check boxes not check marks
set _menu_select_color $::wm_default::selectcolor
}
option add *Menu.selectColor $_menu_select_color $pri
if {$_usetix} {
option add *TixMenu.selectColor $_menu_select_color $pri
option add *TixBalloon*message.background $::wm_default::textbackground $pri
}
# Windows does not have an activebackground, but Tk does
foreach pref $wm_default::_button_font_widgets {
option add $pref.activeBackground $::wm_default::activebackground $pri
option add $pref.activeForeground $::wm_default::activeforeground $pri
}
#
# Set the default *button borderwidth
#
# option add *.borderWidth $::wm_default::borderwidth $pri
foreach pref $wm_default::_active_borderwidth_widgets {
option add $pref.activeBorderWidth $::wm_default::borderwidth $pri
option add $pref.borderWidth $::wm_default::borderwidth $pri
}
foreach pref $wm_default::_nonzero_borderwidth_widgets {
option add $pref.borderWidth $::wm_default::borderwidth $pri
}
foreach pref $wm_default::_null_borderwidth_widgets {
option add $pref.borderWidth 0 $pri
}
if {$_usetix} {
if {$tix_version < "8.2"} {
option add *TixNoteBook.nbframe.inactiveBackground \
$::wm_default::disabledbackground $pri
option add *TixNoteBook*nbframe.inactiveBackground \
$::wm_default::disabledbackground $pri
} else {
option add *TixNoteBook.nbframe.inactiveBackground \
$::wm_default::background $pri
option add *TixNoteBook*nbframe.inactiveBackground \
$::wm_default::background $pri
}
}
foreach pref $wm_default::_scrollbar_widgets {
option add $pref.background $::wm_default::background $pri
option add $pref.foreground $::wm_default::foreground $pri
# Tix 8.1.1 had these wrong
option add $pref.troughColor $::wm_default::scrollbars $pri
option add $pref.borderWidth $::wm_default::borderwidth $pri
}
option add *Scale.borderWidth $::wm_default::borderwidth $pri
option add *Scale.troughColor $::wm_default::scrollbars $pri
option add *highlightColor $::wm_default::highlightcolor $pri
option add *highlightBackground $::wm_default::highlightbackground $pri
option add *HighlightBackground $::wm_default::highlightbackground $pri
# not _system_font_widgets
set _focus_widgets [concat \
$::wm_default::_frame_widgets \
$::wm_default::_menu_font_widgets \
$::wm_default::_text_type_widgets \
$::wm_default::_insert_type_widgets \
$::wm_default::_select_type_widgets \
$::wm_default::_active_borderwidth_widgets \
$::wm_default::_nonzero_borderwidth_widgets \
$::wm_default::_null_borderwidth_widgets ]
if {$_usetix} {
set _tix_hl_widgets [list *TixBitmapButton*label \
*TixComboBox*Entry \
*TixControl*entry \
*TixDirList*hlist \
*TixDirTree*hlist \
*TixFileEntry*Entry \
*TixFileEntry*entry \
*TixMultiList*Listbox \
*TixNoteBook.nbframe \
*TixOptionMenu*menubutton \
*TixScrolledHList*hlist \
*TixScrolledListBox*listbox\
*TixScrolledTList*tlist \
*TixTree*hlist]
eval lappend _focus_widgets $_tix_hl_widgets
}
foreach pref [lsort -uniq $_focus_widgets] {
option add $pref.highlightBackground $::wm_default::highlightbackground $pri
}
# Now for some things to make it look more like the WM
# todo - look for and call
if {$::wm_default::focusmodel eq "followsmouse"} {
tk_focusFollowsMouse
}
if {$_usetix} {
tixSetDefaultOptions
if {[lsearch -exact {windows kde1 kde2} $::wm_default::wm] > -1} {
# Fix the way Button boxes are packed
if {![llength [info procs ::tixButtonBox:add]]} {
uplevel #0 auto_load tixButtonBox
}
proc ::tixButtonBox:add {w name args} {
upvar #0 $w data
eval [linsert $args 0 button $w.$name]
if {![info exists data(-padx)]} {set data(-padx) 5}
if {![info exists data(-pady)]} {set data(-pady) 10}
if {$data(-orientation) eq "horizontal"} {
# Push the Buttons to the right
if {[info commands $w.pad] == ""} {
label $w.pad
pack $w.pad -side left -expand yes -fill both
}
pack $w.$name -side left \
-expand no \
-padx $data(-padx) -pady $data(-pady)
} else {
pack $w.$name -side top \
-expand no -fill x \
-padx $data(-padx) -pady $data(-pady)
}
lappend data(g:buttons) $name
set data(w:$name) $w.$name
return $w.$name
}
option add *TixButtonBox.relief flat $::wm_default::priority
option add *TixButtonBox.borderwidth 2 $::wm_default::priority
}
}
return [getoptions]
}
namespace export setup addoptions getoptions parray
}
package provide wm_default 1.0
proc tixSetDefaultOptions {} {
# Returns one of cde kde1 kde2 gnome windows or ""
global tcl_platform env tixOption
# There is no overlap between the wm_default variable names and
# the old style tixOption names. So we can add the wm_default variable
# names to the array tixOption, and allow people to upgrade in time.
foreach variable {
wm
linkcolor
vlinkcolor
alinkcolor
background
foreground
disabledforeground
disabledbackground
textfamily
systemfamily
menufamily
fixedfamily
fontsize
textbackground
textforeground
disabledtextbackground
selectbackground
selectforeground
selectcolor
highlightcolor
highlightbackground
scrollbars
borderwidth
priority
menubackground
menuforeground
activebackground
activeforeground
system_font
menu_font
fixed_font
text_font
} {
set tixOption($variable) [set ::wm_default::$variable]
}
}
TkWin.csc 0000644 00000053436 15035033125 0006302 0 ustar 00 #
# $Id: TkWin.csc,v 1.2 2002/01/24 09:16:22 idiscovery Exp $
#
proc tixPref:SetScheme-Color:TkWin {} {
global tixOption
set tixOption(bg) SystemButtonFace
set tixOption(fg) SystemButtonText
set tixOption(dark1_bg) SystemScrollbar
set tixOption(dark1_fg) SystemButtonText
# set tixOption(dark2_bg) SystemDisabledText
# set tixOption(dark2_fg) black
set tixOption(inactive_bg) SystemButtonFace
set tixOption(inactive_fg) SystemButtonText
set tixOption(light1_bg) SystemButtonFace
# set tixOption(light1_fg) white
# set tixOption(light2_bg) #fcfcfc
# set tixOption(light2_fg) white
set tixOption(active_bg) $tixOption(dark1_bg)
set tixOption(active_fg) $tixOption(fg)
set tixOption(disabled_fg) SystemDisabledText
set tixOption(input1_bg) SystemWindow
# set tixOption(input2_bg)
# set tixOption(output1_bg) $tixOption(dark1_bg)
# set tixOption(output2_bg) $tixOption(bg)
set tixOption(select_fg) SystemHighlightText
set tixOption(select_bg) SystemHighlight
set tixOption(selector) SystemHighlight
option add *TixBalloon*background "#ffff60" $tixOption(prioLevel)
option add *TixBalloon*foreground black $tixOption(prioLevel)
option add *TixBalloon.background black $tixOption(prioLevel)
option add *TixBalloon*Label.anchor w $tixOption(prioLevel)
option add *TixControl*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixControl*entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixControl*entry.foreground black $tixOption(prioLevel)
option add *TixControl*entry.insertBackground black $tixOption(prioLevel)
option add *TixDirTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixDirTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.activeBackground $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.disabledBackground $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixDirTree*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixDirTree*f1.relief sunken $tixOption(prioLevel)
option add *TixDirList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixDirList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixDirList*hlist.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixDirList*hlist.activeBackground $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixDirList*hlist.disabledBackground $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixDirList*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixDirList*f1.relief sunken $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.activeBackground $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.disabledBackground $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixScrolledHList*f1.relief sunken $tixOption(prioLevel)
option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*hlist.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.activeBackground $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.disabledBackground $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixTree*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixTree*f1.relief sunken $tixOption(prioLevel)
option add *TixFileEntry*Entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixHList.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixHList.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixHList.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixLabelEntry*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixLabelEntry*entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixLabelEntry*entry.foreground black $tixOption(prioLevel)
option add *TixLabelEntry*entry.insertBackground black $tixOption(prioLevel)
option add *TixMultiList*Listbox.borderWidth 0 $tixOption(prioLevel)
option add *TixMultiList*Listbox.highlightThickness 0 $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.relief sunken $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.width 15 $tixOption(prioLevel)
option add *TixMultiList*f1.borderWidth 2 $tixOption(prioLevel)
option add *TixMultiList*f1.relief sunken $tixOption(prioLevel)
option add *TixMultiList*f1.highlightThickness 2 $tixOption(prioLevel)
option add *TixMDIMenuBar*menubar.relief raised $tixOption(prioLevel)
option add *TixMDIMenuBar*menubar.borderWidth 2 $tixOption(prioLevel)
option add *TixMDIMenuBar*Menubutton.padY 2 $tixOption(prioLevel)
option add *TixNoteBook.Background $tixOption(bg) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.Background $tixOption(bg) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.backPageColor $tixOption(bg) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.inactiveBackground $tixOption(inactive_bg) $tixOption(prioLevel)
option add *TixPanedWindow.handleActiveBg $tixOption(active_bg) $tixOption(prioLevel)
option add *TixPanedWindow.separatorBg $tixOption(bg) $tixOption(prioLevel)
option add *TixPanedWindow.handleBg $tixOption(bg) $tixOption(prioLevel)
option add *TixPopupMenu*menubutton.background $tixOption(dark1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledTList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledTList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledTList*tlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledTList*tlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledListBox.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledListBox*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledListBox*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledListBox*listbox.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledListBox*listbox.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledText.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledText*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledText*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledWindow.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledWindow*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledWindow*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledWindow.frame.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree.background $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.borderWidth 1 $tixOption(prioLevel)
option add *TixComboBox*Entry.highlightBackground $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixComboBox*Entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixComboBox*Entry.foreground SystemWindowText $tixOption(prioLevel)
option add *TixComboBox*Entry.insertBackground SystemWindowText $tixOption(prioLevel)
option add *TixComboBox*Entry.selectBackground $tixOption(select_bg) $tixOption(prioLevel)
option add *TixComboBox*Entry.selectForeground $tixOption(select_fg) $tixOption(prioLevel)
option add *TixComboBox*TixScrolledListBox.selectBackground $tixOption(select_bg) $tixOption(prioLevel)
option add *TixComboBox*TixScrolledListBox.selectForeground $tixOption(select_fg) $tixOption(prioLevel)
}
# Leave the standard widgets alone
if {0} {
option add *Menubutton.padY 5 $tixOption(prioLevel)
option add *Button.borderWidth 2 $tixOption(prioLevel)
option add *Button.anchor c $tixOption(prioLevel)
option add *Entry.relief sunken $tixOption(prioLevel)
option add *Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *Entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *Entry.foreground black $tixOption(prioLevel)
option add *Entry.insertBackground black $tixOption(prioLevel)
option add *Label.anchor w $tixOption(prioLevel)
option add *Label.borderWidth 0 $tixOption(prioLevel)
option add *Listbox.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *Listbox.relief sunken $tixOption(prioLevel)
option add *Scale.foreground $tixOption(fg) $tixOption(prioLevel)
option add *Scale.activeForeground $tixOption(bg) $tixOption(prioLevel)
option add *Scale.background $tixOption(bg) $tixOption(prioLevel)
option add *Scale.sliderForeground $tixOption(bg) $tixOption(prioLevel)
option add *Scale.sliderBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *Scrollbar.relief sunken $tixOption(prioLevel)
option add *Scrollbar.borderWidth 1 $tixOption(prioLevel)
option add *Scrollbar.width 15 $tixOption(prioLevel)
option add *Text.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *Text.relief sunken $tixOption(prioLevel)
}
proc tixPref:SetScheme-Mono:TkWin {} {
global tixOption
set tixOption(bg) SystemButtonFace
set tixOption(fg) SystemButtonText
set tixOption(dark1_bg) SystemScrollbar
set tixOption(dark1_fg) SystemButtonText
# set tixOption(dark2_bg) SystemDisabledText
# set tixOption(dark2_fg) black
set tixOption(inactive_bg) SystemButtonFace
set tixOption(inactive_fg) SystemButtonText
set tixOption(light1_bg) SystemButtonFace
# set tixOption(light1_fg) white
# set tixOption(light2_bg) #fcfcfc
# set tixOption(light2_fg) white
set tixOption(active_bg) $tixOption(dark1_bg)
set tixOption(active_fg) $tixOption(fg)
set tixOption(disabled_fg) SystemDisabledText
set tixOption(input1_bg) white
# set tixOption(input2_bg)
# set tixOption(output1_bg) $tixOption(dark1_bg)
# set tixOption(output2_bg) $tixOption(bg)
set tixOption(select_fg) SystemHighlightText
set tixOption(select_bg) SystemHighlight
set tixOption(selector) SystemHighlight
option add *TixBalloon*background "#ffff60" $tixOption(prioLevel)
option add *TixBalloon*foreground black $tixOption(prioLevel)
option add *TixBalloon.background black $tixOption(prioLevel)
option add *TixBalloon*Label.anchor w $tixOption(prioLevel)
option add *TixControl*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixControl*entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixControl*entry.foreground black $tixOption(prioLevel)
option add *TixControl*entry.insertBackground black $tixOption(prioLevel)
option add *TixDirTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixDirTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.activeBackground $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixDirTree*hlist.disabledBackground $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixDirTree*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixDirTree*f1.relief sunken $tixOption(prioLevel)
option add *TixDirList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixDirList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixDirList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixDirList*hlist.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixDirList*hlist.activeBackground $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixDirList*hlist.disabledBackground $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixDirList*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixDirList*f1.relief sunken $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.activeBackground $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.disabledBackground $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixScrolledHList*f1.relief sunken $tixOption(prioLevel)
option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*hlist.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.activeBackground $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.disabledBackground $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixTree*f1.borderWidth 1 $tixOption(prioLevel)
option add *TixTree*f1.relief sunken $tixOption(prioLevel)
option add *TixFileEntry*Entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixHList.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixHList.activeBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixHList.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixLabelEntry*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixLabelEntry*entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixLabelEntry*entry.foreground black $tixOption(prioLevel)
option add *TixLabelEntry*entry.insertBackground black $tixOption(prioLevel)
option add *TixMultiList*Listbox.borderWidth 0 $tixOption(prioLevel)
option add *TixMultiList*Listbox.highlightThickness 0 $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.relief sunken $tixOption(prioLevel)
option add *TixMultiList*Scrollbar.width 15 $tixOption(prioLevel)
option add *TixMultiList*f1.borderWidth 2 $tixOption(prioLevel)
option add *TixMultiList*f1.relief sunken $tixOption(prioLevel)
option add *TixMultiList*f1.highlightThickness 2 $tixOption(prioLevel)
option add *TixMDIMenuBar*menubar.relief raised $tixOption(prioLevel)
option add *TixMDIMenuBar*menubar.borderWidth 2 $tixOption(prioLevel)
option add *TixMDIMenuBar*Menubutton.padY 2 $tixOption(prioLevel)
option add *TixNoteBook.Background $tixOption(bg) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.Background $tixOption(bg) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.backPageColor $tixOption(bg) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.inactiveBackground $tixOption(inactive_bg) $tixOption(prioLevel)
option add *TixPanedWindow.handleActiveBg $tixOption(active_bg) $tixOption(prioLevel)
option add *TixPanedWindow.separatorBg $tixOption(bg) $tixOption(prioLevel)
option add *TixPanedWindow.handleBg $tixOption(bg) $tixOption(prioLevel)
option add *TixPopupMenu*menubutton.background $tixOption(dark1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledTList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledTList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledTList*tlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledTList*tlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledListBox.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledListBox*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledListBox*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledListBox*listbox.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledListBox*listbox.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledText.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledText*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledText*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledWindow.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledWindow*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixScrolledWindow*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixScrolledWindow.frame.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree.background $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *TixTree*hlist.borderWidth 1 $tixOption(prioLevel)
option add *TixComboBox*Entry.highlightBackground $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixComboBox*Entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *TixComboBox*Entry.foreground SystemWindowText $tixOption(prioLevel)
option add *TixComboBox*Entry.insertBackground SystemWindowText $tixOption(prioLevel)
option add *TixComboBox*Entry.selectBackground $tixOption(select_bg) $tixOption(prioLevel)
option add *TixComboBox*Entry.selectForeground $tixOption(select_fg) $tixOption(prioLevel)
option add *TixComboBox*TixScrolledListBox.selectBackground $tixOption(select_bg) $tixOption(prioLevel)
option add *TixComboBox*TixScrolledListBox.selectForeground $tixOption(select_fg) $tixOption(prioLevel)
}
# Leave the standard widgets alone
if {0} {
option add *Menubutton.padY 5 $tixOption(prioLevel)
option add *Button.borderWidth 2 $tixOption(prioLevel)
option add *Button.anchor c $tixOption(prioLevel)
option add *Entry.relief sunken $tixOption(prioLevel)
option add *Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel)
option add *Entry.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *Entry.foreground black $tixOption(prioLevel)
option add *Entry.insertBackground black $tixOption(prioLevel)
option add *Label.anchor w $tixOption(prioLevel)
option add *Label.borderWidth 0 $tixOption(prioLevel)
option add *Listbox.background $tixOption(light1_bg) $tixOption(prioLevel)
option add *Listbox.relief sunken $tixOption(prioLevel)
option add *Scale.foreground $tixOption(fg) $tixOption(prioLevel)
option add *Scale.activeForeground $tixOption(bg) $tixOption(prioLevel)
option add *Scale.background $tixOption(bg) $tixOption(prioLevel)
option add *Scale.sliderForeground $tixOption(bg) $tixOption(prioLevel)
option add *Scale.sliderBackground $tixOption(light1_bg) $tixOption(prioLevel)
option add *Scrollbar.background $tixOption(bg) $tixOption(prioLevel)
option add *Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel)
option add *Scrollbar.relief sunken $tixOption(prioLevel)
option add *Scrollbar.borderWidth 1 $tixOption(prioLevel)
option add *Scrollbar.width 15 $tixOption(prioLevel)
option add *Text.background $tixOption(input1_bg) $tixOption(prioLevel)
option add *Text.relief sunken $tixOption(prioLevel)
}
TK.fs 0000644 00000000772 15035033125 0005417 0 ustar 00 #
# $Id: TK.fs,v 1.2 2001/12/09 05:03:09 idiscovery Exp $
#
proc tixSetFontset {} {
global tixOption
set tixOption(font) -Adobe-Helvetica-Medium-R-Normal--*-120-*
set tixOption(bold_font) -Adobe-Helvetica-Bold-R-Normal--*-120-*
set tixOption(menu_font) -Adobe-Helvetica-Bold-R-Normal--*-120-*
set tixOption(italic_font) -Adobe-Helvetica-Bold-O-Normal--*-120-*
set tixOption(fixed_font) -*-courier-medium-r-*-*-14-*-*-*-*-*-*-*
set tixOption(border1) 1
}
14Point.fsc 0000644 00000004071 15035033125 0006476 0 ustar 00 #
# $Id: 14Point.fsc,v 1.2 2001/12/09 05:03:09 idiscovery Exp $
#
proc tixPref:InitFontSet:14Point {} {
global tixOption tcl_platform
switch -- $tcl_platform(platform) "windows" {
if {$tcl_platform(osVersion) < 5} {
set font "MS Sans Serif"
} else {
set font "Tahoma"
}
set fixedfont "Courier New"
set bd 1
} unix {
set font "helvetica"
set fixedfont "courier"
set bd 2
}
set tixOption(font) [list $font -14]
set tixOption(bold_font) [list $font -14 bold]
set tixOption(menu_font) [list $font -14]
set tixOption(italic_font) [list $font -14 bold italic]
set tixOption(fixed_font) [list $fixedfont -14]
set tixOption(border1) $bd
}
proc tixPref:SetFontSet:14Point {} {
global tixOption
option add *Font $tixOption(font) $tixOption(prioLevel)
option add *font $tixOption(font) $tixOption(prioLevel)
option add *Menu.font $tixOption(menu_font) $tixOption(prioLevel)
option add *TixMenu.font $tixOption(menu_font) $tixOption(prioLevel)
option add *Menubutton.font $tixOption(menu_font) $tixOption(prioLevel)
option add *Label.font $tixOption(bold_font) $tixOption(prioLevel)
option add *Scale.font $tixOption(italic_font) $tixOption(prioLevel)
option add *TixBalloon*Label.font $tixOption(font) $tixOption(prioLevel)
option add *TixBitmapButton*label.font $tixOption(font) $tixOption(prioLevel)
option add *TixControl*label.font $tixOption(bold_font) $tixOption(prioLevel)
option add *TixLabelEntry*label.font $tixOption(bold_font) $tixOption(prioLevel)
option add *TixLabelFrame*label.font $tixOption(bold_font) $tixOption(prioLevel)
option add *TixMwmClient*title.font $tixOption(menu_font) $tixOption(prioLevel)
option add *TixNoteBook.nbframe.font $tixOption(menu_font) $tixOption(prioLevel)
option add *TixOptionMenu*menubutton.font $tixOption(font) $tixOption(prioLevel)
option add *TixComboBox*Entry.font $tixOption(font) $tixOption(prioLevel)
option add *TixFileSelectBox*Label.font $tixOption(bold_font) $tixOption(prioLevel)
}
WmDefault.cs 0000644 00000002654 15035033125 0006767 0 ustar 00 # -*-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
}
Bisque.cs 0000644 00000002004 15035033125 0006314 0 ustar 00 #
# $Id: Bisque.cs,v 1.1.1.1 2000/05/17 11:08:47 idiscovery Exp $
#
proc tixSetScheme-Color {} {
global tixOption
set tixOption(bg) bisque1
set tixOption(fg) black
set tixOption(dark1_bg) bisque2
set tixOption(dark1_fg) black
set tixOption(dark2_bg) bisque3
set tixOption(dark2_fg) black
set tixOption(inactive_bg) bisque3
set tixOption(inactive_fg) black
set tixOption(light1_bg) bisque1
set tixOption(light1_fg) white
set tixOption(light2_bg) bisque1
set tixOption(light2_fg) white
set tixOption(active_bg) $tixOption(dark1_bg)
set tixOption(active_fg) $tixOption(fg)
set tixOption(disabled_fg) gray55
set tixOption(input1_bg) bisque2
set tixOption(input2_bg) bisque2
set tixOption(output1_bg) $tixOption(dark1_bg)
set tixOption(output2_bg) $tixOption(bg)
set tixOption(select_fg) black
set tixOption(select_bg) bisque2
set tixOption(selector) #b03060
}
TK.csc 0000644 00000003747 15035033125 0005564 0 ustar 00 #
# $Id: TK.csc,v 1.1.1.1 2000/05/17 11:08:47 idiscovery Exp $
#
proc tixPref:SetScheme-Color:TK {} {
global tixOption
set tixOption(bg) #d9d9d9
set tixOption(fg) black
set tixOption(dark1_bg) #c3c3c3
set tixOption(dark1_fg) black
set tixOption(dark2_bg) #a3a3a3
set tixOption(dark2_fg) black
set tixOption(inactive_bg) #a3a3a3
set tixOption(inactive_fg) black
set tixOption(light1_bg) #ececec
set tixOption(light1_fg) white
set tixOption(light2_bg) #fcfcfc
set tixOption(light2_fg) white
set tixOption(active_bg) $tixOption(dark1_bg)
set tixOption(active_fg) $tixOption(fg)
set tixOption(disabled_fg) gray55
set tixOption(input1_bg) #d9d9d9
set tixOption(input2_bg) #d9d9d9
set tixOption(output1_bg) $tixOption(dark1_bg)
set tixOption(output2_bg) $tixOption(bg)
set tixOption(select_fg) black
set tixOption(select_bg) #c3c3c3
set tixOption(selector) #b03060
}
proc tixPref:SetScheme-Mono:TK {} {
global tixOption
set tixOption(bg) lightgray
set tixOption(fg) black
set tixOption(dark1_bg) gray70
set tixOption(dark1_fg) black
set tixOption(dark2_bg) gray60
set tixOption(dark2_fg) white
set tixOption(inactive_bg) lightgray
set tixOption(inactive_fg) black
set tixOption(light1_bg) gray90
set tixOption(light1_fg) white
set tixOption(light2_bg) gray95
set tixOption(light2_fg) white
set tixOption(active_bg) gray90
set tixOption(active_fg) $tixOption(fg)
set tixOption(disabled_fg) gray55
set tixOption(input1_bg) $tixOption(light1_bg)
set tixOption(input2_bg) $tixOption(light1_bg)
set tixOption(output1_bg) $tixOption(light1_bg)
set tixOption(output2_bg) $tixOption(light1_bg)
set tixOption(select_fg) white
set tixOption(select_bg) black
set tixOption(selector) black
}
WmDefault.txt 0000644 00000010344 15035033125 0007174 0 ustar 00 One of the bad things about Tk/Tkinter is that it does not pick up
the current color and font scheme from the prevailing CDE/KDE/GNOME/Windows
window manager scheme.
One of the good things about Tk/Tkinter is that it is not tied to one
particular widget set so it could pick up the current color and font scheme
from the prevailing CDE/KDE/GNOME/Windows window manager scheme.
The WmDefault package is for making Tk/Tkinter applications use the
prevailing CDE/KDE/GNOME/Windows scheme. It tries to find the files
and/or settings that the current window manager is using, and then
sets the Tk options database accordingly (plus a few other things as well).
DOWNLOAD
--------
Download the latest version of wm_default from http://tix.sourceforge.net
either as a part of the standard Tix distribution, or as a part of the
Tix Applications: http://tix.sourceforge.net/Tide. wm_default does not
require Tix, but is Tix enabled.
USAGE:
------
For Tix versions 8.1.2 and above from http://tix.sourceforge.net,
WmDefault is the default Tix scheme, so there is nothing else to do.
For Tk applications, it should be sufficent at the beginning of a wish
app to simply:
package require wm_default
wm_default::setup
wm_default::addoptions
The process is divided into 2 steps:
1) find the files and/or settings (::wm_default::setup).
This is complete for Windows, pretty good for KDE and CDE, and
still barely supported for GNOME because of the difficulty
of finding and parsing sawfish definition files.
setup takes one optional argument: wm, the name of the window manager
as a string, if known. One of: windows gnome kde1 kde2 cde.
2) Setting the Tk options database (::wm_default::addoptions).
You can override the settings in 1) by adding your values to the call
to addoptions:
::wm_default::addoptions -foreground red -background blue
You can examine the settings with
::wm_default::getoptions
which returns a Tcl array of the current settings, and
::wm_default::parray
which returns a string of the current settings, one value-pair per line.
There are a number of assumptions built into the heuristics of addoptions,
that may need fine tuning. Post patches to http://tix.sourceforge.net.
PYTHON
______
If you are using Tix versions 8.1.2 and above from http://tix.sourceforge.net
with Python 2.1 and above, WmDefault is the default Tix scheme,
so there is nothing else you need to do.
The easiest way to install WmDefault for Tkinter is to copy the WmDefault.*
AND THE FILE pkgIndex.tcl from lib/tix8.1/pref to a directory on your
PYTHONPATH. Then the following should work:
import Tkinter
root = Tkinter.Tk()
import WmDefault
WmDefault.setup(root)
WmDefault.addoptions(root, {'foreground': 'red'})
print WmDefault.getoptions(root)
SETTINGS
--------
Here is a list of all the settings controlled by WmDefault:
wm - one of windows gnome kde1 kde2 cde kde
background
foreground
disabledforeground
disabledbackground
textfamily
systemfamily
menufamily
fixedfamily
fontsize - in pixels under Unix, in points under Windows
textbackground
textforeground
disabledtextbackground
selectbackground
selectforeground
selectcolor
highlightcolor
highlightbackground
scrollbars - scrollbar trough color
borderwidth
priority
menubackground
menuforeground
activebackground
activeforeground
system_font - a Tcl font spec, a list of family size weight
menu_font
fixed_font
text_font
linkcolor - not working completely yet
vlinkcolor
alinkcolor
TO MAKE A PREVIOUS TIX USE THIS AS THE DEFAULT SCHEME:
------------------------------------------------------
1) Compile Tix with
-DTIX_DEF_SCHEME "WmDefault"
-DTIX_DEF_FONTSET "WmDefault"
or change the defines in generic/tixInit.c
#define TIX_DEF_SCHEME "WmDefault"
#define TIX_DEF_FONTSET "WmDefault"
2) Edit the installed lib/8.1/Tix.tcl and change the -configspec
in tixClass tixAppContext with the following
{-fontset WmDefault}
{-scheme WmDefault}
3) Copy the files WmDefault.* AND pkgIndex.tcl to the installed
lib/tix8.1/pref
4) Make or edit the file lib/tix8.1/pkgIndex.tcl and add the lines
package ifneeded wm_default 1.0 \
[list source [file join $dir pref WmDefault.tcl]]
12Point.fs 0000644 00000001200 15035033126 0006321 0 ustar 00 #
# $Id: 12Point.fs,v 1.2 2001/12/09 05:03:09 idiscovery Exp $
#
proc tixSetFontset {} {
global tixOption tcl_platform
switch -- $tcl_platform(platform) "windows" {
# This should be Tahoma for Win2000/XP
set font "MS Sans Serif"
set fixedfont "Courier New"
} unix {
set font "helvetica"
set fixedfont "courier"
}
set tixOption(font) [list $font -12]
set tixOption(bold_font) [list $font -12 bold]
set tixOption(menu_font) [list $font -12]
set tixOption(italic_font) [list $font -12 bold italic]
set tixOption(fixed_font) [list $fixedfont -12]
set tixOption(border1) 1
}
TixGray.cs 0000644 00000002002 15035033126 0006452 0 ustar 00 #
# $Id: TixGray.cs,v 1.1.1.1 2000/05/17 11:08:47 idiscovery Exp $
#
proc tixSetScheme-Color {} {
global tixOption
set tixOption(bg) lightgray
set tixOption(fg) black
set tixOption(dark1_bg) gray86
set tixOption(dark1_fg) black
set tixOption(dark2_bg) gray77
set tixOption(dark2_fg) black
set tixOption(inactive_bg) gray77
set tixOption(inactive_fg) black
set tixOption(light1_bg) gray92
set tixOption(light1_fg) white
set tixOption(light2_bg) gray95
set tixOption(light2_fg) white
set tixOption(active_bg) $tixOption(dark1_bg)
set tixOption(active_fg) $tixOption(fg)
set tixOption(disabled_fg) gray55
set tixOption(input1_bg) gray95
set tixOption(input2_bg) gray95
set tixOption(output1_bg) $tixOption(dark1_bg)
set tixOption(output2_bg) $tixOption(bg)
set tixOption(select_fg) black
set tixOption(select_bg) lightblue
set tixOption(selector) yellow
}