--- a/BorderedWrapper.st	Fri Jul 19 12:45:07 1996 +0200
+++ b/BorderedWrapper.st	Fri Jul 19 17:14:05 1996 +0200
@@ -5,7 +5,7 @@
 	category:'Graphics-Display Objects'
 !
 
-!BorderedWrapper class methodsFor:'documentation'!
+!BorderedWrapper  class methodsFor:'documentation'!
 
 documentation
 "
@@ -33,23 +33,58 @@
 
 examples
 "
+  a 'no-border' border
                                                                         [exBegin]
     |t component|
 
-    t := StandardSystemView extent:250@200.
+    t := StandardSystemView extent:250@250.
+
+    component := ClockView new.
+
+    t addComponent:((BorderedWrapper 
+                        on:component in:(0.1@0.1 corner:0.9@0.9)
+                    )
+                   ).
+
+    t open
+                                                                        [exEnd]
+
+  a '2D' border
+                                                                        [exBegin]
+    |t component|
+
+    t := StandardSystemView extent:250@250.
 
     component := ClockView new.
 
     t addComponent:((BorderedWrapper 
                         on:component in:(0.1@0.1 corner:0.9@0.9))
-                            insideColor:Color blue).
+                            borderColor:Color red;
+                            borderWidth:2).
 
     t open
                                                                         [exEnd]
+
+  a '3D' border
                                                                         [exBegin]
     |t component|
 
-    t := StandardSystemView extent:250@200.
+    t := StandardSystemView extent:250@250.
+
+    component := ClockView new.
+
+    t addComponent:((BorderedWrapper 
+                        on:component in:(0.1@0.1 corner:0.9@0.9))
+                            level:2).
+
+    t open
+                                                                        [exEnd]
+
+  multiple components (absolute & relative sizes):
+                                                                        [exBegin]
+    |t component|
+
+    t := StandardSystemView extent:250@250.
 
     component := ClockView new.
     t addComponent:((BorderedWrapper 
@@ -64,10 +99,12 @@
 
     t openAndWait.
                                                                         [exEnd]
+
+  multiple components (absolute & relative layouts):
                                                                         [exBegin]
     |t component|
 
-    t := StandardSystemView extent:250@200.
+    t := StandardSystemView extent:250@250.
 
     component := ClockView new.
     component borderWidth:1; borderColor:Color blue.
@@ -79,23 +116,10 @@
     component layout:((0.5@0.5 corner:1.0@1.0) asLayout).
     t addComponent:component.
 
-
     t openAndWait.
                                                                         [exEnd]
-                                                                        [exBegin]
-    |t component|
 
-    t := StandardSystemView extent:250@200.
-
-    component := ClockView new.
-
-    t addComponent:((BorderedWrapper 
-                        on:component in:(0.1@0.1 corner:0.9@0.9))
-                            level:1).
-
-    t open
-                                                                        [exEnd]
-
+  non-view components (scrollable, bith with & without insideColor):
                                                                         [exBegin]
     |t s v e component|
 
@@ -128,7 +152,7 @@
 "
 ! !
 
-!BorderedWrapper class methodsFor:'instance creation'!
+!BorderedWrapper  class methodsFor:'instance creation'!
 
 on:aComponent in:aLayout border:aBorder
     ^ (super on:aComponent in:aLayout) border:aBorder
@@ -328,8 +352,8 @@
     "Created: 5.6.1996 / 14:11:03 / cg"
 ! !
 
-!BorderedWrapper class methodsFor:'documentation'!
+!BorderedWrapper  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/BorderedWrapper.st,v 1.3 1996-06-05 15:30:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/BorderedWrapper.st,v 1.4 1996-07-19 15:14:05 cg Exp $'
 ! !