Packages October 2023

packages@lists.squeakfoundation.org

1 participants
116 discussions

The Trunk: Tools-ct.1147.mcz
by commits＠source.squeak.org 11 Oct '23

11 Oct '23

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.1147.mcz ==================== Summary ==================== Name: Tools-ct.1147 Author: ct Time: 26 April 2022, 12:12:36.942702 pm UUID: 11944f29-f575-7b41-824d-71e945afa0d2 Ancestors: Tools-tpr.1146 Updates workspace styles after toggling #shouldStyle preference. This also improves the liveness in the preference wizard. =============== Diff against Tools-tpr.1146 =============== Item was changed: ----- Method: Workspace class>>shouldStyle: (in category 'preferences') ----- shouldStyle: aBoolean + ShouldStyle := aBoolean. + + self allSubInstancesDo: [:workspace | workspace changed: #style].! - ShouldStyle := aBoolean!

1 0

The Trunk: Tools-ct.1148.mcz
by commits＠source.squeak.org 11 Oct '23

11 Oct '23

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.1148.mcz ==================== Summary ==================== Name: Tools-ct.1148 Author: ct Time: 30 April 2022, 4:32:23.335008 pm UUID: d139ce96-3673-c341-817a-51446867175e Ancestors: Tools-tpr.1146 Implements #windowReqNewLabel: on Debugger. =============== Diff against Tools-tpr.1146 =============== Item was added: + ----- Method: Debugger>>windowReqNewLabel: (in category 'user interface') ----- + windowReqNewLabel: newLabel + + labelString := newLabel. + ^ true!

1 0

The Trunk: Tools-ct.1158.mcz
by commits＠source.squeak.org 11 Oct '23

