--- a/GradientBackground.st Wed Jul 24 00:58:46 2013 +0200
+++ b/GradientBackground.st Wed Jul 24 23:02:21 2013 +0200
@@ -165,7 +165,10 @@
asFormOn:aDevice
|h w len|
- usedLength == #full ifTrue:[self halt. ^ nil].
+ usedLength == #full ifTrue:[
+ self halt:'unsupported'.
+ ^ nil
+ ].
cachedForm isNil ifTrue:[
(len := usedLength) == #full ifTrue:[
@@ -327,10 +330,10 @@
!GradientBackground class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/GradientBackground.st,v 1.15 2013-02-22 12:35:02 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/GradientBackground.st,v 1.16 2013-07-24 21:02:21 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libview/GradientBackground.st,v 1.15 2013-02-22 12:35:02 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/GradientBackground.st,v 1.16 2013-07-24 21:02:21 cg Exp $'
! !