--- a/GradientBackground.st	Fri Feb 22 11:56:21 2013 +0100
+++ b/GradientBackground.st	Fri Feb 22 12:45:43 2013 +0100
@@ -45,6 +45,38 @@
 "
 ! !
 
+!GradientBackground class methodsFor:'instance creation'!
+
+horizontal:color1 to:color2
+    ^ self new 
+        direction:#eastWest;
+        color1:color1 color2:color2
+
+    "
+     |bg v|
+
+     bg := GradientBackground horizontal:Color red to:Color yellow.
+     v := View new extent:300@300.
+     v viewBackground:bg.
+     v open.
+    "
+!
+
+vertical:color1 to:color2
+    ^ self new 
+        direction:#northSouth;
+        color1:color1 color2:color2
+
+    "
+     |bg v|
+
+     bg := GradientBackground vertical:Color red to:Color yellow.
+     v := View new extent:300@300.
+     v viewBackground:bg.
+     v open.
+    "
+! !
+
 !GradientBackground methodsFor:'accessing'!
 
 color1
@@ -275,5 +307,6 @@
 !GradientBackground class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/GradientBackground.st,v 1.13 2011-04-06 19:18:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GradientBackground.st,v 1.14 2013-02-22 11:45:43 cg Exp $'
 ! !
+