--- a/GradientBackground.st	Mon Apr 04 14:17:34 2011 +0200
+++ b/GradientBackground.st	Wed Apr 06 21:11:14 2011 +0200
@@ -110,6 +110,14 @@
     ]
 
     "Modified: / 03-02-2011 / 19:49:41 / cg"
+!
+
+usedLength
+    ^ usedLength
+!
+
+usedLength:something
+    usedLength := something.
 ! !
 
 !GradientBackground methodsFor:'converting'!
@@ -258,5 +266,5 @@
 !GradientBackground class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/GradientBackground.st,v 1.11 2011-03-24 08:59:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GradientBackground.st,v 1.12 2011-04-06 19:11:14 cg Exp $'
 ! !