1137 It will be invoked when your app/dialog-window is about to be |
1139 It will be invoked when your app/dialog-window is about to be |
1138 closed (this method has a chance to suppress the close). |
1140 closed (this method has a chance to suppress the close). |
1139 See also #closeDownViews, which is invoked when the close is really done." |
1141 See also #closeDownViews, which is invoked when the close is really done." |
1140 |
1142 |
1141 | req | |
1143 | req | |
|
1144 |
1142 (self sendSaveRequestToCurrent == false) ifTrue:[^ self]. |
1145 (self sendSaveRequestToCurrent == false) ifTrue:[^ self]. |
1143 self destroyAll. |
1146 self destroyAll. |
1144 |
1147 |
1145 req := self requestor. |
1148 req := self requestor. |
1146 req notNil ifTrue:[ |
1149 req notNil ifTrue:[ |
1148 ]. |
1151 ]. |
1149 ^ super closeRequest |
1152 ^ super closeRequest |
1150 ! |
1153 ! |
1151 |
1154 |
1152 initialize |
1155 initialize |
1153 |
|
1154 |rootItem| |
1156 |rootItem| |
1155 |
1157 |
1156 resources := AbstractLauncherApplication resources. |
1158 resources := AbstractLauncherApplication resources. |
1157 rootItem := self class itemClass new. |
1159 rootItem := self class itemClass new. |
1158 rootItem label:(resources string:'Settings') "allBold". |
1160 rootItem label:(resources string:'Settings') "allBold". |
1159 rootItem nameString:'Settings'. |
1161 rootItem nameString:'Settings'. |
1160 rootItem icon:self class settingsIcon. |
1162 rootItem icon:self class settingsIcon. |
1161 self applicationList root:rootItem. |
1163 self applicationList root:rootItem; showRoot:true. |
1162 self applicationList showRoot:true. |
|
1163 self selectedItem value:rootItem. |
1164 self selectedItem value:rootItem. |
1164 super initialize. |
1165 super initialize. |
1165 ! |
1166 ! |
1166 |
1167 |
1167 postBuildSubCanvas:aWidget |
1168 postBuildSubCanvas:aWidget |
1168 |
|
1169 aWidget keepClientView:true. |
1169 aWidget keepClientView:true. |
1170 ! |
1170 ! |
1171 |
1171 |
1172 postOpenWith:aBuilder |
1172 postOpenWith:aBuilder |
1173 |
|
1174 self applicationList root expand. |
1173 self applicationList root expand. |
1175 super postOpenWith:aBuilder. |
1174 super postOpenWith:aBuilder. |
1176 ! ! |
1175 ! ! |
1177 |
1176 |
1178 !SettingsDialog methodsFor:'menu actions'! |
1177 !SettingsDialog methodsFor:'menu actions'! |