equal
deleted
inserted
replaced
2996 self doInstallSpec |
2996 self doInstallSpec |
2997 ] |
2997 ] |
2998 "/ ]. |
2998 "/ ]. |
2999 ] |
2999 ] |
3000 ]. |
3000 ]. |
3001 self painter isModified ifTrue:[ |
3001 |
3002 (self confirm:'The current interface has not yet been reinstalled!!\\Start anyway (based upon the previous interface)?' withCRs) ifFalse:[ |
3002 (specClass notNil and:[specSelector size >= 2]) ifTrue:[ |
3003 ^ self |
3003 "/ box suppressed, if no-class box is coming anyway ... |
|
3004 self painter isModified ifTrue:[ |
|
3005 (self confirm:'The current interface has not yet been reinstalled!!\\Start anyway (based upon the previous interface)?' withCRs) ifFalse:[ |
|
3006 ^ self |
|
3007 ] |
|
3008 ]. |
|
3009 ]. |
|
3010 |
|
3011 (specClass isNil or:[specSelector size < 2]) ifTrue:[ |
|
3012 self painter isModified ifTrue:[ |
|
3013 infoMessage := 'Class and selector must be defined,\and the interface must be saved first !!' withCRs. |
|
3014 ] ifFalse:[ |
|
3015 infoMessage := 'No class and selector defined !!'. |
3004 ] |
3016 ] |
3005 ]. |
|
3006 |
|
3007 (specClass isNil or:[specSelector size < 2]) ifTrue:[ |
|
3008 infoMessage := 'No class and selector defined!!'. |
|
3009 ] ifFalse:[ |
3017 ] ifFalse:[ |
3010 cls := self resolveName:specClass. |
3018 cls := self resolveName:specClass. |
3011 |
3019 |
3012 cls isNil ifTrue:[ |
3020 cls isNil ifTrue:[ |
3013 infoMessage := 'Class does not exist!!'. |
3021 infoMessage := 'Class does not exist!!'. |
3027 (app respondsTo:#openInterface:) ifFalse:[ |
3035 (app respondsTo:#openInterface:) ifFalse:[ |
3028 ^ self warn:('The application does not respond to the ''openInterface:'' message.\\(maybe its supposed to be used as subApplication/subCanvas)') withCRs. |
3036 ^ self warn:('The application does not respond to the ''openInterface:'' message.\\(maybe its supposed to be used as subApplication/subCanvas)') withCRs. |
3029 ]. |
3037 ]. |
3030 app openInterface:specSelector |
3038 app openInterface:specSelector |
3031 |
3039 |
3032 "Modified: / 29.10.1997 / 19:01:50 / cg" |
3040 "Modified: / 5.3.1998 / 03:25:36 / cg" |
3033 ! |
3041 ! |
3034 |
3042 |
3035 doWindowSpec |
3043 doWindowSpec |
3036 "create the window specification but do not write to application; instead |
3044 "create the window specification but do not write to application; instead |
3037 open a view |
3045 open a view |