refresh breakpoints as a deferred action + log process priority

GemTalk · Mar 3, 2023 · 216321e · 216321e
1 parent c87842e
commit 216321e
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 5 deletions.
diff --git a/sources/JadeiteDebugger.cls b/sources/JadeiteDebugger.cls
@@ -520,7 +520,7 @@ reformatSource
 
 refreshBreakPointsIn: methodSourcePresenter
 	| breakPointSymbol indicators |
-	BrowserUpdate current logComment: 'about to JadeiteDebugger>>refreshBreakPointsIn:'.
+	[BrowserUpdate current logComment: 'about to JadeiteDebugger>>refreshBreakPointsIn:'.
 	BrowserUpdate current
 		logComment: 'JadeiteDebugger>>refreshBreakPointsIn: `methodSourcePresenter view isOpen`'
 				, methodSourcePresenter view isOpen printString.
@@ -548,7 +548,7 @@ refreshBreakPointsIn: methodSourcePresenter
 			BrowserUpdate current
 				logComment: 'Got a GPFault while refreshing breakpoints. Terminating active process which should release mutex in the unwind block.'.
 			Processor activeProcess terminate].
-	BrowserUpdate current logComment: 'finished JadeiteDebugger>>refreshBreakPointsIn:'!
+	BrowserUpdate current logComment: 'finished JadeiteDebugger>>refreshBreakPointsIn:'] postToInputQueue!
 
 registerPresentersForUpdates
 	"copied from RowanProjectsBrowserPresenter>>registerPresentersForUpdates"

diff --git a/sources/Rowan UI Base.pax b/sources/Rowan UI Base.pax
@@ -3685,8 +3685,9 @@ auditProjectFor: projectName
 
 basicRefreshBreakpointsIn: methodSourcePresenter selection: selection
 	| breakPointSymbol indicators includesBreakPoint individualBreakPointSymbol |
-	methodSourcePresenter view isOpen ifFalse:[^self]. 
-	methodSourcePresenter view clearContainerIndicators.
+	methodSourcePresenter view isOpen ifFalse: [^self].
+
+	[methodSourcePresenter view clearContainerIndicators.
 	indicators := OrderedCollection new.
 	breakPointSymbol := BrowserUpdate current breakpointsEnabled
 				ifTrue: [#breakPoint]
@@ -3710,7 +3711,8 @@ basicRefreshBreakpointsIn: methodSourcePresenter selection: selection
 						range: range
 						tag: string)].
 	methodSourcePresenter view indicators: indicators.
-	[methodSourcePresenter view update] on: GPFault do:[:ex | ex resume]. !
+	[methodSourcePresenter view update] on: GPFault do: [:ex | ex resume]]
+			postToInputQueue!
 
 canCommit: projectListPresenter
 	| projectService |

diff --git a/sources/RowanLoggingService.cls b/sources/RowanLoggingService.cls
@@ -177,6 +177,8 @@ logServiceDateTimeStampProcessOn: ws
 		nextPutAll: time printString;
 		space;
 		nextPutAll: 'Process: {' , Processor activeProcess identityHash printString , '}';
+		space;
+		nextPutAll: 'priority: ', Processor activePriority printString;
 		space.
 	mode
 		ifNotNil: