bug fixes
authorca
Tue, 20 May 1997 08:51:40 +0200
changeset 386 eb0dd3efd92c
parent 385 eb03a6ef5739
child 387 5b7a8d0fe86e
bug fixes
NoteBookView.st
--- a/NoteBookView.st	Tue May 20 08:49:19 1997 +0200
+++ b/NoteBookView.st	Tue May 20 08:51:40 1997 +0200
@@ -239,15 +239,21 @@
 
     tabRaw := TabView origin:0.0@0.0 corner:1.0@0.0 in:self.
     canvas := View    origin:0.0@0.0 corner:1.0@1.0 in:self.
-    tabRaw useIndex:true.
     tabRaw addDependent:self.
     self delegate:(KeyboardForwarder from:self toView:tabRaw).
+    canvas viewBackground:(tabRaw styleAt:#selectedColor).
 
 
 ! !
 
+!NoteBookView methodsFor:'selection'!
+
+setSelection:something
+    tabRaw setSelection:something
+! !
+
 !NoteBookView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/NoteBookView.st,v 1.2 1997-04-28 13:39:38 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/NoteBookView.st,v 1.3 1997-05-20 06:51:40 ca Exp $'
 ! !