--- a/VDBAbstractListApplication.st Mon Feb 05 21:46:29 2018 +0000
+++ b/VDBAbstractListApplication.st Tue Feb 06 14:35:33 2018 +0000
@@ -145,17 +145,26 @@
enabled: hasSelection
label: 'Inspect Model'
itemValue: doInspectModel
+ isVisible: true
)
(MenuItem
label: 'Inspect Presenter'
itemValue: doInspectPresenter
+ isVisible: true
+ )
+ (MenuItem
+ label: 'Inspect Application'
+ itemValue: doInspectApplication
+ isVisible: true
)
(MenuItem
label: '-'
+ isVisible: true
)
(MenuItem
label: 'Update'
itemValue: duUpdateList
+ isVisible: true
)
)
nil
@@ -251,10 +260,10 @@
enqueueDelayedInvalidateInternalList
internalListView notNil ifTrue:[
- internalListView scrolledView invalidate
+ self enqueueDelayedUpdate: #delayedInvalidateInternalList
]
- "Created: / 01-02-2018 / 23:11:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Created: / 06-02-2018 / 12:43:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
enqueueDelayedUpdateInternalList
@@ -285,6 +294,14 @@
!VDBAbstractListApplication methodsFor:'change & update-delayed'!
+delayedInvalidateInternalList
+ internalListView notNil ifTrue:[
+ internalListView scrolledView invalidate.
+ ].
+
+ "Created: / 06-02-2018 / 12:43:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
delayedUpdateInternalList
"raise an error: must be redefined in concrete subclass(es)"
@@ -388,3 +405,10 @@
"Modified: / 22-09-2014 / 01:13:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+!VDBAbstractListApplication class methodsFor:'documentation'!
+
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+! !
+