chrstphrchvz
commented
4 years ago Hi Kelly, your example code looks nearly complete.
By default the -style of a treeview (and other Ttk widgets) is undefined ({}; I'm not sure if or where Tcl/Tk documents this), so $tree->cget(-style) will not return anything at first. And ttk::style lookup $style -font will return TkDefaultFont for any undefined/invalid style, or styles that don't have a configured -font.
I would refer to "Styling Options" section in https://www.tcl.tk/man/tcl8.6/TkCmd/ttk_treeview.htm#M5. To configure all treeview widgets without a set -style, the style to use is Treeview, where the default item -background can be set (although your example already configures the background of each item using tags), as well as options like -fieldbackground (which I now notice doesn't currently have an effect for the default 'vista' or 'xpnative' Ttk themes on Windows). The header can similarly be configured using the Heading style.
Here is a revised example:
use warnings;
use strict;
use Tcl::pTk;
my $mw = MainWindow->new();
my $int = $mw->interp;
my $tree = $mw->Scrolled('ttkTreeview',-columns => [qw/ id token/], -show => 'headings', -scrollbars => 'se' )->pack(-fill => 'both', -expand => 1);
$tree -> tagConfigure('title', -background=>'red');
$tree -> tagConfigure('oddrow', -background=>'white');
$tree -> tagConfigure('evenrow', -background=>'yellow');
#my $style = $tree->cget(-style);
my $style = 'Treeview';
my $font = $tree->ttkStyleLookup( $style, -font);
$mw->ttkStyleConfigure($style, -background=>'sky blue', -fieldbackground => 'sea green');
$mw->ttkStyleConfigure('Heading', -background=>'light salmon');
## Code to insert the data nicely
foreach my $col (qw/ id token/){
my $name = uc($col);
$tree->heading($col, -command => [\&SortBy, $tree->Subwidget('scrolled'), $col, 0], -text => $name);
my $len = $tree->fontMeasure($font, $name);
$tree->column($col, -width, $len+110);
}
$tree->insert('', 'end', -values => ['1234', '5678'], -tags => 'oddrow');
$tree->insert('', 'end', -values => ['abcd', 'efgh'], -tags => 'evenrow');
$tree->insert('', 'end', -values => ['!@#$', '%^&*'],); # An item without a tag
my $but = $mw->ttkButton(
-text => "Close",
-command => sub {
$mw->destroy;
}
)->pack();
$int->MainLoop;
sub SortBy{
}(In GitHub markdown you can use
```perl … ```
to get Perl syntax highlighting)
For $tree->ttkStyleConfigure, like many other Perl/Tk widget methods (e.g. $widget->idletasks), it doesn't matter which widget the method is called from.
Also be aware there was an issue with tag configure for treeview in Tk 8.6.9 (fixed in 8.6.10), which affects this example: https://core.tcl-lang.org/tk/tktview?name=509cafafae
Does this help?
KellyOBrian
Is it possible to configure the style of the treeview from within Tcl::pTk? In particular, I am trying to configure the header. Since I am missing any syntax example for that, I just started with configuring the entire widget. In the example below, I simply try to change the background of the entire treeview, but it seems that ttkStyleConfigure (documented in Tcl::pTk::Tile) does not produce any effect.
Also any idea on how to configure the header?