VDBAbstractListApplication.st
changeset 62 8a52495c2108
parent 60 bcdb393c956f
child 72 4e8268dabaf7
--- 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> $'
+! !
+