equal
deleted
inserted
replaced
739 builder isNil ifTrue:[^ nil]. |
739 builder isNil ifTrue:[^ nil]. |
740 (win := builder window) notNil ifTrue:[ |
740 (win := builder window) notNil ifTrue:[ |
741 ^ win |
741 ^ win |
742 ]. |
742 ]. |
743 masterApplication notNil ifTrue:[ |
743 masterApplication notNil ifTrue:[ |
744 "/ is that true ? |
744 masterApplication ~~ self ifTrue:[ |
745 ^ masterApplication window |
745 "/ is that true ? |
|
746 ^ masterApplication window |
|
747 ] |
746 ]. |
748 ]. |
747 ^ nil. |
749 ^ nil. |
748 |
750 |
749 "Modified: / 18.9.1998 / 15:18:19 / cg" |
751 "Modified: / 18.9.1998 / 15:18:19 / cg" |
750 ! |
752 ! |
2442 ! ! |
2444 ! ! |
2443 |
2445 |
2444 !ApplicationModel class methodsFor:'documentation'! |
2446 !ApplicationModel class methodsFor:'documentation'! |
2445 |
2447 |
2446 version |
2448 version |
2447 ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.150 2000-11-22 14:52:52 tm Exp $' |
2449 ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.151 2000-12-07 13:48:58 cg Exp $' |
2448 ! ! |
2450 ! ! |
2449 ApplicationModel initialize! |
2451 ApplicationModel initialize! |