aboutsummaryrefslogtreecommitdiff
path: root/desiredata/src
diff options
context:
space:
mode:
Diffstat (limited to 'desiredata/src')
-rw-r--r--desiredata/src/desire.tk11
1 files changed, 4 insertions, 7 deletions
diff --git a/desiredata/src/desire.tk b/desiredata/src/desire.tk
index 7b0ae044..077c6df3 100644
--- a/desiredata/src/desire.tk
+++ b/desiredata/src/desire.tk
@@ -8155,18 +8155,15 @@ def ClientPrefsDialogue init {} {
switch $type { void { set type toggle }}
switch $type {
section {
- $@nb add_section [incr section] [say $name]
+ incr section
+ $@nb add [ttk::notebook $@nb.$section] -text [say $name]
set which_section $f.$section
set which_self $self
set subsection 0
}
subsection {
- set subself $self.1.$section.subsections
- if {!$subsection} {
- lappend @nbs [Notebook new_as $subself 590 300]
- pack .$subself
- }
- $subself add_section [incr subsection] [say $name]
+ set subself $self.1.$section
+ .$subself add [frame .$subself.[incr subsection]] -text [say $name]
set which_section .$subself.$subsection
set which_self $subself
}