Subversion Repositories or1k

#!/usr/local/bin/tclsh

# Undocumented program. Don't use it.

#

# Usage:

#

#       tixmkpref option name.src > name.tcl

#

proc tixDefOption {classes specs {level \$tixOption(prioLevel)}} {

    global isFont tixOption

    foreach class $classes {

        foreach spec $specs {

            if [regexp (Font)|(font) $spec] {

                if {$isFont} {

                    puts "option add *$class$spec $level"

                }

            } else {

                if {!$isFont} {

                    set aspec [subst $spec]

                    puts "option add *$class$spec $level"

                }

            }

        }

    }

}

proc option {classes specs {level \$tixOption(prioLevel)}} {

    tixDefOption $classes $specs $level

}

proc tixInitOptionDatabase {isWin} {

    global tixOption isFont

    # general stuff, everything gets these defaults unless otherwise specified

    #-------------------------------------------------------------------------

    if {! $isWin} then {

        tixDefOption {""} {{Font                        $tixOption(font)}}

        tixDefOption {""} {{font                        $tixOption(font)}}

        tixDefOption {""} {{background          $tixOption(bg)}}        10

        tixDefOption {""} {{Background          $tixOption(bg)}}

        tixDefOption {""} {{background          $tixOption(bg)}}

        tixDefOption {""} {{Foreground          $tixOption(fg)}}

        tixDefOption {""} {{foreground          $tixOption(fg)}}

        tixDefOption {""} {{activeBackground    $tixOption(active_bg)}}

        tixDefOption {""} {{activeForeground    $tixOption(active_fg)}}

        tixDefOption {""} {{HighlightBackground $tixOption(bg)}}

        tixDefOption {""} {{selectBackground    $tixOption(select_bg)}}

        tixDefOption {""} {{selectForeground    $tixOption(select_fg)}}

        tixDefOption {""} {{selectBorderWidth   0}}

    }

    #----------------------------------------

    # Standard TK Widget Options

    #

    # We set up the options for the TK widgets only if

    # the strictTK option is not selected.

    #----------------------------------------

    if {$isWin} then {

        tixDefOption {Menu TixMenu} {

            {.font                      $tixOption(menu_font)}

        }

    } else {

        tixDefOption {Menu TixMenu} {

            {.font                      $tixOption(menu_font)}

            {.selectColor               $tixOption(selector)}

        }

    }

    tixDefOption {Menubutton} {

        {.font                  $tixOption(menu_font)}

        {.padY                  5}

    }

    tixDefOption {Button} {

        {.borderWidth           2}

        {.anchor                c}

    }

    if {! $isWin} then {

        tixDefOption {Checkbutton Radiobutton} {

            {.selectColor               $tixOption(selector)}

        }

    }

    tixDefOption {Entry} {

        {.relief                sunken}

        {.highlightBackground   $tixOption(bg)}

        {.background            $tixOption(input1_bg)}

        {.foreground            black}

        {.insertBackground      black}

    }

    tixDefOption {Label} {

        {.anchor                w}

        {.borderWidth           0}

        {.font                  $tixOption(bold_font)}

    }

    tixDefOption {Listbox} {

        {.background            $tixOption(light1_bg)}

        {.relief                sunken}

    }

    tixDefOption {Scale} {

        {.foreground            $tixOption(fg)}

        {.activeForeground      $tixOption(bg)}

        {.background            $tixOption(bg)}

        {.sliderForeground      $tixOption(bg)}

        {.sliderBackground      $tixOption(light1_bg)}

        {.font                  $tixOption(italic_font)}

    }

    tixDefOption {Scrollbar} {

        {.background            $tixOption(bg)}

        {.troughColor           $tixOption(light1_bg)}

        {.relief                sunken}

        {.borderWidth           1}

        {.width                 15}

    }

    tixDefOption {Text} {

        {.background            $tixOption(input1_bg)}

        {.relief                sunken}

    }

    #----------------------------------------------------------------------

    # TIX WIDGETS

    #----------------------------------------------------------------------

    tixDefOption {TixBalloon} {

        {*background                    "#ffff60"}

        {*foreground                    black}

        {.background                    black}

        {*Label.font                    $tixOption(font)}

        {*Label.anchor                  w}

    }

    tixDefOption {TixBitmapButton} {

        {*label.font                    $tixOption(font)}

    }

    tixDefOption {TixControl} {

        {*entry.highlightBackground     $tixOption(bg)}

        {*entry.background              $tixOption(input1_bg)}

        {*entry.foreground              black}

        {*entry.insertBackground        black}

        {*label.font                    $tixOption(bold_font)}

    }

    # DLG_BTNS

    #

    tixDefOption {TixStdButtonBox} {

    }

    # DIR_LIST

    #

    tixDefOption {TixDirTree TixDirList TixScrolledHList TixTree} {

        {*Scrollbar.background          $tixOption(bg)}

        {*Scrollbar.troughColor         $tixOption(light1_bg)}

        {*hlist.highlightBackground     $tixOption(bg)}

        {*hlist.background              $tixOption(input1_bg)}

        {*hlist.activeBackground        $tixOption(input1_bg)}

        {*hlist.disabledBackground      $tixOption(input1_bg)}

        {*f1.borderWidth                1}

        {*f1.relief                     sunken}

    }

    tixDefOption {TixFileEntry} {

        {*Entry.background              $tixOption(input1_bg)}

    }

    tixDefOption {TixHList} {

        {.background                    $tixOption(light1_bg)}

        {.activeBackground              $tixOption(light1_bg)}

        {.disabledBackground            $tixOption(light1_bg)}

    }

    tixDefOption {TixLabelEntry} {

        {*entry.highlightBackground     $tixOption(bg)}

        {*entry.background              $tixOption(input1_bg)}

        {*entry.foreground              black}

        {*entry.insertBackground        black}

        {*label.font                    $tixOption(bold_font)}

    }

    tixDefOption {TixLabelFrame} {

        {*label.font                    $tixOption(bold_font)}

    }

    tixDefOption {TixMultiList} {

        {*Listbox.borderWidth           0}

        {*Listbox.highlightThickness    0}

        {*Scrollbar.background          $tixOption(bg)}

        {*Scrollbar.troughColor         $tixOption(light1_bg)}

        {*Scrollbar.relief              sunken}

        {*Scrollbar.width               15}

        {*f1.borderWidth                2}

        {*f1.relief                     sunken}

        {*f1.highlightThickness         2}

    }

    # MwmClient

    #

    tixDefOption {TixMwmClient} {

        {*title.font                    $tixOption(menu_font)}

    }

    tixDefOption {TixMDIMenuBar} {

        {*menubar.relief                raised}

        {*menubar.borderWidth           2}

        {*Menubutton.padY               2}

    }

    # NoteBook

    #

    tixDefOption {TixNoteBook} {

        {.Background                    $tixOption(bg)}

        {.nbframe.Background            $tixOption(bg)}

        {.nbframe.font                  $tixOption(menu_font)}

        {.nbframe.backPageColor         $tixOption(bg)}

        {.nbframe.inactiveBackground    $tixOption(inactive_bg)}

    }

    # OPTION_MENU

    #

    tixDefOption {TixOptionMenu} {

        {*menubutton.font               $tixOption(font)}

    }

    # PANED_WINDOW

    #

    tixDefOption {TixPanedWindow} {

        {.handleActiveBg                $tixOption(active_bg)}

        {.separatorBg                   $tixOption(bg)}

        {.handleBg                      $tixOption(bg)}

    }

    # POPUP MENU

    #

    tixDefOption {TixPopupMenu} {

        {*menubutton.background         $tixOption(dark1_bg)}

    }

    # SCROLLED_HLIST

    #

    tixDefOption {TixScrolledHList} {

        {*Scrollbar.background          $tixOption(bg)}

        {*Scrollbar.troughColor         $tixOption(light1_bg)}

        {*hlist.highlightBackground     $tixOption(bg)}

        {*hlist.background              $tixOption(light1_bg)}

    }

    tixDefOption {TixScrolledTList} {

        {*Scrollbar.background          $tixOption(bg)}

        {*Scrollbar.troughColor         $tixOption(light1_bg)}

        {*tlist.highlightBackground     $tixOption(bg)}

        {*tlist.background              $tixOption(light1_bg)}

    }

    # SCROLLED_LISTBOX, .. ETC

    #

    tixDefOption {TixScrolledListBox} {

        {.background                    $tixOption(bg)}

        {*Scrollbar.background          $tixOption(bg)}

        {*Scrollbar.troughColor         $tixOption(light1_bg)}

        {*listbox.highlightBackground   $tixOption(bg)}

        {*listbox.background            $tixOption(light1_bg)}

    }

    tixDefOption {TixScrolledText} {

        {.background                    $tixOption(bg)}

        {*Scrollbar.background          $tixOption(bg)}

        {*Scrollbar.troughColor         $tixOption(light1_bg)}

    }

    # SCROLLED_WINDOW

    #

    tixDefOption {TixScrolledWindow} {

        {.background                    $tixOption(bg)}

        {*Scrollbar.background          $tixOption(bg)}

        {*Scrollbar.troughColor         $tixOption(light1_bg)}

        {.frame.background              $tixOption(light1_bg)}

    }

    # SELECT

    #

    tixDefOption {TixSelect} {

    }

    tixDefOption {TixTree} {

        {.background                    $tixOption(bg)}

        {*Scrollbar.background          $tixOption(bg)}

        {*Scrollbar.troughColor         $tixOption(light1_bg)}

        {*hlist.highlightBackground     $tixOption(bg)}

        {*hlist.background              $tixOption(light1_bg)}

        {*hlist.borderWidth             1}

    }

    # NON ALPHABETICAL ORDER WIDGETS

    # Since TK's option database follows the order-of-declaration rule, not

    # specific-vs-general rule, the options of the widgets below depends on

    # the options of the widget above, so their options must be defined here

    # COMBOBOX

    if {! $isWin} then {

        tixDefOption {TixComboBox} {

            {*Entry.font                                $tixOption(font)}

            {*Entry.highlightBackground         $tixOption(bg)}

            {*Entry.background                  $tixOption(input1_bg)}

            {*Entry.foreground                  black}

            {*Entry.insertBackground            black}

        }

    } else {

        tixDefOption {TixComboBox} {

            {*Entry.font                                $tixOption(font)}

            {*Entry.highlightBackground         $tixOption(input1_bg)}

            {*Entry.background                  $tixOption(input1_bg)}

            {*Entry.foreground                  SystemWindowText}

            {*Entry.insertBackground            SystemWindowText}

            {*Entry.selectBackground    $tixOption(select_bg)}

            {*Entry.selectForeground    $tixOption(select_fg)}

            {*TixScrolledListBox.selectBackground       $tixOption(select_bg)}

            {*TixScrolledListBox.selectForeground       $tixOption(select_fg)}

        }

    }

    # FILE_SELECT_BOX

    #

    tixDefOption {TixFileSelectBox} {

        {*Label.font                            $tixOption(bold_font)}

    }

    tixDefOption {TixExFileSelectBox} {

    }

}

