equal
deleted
inserted
replaced
281 applicationClassAssociatedWith:aClass |
281 applicationClassAssociatedWith:aClass |
282 "get application class keeping the associated help text or nil |
282 "get application class keeping the associated help text or nil |
283 " |
283 " |
284 |cls| |
284 |cls| |
285 |
285 |
286 aClass notNil ifTrue:[ |
286 cls := self resolveName:aClass. |
287 aClass isBehavior ifFalse:[cls := Smalltalk at:aClass asSymbol] |
287 |
288 ifTrue:[cls := aClass]. |
288 (cls notNil and:[cls includesBehavior:UISpecification]) ifTrue:[ |
289 |
289 ^ UISpecificationTool |
290 (cls notNil and:[cls includesBehavior:UISpecification]) ifTrue:[ |
|
291 ^ UISpecificationTool |
|
292 ] |
|
293 ]. |
290 ]. |
294 ^ cls |
291 ^ cls |
295 |
292 |
296 ! ! |
293 ! ! |
297 |
294 |