changeset 2322 | 14839acab637 |
parent 2269 | acc4ae8e5f38 |
child 2365 | b63bf46bc18a |
--- 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