Squeak-dev May 2024

squeak-dev@lists.squeakfoundation.org

16 participants
48 discussions

The Inbox: Collections-lrnp.1017.mcz
by commits＠source.squeak.org 21 May '24

21 May '24

A new version of Collections was added to project The Inbox: http://source.squeak.org/inbox/Collections-lrnp.1017.mcz ==================== Summary ==================== Name: Collections-lrnp.1017 Author: lrnp Time: 21 May 2024, 9:58:16.853374 am UUID: c8df4265-5d09-4d14-9a7e-a0d59568180d Ancestors: Collections-mt.1016 A near inverse to #asCamelCase, #splitCamelCase picks apart the capitalized words in a string. =============== Diff against Collections-eem.1015 =============== Item was changed: ----- Method: HashedCollection>>comeFullyUpOnReload: (in category 'objects from disk') ----- comeFullyUpOnReload: smartRefStream "Symbols have new hashes in this image." + self rehash! - self compact! Item was added: + ----- Method: String>>splitCamelCase (in category 'converting') ----- + splitCamelCase + "Answer an array containing substrings of each CamelCase word. + + 'ByteString' splitCamelCase. + 'splitCamelCase' splitCamelCase. + " + | result source string atStart | + source:= ReadStream on: self. + result:= OrderedCollection new. + atStart:= true. + [source atEnd] whileFalse: [ | char | + char:= source next. + atStart ifTrue: [atStart:= false. string:= String with: char] + ifFalse: [ + char isUppercase + ifTrue: [ + result add: string. + string:= String with: char] + ifFalse: [string:= string , (String with: char)]]]. + result add: string. + ^result asArray!

1 0

The Inbox: System-cmm.1452.mcz
by commits＠source.squeak.org 21 May '24

21 May '24

Chris Muller uploaded a new version of System to project The Inbox: http://source.squeak.org/inbox/System-cmm.1452.mcz ==================== Summary ==================== Name: System-cmm.1452 Author: cmm Time: 19 May 2024, 8:52:12.862114 pm UUID: 9011a64a-8ac0-4f23-87ca-30cd3fc33093 Ancestors: System-cmm.1451 Made the help text of the Community Dark theme distinguishable from regular comments. This subdued rendering relieves the IDE of the cluttered look it had due to the repetitious, overly-distinct help texts present in every pane on the screen. =============== Diff against System-cmm.1451 =============== Item was changed: ----- Method: CommunityTheme class>>addDarkScrollables: (in category 'instance creation') ----- addDarkScrollables: aUserInterfaceTheme "self createDark apply." "Scroll bars" aUserInterfaceTheme set: #thumbColor for: #ScrollBar to: self dbGray; set: #thumbBorderColor for: #ScrollBar to: self dbGray twiceDarker. "Scroll panes (includes generic stuff for list widgets, tree widgets, and text widgets." aUserInterfaceTheme set: #borderColor for: #ScrollPane to: (Color transparent) ; "So the search box isn't outlined." set: #color for: #ScrollPane to: self dbBackground. "List widgets" aUserInterfaceTheme set: #textColor for: #PluggableListMorph to: (Color gray: 0.9); set: #selectionColor for: #PluggableListMorph to: self dbSelection; set: #selectionTextColor for: #PluggableListMorph to: Color white ; derive: #multiSelectionColor for: #PluggableListMorph from: #PluggableListMorph at: #selectionColor do: [:c | c twiceDarker]; set: #filterColor for: #PluggableListMorph to: (self dbYellow alpha: 0.4); derive: #filterTextColor for: #PluggableListMorph from: #PluggableListMorph at: #textColor ; set: #preSelectionModifier for: #PluggableListMorph to: [ [:c | c twiceDarker ] ]; set: #hoverSelectionModifier for: #PluggableListMorph to: [ [:c | c twiceDarker alpha: 0.5 ] ]. "Tree widgets" aUserInterfaceTheme set: #highlightTextColor for: #SimpleHierarchicalListMorph to: self dbYellow lighter lighter; set: #lineColor for: #SimpleHierarchicalListMorph to: Color gray; set: #toggleColor for: #SimpleHierarchicalListMorph to: (Color gray: 0.9). "Text widgets" aUserInterfaceTheme set: #textColor for: #PluggableTextMorph to: (Color gray: 0.9); set: #caretColor for: #PluggableTextMorph to: Color orange darker; set: #selectionColor for: #PluggableTextMorph to: (self dbSelection duller duller); set: #unfocusedSelectionModifier for: #PluggableTextMorph to: [ [:c | c duller] ]; set: #adornmentReadOnly for: #PluggableTextMorph to: self dbPurple; set: #adornmentRefuse for: #PluggableTextMorph to: self dbBlue; set: #adornmentConflict for: #PluggableTextMorph to: self dbRed; set: #adornmentDiff for: #PluggableTextMorph to: self dbGreen; set: #adornmentNormalEdit for: #PluggableTextMorph to: self dbOrange; set: #adornmentDiffEdit for: #PluggableTextMorph to: self dbYellow; set: #frameAdornmentWidth for: #PluggableTextMorph to: 2. aUserInterfaceTheme + set: #balloonTextColor for: #PluggableTextMorphPlus to: self dbComment muchDarker! - set: #balloonTextColor for: #PluggableTextMorphPlus to: self dbComment!

