equal
deleted
inserted
replaced
2945 |
2945 |
2946 ^ builder booleanValueAspectFor:#canExchangeSelectionLayouts |
2946 ^ builder booleanValueAspectFor:#canExchangeSelectionLayouts |
2947 ! |
2947 ! |
2948 |
2948 |
2949 canInstallAsWebPage |
2949 canInstallAsWebPage |
2950 ^ self specClass notNil |
2950 ^ specClass notNil |
2951 and:[ self specClass isSubclassOf:WebApplicationModel ] |
2951 and:[ specClass isSubclassOf:WebApplicationModel ] |
2952 |
2952 |
2953 "Created: / 14-01-2008 / 17:34:56 / cg" |
2953 "Created: / 14-01-2008 / 17:34:56 / cg" |
2954 ! |
2954 ! |
2955 |
2955 |
2956 canInstallAsWebPageHolder |
2956 canInstallAsWebPageHolder |
2957 |a| |
2957 ^ builder |
2958 |
2958 booleanValueAspectFor:#canInstallAsWebPageHolder |
2959 a := builder booleanValueAspectFor:#canInstallAsWebPageHolder. |
2959 initialValue:(self canInstallAsWebPage). |
2960 a value:self canInstallAsWebPage. |
|
2961 ^ a |
|
2962 |
2960 |
2963 "Created: / 14-01-2008 / 17:36:04 / cg" |
2961 "Created: / 14-01-2008 / 17:36:04 / cg" |
2964 ! |
2962 ! |
2965 |
2963 |
2966 canMoveOrAlignSelection |
2964 canMoveOrAlignSelection |