URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [tix/] [library/] [pref/] [TkWin.cs] - Blame information for rev 1781

Go to most recent revision | Details | Compare with Previous | View Log


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
}

Line No.	Rev	Author	Line
1	578	markom	`proc tixSetScheme-Color {} {`
2			`global tixOption`
3
4			`set tixOption(bg) SystemButtonFace`
5			`set tixOption(fg) SystemButtonText`
6
7			`set tixOption(dark1_bg) SystemScrollbar`
8			`set tixOption(dark1_fg) SystemButtonText`
9			`# set tixOption(dark2_bg) SystemDisabledText`
10			`# set tixOption(dark2_fg) black`
11			`set tixOption(inactive_bg) SystemButtonFace`
12			`set tixOption(inactive_fg) SystemButtonText`
13
14			`set tixOption(light1_bg) SystemButtonFace`
15			`# set tixOption(light1_fg) white`
16			`# set tixOption(light2_bg) #fcfcfc`
17			`# set tixOption(light2_fg) white`
18
19			`set tixOption(active_bg) $tixOption(dark1_bg)`
20			`set tixOption(active_fg) $tixOption(fg)`
21			`set tixOption(disabled_fg) SystemDisabledText`
22
23			`set tixOption(input1_bg) SystemWindow`
24			`# set tixOption(input2_bg)`
25			`# set tixOption(output1_bg) $tixOption(dark1_bg)`
26			`# set tixOption(output2_bg) $tixOption(bg)`
27
28			`set tixOption(select_fg) SystemHighlightText`
29			`set tixOption(select_bg) SystemHighlight`
30
31			`set tixOption(selector) SystemHighlight`
32			`}`
33
34			`proc tixSetScheme-Mono {} {`
35			`global tixOption`
36
37			`set tixOption(bg) SystemButtonFace`
38			`set tixOption(fg) SystemButtonText`
39
40			`set tixOption(dark1_bg) SystemScrollbar`
41			`set tixOption(dark1_fg) SystemButtonText`
42			`# set tixOption(dark2_bg) SystemDisabledText`
43			`# set tixOption(dark2_fg) black`
44			`set tixOption(inactive_bg) SystemButtonFace`
45			`set tixOption(inactive_fg) SystemButtonText`
46
47			`set tixOption(light1_bg) SystemButtonFace`
48			`# set tixOption(light1_fg) white`
49			`# set tixOption(light2_bg) #fcfcfc`
50			`# set tixOption(light2_fg) white`
51
52			`set tixOption(active_bg) $tixOption(dark1_bg)`
53			`set tixOption(active_fg) $tixOption(fg)`
54			`set tixOption(disabled_fg) SystemDisabledText`
55
56			`set tixOption(input1_bg) white`
57			`# set tixOption(input2_bg)`
58			`# set tixOption(output1_bg) $tixOption(dark1_bg)`
59			`# set tixOption(output2_bg) $tixOption(bg)`
60
61			`set tixOption(select_fg) SystemHighlightText`
62			`set tixOption(select_bg) SystemHighlight`
63
64			`set tixOption(selector) SystemHighlight`
65			`}`

Browse

Tools

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [tix/] [library/] [pref/] [TkWin.cs] - Blame information for rev 1781