2 1

Request to update a wiki.squeak.org page or access to do so
by Scott Gibson 21 May '24

21 May '24

Could someone make a change to a wiki.squeak.org page or provide access for me to make the change? There is an broken link that needs updated with the archive.org version. Thanks! Scott

1 0

The Trunk: Files-cmm.208.mcz
by commits＠source.squeak.org 20 May '24

20 May '24

Chris Muller uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-cmm.208.mcz ==================== Summary ==================== Name: Files-cmm.208 Author: cmm Time: 19 May 2024, 8:17:37.498235 pm UUID: e15ef72f-61d3-4caf-858d-9890c1ef26d1 Ancestors: Files-cmm.207 - Don't allow FileDirectory>>#copyHere: to fail silently. - Allow users of in-image file-copying a chance to monitor progress. =============== Diff against Files-cmm.207 =============== Item was changed: ----- Method: FileDirectory>>copyFile:toFile: (in category 'file operations') ----- copyFile: fileStream1 toFile: fileStream2 + | buffer progress done lastUpdateTime | + progress := ProgressNotification new + amount: fileStream1 size ; + done: (done := 0). + lastUpdateTime := Time millisecondClockValue. - | buffer | fileStream1 position: 0. fileStream2 truncate. + buffer := ByteArray new: 50000. + [ fileStream1 atEnd ] whileFalse: + [ | chunk | + chunk := fileStream1 nextInto: buffer. + fileStream2 nextPutAll: chunk. + done := done + chunk size. + (Time millisecondsSince: lastUpdateTime) > 1000 ifTrue: + [ progress done: done; signal. + lastUpdateTime := Time millisecondClockValue ] ]. + fileStream2 size = fileStream1 size ifFalse: [ self error: 'File copy failed' ]! - buffer := String new: 50000. - [ fileStream1 atEnd ] whileFalse: [ fileStream2 nextPutAll: (fileStream1 nextInto: buffer) ]. - fileStream2 position < fileStream1 size ifTrue: [ self error: 'File copy failed' ]! Item was changed: ----- Method: FileDirectory>>copyHere: (in category 'file operations') ----- copyHere: aDirectoryEntryFile "Copy aDirectoryEntryFile, which represents a file, to the directory I represent." aDirectoryEntryFile readStream in: [ : readStream | + [ (self - [ self putFile: readStream + named: aDirectoryEntryFile name) ifFalse: [ self error: 'file copy failed' ] ] ensure: [ readStream close ] ]! - named: aDirectoryEntryFile name ] ensure: [ readStream close ] ]!

