1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
#==============================================================================
# Main Tablelist_tile package module.
#
# Copyright (c) 2000-2008 Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
#==============================================================================
package require Tcl 8.4
package require Tk 8.4
if {$::tk_version < 8.5 || [regexp {^8\.5a[1-5]$} $::tk_patchLevel]} {
package require tile 0.6
}
package require -exact tablelist::common 4.9.1
package provide Tablelist_tile $::tablelist::version
package provide tablelist_tile $::tablelist::version
::tablelist::useTile 1
#
# Define some aliases
#
if {[info commands ::ttk::style] ne ""} {
interp alias {} ::tablelist::style {} ::ttk::style
interp alias {} ::tablelist::styleConfig {} ::ttk::style configure
interp alias {} ::tablelist::getThemes {} ::ttk::themes
interp alias {} ::tablelist::setTheme {} ::ttk::setTheme
interp alias {} ::tablelist::tileqt_currentThemeName \
{} ::ttk::theme::tileqt::currentThemeName
interp alias {} ::tablelist::tileqt_currentThemeColour \
{} ::ttk::theme::tileqt::currentThemeColour
} else {
interp alias {} ::tablelist::style {} ::style
if {[string compare $::tile::version "0.7"] >= 0} {
interp alias {} ::tablelist::styleConfig {} ::style configure
} else {
interp alias {} ::tablelist::styleConfig {} ::style default
}
interp alias {} ::tablelist::getThemes {} ::tile::availableThemes
interp alias {} ::tablelist::setTheme {} ::tile::setTheme
interp alias {} ::tablelist::tileqt_currentThemeName \
{} ::tile::theme::tileqt::currentThemeName
interp alias {} ::tablelist::tileqt_currentThemeColour \
{} ::tile::theme::tileqt::currentThemeColour
}
namespace eval ::tablelist {
#
# Commands related to tile themes:
#
namespace export getThemes getCurrentTheme setTheme setThemeDefaults
}
|
