equal
deleted
inserted
replaced
1907 !ApplicationModel methodsFor:'startup / release'! |
1907 !ApplicationModel methodsFor:'startup / release'! |
1908 |
1908 |
1909 close |
1909 close |
1910 "this is sent by my topView when about to be closed |
1910 "this is sent by my topView when about to be closed |
1911 by the program (not by the windowManager). |
1911 by the program (not by the windowManager). |
|
1912 Notice, that we get a closeRequest message if closed by the windowManager, |
|
1913 which can be rejected by the app (or confirmed via a dialog) |
1912 Could be redefined in subclasses." |
1914 Could be redefined in subclasses." |
1913 |
1915 |
1914 self closeDownViews |
1916 self closeDownViews |
1915 ! |
1917 ! |
1916 |
1918 |
1917 closeDownViews |
1919 closeDownViews |
1918 "close down the applications view(s)" |
1920 "close down the applications view(s)" |
1919 |
1921 |
1920 |wg views| |
1922 |wg views| |
1921 |
1923 |
|
1924 self release. |
1922 (wg := self windowGroup) notNil ifTrue:[ |
1925 (wg := self windowGroup) notNil ifTrue:[ |
1923 views := wg topViews. |
1926 views := wg topViews. |
1924 views notNil ifTrue:[ |
1927 views notNil ifTrue:[ |
1925 views copy do:[:aView | |
1928 views copy do:[:aView | |
1926 aView notNil ifTrue:[aView destroy] |
1929 aView notNil ifTrue:[aView destroy] |
1928 ] |
1931 ] |
1929 ] |
1932 ] |
1930 ! |
1933 ! |
1931 |
1934 |
1932 closeRequest |
1935 closeRequest |
1933 "this is sent by my topView when about to be closed |
1936 "this is sent by my topView when about to be closed by the windowManager. |
1934 by the windowManager. |
|
1935 Could be redefined in subclasses to suppress close or confirm." |
1937 Could be redefined in subclasses to suppress close or confirm." |
1936 |
1938 |
1937 |sav| |
1939 |sav| |
1938 |
1940 |
1939 "/ In multiView apps, tell my master. |
1941 "/ In multiView apps, tell my master. |
2048 ^ self |
2050 ^ self |
2049 ]. |
2051 ]. |
2050 ^ self "/ nothing done here ... |
2052 ^ self "/ nothing done here ... |
2051 ! |
2053 ! |
2052 |
2054 |
|
2055 releaseAsSubCanvas |
|
2056 "a subcanvas is closed" |
|
2057 |
|
2058 self release |
|
2059 ! |
|
2060 |
2053 restarted |
2061 restarted |
2054 "sent by my topWindow, when restarted from an image. |
2062 "sent by my topWindow, when restarted from an image. |
2055 Nothing done here, but can be redefined to perform any actions |
2063 Nothing done here, but can be redefined to perform any actions |
2056 required to reset the application after an image-restart. |
2064 required to reset the application after an image-restart. |
2057 (for example: check if application files are still around, restart |
2065 (for example: check if application files are still around, restart |
2140 ! ! |
2148 ! ! |
2141 |
2149 |
2142 !ApplicationModel class methodsFor:'documentation'! |
2150 !ApplicationModel class methodsFor:'documentation'! |
2143 |
2151 |
2144 version |
2152 version |
2145 ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.111 1999-08-02 15:18:42 tm Exp $' |
2153 ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.112 1999-08-12 17:06:37 cg Exp $' |
2146 ! ! |
2154 ! ! |
2147 ApplicationModel initialize! |
2155 ApplicationModel initialize! |