1 0

The Inbox: WebClient-Core-cmm.136.mcz
by commits＠source.squeak.org 19 May '24

19 May '24

Chris Muller uploaded a new version of WebClient-Core to project The Inbox: http://source.squeak.org/inbox/WebClient-Core-cmm.136.mcz ==================== Summary ==================== Name: WebClient-Core-cmm.136 Author: cmm Time: 18 May 2024, 6:30:21.417414 pm UUID: f4f5030f-e94f-4a8c-a3c3-0ef5be3ca97d Ancestors: WebClient-Core-tpr.135 base64 and base64url encoding convenience methods. =============== Diff against WebClient-Core-tpr.135 =============== Item was added: + ----- Method: WebUtils class>>base64Decode: (in category 'decoding') ----- + base64Decode: aString + "Decode previously-encoded aString back to its original ByteArray." + ^ (Base64MimeConverter mimeDecodeToBytes: aString readStream) contents! Item was added: + ----- Method: WebUtils class>>base64DecodeString: (in category 'decoding') ----- + base64DecodeString: aString + "Decode previously-encded aString back to its original String value." + ^ (Base64MimeConverter mimeDecodeToChars: aString readStream) contents! Item was added: + ----- Method: WebUtils class>>base64Encode: (in category 'decoding') ----- + base64Encode: aByteArray + "Encode a String, ByteArray, or Integer." + ^ (Base64MimeConverter mimeEncode: aByteArray asByteArray readStream multiLine: false) contents! Item was added: + ----- Method: WebUtils class>>base64UrlDecode: (in category 'decoding') ----- + base64UrlDecode: aString + "Decode a ByteArray that was previously encoded with base64UrlEncode." + | base64 | + base64 := String streamContents: [ : stream | |missingPadding | + aString do: + [ : each | |nextChar | + nextChar := each + caseOf: + { [$_] -> [$/]. + [$-] -> [$+] } + otherwise: [ each ]. + stream nextPut: nextChar ]. + "Now reapply original padding." + missingPadding := (4-(aString size\\4)) \\ 4. + missingPadding timesRepeat: [ stream nextPut: $= ] ]. + ^ self base64Decode: base64! Item was added: + ----- Method: WebUtils class>>base64UrlEncode: (in category 'decoding') ----- + base64UrlEncode: aByteArray + "Convert aByteArray to a valid filename. Base64 encode, replace +' with '-' and '/' with '_', and strip == padding. Restore with #base64UrlDecode:." + ^ String streamContents: + [ : stream | + (WebUtils base64Encode: aByteArray) do: + [ : each | each + caseOf: + { [$+] -> [stream nextPut: $-]. + [$/] -> [stream nextPut: $_ ]. + [$=] -> ["skip"] } + otherwise: + [ stream nextPut: each ] ] ]!

1 0

Discuss & Review | Faster ProcessExplorer through AllProcesses list
by Taeumel, Marcel 18 May '24

18 May '24

...instead of "Process allSubInstances". The caveat is this: process creation gets a little bit slower while accessing the list of runnable *and* waiting processes gets about 40x faster: [ [] newProcess terminate ] bench. AFTER: '140,000 per second. 7.13 microseconds per run. 35.02 % GC time.' BEFORE: '224,000 per second. 4.47 microseconds per run. 4.38 % GC time.' [ aProcessBrowser updateProcessList ] bench. -- allow quick updates AFTER: '4,410 per second. 227 microseconds per run. 77.34453 % GC time.' BEFORE: '118 per second. 8.47 milliseconds per run. 2.59792 % GC time.' Why do we need this? If you have an auto-updating ProcessBrowser running in the background while doing time-sensitive benchmarks, you want a fast ProcessBrowser :-) Please see the attached change set. Thanks to Leon and Eliot for the hint! Best, Marcel

