equal
deleted
inserted
replaced
1239 "/ builder := realBuilder. |
1239 "/ builder := realBuilder. |
1240 "/ builder application:self. |
1240 "/ builder application:self. |
1241 "/ builder bindings:builder bindings. |
1241 "/ builder bindings:builder bindings. |
1242 |
1242 |
1243 builder isNil ifTrue:[ |
1243 builder isNil ifTrue:[ |
1244 builder := self builderClass new. |
1244 self createBuilder. |
1245 builder application:self. |
|
1246 ]. |
1245 ]. |
1247 |
1246 |
1248 self preBuildWith:builder. |
1247 self preBuildWith:builder. |
1249 builder buildFromSpec:aSpec. |
1248 builder buildFromSpec:aSpec. |
1250 window := builder window. |
1249 window := builder window. |
1252 (window respondsTo:#application:) ifTrue:[ |
1251 (window respondsTo:#application:) ifTrue:[ |
1253 window application:self. |
1252 window application:self. |
1254 ]. |
1253 ]. |
1255 self postBuildWith:builder. |
1254 self postBuildWith:builder. |
1256 |
1255 |
1257 "Modified: / 19.6.1998 / 01:39:16 / cg" |
1256 "Modified: / 19.6.1998 / 03:35:31 / cg" |
1258 ! |
1257 ! |
1259 |
1258 |
1260 allButOpenInterface:aSymbol |
1259 allButOpenInterface:aSymbol |
1261 "create my views but do not open the main window. |
1260 "create my views but do not open the main window. |
1262 The argument specifies a selector of a method, |
1261 The argument specifies a selector of a method, |
1522 |
1521 |
1523 "Created: / 19.6.1998 / 01:39:26 / cg" |
1522 "Created: / 19.6.1998 / 01:39:26 / cg" |
1524 "Modified: / 19.6.1998 / 01:45:24 / cg" |
1523 "Modified: / 19.6.1998 / 01:45:24 / cg" |
1525 ! |
1524 ! |
1526 |
1525 |
|
1526 createBuilder |
|
1527 builder isNil ifTrue:[ |
|
1528 builder := self builderClass new. |
|
1529 builder application:self. |
|
1530 ] |
|
1531 |
|
1532 "Created: / 19.6.1998 / 03:32:37 / cg" |
|
1533 ! |
|
1534 |
1527 opened:whichTopView |
1535 opened:whichTopView |
1528 "the topView has been opened. |
1536 "the topView has been opened. |
1529 This is sent by my topView when its really open |
1537 This is sent by my topView when its really open |
1530 (i.e. finally visible)" |
1538 (i.e. finally visible)" |
1531 |
1539 |
1793 ! ! |
1801 ! ! |
1794 |
1802 |
1795 !ApplicationModel class methodsFor:'documentation'! |
1803 !ApplicationModel class methodsFor:'documentation'! |
1796 |
1804 |
1797 version |
1805 version |
1798 ^ '$Header: /cvs/stx/stx/libview2/Attic/AppModel.st,v 1.87 1998-06-19 00:01:53 cg Exp $' |
1806 ^ '$Header: /cvs/stx/stx/libview2/Attic/AppModel.st,v 1.88 1998-06-19 01:37:17 cg Exp $' |
1799 ! ! |
1807 ! ! |
1800 ApplicationModel initialize! |
1808 ApplicationModel initialize! |