equal
deleted
inserted
replaced
1650 |
1650 |
1651 closeRequest |
1651 closeRequest |
1652 "close all windows open by builder |
1652 "close all windows open by builder |
1653 " |
1653 " |
1654 self painter isModified ifTrue:[ |
1654 self painter isModified ifTrue:[ |
1655 (self confirm:'quit without saving ?') ifFalse:[ |
1655 (self confirm:'quit without without saving your modifications ?') ifFalse:[ |
1656 ^ self |
1656 ^ self |
1657 ] |
1657 ] |
1658 ]. |
1658 ]. |
1659 |
1659 |
1660 treeView model removeDependent:self. |
1660 treeView model removeDependent:self. |
1669 treeView := nil. |
1669 treeView := nil. |
1670 activeHelpTool := nil. |
1670 activeHelpTool := nil. |
1671 |
1671 |
1672 super closeRequest. |
1672 super closeRequest. |
1673 |
1673 |
|
1674 "Modified: 28.7.1997 / 18:28:37 / cg" |
1674 ! |
1675 ! |
1675 |
1676 |
1676 closeRequestFor:aTopView |
1677 closeRequestFor:aTopView |
1677 "handle a close request for a specific view |
1678 "handle a close request for a specific view |
1678 " |
1679 " |
1931 doBrowseAppClass |
1932 doBrowseAppClass |
1932 "open a browser on the class" |
1933 "open a browser on the class" |
1933 |
1934 |
1934 |cls| |
1935 |cls| |
1935 |
1936 |
|
1937 self painter isModified ifTrue:[ |
|
1938 self warn:'the change have not yet been reinstalled.\\The browser will show the old interfaces code.' withCRs. |
|
1939 ]. |
|
1940 |
1936 specClass isNil ifTrue:[ |
1941 specClass isNil ifTrue:[ |
1937 ^ self information:'no class yet'. |
1942 ^ self information:'no class yet'. |
1938 ]. |
1943 ]. |
1939 |
1944 |
1940 specClass isBehavior ifFalse:[ |
1945 specClass isBehavior ifFalse:[ |
1947 ^ self information:'no class yet'. |
1952 ^ self information:'no class yet'. |
1948 ]. |
1953 ]. |
1949 |
1954 |
1950 SystemBrowser openInClass:cls |
1955 SystemBrowser openInClass:cls |
1951 |
1956 |
1952 |
1957 "Modified: 28.7.1997 / 18:30:13 / cg" |
1953 ! |
1958 ! |
1954 |
1959 |
1955 doFromClass |
1960 doFromClass |
1956 |className methodName cls sel accepted failed spec s painter| |
1961 |className methodName cls sel accepted failed spec s painter| |
1957 |
1962 |
2069 |
2074 |
2070 ! |
2075 ! |
2071 |
2076 |
2072 doNew |
2077 doNew |
2073 self painter isModified ifTrue:[ |
2078 self painter isModified ifTrue:[ |
2074 (self confirm:'new interface without saving your modifications ?') ifFalse:[ |
2079 (self confirm:'edit a new interface without saving your modifications ?') ifFalse:[ |
2075 ^ self |
2080 ^ self |
2076 ] |
2081 ] |
2077 ]. |
2082 ]. |
2078 |
2083 |
2079 self removeAll |
2084 self removeAll |
2080 |
2085 |
2081 "Modified: 17.6.1997 / 12:33:31 / cg" |
2086 "Modified: 28.7.1997 / 18:28:02 / cg" |
2082 ! |
2087 ! |
2083 |
2088 |
2084 doPickAView |
2089 doPickAView |
2085 |painter view cls spec| |
2090 |painter view cls spec| |
2086 |
2091 |
2112 ! |
2117 ! |
2113 |
2118 |
2114 doStartApplication |
2119 doStartApplication |
2115 |cls| |
2120 |cls| |
2116 |
2121 |
|
2122 self painter isModified ifTrue:[ |
|
2123 (self confirm:'the changed spec has not yet been reinstalled.\\Start anyway (based upon the previous interface) ?' withCRs) ifFalse:[ |
|
2124 ^ self |
|
2125 ] |
|
2126 ]. |
|
2127 |
2117 (specClass isNil or:[specSelector size < 2]) ifTrue:[ |
2128 (specClass isNil or:[specSelector size < 2]) ifTrue:[ |
2118 ^ self information:'no class or selector defined'. |
2129 ^ self information:'no class or selector defined'. |
2119 ]. |
2130 ]. |
2120 |
2131 |
2121 specClass isBehavior ifFalse:[ |
2132 specClass isBehavior ifFalse:[ |
2133 , specSelector , ' in ' , cls name , |
2144 , specSelector , ' in ' , cls name , |
2134 '\\(did you install the spec ?)') withCRs. |
2145 '\\(did you install the spec ?)') withCRs. |
2135 ]. |
2146 ]. |
2136 cls new openInterface:specSelector |
2147 cls new openInterface:specSelector |
2137 |
2148 |
2138 "Modified: 17.6.1997 / 14:40:21 / cg" |
2149 "Modified: 28.7.1997 / 18:30:25 / cg" |
2139 ! |
2150 ! |
2140 |
2151 |
2141 doWindowSpec |
2152 doWindowSpec |
2142 |code v| |
2153 |code v| |
2143 |
2154 |