Subversion Repositories or1k_old

#!/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 "}"
}