#----------------------------------------------------------------------

# The default fontset and schemes

#

#----------------------------------------------------------------------

source ../DefSchm.tcl

rename tixSetDefaultFontset             tixSetFontset

rename tixSetDefaultScheme-Color        tixSetScheme-Color

rename tixSetDefaultScheme-Mono         tixSetScheme-Mono

#----------------------------------------------------------------------

# Action:

#----------------------------------------------------------------------

if [string match TK* [lindex $argv 1]] {

    set isTK 1

} elseif {[string match TkWin* [lindex $argv 1]]} {

    set isTK 0

    set isWin 1

} else {

    set isTK 0

    set isWin 0

}

set schemeName [lindex [split [lindex $argv 1] "."] 0]

source [lindex $argv 1]

tixSetFontset

if {[lindex $argv 0] == "-font"} {

    set isFont 1

    # FontSets will be set in two steps.

    # (1) init fontsets

    #     ... tix checks the validity of the fonts ...

    # (2) add the fontsets into the option database.

    #

    puts "proc tixPref:InitFontSet:$schemeName {} { "

    puts [info body tixSetFontset]

    puts "}"

    puts "proc tixPref:SetFontSet:$schemeName {} { "

    puts "global tixOption"

    if {! $isTK} {

        tixInitOptionDatabase $isWin

    }

    puts "}"

} else {

    set isFont 0

    # Do the Color First

    #

    puts "proc tixPref:SetScheme-Color:$schemeName {} {"

    puts [info body tixSetScheme-Color]

    if {! $isTK} {

        tixSetScheme-Color

        tixInitOptionDatabase $isWin

    }

    puts "}"

    # Now Do the Mono

    #

    puts "proc tixPref:SetScheme-Mono:$schemeName {} {"

    puts [info body tixSetScheme-Mono]

    if {! $isTK} {

        tixSetScheme-Mono

        tixInitOptionDatabase $isWin

    }

    puts "}"

}