7 10

The Inbox: System-dtl.1455.mcz
by commits＠source.squeak.org 18 May '24

18 May '24

A new version of System was added to project The Inbox: http://source.squeak.org/inbox/System-dtl.1455.mcz ==================== Summary ==================== Name: System-dtl.1455 Author: dtl Time: 17 May 2024, 6:25:51.330785 pm UUID: c305abd8-e40f-474a-88f3-2084255beb6a Ancestors: System-mt.1454 Remove class Process from the special objects array. Direct reference to Process has not been required in VMs for many years, so eliminate it now as a dependency. =============== Diff against System-mt.1454 =============== Item was changed: ----- Method: SmalltalkImage>>recreateSpecialObjectsArray (in category 'special objects') ----- recreateSpecialObjectsArray "Smalltalk recreateSpecialObjectsArray" "To external package developers: **** DO NOT OVERRIDE THIS METHOD. ***** If you are writing a plugin and need additional special object(s) for your own use, use addGCRoot() function and use own, separate special objects registry " "The Special Objects Array is an array of objects used by the Squeak virtual machine. Its contents are critical and accesses to it by the VM are unchecked, so don't even think of playing here unless you know what you are doing." | newArray | newArray := Array new: 60. "Nil false and true get used throughout the VM" newArray at: 1 put: nil. newArray at: 2 put: false. newArray at: 3 put: true. "This association holds the active process (a ProcessScheduler)" newArray at: 4 put: (self specialObjectsArray at: 4) "(self bindingOf: #Processor) but it answers an Alias". "Numerous classes below used for type checking and instantiation" newArray at: 5 put: Bitmap. newArray at: 6 put: SmallInteger. newArray at: 7 put: ByteString. newArray at: 8 put: Array. newArray at: 9 put: Smalltalk. newArray at: 10 put: BoxedFloat64. newArray at: 11 put: (self globals at: #Context). newArray at: 12 put: WideString. "Was BlockContext" newArray at: 13 put: Point. newArray at: 14 put: LargePositiveInteger. newArray at: 15 put: Display. newArray at: 16 put: Message. newArray at: 17 put: CompiledMethod. newArray at: 18 put: ((self specialObjectsArray at: 18) ifNil: [Semaphore new]). "low space Semaphore" newArray at: 19 put: Semaphore. newArray at: 20 put: Character. newArray at: 21 put: #doesNotUnderstand:. newArray at: 22 put: #cannotReturn:. newArray at: 23 put: nil. "This is the process signalling low space." "An array of the 32 selectors that are compiled as special bytecodes, paired alternately with the number of arguments each takes." newArray at: 24 put: #(+ 1 - 1 < 1 > 1 <= 1 >= 1 = 1 ~= 1 * 1 / 1 \\ 1 @ 1 bitShift: 1 // 1 bitAnd: 1 bitOr: 1 at: 1 at:put: 2 size 0 next 0 nextPut: 1 atEnd 0 == 1 class 0 ~~ 1 value 0 value: 1 do: 1 new 0 new: 1 x 0 y 0 ). newArray at: 25 put: nil. "Was an array of the 255 Characters in ascii order. This is nil in Spur, which has immediate Characters." newArray at: 26 put: #mustBeBoolean. newArray at: 27 put: ByteArray. + newArray at: 28 put: nil. "Was Process. No longer required in VMs since circa 2004" - newArray at: 28 put: Process. "An array of up to 31 classes whose instances will have compact headers; an empty array in Spur" newArray at: 29 put: self compactClassesArray. newArray at: 30 put: ((self specialObjectsArray at: 30) ifNil: [Semaphore new]). "delay Semaphore" newArray at: 31 put: ((self specialObjectsArray at: 31) ifNil: [Semaphore new]). "user interrupt Semaphore" "Entries 32 - 34 unreferenced. Previously these contained prototype instances to be copied for fast initialization" newArray at: 32 put: DoubleByteArray. "was the prototype Float" newArray at: 33 put: WordArray. "was the prototype 4-byte LargePositiveInteger" newArray at: 34 put: DoubleWordArray. "was the prototype Point" newArray at: 35 put: #cannotInterpret:. newArray at: 36 put: nil. "was the prototype MethodContext" newArray at: 37 put: BlockClosure. newArray at: 38 put: (self at: #FullBlockClosure ifAbsent: []). "was the prototype BlockContext" "array of objects referred to by external code" newArray at: 39 put: (self specialObjectsArray at: 39). "external semaphores" newArray at: 40 put: nil. "Reserved for Mutex in Cog VMs" newArray at: 41 put: ((self specialObjectsArray at: 41) ifNil: [LinkedList new]). "Reserved for a LinkedList instance for overlapped calls in CogMT" newArray at: 42 put: ((self specialObjectsArray at: 42) ifNil: [Semaphore new]). "finalization Semaphore" newArray at: 43 put: LargeNegativeInteger. "External objects for callout. Note: Written so that one can actually completely remove the FFI." newArray at: 44 put: (self at: #ExternalAddress ifAbsent: []). newArray at: 45 put: (self at: #ExternalStructure ifAbsent: []). newArray at: 46 put: (self at: #ExternalData ifAbsent: []). newArray at: 47 put: (self at: #ExternalFunction ifAbsent: []). newArray at: 48 put: (self at: #ExternalLibrary ifAbsent: []). newArray at: 49 put: #aboutToReturn:through:. newArray at: 50 put: #run:with:in:. "51 reserved for immutability message" newArray at: 51 put: #attemptToAssign:withIndex:. newArray at: 52 put: #(nil "nil => generic error" #'bad receiver' #'bad argument' #'bad index' #'bad number of arguments' #'inappropriate operation' #'unsupported operation' #'no modification' #'insufficient object memory' #'insufficient C memory' #'not found' #'bad method' #'internal error in named primitive machinery' #'object may move' #'resource limit exceeded' #'object is pinned' #'primitive write beyond end of object' #'object moved' #'object not pinned' #'callback error'), { PrimitiveError new errorName: #'operating system error'; yourself. ExceptionInFFICallError new errorName: #'exception in FFI call'; yourself}, #( #'heap compaction needed' #'operation failed' #'internal error' #'uninitialized'), { PrimitiveError new errorName: #'FFI marshalling error'; yourself}. "53 to 55 are for Alien" newArray at: 53 put: (self at: #Alien ifAbsent: []). newArray at: 54 put: #invokeCallbackContext:. "use invokeCallback:stack:registers:jmpbuf: for old Alien callbacks." newArray at: 55 put: (self at: #UnsafeAlien ifAbsent: []). "Used to be WeakFinalizationList for WeakFinalizationList hasNewFinalization, obsoleted by ephemeron support." newArray at: 56 put: nil. "reserved for foreign callback process" newArray at: 57 put: (self specialObjectsArray at: 57 ifAbsent: []). newArray at: 58 put: #unusedBytecode. "59 reserved for Sista counter tripped message" newArray at: 59 put: #conditionalBranchCounterTrippedOn:. "60 reserved for Sista class trap message" newArray at: 60 put: #classTrapFor:. "Now replace the virtual machine's reference in one atomic operation" self specialObjectsArray becomeForward: newArray! Item was changed: + (PackageInfo named: 'System') postscript: 'Smalltalk recreateSpecialObjectsArray. "Remove Process from special objects array, no longer required in VMs"'! - (PackageInfo named: 'System') postscript: 'SystemNavigation initializeAuthors. "Adds Leon Matthes (LM)" - Smalltalk recreateSpecialObjectsArray. "Adds ffi-marshalling-error to error table"'!

