VDBAbstractListApplication.st
changeset 60 bcdb393c956f
parent 59 e7d0453109a1
child 62 8a52495c2108
--- a/VDBAbstractListApplication.st	Sat Feb 03 21:18:50 2018 +0000
+++ b/VDBAbstractListApplication.st	Mon Feb 05 14:18:03 2018 +0000
@@ -340,19 +340,30 @@
 
 !VDBAbstractListApplication methodsFor:'menu actions'!
 
+doDoubleClick
+    "Invoked when user double-clicks to list item."
+
+    | selectedVarObjPresenter |
+    
+    selectedVarObjPresenter := self internalSelectionHolder value. 
+    selectedVarObjPresenter notNil ifTrue:[
+        selectedVarObjPresenter doDoubleClick
+    ].
+
+    "Created: / 13-06-2017 / 17:09:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 16-01-2018 / 23:33:12 / jv"
+    "Modified: / 05-02-2018 / 13:02:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 doInspectModel
     | selection |
 
     selection := self internalSelectionHolder value.
     selection notEmptyOrNil ifTrue:[ 
-        selection isThreadGroupPresenter ifTrue: [ selection threadGroup inspect ].
-        selection isThreadPresenter ifTrue: [ selection thread inspect ].
-        selection isFramePresenter ifTrue: [ selection frame inspect ].    
-        selection isVariablePresenter ifTrue: [ selection varobj inspect ].    
-        selection isBreakpointPresenter ifTrue: [ selection breakpoint inspect ].    
+        selection subject inspect
     ].
 
-    "Modified: / 28-01-2018 / 22:52:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 05-02-2018 / 13:07:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 doInspectPresenter