5

As the title says, I was wondering if it's possible to change the width of a notebook widget tab?

What I'm trying to do is to make sure that the tabs are of equal size and fill the entire width of the window even when someone resizes it. Currently, it appears like so:

enter image description here

But would like to have it like so:

enter image description here

[I did this one by adding spaces before and after the tab name]

The relevant piece of code for the first one is:

ttk::frame $fr.note.tab1
$fr.note add $fr.note.tab1 -text "Tab1" ;# For the second, it's "     Tab1     "

ttk::frame $fr.note.tab2
$fr.note add $fr.note.tab2 -text "Tab2"

ttk::frame $fr.note.tab3
$fr.note add $fr.note.tab3 -text "Tab3"

I tried to look in the manual but it seems that only the widget itself can have its size altered (the area below the tab).

Is there perhaps a way to specify the width of the tab, or a workaround? I tried:

$fr.note add $fr.note.tab1 -text "Tab1" -width 90

But of course, this threw an error saying that the option -width was an unknown option (and tab doesn't appear to be configurable with no configure command).

Donal Fellows
  • 133,037
  • 18
  • 149
  • 215
Jerry
  • 70,495
  • 13
  • 100
  • 144
  • 3
    Excellent question! It's not at all obvious, but might be in the styles or the tab placement instructions (not a part of Ttk that is easy to comprehend or well-documented…) – Donal Fellows Jan 04 '14 at 13:12

2 Answers2

2

Today after some snooping about the source in the folder lib/tk8.6/ttk in the file classicTheme, I found that one can use this to resize the notebook tabs:

ttk::style configure TNotebook.Tab -width 20

Example:

package require Tk  ;# 8.6.4
ttk::notebook .note

set note .note
ttk::frame $note.tab1
$note add $note.tab1 -text "Tab 1"
ttk::frame $note.tab2
$note add $note.tab2 -text "Tab 2"
ttk::frame .note.tab3
$note add $note.tab3 -text "Tab 3"

pack $note -fill both -expand 1

set nw [winfo width .note]
set tc [llength [winfo children .note]]

ttk::style configure TNotebook.Tab -width [expr {$nw/6/$tc}]
ttk::style configure TNotebook.Tab -anchor center   ;# To center tab label

The above gives:

enter image description here

All the notes will inherit the same configurations however, but in case a window is too small, the tabs will evenly resize:

enter image description here

You might notice I divided by 6 when setting the width of the tab, that was the factor difference I found between the value given by winfo width and -width when configuring the tab (directly using $nw/$tc would otherwise give huge tab widths).

As an extra, one can also bind the note to <Configure> to allow the tabs to automatically resize to fit the window if the window size changes:

bind .note <Configure> {
  set nw [winfo width .note]
  set tc [llength [winfo children .note]]
  ttk::style configure TNotebook.Tab -width [expr {$nw/6/$tc}]
}

I'm not entirely sure whether this could be considered good practice or not, it works for me ^^

Jerry
  • 70,495
  • 13
  • 100
  • 144
1

Some investigation later, and it seems that you can't due to some bugs in the tab row layout engine.

It seems that it ought to work like this:

# An arbitrary value!
ttk::style configure Wider.TNotebook -mintabwidth 1000
$fr.note configure -style Wider.TNotebook

This will make the overall space available much less than the space desired, which should cause things to be shared out nicely.

Except it doesn't. The first tab picks up the increased space, but steals it from the space that the other unexpanded tabs would have taken rather than from the remainder of the space they could have taken. I cannot imagine that this behaviour was intended; it's a bug.

Donal Fellows
  • 133,037
  • 18
  • 149
  • 215
  • It's definitely not the other options you can set on the style (`-tabposition`, `-tabplacement`, `-tabmargins` or `-padding`) and the comments in the source indicate that `-mintabwidth` is at least supposed to be involved. It just doesn't work right. – Donal Fellows Jan 04 '14 at 16:33
  • Thank you for looking it up! I will try to play around with those new tools and see if I can come up with something satisfying enough. – Jerry Jan 04 '14 at 16:39