equal
deleted
inserted
replaced
4430 cls := self resolveName:specClassName. |
4430 cls := self resolveName:specClassName. |
4431 cls isNil ifTrue:[ |
4431 cls isNil ifTrue:[ |
4432 self warn:'Oops cannot start application - no class:' , specClassName. |
4432 self warn:'Oops cannot start application - no class:' , specClassName. |
4433 ^ nil |
4433 ^ nil |
4434 ]. |
4434 ]. |
4435 ((application := cls new) respondsTo:#openInterface:) ifFalse:[ |
4435 application := cls new. |
|
4436 (application respondsTo:#openInterface:) ifFalse:[ |
4436 (self confirm:('The application does not respond to the ''openInterface:'' message.\(maybe the spec is supposed to be used as subApplication/subCanvas)\\Shall I try to open this as a standAlone dialog ?') withCRs) |
4437 (self confirm:('The application does not respond to the ''openInterface:'' message.\(maybe the spec is supposed to be used as subApplication/subCanvas)\\Shall I try to open this as a standAlone dialog ?') withCRs) |
4437 ifTrue:[ |
4438 ifTrue:[ |
4438 SimpleDialog new openSpec:(cls perform:specSelector) withBindings:nil. |
4439 SimpleDialog new openSpec:(cls perform:specSelector) withBindings:nil. |
4439 ]. |
4440 ]. |
4440 ^ self. |
4441 ^ self. |