From 867b35db777a607bbd3f98b72aee20bd0e3608b1 Mon Sep 17 00:00:00 2001
From: "N.N." <matju@users.sourceforge.net>
Date: Wed, 3 Jun 2009 23:39:44 +0000
Subject: fix ddrc editor's use of notebook

svn path=/trunk/; revision=11668
---
 desiredata/src/desire.tk | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

(limited to 'desiredata')

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
 			}
-- 
cgit v1.2.1