1153 |
1153 |
1154 update:something with:someArgument from:changedObject |
1154 update:something with:someArgument from:changedObject |
1155 |argList sensor| |
1155 |argList sensor| |
1156 |
1156 |
1157 (changedObject == ObjectMemory) ifTrue:[ |
1157 (changedObject == ObjectMemory) ifTrue:[ |
1158 (something == #earlyRestart |
1158 (something == #earlyRestart |
1159 or:[something == #restarted |
1159 or:[something == #restarted |
1160 or:[something == #returnFromSnapshot]]) ifTrue:[ |
1160 or:[something == #returnFromSnapshot]]) ifTrue:[ |
1161 "/ those are to be ignored. |
1161 "/ those are to be ignored. |
1162 ^ self |
1162 ^ self |
1163 ] |
1163 ] |
1164 ]. |
1164 ]. |
1165 |
1165 |
1166 "/ |
1166 "/ |
1167 "/ avoid update/warn after my own changes |
1167 "/ avoid update/warn after my own changes |
1168 "/ |
1168 "/ |
1169 lockUpdates == true ifTrue:[ |
1169 lockUpdates == true ifTrue:[ |
1170 ^ self |
1170 ^ self |
1171 ]. |
1171 ]. |
1172 |
1172 |
1173 "/ |
1173 "/ |
1174 "/ quick hack: delayed update fails, if I autoload |
1174 "/ quick hack: delayed update fails, if I autoload |
1175 "/ LabelAndIcon in the update, and another browser |
1175 "/ LabelAndIcon in the update, and another browser |
1178 "/ To get that beast out, do it synchronous for now. |
1178 "/ To get that beast out, do it synchronous for now. |
1179 "/ also do it immediately, if not yet realized (no sensor) |
1179 "/ also do it immediately, if not yet realized (no sensor) |
1180 |
1180 |
1181 (LabelAndIcon isLoaded not |
1181 (LabelAndIcon isLoaded not |
1182 or:[(sensor := self sensor) isNil]) ifTrue:[ |
1182 or:[(sensor := self sensor) isNil]) ifTrue:[ |
1183 ^ self delayedUpdate:something with:someArgument from:changedObject |
1183 ^ self delayedUpdate:something with:someArgument from:changedObject |
1184 ]. |
1184 ]. |
1185 |
1185 |
1186 "/ |
1186 "/ |
1187 "/ if such an update is already in the queue, ignore it. |
1187 "/ if such an update is already in the queue, ignore it. |
1188 "/ Otherwise push it as an event, to be handled when I am back |
1188 "/ Otherwise push it as an event, to be handled when I am back |
1189 "/ |
1189 "/ |
1190 argList := Array with:something |
1190 argList := Array with:something |
1191 with:someArgument |
1191 with:someArgument |
1192 with:changedObject. |
1192 with:changedObject. |
1193 |
1193 |
1194 (sensor |
1194 (sensor |
1195 hasEvent:#delayedUpdate:with:from: |
1195 hasEvent:#delayedUpdate:with:from: |
1196 for:self |
1196 for:self |
1197 withArguments:argList) ifTrue:[ |
1197 withArguments:argList) ifTrue:[ |
1198 ^ self |
1198 ^ self |
1199 ]. |
1199 ]. |
1200 sensor |
1200 sensor |
1201 pushUserEvent:#delayedUpdate:with:from: |
1201 pushUserEvent:#delayedUpdate:with:from: |
1202 for:self |
1202 for:self |
1203 withArguments:argList |
1203 withArguments:argList |
1204 |
1204 |
1205 "Modified: 26.3.1997 / 18:29:51 / cg" |
1205 "Modified: 26.3.1997 / 18:29:51 / cg" |
1206 ! ! |
1206 ! ! |
1207 |
1207 |
1208 !BrowserView methodsFor:'class category list menu'! |
1208 !BrowserView methodsFor:'class category list menu'! |