Christoph Thiede uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-ct.1153.mcz

==================== Summary ====================

Name: Tools-ct.1153
Author: ct
Time: 5 May 2022, 8:17:54.026426 pm
UUID: 6bfa2cba-50fd-8142-b1ee-112b34c02268
Ancestors: Tools-ct.1152, Tools-ct.1146

Merges Tools-ct.1146:
	Makes it possible to debug the inactive Morphic UI process from the process browser. Adds #selectedProcess convenience.

Reasoning: Debugging the inactive Morphic UI process is not an issue because like for the active UI process, the debugger will always maintain an unblocked UI process. See Project>>#spawnNewProcessIfThisIsUI: and senders.

=============== Diff against Tools-ct.1152 ===============

Item was changed:
  ----- Method: ProcessBrowser class>>registerWellKnownProcesses (in category 'class initialization') -----
  registerWellKnownProcesses
  	"Associate each well-known process with a nickname and two flags: allow-stop, and allow-debug.
  	Additional processes may be added to this list as required"
  
  	WellKnownProcesses := OrderedCollection new.
  	self registerWellKnownProcess: []
  		label: 'no process'
  		allowStop: false
  		allowDebug: false.
  	self registerWellKnownProcess: [Smalltalk lowSpaceWatcherProcess]
  		label: 'the low space watcher'
  		allowStop: false
  		allowDebug: false.
  	self registerWellKnownProcess: [WeakArray runningFinalizationProcess]
  		label: 'the WeakArray finalization process'
  		allowStop: false
  		allowDebug: false.
  	self registerWellKnownProcess: [Processor activeProcess]
  		label: 'the UI process'
  		allowStop: true
  		allowDebug: true.
  	self registerWellKnownProcess: [Processor backgroundProcess]
  		label: 'the idle process'
  		allowStop: false
  		allowDebug: false.
  	self registerWellKnownProcess: [Sensor interruptWatcherProcess]
  		label: 'the user interrupt watcher'
  		allowStop: false
  		allowDebug: false.
  	self registerWellKnownProcess: [Sensor eventTicklerProcess]
  		label: 'the event tickler'
  		allowStop: false
  		allowDebug: false.
  	self registerWellKnownProcess: [Project uiProcess]
  		label: 'the inactive Morphic UI process'
  		allowStop: true
+ 		allowDebug: true.
- 		allowDebug: false.
  "	self registerWellKnownProcess:
  			[Smalltalk at: #SoundPlayer ifPresent: [:sp | sp playerProcess]]
  		label: 'the Sound Player'
  		allowStop: false
  		allowDebug: false."
  	self registerWellKnownProcess:
  			[ScheduledControllers ifNotNil: [ScheduledControllers activeControllerProcess]]
  		label: 'the inactive MVC controller process'
  		allowStop: false
  		allowDebug: true.
  	self registerWellKnownProcess:
  			[Smalltalk at: #CPUWatcher ifPresent: [:cw | cw currentWatcherProcess]]
  		label: 'the CPUWatcher'
  		allowStop: false
  		allowDebug: false
  !

Item was added:
+ ----- Method: ProcessBrowser>>selectedProcess (in category 'accessing') -----
+ selectedProcess
+ 
+ 	self processListIndex = 0 ifTrue: [^ nil].
+ 	^ self processList at: self processListIndex!