VDBBreakpointListApplication.st
changeset 123 59344404471e
parent 115 0dd989ce3ae7
child 151 bc7626f46210
child 153 063fd7d1d5be
--- a/VDBBreakpointListApplication.st	Tue Oct 02 12:32:08 2018 +0100
+++ b/VDBBreakpointListApplication.st	Sun Oct 07 22:10:32 2018 +0100
@@ -167,10 +167,10 @@
     ^ selectedBreakpointHolder
 !
 
-selectedBreakpointHolder:something
+selectedBreakpointHolder:aValueModel
     "set the 'selectedBreakpointHolder' value holder (automatically generated)"
 
-    selectedBreakpointHolder := something.
+    selectedBreakpointHolder := aValueModel.
 ! !
 
 !VDBBreakpointListApplication methodsFor:'change & update-delayed'!
@@ -198,22 +198,24 @@
 !VDBBreakpointListApplication methodsFor:'event handling'!
 
 onBreakpointCreatedEvent: aGDBBreakpointCreatedEvent
-    self delayedUpdateInternalList.
+    self enqueueDelayedUpdateInternalList.
 
     "Created: / 10-07-2017 / 17:59:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 07-10-2018 / 22:09:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 onBreakpointDeletedEvent: aGDBBreakpointDeletedEvent
-    self delayedUpdateInternalList.
+    self enqueueDelayedUpdateInternalList.
 
     "Created: / 10-07-2017 / 17:59:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 07-10-2018 / 22:09:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 onBreakpointModifiedEvent: aGDBBreakpointModifiedEvent
-    internalListView scrolledView invalidate.
+    self enqueueDelayedInvalidateInternalList
 
     "Created: / 10-07-2017 / 18:00:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 12-07-2017 / 11:34:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 07-10-2018 / 22:09:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !VDBBreakpointListApplication methodsFor:'initialization & release'!