1 0

The Trunk: Morphic-mt.2158.mcz
by commits＠source.squeak.org 17 May '24

17 May '24

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2158.mcz ==================== Summary ==================== Name: Morphic-mt.2158 Author: mt Time: 17 May 2024, 11:59:48.825305 am UUID: 1b77ae86-9424-7f40-8ebf-59843527d133 Ancestors: Morphic-mt.2157 Retain occasional muscle memory by putting "spy on" between "browse" and "debug". :-) Thanks to Christoph (ct) for the hint. =============== Diff against Morphic-mt.2157 =============== Item was changed: ----- Method: MenuItemMorph>>buildDebugMenu: (in category 'browse') ----- buildDebugMenu: aHandMorph | aMenu | aMenu := super buildDebugMenu: aHandMorph. aMenu addLine. aMenu add: 'browse action code' translated target: self action: #browseImplementationOfActionSelector. aMenu lastItem isEnabled: self selector notNil. - aMenu add: 'debug action invocation' translated target: self action: #debugAction. - aMenu lastItem isEnabled: self selector notNil. aMenu add: 'spy on action invocation' translated target: self action: #spyOnAction. aMenu lastItem isEnabled: self selector notNil. + aMenu add: 'debug action invocation' translated target: self action: #debugAction. + aMenu lastItem isEnabled: self selector notNil. ^ aMenu! Item was changed: ----- Method: PluggableButtonMorph>>buildDebugMenu: (in category 'debug menu') ----- buildDebugMenu: aHandMorph | aMenu | aMenu := super buildDebugMenu: aHandMorph. aMenu addLine. aMenu add: 'browse action code' translated target: self action: #browseImplementationOfActionSelector. - aMenu add: 'debug action invocation' translated target: self action: #debugAction. aMenu add: 'spy on action invocation' translated target: self action: #spyOnAction. + aMenu add: 'debug action invocation' translated target: self action: #debugAction. ^ aMenu! Item was changed: ----- Method: SimpleButtonMorph>>buildDebugMenu: (in category 'debug menu') ----- buildDebugMenu: aHandMorph | aMenu | aMenu := super buildDebugMenu: aHandMorph. aMenu addLine. aMenu add: 'browse action code' translated target: self action: #browseImplementationOfActionSelector. - aMenu add: 'debug action invocation' translated target: self action: #debugAction. aMenu add: 'spy on action invocation' translated target: self action: #spyOnAction. + aMenu add: 'debug action invocation' translated target: self action: #debugAction. ^ aMenu!

