Исправил скрипт сборки пакета. Добавил .gitignore
This commit is contained in:
svkalinin
parent
d66756c7da
commit
28bc779c5a
166
theme/ttk_theme_dark.tcl
Normal file
166
theme/ttk_theme_dark.tcl
Normal file
|
|
@ -0,0 +1,166 @@
|
|||
# black.tcl -
|
||||
#
|
||||
# Experimental!
|
||||
#
|
||||
# Copyright (c) 2007-2008 Mats Bengtsson
|
||||
#
|
||||
# $Id: black.tcl,v 1.2 2009/10/25 19:21:30 oberdorfer Exp $
|
||||
|
||||
package require Tk
|
||||
|
||||
namespace eval ttk::theme::dark {
|
||||
variable version 0.0.1
|
||||
variable dir [file dirname [info script]]
|
||||
|
||||
package provide ttk::theme::dark $version
|
||||
|
||||
# NB: These colors must be in sync with the ones in black.rdb
|
||||
|
||||
variable colors
|
||||
array set colors {
|
||||
-disabledfg "#a9a9a9"
|
||||
-frame "#1e1e1e"
|
||||
-lightframe "#3d3d3d"
|
||||
-dark "#222222"
|
||||
-darker "#121212"
|
||||
-darkest "#000000"
|
||||
-lighter "#626262"
|
||||
-lightest "#ffffff"
|
||||
-selectbg "#4a6984"
|
||||
-selectfg "#ffffff"
|
||||
-foreground "#cecbc9"
|
||||
}
|
||||
|
||||
ttk::style theme create dark -parent clam -settings {
|
||||
|
||||
# -----------------------------------------------------------------
|
||||
# Theme defaults
|
||||
#
|
||||
ttk::style configure . \
|
||||
-background $colors(-frame) \
|
||||
-foreground #ffffff \
|
||||
-bordercolor $colors(-darkest) \
|
||||
-darkcolor $colors(-dark) \
|
||||
-lightcolor $colors(-lighter) \
|
||||
-troughcolor $colors(-darker) \
|
||||
-selectbackground $colors(-selectbg) \
|
||||
-selectforeground $colors(-selectfg) \
|
||||
-selectborderwidth 0 \
|
||||
-font "{Droid Sans Mono} 10"
|
||||
|
||||
ttk::style map "." \
|
||||
-background [list disabled $colors(-frame) \
|
||||
active $colors(-lighter)] \
|
||||
-foreground [list disabled $colors(-disabledfg)] \
|
||||
-selectbackground [list !focus $colors(-darkest)] \
|
||||
-selectforeground [list !focus #ffffff]
|
||||
|
||||
# ttk widgets.
|
||||
ttk::style configure TButton \
|
||||
-width -8 -padding {5 1} -relief link
|
||||
ttk::style configure TMenubutton \
|
||||
-width -11 -padding {5 1} -relief raised
|
||||
ttk::style configure TCheckbutton \
|
||||
-indicatorbackground "#ffffff" -indicatormargin {1 1 4 1}
|
||||
ttk::style configure TRadiobutton \
|
||||
-indicatorbackground "#ffffff" -indicatormargin {1 1 4 1}
|
||||
|
||||
# ttk::style configure TEntry -fieldbackground #ffffff -foreground #000000 -padding {2 0}
|
||||
ttk::style configure TEntry -fieldbackground $colors(-lightframe) -foreground #ffffff -padding {2 0}
|
||||
|
||||
ttk::style configure TCombobox \
|
||||
-fieldbackground $colors(-lightframe) \
|
||||
-foreground #ffffff \
|
||||
-padding {2 0}
|
||||
ttk::style configure TSpinbox \
|
||||
-fieldbackground $colors(-lightframe) \
|
||||
-foreground #ffffff
|
||||
|
||||
ttk::style configure TNotebook.Tab \
|
||||
-padding {6 2 6 2}
|
||||
|
||||
#ttk::style configure TPanedwindow -fieldbackground #ffffff -foreground #000000
|
||||
#ttk::style configure TPanedwindow -background red -foreground blue
|
||||
|
||||
# tk widgets.
|
||||
ttk::style map Menu \
|
||||
-background [list active $colors(-lighter)] \
|
||||
-foreground [list disabled $colors(-disabledfg)]
|
||||
|
||||
ttk::style configure Treeview \
|
||||
-background $colors(-lightframe) -itembackground {gray60 gray50} \
|
||||
-itemfill #ffffff -itemaccentfill yellow \
|
||||
-fieldbackground $colors(-lightframe)
|
||||
|
||||
ttk::style configure Text \
|
||||
-linemapbg [list active $colors(-frame)]\
|
||||
-linemapbg [list active $colors(-disabledfg)]\
|
||||
-background [list active $colors(-lighter)] \
|
||||
-foreground [list disabled $colors(-disabledfg)]
|
||||
|
||||
ttk::style configure TLabel -foreground $colors(-disabledfg) -padding {2 0}
|
||||
|
||||
# ttk::style configure TreeCtrl \
|
||||
# -background gray30 -itembackground {gray60 gray50} \
|
||||
# -itemfill #ffffff -itemaccentfill yellow
|
||||
option add *Toplevel.Background $colors(-dark) interactive
|
||||
option add *Text.Foreground $colors(-foreground) interactive
|
||||
option add *Text.Background $colors(-frame) interactive
|
||||
|
||||
# option add *Text.Insertbackground yellow interactive
|
||||
# option add *Text.BorderWidth -2 interactive
|
||||
# option add *Text.selectBorderWidth -2 interactive
|
||||
# option add *Text.Relief flat interactive
|
||||
option add *Text.Font "{Noto Sans Mono} 10" interactive
|
||||
#option add *BorderWidth -2 interactive
|
||||
}
|
||||
#option add *Treeview.Background red interactive
|
||||
# option add *Frame.Background $colors(-frame) interactive
|
||||
# option add *Label.Background $colors(-frame) interactive
|
||||
# option add *Label.Foreground $colors(-foreground) interactive
|
||||
# option add *Entry.Background $colors(-frame) interactive
|
||||
# option add *Entry.Foreground $colors(-foreground) interactive
|
||||
}
|
||||
|
||||
# A few tricks for Tablelist.
|
||||
|
||||
namespace eval ::tablelist:: {
|
||||
proc blackTheme {} {
|
||||
variable themeDefaults
|
||||
|
||||
array set colors [array get ttk::theme::dark::colors]
|
||||
|
||||
array set themeDefaults [list \
|
||||
-background "#000000" \
|
||||
-foreground "#ffffff" \
|
||||
-disabledforeground $colors(-disabledfg) \
|
||||
-stripebackground "#191919" \
|
||||
-selectbackground "#4a6984" \
|
||||
-selectforeground "#8b8b00" \
|
||||
-selectborderwidth 0 \
|
||||
-font TkTextFont \
|
||||
-labelbackground $colors(-frame) \
|
||||
-labeldisabledBg "#dcdad5" \
|
||||
-labelactiveBg "#eeebe7" \
|
||||
-labelpressedBg "#eeebe7" \
|
||||
-labelforeground #ffffff \
|
||||
-labeldisabledFg "#999999" \
|
||||
-labelactiveFg #ffffff \
|
||||
-labelpressedFg #ffffff \
|
||||
-labelfont TkDefaultFont \
|
||||
-labelborderwidth 2 \
|
||||
-labelpady 1 \
|
||||
-arrowcolor "" \
|
||||
-arrowstyle sunken10x9 ]
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user