# HG changeset patch
# User sr
# Date 1462885735 -7200
# Node ID dfee1b97dc3b35bc40d8f55b15ac51ace4e3ae81
# Parent  f13be4e055c64566534abaa0d0dae650e9492ce6
#QUALITY by sr
class: GradientBackground
changed: #asFormOn:
care for form allocation failure

diff -r f13be4e055c6 -r dfee1b97dc3b GradientBackground.st
--- a/GradientBackground.st	Tue May 10 15:08:19 2016 +0200
+++ b/GradientBackground.st	Tue May 10 15:08:55 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2009 by eXept Software AG
               All Rights Reserved
@@ -389,6 +391,7 @@
             w := len ? (aDevice width).  "/ aView width.
         ].
         cachedForm := Form width:w height:h depth:aDevice depth onDevice:aDevice.
+        cachedForm isNil ifTrue:[^nil].
         "/ cachedForm clear.
         self fillRectangleX:0 y:0 width:w height:h in:cachedForm
     ].