13 lines
291 B
Tcl
13 lines
291 B
Tcl
|
set base_theme_dir [file join [pwd] [file dirname [info script]]]
|
||
|
|
|
||
|
|
array set base_themes {
|
||
|
|
breeze 0.6
|
||
|
|
breeze-dark 0.1
|
||
|
|
}
|
||
|
|
|
||
|
|
foreach {theme version} [array get base_themes] {
|
||
|
|
package ifneeded ttk::theme::$theme $version \
|
||
|
|
[list source [file join $base_theme_dir $theme $theme.tcl]]
|
||
|
|
}
|
||
|
|
|