tablelist::setTheme
Commandtablelist::getCurrentTheme
Commandtablelist::getThemes
Commandtablelist::setThemeDefaults
CommandThe commands described in this reference page should only be invoked when using the package Tablelist_tile. They enable you to set and query the current theme, to retrieve a list of the available themes, and to make sure that your widgets will have a theme-specific appearance.
tablelist::setTheme
Commandtablelist::setTheme
- Set the current themetablelist::setTheme theme
theme
, loading
it if necessary. It is simply an alias for
ttk::setTheme
or tile::setTheme
,
depending on the tile version loaded into the interpreter. (The
tile::setTheme
command was renamed to
ttk::setTheme
in tile version 0.8.)
Being just an alias for a tile library procedure, the
tablelist::setTheme
command does exactly the same as
the original one: It loads the package implementing the given theme if
needed, sets the theme to the specified one, and saves the latter in the
variable ttk::currentTheme
or
tile::currentTheme
, depending on the current tile
version.
tablelist::getCurrentTheme
Commandtablelist::getCurrentTheme
- Get the current themetablelist::getCurrentTheme
ttk::currentTheme
or
tile::currentTheme
, depending on the tile version
loaded into the interpreter. (The namespace containing the variable
currentTheme
was changed in tile version 0.8 from
tile
to ttk
.)tablelist::getThemes
Commandtablelist::getThemes
- Get the themes registered in the
package databasetablelist::getThemes
ttk::themes
or tile::availableThemes
, depending on the tile version
loaded into the interpreter. (The
tile::availableThemes
command was renamed to
ttk::themes
in tile version 0.8.)tablelist::setThemeDefaults
Commandtablelist::setThemeDefaults
- Set theme-specific default
values of some tablelist configuration optionstablelist::setThemeDefaults
tablelist::themeDefaults
with theme-specific default
values of a series of Tablelist configuration options. The array
names are the command-line names of the options, and the corresponding
array values are the default values of these configuration options for
the currently set tile theme.
The options whose names and values are written into the array
tablelist::themeDefaults
are:
-background
, -foreground
,
-disabledforeground
,
-stripebackground
,
-selectbackground
,
-selectforeground
,
-selectborderwidth
, -font
,
-labelbackground
,
-labelforeground
, -labelfont
,
-labelborderwidth
, -labelpady
,
-arrowcolor
, -arrowdisabledcolor
,
and -arrowstyle
. In addition, the command sets
some other array elements to theme-specific default values of the
background and foreground colors of the column labels in
disabled
, active
, and
pressed
states. (Tablelist needs the label
colors for handling sort arrows and images with transparent background in
the column labels.)
The tablelist::setThemeDefaults
command is invoked
by Tablelist_tile automatically whenever a tablelist widget is createad
or the <<ThemeChanged>>
virtual event is
received by a tablelist widget. In the latter case, the widget is
reconfigured, using the new default values of those options that were not
set explicitly to values different from the corresponding defaults.
Besides being used by the Tablelist_tile code, this command can also
be invoked in Tcl scripts, still before creating any tile-based tablelist
widget. By calling it explicitly and using the values written by it
into the array tablelist::themeDefaults
, you can make
sure that classical Tk widgets, e.g., listbox and text, will have a
theme-specific appearance, just like the tile widgets. For example,
you can add some common configuration options to the option database as
follows:
tablelist::setThemeDefaults if {$tile::currentTheme eq "aqua"} { option add *Listbox.selectBackground \ $tablelist::themeDefaults(-selectbackground) option add *Listbox.selectForeground \ $tablelist::themeDefaults(-selectforeground) } else { option add *selectBackground $tablelist::themeDefaults(-selectbackground) option add *selectForeground $tablelist::themeDefaults(-selectforeground) } option add *selectBorderWidth $tablelist::themeDefaults(-selectborderwidth)