equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 2002 by eXept Software AG |
2 COPYRIGHT (c) 2002 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
1189 compile:(txt bindWith:className) |
1187 compile:(txt bindWith:className) |
1190 forClass:metaClass |
1188 forClass:metaClass |
1191 inCategory:'startup'. |
1189 inCategory:'startup'. |
1192 ]. |
1190 ]. |
1193 (metaClass includesSelector:#'main:') ifFalse:[ |
1191 (metaClass includesSelector:#'main:') ifFalse:[ |
1194 txt := self codeFor_standAloneMain. |
1192 txt := self codeFor_standAloneMainOnClassSide. |
1195 self |
1193 self |
1196 compile:(txt bindWith:className) |
1194 compile:(txt bindWith:className) |
1197 forClass:metaClass |
1195 forClass:metaClass |
1198 inCategory:'startup'. |
1196 inCategory:'startup'. |
1199 |
1197 ]. |
1200 (metaClass includesSelector:#'realMain:') ifFalse:[ |
1198 (nonMetaclass includesSelector:#'main:') ifFalse:[ |
|
1199 txt := self codeFor_standAloneMain. |
|
1200 self |
|
1201 compile:(txt bindWith:className) |
|
1202 forClass:nonMetaclass |
|
1203 inCategory:'startup'. |
|
1204 |
|
1205 (nonMetaclass includesSelector:#'realMain:') ifFalse:[ |
1201 txt := self codeFor_standAloneRealMainMethodFor:nonMetaclass. |
1206 txt := self codeFor_standAloneRealMainMethodFor:nonMetaclass. |
1202 self |
1207 self |
1203 compile:(txt bindWith:className) |
1208 compile:(txt bindWith:className) |
1204 forClass:metaClass |
1209 forClass:nonMetaclass |
1205 inCategory:'startup'. |
1210 inCategory:'startup'. |
1206 ]. |
1211 ]. |
1207 |
1212 |
1208 ]. |
1213 ]. |
1209 |
1214 |