11 Oct '23

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.1158.mcz ==================== Summary ==================== Name: Tools-ct.1158 Author: ct Time: 17 May 2022, 1:04:37.206327 pm UUID: 1cb879ce-2df7-174b-b4ba-d443e4fdc011 Ancestors: Tools-mt.1157 Do not update process browsers from inactive projects. Before this fix, an auto-updating process browser from a Morphic project would raise periodic errors after entering an MVC project, and an auto-updating process browser from a MVC project would cause spooky screen updates after entering a Morphic project. Note that a better solution strategy would consist of something like StepMessages for MVC, which however do not exist as of today. =============== Diff against Tools-mt.1157 =============== Item was changed: ----- Method: ProcessBrowser>>startAutoUpdate (in category 'updating') ----- startAutoUpdate self isAutoUpdatingPaused ifTrue: [^ autoUpdateProcess resume]. + self isAutoUpdating ifFalse: + [| project | + project := Project current. + autoUpdateProcess := + [[[self hasView] whileTrue: + [2 seconds wait. + project addDeferredUIMessage: [self updateProcessList]]. + autoUpdateProcess := nil] + ensure: [self removeActionsForEvent: #aboutToEnterWorld]] fork. + project world + when: #aboutToLeaveWorld send: #pauseAutoUpdate to: self; + when: #aboutToEnterWorld send: #startAutoUpdate to: self]. + self updateProcessList.! - self isAutoUpdating - ifFalse: [autoUpdateProcess := [[self hasView] - whileTrue: [(Delay forSeconds: 2) wait. - Project current addDeferredUIMessage: [self updateProcessList]]. - autoUpdateProcess := nil] fork]. - self updateProcessList - !

1 0

The Trunk: Tools-ct.1159.mcz
by commits＠source.squeak.org 11 Oct '23

11 Oct '23

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.1159.mcz ==================== Summary ==================== Name: Tools-ct.1159 Author: ct Time: 20 May 2022, 1:41:35.47049 pm UUID: f2890075-119c-c948-bd42-93a392abcca9 Ancestors: Tools-mt.1158 Fixes a tedious #codeChangedElsewhere bug in the class definition view of system browsers. The original bug report: 1. Open a browser on any method of any class. 2. Change the source so that it contains a new - as yet undeclared - instance variable. 3. Accept the new method and answer the "unknown variable" dialog with "declare instance variable". 4. Click on the instance button of the browser. 5. Try to type into the class definition or to reaccept it. The text cursor would jump to beginning of the text field every second until you started to type. After that, a red triangle would appear at the text field, and when you tried to accept the changes, a "may have been changed elsewhere" warning would appear. Cause: Declaring the new instance variable converts the class into a new behavior instance, but the browser kept a reference on the prior version of the class. Thus Browser>>#didCodeChangeElsewhere answered true because of the divergent class definitions, but CodeHolder>>#updateCodePaneIfNeeded was unable to fix that divergence. Solution: Add override Browser>>#updateCodePaneIfNeeded and send #setClassDefinition if necessary to apply the pending update. =============== Diff against Tools-mt.1158 =============== Item was added: + ----- Method: Browser>>updateCodePaneIfNeeded (in category 'self-updating') ----- + updateCodePaneIfNeeded + + super updateCodePaneIfNeeded. + + (self didCodeChangeElsewhere and: [self hasUnacceptedEdits not]) + ifTrue: + [self setClassDefinition. + self contentsChanged].!

1 0

The Trunk: Tools-ct.1211.mcz
by commits＠source.squeak.org 11 Oct '23

11 Oct '23

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.1211.mcz ==================== Summary ==================== Name: Tools-ct.1211 Author: ct Time: 1 June 2023, 8:26:54.735263 pm UUID: 0b71a9d8-b26d-854e-83ae-89d560db27a4 Ancestors: Tools-ct.1210 Proposal: In truncated file lists, inserts a link for reading the entire file. More observable than the context menu. Uses color and emphasis for highlighting the truncation message. =============== Diff against Tools-ct.1210 =============== Item was added: + ----- Method: FileList>>decorateTruncatedText:size:limit: (in category 'private') ----- + decorateTruncatedText: truncatedText size: size limit: limit + + | args | + args := { + fileName. size. limit. + 'Click here' translated asText + addAttribute: (PluggableTextAttribute evalBlock: [self get]); + addAttribute: TextEmphasis bold; + yourself }. + ^ Text streamContents: [:stream | + stream withAttributes: {TextColor red. TextEmphasis italic} do: [ + stream nextPutAll: ('File ''{1}'' is {2} bytes long. + {4} to read the entire file. + + Here are the first {3} characters... + ------------------------------------------ + ' translated + asText format: args)]. + stream nextPutAll: truncatedText. + stream withAttributes: {TextColor red. TextEmphasis italic} do: [ + stream nextPutAll: (' + ------------------------------------------ + ... end of the first {3} characters. + {4} to read the entire file.' translated + asText format: args)]]! Item was changed: ----- Method: FileList>>readContentsBrief: (in category 'private') ----- readContentsBrief: brevityFlag "Read the contents of the receiver's selected file, unless it is too long, in which case show just the first 5000 characters. Don't create a file if it doesn't already exist." | f fileSize first5000 | brevityFlag ifTrue: [ directory isRemoteDirectory ifTrue: [^ self readServerBrief]]. f := directory oldFileOrNoneNamed: self fullName. f ifNil: [^ 'For some reason, this file cannot be read' translated]. self setDefaultEncoderFor: f. (brevityFlag not or: [(fileSize := f size) <= 100000]) ifTrue: + [brevityState := #fullFile. "don't change till actually read" + ^ contents := f contentsOfEntireFile]. - [contents := f contentsOfEntireFile. - brevityState := #fullFile. "don't change till actually read" - ^ contents]. "if brevityFlag is true, don't display long files when first selected" first5000 := f next: 5000. f close. - contents := 'File ''{1}'' is {2} bytes long. - You may use the ''get'' command to read the entire file. - - Here are the first 5000 characters... - ------------------------------------------ - {3} - ------------------------------------------ - ... end of the first 5000 characters.' translated format: {fileName. fileSize. first5000}. brevityState := #briefFile. "don't change till actually read" + ^ contents := self decorateTruncatedText: first5000 size: fileSize limit: 5000! - ^ contents. - ! Item was changed: ----- Method: FileList>>readContentsHex: (in category 'private') ----- readContentsHex: brevity "retrieve the contents from the external file unless it is too long. Don't create a file here. Check if exists." | f size data hexData s | f := directory oldFileOrNoneNamed: self fullName. f == nil ifTrue: [^ 'For some reason, this file cannot be read' translated]. f binary. ((size := f size)) > 5000 & brevity ifTrue: [data := f next: 10000. f close. brevityState := #briefHex] ifFalse: [data := f contentsOfEntireFile. brevityState := #fullHex]. s := WriteStream on: (String new: data size*4). 0 to: data size-1 by: 16 do: [:loc | s nextPutAll: loc printStringHex; space; nextPut: $(; print: loc; nextPut: $); space; tab. loc+1 to: (loc+16 min: data size) do: [:i | s nextPutAll: (data at: i) printStringHex; space]. s cr]. hexData := s contents. + (brevity not or: [size <= 5000]) ifTrue: [ + ^ contents := hexData]. + + ^ contents := self decorateTruncatedText: hexData size: size limit: 5000! - ^ contents := ((size > 5000) & brevity - ifTrue: ['File ''{1}'' is {2} bytes long. - You may use the ''get'' command to read the entire file. - - Here are the first 5000 characters... - ------------------------------------------ - {3} - ------------------------------------------ - ... end of the first 5000 characters.' translated format: {fileName. size. hexData}] - ifFalse: [hexData]). - ! Item was changed: ----- Method: FileList>>readServerBrief (in category 'private') ----- readServerBrief + | lString sizeStr fsize ff first3500 parts | - | lString sizeStr fsize ff first5000 parts | "If file on server is known to be long, just read the beginning. Cheat badly by reading the fileList string." listIndex = 0 ifTrue: [^ self]. "Get size from file list entry" lString := list at: listIndex. parts := lString findTokens: '()'. sortMode = #name ifTrue: [sizeStr := (parts second findTokens: ' ') third]. sortMode = #date ifTrue: [sizeStr := (parts first findTokens: ' ') third]. sortMode = #size ifTrue: [sizeStr := (parts first findTokens: ' ') first]. fsize := (sizeStr copyWithout: $,) asNumber. fsize <= 50000 ifTrue: [ff := directory oldFileOrNoneNamed: self fullName. ff ifNil: [^ 'For some reason, this file cannot be read' translated]. contents := ff contentsOfEntireFile. brevityState := #fullFile. "don't change till actually read" ^ contents]. "if brevityFlag is true, don't display long files when first selected" + first3500 := directory getOnly: 3500 from: fileName. - first5000 := directory getOnly: 3500 from: fileName. - contents := 'File ''{1}'' is {2} bytes long. - You may use the ''get'' command to read the entire file. - - Here are the first 3500 characters... - ------------------------------------------ - {3} - ------------------------------------------ - ... end of the first 3500 characters.' translated format: {fileName. sizeStr. first5000}. brevityState := #briefFile. "don't change till actually read" + ^ contents := self decorateTruncatedText: first3500 size: sizeStr limit: 3500! - ^ contents. - - !

1 0

The Trunk: Tools-ct.1214.mcz
by commits＠source.squeak.org 11 Oct '23

11 Oct '23

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.1214.mcz ==================== Summary ==================== Name: Tools-ct.1214 Author: ct Time: 3 June 2023, 6:52:38.283136 pm UUID: b37182a9-07fd-6045-a122-9e5c2458c589 Ancestors: Tools-ct.1213 Proposal: Sort classes in ClassListBrowser, analogously to SystemNavigation>>#allMethodsSelect:. =============== Diff against Tools-ct.1213 =============== Item was changed: ----- Method: ClassListBrowser class>>browseClassesSatisfying:title: (in category 'instance creation') ----- browseClassesSatisfying: classBlock title: aTitle "Put up a ClassListBrowser showing all classes that satisfy the classBlock." self newOnClassesNamed: (self systemNavigation allClasses select: [:c | (classBlock value: c) == true] + thenCollect: [:c | c name]) sorted - thenCollect: [:c | c name]) label: aTitle!

1 0

The Trunk: Tools-ct.1215.mcz
by commits＠source.squeak.org 11 Oct '23

11 Oct '23

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.1215.mcz ==================== Summary ==================== Name: Tools-ct.1215 Author: ct Time: 3 June 2023, 7:04:29.849136 pm UUID: ab8c72a8-6e42-3d40-9fa1-9c5c3e02d775 Ancestors: Tools-ct.1213 Proposal: Double-click a class or trait in hierarchy tree browser to switch the central class. =============== Diff against Tools-ct.1213 =============== Item was changed: ----- Method: TreeBrowser>>buildClassListWith: (in category 'toolbuilder') ----- buildClassListWith: builder | tree | tree := builder pluggableTreeSpec new. tree model: self; roots: #classRoots; label: #classLabel:; getChildren: #classChildren:; hasChildren: #classHasChildren:; autoExpand: #classTreeExpanded; help: #classHelpAt:; getSelectedPath: #classPath; getSelected: #classChild; setSelected: #classChild:; + doubleClick: #doubleClickClassChild:; icon: #classIcon:; menu: #classListMenu:shifted:; keyPress: #classListKey:from:; filterMode: #visible; "not #all bc. class-tree is too deep, which makes filtering slow" searchMode: #depthFirst. SystemBrowser browseWithDragNDrop ifTrue: [ tree dragItem: #dragFromClassTree:; dragType: #dragTypeForClassTreeAt:]. ^ tree! Item was added: + ----- Method: TreeBrowser>>doubleClickClassChild: (in category 'class tree') ----- + doubleClickClassChild: aClassNotMeta + + self isHierarchy ifFalse: [^ false]. + self hasClassSelected ifFalse: [^ false]. + self initHierarchyFor: self selectedClassOrMetaClass. + ^ true!

1 0

The Trunk: Tools-ct.1217.mcz
by commits＠source.squeak.org 11 Oct '23

11 Oct '23

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.1217.mcz ==================== Summary ==================== Name: Tools-ct.1217 Author: ct Time: 3 June 2023, 10:27:19.522136 pm UUID: 0c2e8345-da8a-b74d-a527-510fdf8c7ce5 Ancestors: Tools-ct.1216 Fixes change logging for methods that are recompiled from a browser without its existing category being selected. Previously, this kept the organization in the image intact but logged a {nil} category to the change set and to the changes file. =============== Diff against Tools-ct.1216 =============== Item was changed: ----- Method: Browser>>defineMessageFrom:notifying: (in category 'message functions') ----- defineMessageFrom: aString notifying: aController "Compile the expressions in aString. Notify aController if a syntax error occurs. Install the compiled method in the selected class classified under the currently selected message category name. Answer the selector obtained if compilation succeeds, nil otherwise." | currentSelector selector category oldMessageList selectedClassOrMetaClass | currentSelector := self selectedMessageName. oldMessageList := self messageList. selectedClassOrMetaClass := self selectedClassOrMetaClass. contents := nil. selector := (selectedClassOrMetaClass newParser parseSelector: aString). (self metaClassIndicated and: [(selectedClassOrMetaClass includesSelector: selector) not and: [Metaclass isScarySelector: selector]]) ifTrue: ["A first-time definition overlaps the protocol of Metaclasses" (self confirm: ((selector , ' is used in the existing class system. Overriding it could cause serious problems. Is this really what you want to do?') asText makeBoldFrom: 1 to: selector size)) ifFalse: [^nil]]. category := currentSelector + ifNil: [ self selectedMessageCategoryName ifNil: [ selectedClassOrMetaClass whichCategoryIncludesSelector: selector ] ] - ifNil: [ self selectedMessageCategoryName ] ifNotNil: [ (selectedClassOrMetaClass >> selectedMessageName) methodReference ifNotNil: [ : ref | ref category ]]. selector := selectedClassOrMetaClass compile: aString classified: category notifying: aController. selector ifNil: [^ nil]. contents := aString copy. self changed: #messageCategoryList. "Because the 'as yet unclassified' might just appear." self changed: #messageList. "Because we have code-dependent list formatting by now such as #isDeprecated." selector ~~ currentSelector ifTrue: [category = ClassOrganizer nullCategory ifTrue: [self changed: #classSelectionChanged. self changed: #classList. self messageCategoryListIndex: 1]. self setClassOrganizer. "In case organization not cached" (oldMessageList includes: selector) ifFalse: [self changed: #messageList]. self messageListIndex: (self messageList indexOf: selector)]. ^ selector!

1 0

The Trunk: Tools-jar.1189.mcz
by commits＠source.squeak.org 11 Oct '23

11 Oct '23

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-jar.1189.mcz ==================== Summary ==================== Name: Tools-jar.1189 Author: jar Time: 31 January 2023, 6:13:22.676927 pm UUID: 70af9ca9-39c5-3944-a8dc-84124e321288 Ancestors: Tools-mt.1188 fix a bug when doing stepInto; this fix makes the three methods #stepInto, #stepOver and #stepThrough consistent. Sending an example in a separate message. =============== Diff against Tools-mt.1188 =============== Item was changed: ----- Method: Debugger>>send (in category 'context stack menu') ----- send "Send the selected message in the accessed method, and take control in the method invoked to allow further step or send." + | newContext currentContext | self okToChange ifFalse: [^ self]. self interruptedProcessIsReady ifFalse: [^ self shouldNotStep]. self checkContextSelection. + currentContext := self selectedContext. + self handleLabelUpdatesIn: + [interruptedProcess step: currentContext] + whenExecuting: currentContext. - interruptedProcess step: self selectedContext. interruptedProcess ifNil: [^ self shouldNotStep]. + newContext := interruptedProcess stepToSendOrReturn. + self updateProcess. + self contextStackIndex > 1 + ifTrue: [self resetContext: newContext] + ifFalse: + [newContext == currentContext + ifTrue: [self changed: #contentsSelection. + self updateInspectors] + ifFalse: [self resetContext: newContext]]! - self resetContext: interruptedProcess stepToSendOrReturn.!

1 0

The Treated Inbox: ToolsTests-jar.105.mcz
by commits＠source.squeak.org 11 Oct '23

11 Oct '23

Marcel Taeumel uploaded a new version of ToolsTests to project The Treated Inbox: http://source.squeak.org/treated/ToolsTests-jar.105.mcz ==================== Summary ==================== Name: ToolsTests-jar.105 Author: jar Time: 24 May 2021, 3:14:58.469073 pm UUID: d928e860-c443-7943-820b-8b74e3120013 Ancestors: ToolsTests-nice.104 Complement latest #terminate in the Inbox. Test unwind semantics for nested Unhandled errors aborted via debugger's Abandon (interpreted as terminate). =============== Diff against ToolsTests-nice.104 =============== Item was added: + ----- Method: DebuggerTests>>test19ProcessUnwindsAfterDebuggerClose (in category 'tests') ----- + test19ProcessUnwindsAfterDebuggerClose + "Closing a debugger on a suspended process means terminating that process." + + | x1 x2 x3 x4 | + x1 := x2 := x3 := x4 := false. + process := + [ + [ + [ ] ensure: [ + [self error: 'outer error'] ensure: [ + x1 := true]. + x2 := true] + ] ensure: [ + x3 := true]. + x4 := true + ] fork. + Processor yield. + + "make sure process is suspended and none of the unwind blocks has finished yet" + self assert: process isSuspended. + self deny: x1 | x2 | x3 | x4. + + "now find and close the debugger and make sure all unwind blocks have finished" + self ensureDebugger. + debugger close. + + self assert: process isTerminated. + self assert: x1 & x2 & x3. + self deny: x4! Item was added: + ----- Method: DebuggerTests>>test20ProcessUnwindsAfterDebuggerClose (in category 'tests') ----- + test20ProcessUnwindsAfterDebuggerClose + "Closing a debugger on a suspended process means terminating that process." + + | x1 x2 x3 x4 | + x1 := x2 := x3 := x4 := false. + process := + [ + [ + [ ] ensure: [ + [] ensure: [ + self error: 'inner error'. + x1 := true]. + x2 := true] + ] ensure: [ + x3 := true]. + x4 := true + ] fork. + Processor yield. + + "make sure process is suspended and none of the unwind blocks has finished yet" + self assert: process isSuspended. + self deny: x1 | x2 | x3 | x4. + + "now find and close the debugger and make sure all unwind blocks have finished" + self ensureDebugger. + debugger close. + + self assert: process isTerminated. + self assert: x1 & x2 & x3. + self deny: x4! Item was added: + ----- Method: DebuggerTests>>test21ProcessUnwindsAfterDebuggerClose (in category 'tests') ----- + test21ProcessUnwindsAfterDebuggerClose + "Closing a debugger on a suspended process means terminating that process." + + | x1 x2 x3 x4 | + x1 := x2 := x3 := x4 := false. + process := + [ + [ + [ ] ensure: [ + [self error: 'outer error'] ensure: [ + self error: 'inner error'. + x1 := true]. + x2 := true] + ] ensure: [ + x3 := true]. + x4 := true + ] fork. + Processor yield. + + "make sure process is suspended and none of the unwind blocks has finished yet" + self assert: process isSuspended. + self deny: x1 | x2 | x3 | x4. + + "now find and close the debugger and let the unwind continue to the next error" + self ensureDebugger. + process := [debugger close] fork. + Processor yield. + + "make sure process is suspended and none of the unwind blocks has finished yet" + self assert: process isSuspended. + self deny: x1 | x2 | x3 | x4. + + "now find and close the debugger and make sure all unwind blocks have finished" + self ensureDebugger. + debugger close. + + self assert: process isTerminated. + self assert: x1 & x2 & x3. + self deny: x4! Item was added: + ----- Method: DebuggerTests>>test22ProcessUnwindsAfterDebuggerClose (in category 'tests') ----- + test22ProcessUnwindsAfterDebuggerClose + "Closing a debugger on a suspended process means terminating that process." + + | x1 x2 x3 x4 | + x1 := x2 := x3 := x4 := false. + process := + [ + [ + [self error: 'outer error'] ensure: [ + [self error: 'middle error'] ensure: [ + self error: 'inner error'. + x1 := true]. + x2 := true] + ] ensure: [ + x3 := true]. + x4 := true + ] fork. + Processor yield. + + "make sure process is suspended and none of the unwind blocks has finished yet" + self assert: process isSuspended. + self deny: x1 | x2 | x3 | x4. + + "now find and close the debugger and let the unwind continue to the next error" + self ensureDebugger. + process := [debugger close] fork. + Processor yield. + + "make sure process is suspended and none of the unwind blocks has finished yet" + self assert: process isSuspended. + self deny: x1 | x2 | x3 | x4. + + "now find and close the debugger and let the unwind continue to the next error" + self ensureDebugger. + process := [debugger close] fork. + Processor yield. + + "make sure process is suspended and none of the unwind blocks has finished yet" + self assert: process isSuspended. + self deny: x1 | x2 | x3 | x4. + + "now find and close the debugger and make sure all unwind blocks have finished" + self ensureDebugger. + debugger close. + + self assert: process isTerminated. + self assert: x1 & x2 & x3. + self deny: x4!

1 0

← Newer
1
2
3
4
5
6
7
...
12
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages October 2023