--- a/NoteBookView.st	Tue Jul 01 10:51:51 2003 +0200
+++ b/NoteBookView.st	Tue Jul 01 16:37:41 2003 +0200
@@ -422,7 +422,7 @@
     selectConditionBlock := aOneArgBlock
 ! !
 
-!NoteBookView methodsFor:'accessing-channels/holders'!
+!NoteBookView methodsFor:'accessing-channels'!
 
 canvasHolder
     "get the model, which keeps the canvas, a kind of SimpleView
@@ -458,16 +458,6 @@
         listHolder addDependent:self.
         self list:listHolder value.
     ].
-!
-
-model:aValueHolder
-    "set the model, which keeps the selection
-    "
-    super model:aValueHolder.
-
-    model notNil ifTrue:[
-        self selection:(model value)
-    ]
 ! !
 
 !NoteBookView methodsFor:'accessing-colors'!
@@ -593,6 +583,18 @@
     ^ aTab extent + tabLabelInset
 ! !
 
+!NoteBookView methodsFor:'accessing-mvc'!
+
+model:aValueHolder
+    "set the model, which keeps the selection
+    "
+    super model:aValueHolder.
+
+    model notNil ifTrue:[
+        self selection:(model value)
+    ]
+! !
+
 !NoteBookView methodsFor:'accessing-style'!
 
 canvasInset
@@ -2076,15 +2078,14 @@
 !
 
 selectionChanged
-    "selection has changed; raise notification
-    "
+    "selection has changed; update model and evaluate change action"
+
     |sel|
 
     sel := self selection.
 
     model  notNil ifTrue:[model  value:sel].
     action notNil ifTrue:[action value:sel]
-
 !
 
 setSelection:anIndexOrNil
@@ -2434,5 +2435,5 @@
 !NoteBookView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/NoteBookView.st,v 1.80 2003-07-01 08:45:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/NoteBookView.st,v 1.81 2003-07-01 14:37:41 cg Exp $'
 ! !