1 0

The Trunk: Kernel-mt.1566.mcz
by commits＠source.squeak.org 17 May '24

17 May '24

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1566.mcz ==================== Summary ==================== Name: Kernel-mt.1566 Author: mt Time: 17 May 2024, 11:50:00.270954 am UUID: 97d1e36d-a215-d741-8ce5-a38d906fe570 Ancestors: Kernel-mt.1565 Now that we have AllProcessesLock and AllProcesses (ensured via update map), add new processes to that list. =============== Diff against Kernel-mt.1565 =============== Item was added: + ----- Method: Process class>>new (in category 'instance creation') ----- + new + "Keep track of the processes being created and alive to avoid the need for #allSubInstances in tools such as the ProcessBrowser." + + | newProcess | + newProcess := super new. + AllProcessesLock critical: [AllProcesses add: newProcess]. + ^ newProcess + + + " [ [] newProcess terminate ] bench. + + AFTER: '140,000 per second. 7.13 microseconds per run. 35.02 % GC time.' + BEFORE: '224,000 per second. 4.47 microseconds per run. 4.38 % GC time.' + + [aProcessBrowser updateProcessList] bench. -- allow quick updates + + AFTER: '4,410 per second. 227 microseconds per run. 77.34453 % GC time.' + BEFORE: '118 per second. 8.47 milliseconds per run. 2.59792 % GC time.' + + "!

1 0

The Trunk: Tools-mt.1253.mcz
by commits＠source.squeak.org 17 May '24

17 May '24

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(a)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!

1 0