VDBStackApplication.st
changeset 31 00f6de198c7f
parent 25 e0f3744cd77d
child 34 cda31dfd5386
--- a/VDBStackApplication.st	Mon Sep 29 23:59:11 2014 +0100
+++ b/VDBStackApplication.st	Tue Sep 30 00:32:42 2014 +0100
@@ -2,7 +2,8 @@
 
 VDBAbstractApplication subclass:#VDBStackApplication
 	instanceVariableNames:'selectedThreadGroupHolder selectedThreadHolder
-		selectedFrameHolder internalListHolder internalSelectionHolder'
+		selectedFrameHolder internalListHolder internalListView
+		internalSelectionHolder'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'VDB-UI-Others'
@@ -52,6 +53,7 @@
              showLines: false
              useDefaultIcons: false
              showRoot: false
+             postBuildCallback: postBuildInternalListView:
            )
           )
         
@@ -271,9 +273,12 @@
             root children anElement children anElement expand.
         ]
     ].
+    internalListView notNil ifTrue:[  
+        internalListView invalidate.
+    ]
 
     "Created: / 20-09-2014 / 23:05:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 22-09-2014 / 00:04:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 30-09-2014 / 00:02:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 updateInternalSelection
@@ -344,6 +349,12 @@
 
 !VDBStackApplication methodsFor:'event handling'!
 
+onRunningEvent: event
+    self enqueueUpdateInternalList.
+
+    "Created: / 30-09-2014 / 00:02:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 onStoppedEvent: event
     self enqueueUpdateInternalList.
     self enqueueUpdateInternalSelectionAfterThreadStopped:event stoppedThread.
@@ -375,6 +386,12 @@
 
     "Created: / 18-09-2014 / 00:29:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 20-09-2014 / 23:50:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+postBuildInternalListView: aView
+    internalListView := aView
+
+    "Modified: / 30-09-2014 / 00:00:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !VDBStackApplication methodsFor:'initialization & release'!
@@ -383,12 +400,13 @@
     "Register for debugger events. To be overrided by subclasses"
 
     debugger announcer
+        when: GDBRunningEvent           send: #onRunningEvent: to: self;
         when: GDBStoppedEvent           send: #onStoppedEvent: to: self;
         when: GDBThreadExitedEvent      send: #onThreadExitedEvent: to: self;
         when: GDBThreadGroupExitedEvent send: #onThreadGroupExitedEvent: to: self
 
     "Created: / 07-06-2014 / 14:33:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 18-09-2014 / 23:30:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 30-09-2014 / 00:02:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !VDBStackApplication methodsFor:'menu actions'!