--- 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'!