Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1253.mcz
==================== Summary ====================
Name: Tools-mt.1253 Author: mt Time: 17 May 2024, 11:46:56.243954 am UUID: b077ec04-5af1-ae43-a2dc-0ac137a0f916 Ancestors: Tools-mt.1252
Complement Kernel-mt.1565
=============== Diff against Tools-mt.1252 ===============
Item was changed: Model subclass: #ProcessBrowser + instanceVariableNames: 'selectedProcess selectedContext methodText processList processListIndex stackList stackListIndex stackDepth sourceMap selectedClass selectedSelector searchString autoUpdateProcess startedCPUWatcher' - instanceVariableNames: 'selectedProcess selectedContext methodText processList processListIndex stackList stackListIndex stackDepth sourceMap selectedClass selectedSelector searchString autoUpdateProcess lastUpdate startedCPUWatcher' classVariableNames: 'Browsers SuspendedProcesses WellKnownProcesses' poolDictionaries: '' category: 'Tools-Process Browser'!
!ProcessBrowser commentStamp: '<historical>' prior: 0! Change Set: ProcessBrowser Date: 14 March 2000 Author: Ned Konz
email: ned@bike-nomad.com
This is distributed under the Squeak License.
Added 14 March: CPUWatcher integration automatically start and stop CPUWatcher added CPUWatcher to process list menu
Added 29 October: MVC version 2.8, 2.7 compatibility rearranged menus added pointer inspection and chasing added suspend/resume recognized more well-known processes misc. bug fixes
Added 26 October: highlight pc in source code Added 27 October: added 'signal semaphore' added 'inspect receiver', 'explore receiver', 'message tally' to stack list menu added 'find context', 'next context' to process list menu added 'change priority' and 'debug' choices to process list menu
27 October mods by Bob Arning:
alters process display in Ned's ProcessBrowser to - show process priority - drop 'a Process in' that appears on each line - show in priority order - prettier names for known processes - fix to Utilities to forget update downloading process when it ends (1 less dead process) - correct stack dump for the active process !
Item was changed: ----- Method: ProcessBrowser>>initialize (in category 'initialize-release') ----- initialize methodText := ''.. stackDepth := 20. stackListIndex := 0. searchString := ''. - lastUpdate := 0. startedCPUWatcher := CPUWatcher cpuWatcherEnabled and: [ self startCPUWatcher ]. self updateProcessList; processListIndex: 1. Browsers add: self!
Item was changed: ----- Method: ProcessBrowser>>updateProcessList (in category 'process list') ----- updateProcessList + | oldSelectedProcess newIndex | - | oldSelectedProcess newIndex now | - now := Time millisecondClockValue. - now - lastUpdate < 500 - ifTrue: [^ self]. - "Don't update too fast" - lastUpdate := now. oldSelectedProcess := selectedProcess. processList := selectedProcess := selectedSelector := nil. Smalltalk garbageCollectMost. "lose defunct processes"
+ processList := Process allProcesses - processList := Process allSubInstances reject: [:each | each isTerminated]. processList := processList sorted: [:a :b | a priority >= b priority]. processList := WeakArray withAll: processList. newIndex := processList indexOf: oldSelectedProcess. self changed: #processNameList. self processListIndex: newIndex!
squeak-dev@lists.squeakfoundation.org