--- a/RoundButtonBorder.st	Thu Nov 05 14:51:09 2009 +0100
+++ b/RoundButtonBorder.st	Thu Nov 05 14:55:59 2009 +0100
@@ -38,6 +38,21 @@
 "
     experimental
 
+    |v b|
+
+    v := View new extent:100@100; openAndWait.
+    b := RoundButtonBorder new.
+    b width:1 color:(Color rgbValue:16r707070).
+    b displayOn:v forDisplayBox:((0@0 corner:v extent) insetBy:10).
+    Delay waitForSeconds:3.
+
+    b width:1 color:(Color rgbValue:16r2C628B).
+    b displayOn:v forDisplayBox:((0@0 corner:v extent) insetBy:10).
+    Delay waitForSeconds:3.
+
+    b width:1 color:(Color rgbValue:16r3C7FB1).
+    b displayOn:v forDisplayBox:((0@0 corner:v extent) insetBy:10).
+
     [author:]
         Claus Gittinger
 "
@@ -131,5 +146,5 @@
 !RoundButtonBorder class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/RoundButtonBorder.st,v 1.3 2009-11-04 14:32:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/RoundButtonBorder.st,v 1.4 2009-11-05 13:55:59 cg Exp $'
 ! !