# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1205141126 -3600
# Node ID 14839acab63763e30e56654187124efadc3390f5
# Parent  79448e86dfd43ac30c154dfbda538ccc598994e9
*** empty log message ***

diff -r 79448e86dfd4 -r 14839acab637 UILayoutTool.st
--- a/UILayoutTool.st	Mon Mar 10 10:25:13 2008 +0100
+++ b/UILayoutTool.st	Mon Mar 10 10:25:26 2008 +0100
@@ -625,15 +625,9 @@
 !
 
 noteBookList
-    "returns list of tab labels
-    "
-    |holder|
-
-    (holder := builder bindingAt:#noteBookList) isNil ifTrue:[
-        holder := nil asValue.
-        builder aspectAt:#noteBookList put:holder
-    ].
-  ^ holder
+    "holds the list of tab labels"
+
+    ^ builder valueAspectFor:#noteBookList initialValue:nil
 !
 
 noteBookModel