--- a/AbstractBorder.st	Fri Oct 23 17:23:48 2009 +0200
+++ b/AbstractBorder.st	Fri Oct 23 17:23:50 2009 +0200
@@ -16,7 +16,7 @@
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
-	category:'Interface-Support'
+	category:'Graphics-Support'
 !
 
 !AbstractBorder class methodsFor:'documentation'!
@@ -38,7 +38,10 @@
 
 documentation
 "
-    extracted from Border.
+    Extracted from Border.
+    Common superclass for border-painters.
+    This will replace the mixture of window-system supported borders and manually
+    drawn 3D levels (which is ugly, but served me well for almost 20years now).
 
     [author:]
         Claus Gittinger
@@ -106,5 +109,5 @@
 !AbstractBorder class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/AbstractBorder.st,v 1.1 2009-10-23 12:25:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/AbstractBorder.st,v 1.2 2009-10-23 15:23:50 cg Exp $'
 ! !