--- a/TabView.st	Tue Jul 01 10:45:55 2003 +0200
+++ b/TabView.st	Tue Jul 01 10:51:51 2003 +0200
@@ -11,6 +11,8 @@
 "
 
 
+"{ Package: 'stx:libwidg2' }"
+
 NoteBookView subclass:#TabView
 	instanceVariableNames:''
 	classVariableNames:''
@@ -58,25 +60,24 @@
 examples
 "
     tabs at top of a view
-										[exBegin]                                      
+                                                                                [exBegin]                                      
     |top tab view inset|
 
     top := StandardSystemView new label:'tabs at top'; extent:250@100.
-    tab  := TabView origin:0.0 @ 0.0 corner:1.0 @ 0.0 in:top.
-    view := View    origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:top.
+    tab  := TabView origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:top.
+    ' view := View    origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:top.                     '. 
 
-    view viewBackground:(tab styleAt:#selectedColor).
     tab direction:#top.
     tab list:#( 'Foo' 'Bar' 'Baz' ).
-    inset := tab preferredSizeXorY.
-    tab  bottomInset:(inset negated).
-    view topInset:inset.
+    ' inset := tab preferredSizeXorY .  '.
+    ' tab  bottomInset:(inset negated). '.
+    ' view topInset:inset.              '.
     tab action:[:aName|Transcript showCR:aName].
     top open.
-										[exEnd]
+                                                                                [exEnd]
 
     tabs at bottom of a view; changing widget to MAC style
-										[exBegin]                                      
+                                                                                [exBegin]                                      
     |top tab view inset|
 
     top := StandardSystemView new label:'tabs at bottom'; extent:250@100.
@@ -93,10 +94,10 @@
     view bottomInset:inset.
     tab action:[:aName|Transcript showCR:aName].
     top open.
-										[exEnd]
+                                                                                [exEnd]
 
     tabs at right of a view
-										[exBegin]                                      
+                                                                                [exBegin]                                      
     |top tab view inset|
 
     top := StandardSystemView new label:'tabs at right'; extent:100@250.
@@ -111,10 +112,10 @@
     view rightInset:inset.
     tab action:[:aName|Transcript showCR:aName].
     top open.
-										[exEnd]
+                                                                                [exEnd]
 
     tabs at left of a view
-										[exBegin]                                      
+                                                                                [exBegin]                                      
     |top tab view inset|
 
     top := StandardSystemView new label:'tabs at left'; extent:100@250.
@@ -129,10 +130,10 @@
     view leftInset:inset.
     tab action:[:aName|Transcript showCR:aName].
     top open.
-										[exEnd]
+                                                                                [exEnd]
 
     changing default style( see TabWidget class ); useing index
-										[exBegin]                                      
+                                                                                [exBegin]                                      
     |top tab view|
 
     top := StandardSystemView new label:'example'; extent:450@300.
@@ -153,11 +154,11 @@
     tab action:[:aName| Transcript showCR:aName ].
 
     top open.
-										[exEnd]
+                                                                                [exEnd]
 
 
     using images and text
-										[exBegin]
+                                                                                [exBegin]
     |top tab view list|
 
     top := StandardSystemView new label:'example'.
@@ -169,10 +170,10 @@
     tab action:[:indexOrNil| Transcript showCR:indexOrNil ].
     top extent:(tab preferredExtent).
     top open.
-										[exEnd]
+                                                                                [exEnd]
 
     using images and text; MAC style
-										[exBegin]
+                                                                                [exBegin]
     |top tab view list|
 
     top := StandardSystemView new label:'example'.
@@ -185,11 +186,11 @@
     tab action:[:indexOrNil| Transcript showCR:indexOrNil ].
     top extent:(tab preferredExtent).
     top open.
-										[exEnd]
+                                                                                [exEnd]
 
     tabs at top of view dealing with other models
 
-										[exBegin]
+                                                                                [exBegin]
     |top sel view l top2 s top3 p|
 
     l := SelectionInList new.
@@ -215,7 +216,7 @@
     sel listHolder:(l listHolder).
     sel action:[:indexOrNil|Transcript showCR:indexOrNil].
     top open.
-										[exEnd]
+                                                                                [exEnd]
 "
 ! !
 
@@ -234,5 +235,5 @@
 !TabView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TabView.st,v 1.46 1999-06-07 12:45:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TabView.st,v 1.47 2003-07-01 08:51:51 cg Exp $'
 ! !