class: UIPainter
changed:
#canInstallAsWebPage
#canInstallAsWebPageHolder
--- a/UIPainter.st Thu Sep 19 13:54:44 2013 +0200
+++ b/UIPainter.st Thu Dec 05 12:41:35 2013 +0100
@@ -2947,18 +2947,16 @@
!
canInstallAsWebPage
- ^ self specClass notNil
- and:[ self specClass isSubclassOf:WebApplicationModel ]
+ ^ specClass notNil
+ and:[ specClass isSubclassOf:WebApplicationModel ]
"Created: / 14-01-2008 / 17:34:56 / cg"
!
canInstallAsWebPageHolder
- |a|
-
- a := builder booleanValueAspectFor:#canInstallAsWebPageHolder.
- a value:self canInstallAsWebPage.
- ^ a
+ ^ builder
+ booleanValueAspectFor:#canInstallAsWebPageHolder
+ initialValue:(self canInstallAsWebPage).
"Created: / 14-01-2008 / 17:36:04 / cg"
!