Mercurial Mercurial > hg > stx-libview / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
class: GradientBackground
authorClaus Gittinger <cg@exept.de>
Wed, 24 Jul 2013 23:02:21 +0200
changeset 6102 48352566d4e0
parent 6101 ea437d17677d
child 6103 cc4beec510ef
class: GradientBackground changed: #asFormOn:
GradientBackground.st file | annotate | diff | comparison | revisions 
--- 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 $'
 ! !
hg/stx-libview