equal
deleted
inserted
replaced
143 ( |
143 ( |
144 (MenuItem |
144 (MenuItem |
145 enabled: hasSelection |
145 enabled: hasSelection |
146 label: 'Inspect Model' |
146 label: 'Inspect Model' |
147 itemValue: doInspectModel |
147 itemValue: doInspectModel |
|
148 isVisible: true |
148 ) |
149 ) |
149 (MenuItem |
150 (MenuItem |
150 label: 'Inspect Presenter' |
151 label: 'Inspect Presenter' |
151 itemValue: doInspectPresenter |
152 itemValue: doInspectPresenter |
|
153 isVisible: true |
|
154 ) |
|
155 (MenuItem |
|
156 label: 'Inspect Application' |
|
157 itemValue: doInspectApplication |
|
158 isVisible: true |
152 ) |
159 ) |
153 (MenuItem |
160 (MenuItem |
154 label: '-' |
161 label: '-' |
|
162 isVisible: true |
155 ) |
163 ) |
156 (MenuItem |
164 (MenuItem |
157 label: 'Update' |
165 label: 'Update' |
158 itemValue: duUpdateList |
166 itemValue: duUpdateList |
|
167 isVisible: true |
159 ) |
168 ) |
160 ) |
169 ) |
161 nil |
170 nil |
162 nil |
171 nil |
163 ) |
172 ) |
249 |
258 |
250 !VDBAbstractListApplication methodsFor:'change & update'! |
259 !VDBAbstractListApplication methodsFor:'change & update'! |
251 |
260 |
252 enqueueDelayedInvalidateInternalList |
261 enqueueDelayedInvalidateInternalList |
253 internalListView notNil ifTrue:[ |
262 internalListView notNil ifTrue:[ |
254 internalListView scrolledView invalidate |
263 self enqueueDelayedUpdate: #delayedInvalidateInternalList |
255 ] |
264 ] |
256 |
265 |
257 "Created: / 01-02-2018 / 23:11:06 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
266 "Created: / 06-02-2018 / 12:43:08 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
258 ! |
267 ! |
259 |
268 |
260 enqueueDelayedUpdateInternalList |
269 enqueueDelayedUpdateInternalList |
261 self enqueueDelayedUpdate: #delayedUpdateInternalList |
270 self enqueueDelayedUpdate: #delayedUpdateInternalList |
262 |
271 |
282 |
291 |
283 "Created: / 27-02-2015 / 15:44:44 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
292 "Created: / 27-02-2015 / 15:44:44 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
284 ! ! |
293 ! ! |
285 |
294 |
286 !VDBAbstractListApplication methodsFor:'change & update-delayed'! |
295 !VDBAbstractListApplication methodsFor:'change & update-delayed'! |
|
296 |
|
297 delayedInvalidateInternalList |
|
298 internalListView notNil ifTrue:[ |
|
299 internalListView scrolledView invalidate. |
|
300 ]. |
|
301 |
|
302 "Created: / 06-02-2018 / 12:43:48 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
303 ! |
287 |
304 |
288 delayedUpdateInternalList |
305 delayedUpdateInternalList |
289 "raise an error: must be redefined in concrete subclass(es)" |
306 "raise an error: must be redefined in concrete subclass(es)" |
290 |
307 |
291 ^ self subclassResponsibility |
308 ^ self subclassResponsibility |
386 ^ self internalSelectionHolder value notEmptyOrNil |
403 ^ self internalSelectionHolder value notEmptyOrNil |
387 |
404 |
388 "Modified: / 22-09-2014 / 01:13:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
405 "Modified: / 22-09-2014 / 01:13:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
389 ! ! |
406 ! ! |
390 |
407 |
|
408 !VDBAbstractListApplication class methodsFor:'documentation'! |
|
409 |
|
410 version_HG |
|
411 |
|
412 ^ '$Changeset: <not expanded> $' |
|
413 ! ! |
|
414 |