fix ddrc editor's use of notebook

svn path=/trunk/; revision=11668

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
 			}