Packages November 2021

packages@lists.squeakfoundation.org

1 participants
118 discussions

The Trunk: Kernel-mt.1424.mcz
by commits＠source.squeak.org 25 Nov '21

25 Nov '21

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1424.mcz ==================== Summary ==================== Name: Kernel-mt.1424 Author: mt Time: 25 November 2021, 11:50:28.227354 am UUID: 0c871da1-4809-5545-aa5e-576509240c89 Ancestors: Kernel-ct.1423 Complements Tools-mt.1075 =============== Diff against Kernel-ct.1423 =============== Item was added: + ----- Method: Model>>cleanFileNameForSave: (in category 'user interface - file out') ----- + cleanFileNameForSave: aString + "Removes selected decoration (i.e., leader+trailer) of aString. This decoration usually comes from window titles and the desire to reuse those titles as a file name. + NOTE THAT if only the decoration's leader matches, any existing file extension will be removed. + NOTE THAT if no decoration matches, the '.text' extension is appended if there is none. + SEE #defaultFileNameForSave." + + | cleanFileName | + self flag: #discuss. "mt: Rename 'save' to 'fileOut'?" + cleanFileName := aString. + + #( " 'leader' 'trailer' " + 'Decompressed contents of: ' '.gz' + "Add more here..." + ) groupsDo: [:leader :trailer | + self flag: #discuss. "mt: Maybe extract this feature into String and Text? See #withoutLeading* and #withoutTrailing*." + (cleanFileName beginsWith: leader) ifTrue: [ + cleanFileName := cleanFileName allButFirst: leader size. + (cleanFileName endsWith: trailer) + ifTrue: [cleanFileName := cleanFileName allButLast: trailer size] + ifFalse: [ + | lastIndex | + lastIndex := cleanFileName lastIndexOf: $. ifAbsent: [0]. + lastIndex > 1 ifTrue: [ + cleanFileName := cleanFileName copyFrom: 1 to: lastIndex - 1]] ]]. + + (cleanFileName = aString and: [(cleanFileName includes: $.) not]) + ifTrue: [cleanFileName := cleanFileName, '.text']. + + ^ cleanFileName! Item was added: + ----- Method: Model>>defaultFileNameForSave (in category 'user interface - file out') ----- + defaultFileNameForSave + "Answer a label that should be used as a file name when saving the receivers textual contents to disk. Note that the answer can also be a relative or absolute file path." + + self flag: #discuss. "mt: Rename 'save' to 'fileOut'?" + ^ self containingWindow + ifNil: ['Untitled'] + ifNotNil: [:window | window label]! Item was added: + ----- Method: Model>>saveContents: (in category 'user interface - file out') ----- + saveContents: stringContents + "Interactive. See #saveContents:accessMode:." + + ^ self + saveContents: stringContents + accessMode: #create! Item was added: + ----- Method: Model>>saveContents:accessMode: (in category 'user interface - file out') ----- + saveContents: stringContents accessMode: accessMode + "Interactive callback from TextEditor. Ask the user for a file name/path, suggesting a (cleaned-up) default name to accept. Answers whether the save request was successful." + + ^ (Project uiManager + saveFilenameRequest: 'Save text contents in file...' + initialAnswer: self suggestedFileNameForSave) + ifNil: [false] ifNotNil: [:answer | answer ifEmpty: [false] + ifNotEmpty: [:fileName | + self + saveContents: stringContents + onFileNamed: fileName + accessMode: accessMode]].! Item was added: + ----- Method: Model>>saveContents:onFileNamed:accessMode: (in category 'user interface - file out') ----- + saveContents: stringContents onFileNamed: fileName accessMode: accessMode + + ^ self + saveContents: stringContents + onFileNamed: fileName + accessMode: accessMode + workBlock: [:fileStream | fileStream nextPutAll: stringContents]! Item was added: + ----- Method: Model>>saveContents:onFileNamed:accessMode:workBlock: (in category 'user interface - file out') ----- + saveContents: stringContents onFileNamed: fileName accessMode: accessMode workBlock: workBlock + "Save stringContents on fileName. Answers whether the save request was successful. On success, fileName will exist, including any new directories in the relative/absolute path. + + accessMode + #create ... Prompt the user if file exists. + #update ... Replace all contents if file exists. + #append ... Append new contents if file exists." + + (FileDirectory default on: fileName) containingDirectory assureExistence. + accessMode caseOf: { + [#create] -> [FileStream newFileNamed: fileName do: workBlock]. + [#update] -> [FileStream forceNewFileNamed: fileName do: workBlock]. + [#append] -> [FileStream fileNamed: fileName do: [:s | s setToEnd. workBlock value: s]] } + otherwise: [ + self error: 'Unknown file access mode: ', accessMode printString. + ^ false]. + + Transcript showln: ('{1} contents saved (via {2}) to: {3}' format: { self class. accessMode printString. fileName }). + ^ true! Item was added: + ----- Method: Model>>suggestedFileNameForSave (in category 'user interface - file out') ----- + suggestedFileNameForSave + + ^ self cleanFileNameForSave: self defaultFileNameForSave!

1 0

The Trunk: Tools-mt.1075.mcz
by commits＠source.squeak.org 25 Nov '21

25 Nov '21

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1075.mcz ==================== Summary ==================== Name: Tools-mt.1075 Author: mt Time: 25 November 2021, 11:48:52.151354 am UUID: 089e5a95-68d9-1a44-957c-5ddbc897d40e Ancestors: Tools-mt.1074 Refactors and extends "save contents to file" feature in workspaces and all kinds of tools that use PluggableTextMorph's (with their TextEditor). This also simplifies the rather recent "file-out workspace contents on accept" feature (see preferences). Thanks to Eliot (eem) for the idea and change set that served as a valuable template for this refactoring. Thanks to Christoph (ct) for pointing out the strange nature of that "file-out file path" preference. Note that all open workspaces should be updated automatically. See postscript. =============== Diff against Tools-mt.1074 =============== Item was changed: ----- Method: FileList>>viewContentsInWorkspace (in category 'own services') ----- viewContentsInWorkspace + "View the contents of my selected file in a new workspace." - "View the contents of my selected file in a new workspace" + | fileContents workspace lineConversion | + fileContents := self directory + readOnlyFileNamed: self fileName + do: [:fileStream | + fileStream + setConverterForCode; + wantsLineEndConversion: true. + lineConversion := fileStream detectLineEndConvention. + fileStream contents]. + workspace := (Project uiManager edit: fileContents label: nil shouldStyle: Workspace shouldStyle) model. + + "Remember certain information to allow edits in the same file." + workspace + windowTitle: (self directory localNameFor: self fileName); + fileDirectory: self directory; + setProperty: #fileLineConversion toValue: lineConversion; + saveContentsInFileOnAccept. + ! - | aFileStream aName lineConversion w | - aFileStream := (directory readOnlyFileNamed: self fullName) setConverterForCode. - aFileStream wantsLineEndConversion: true. - lineConversion := aFileStream detectLineEndConvention. - aName := aFileStream localName. - w := UIManager default - edit: ([aFileStream contentsOfEntireFile] ensure: [aFileStream close]) - label: ((aName includesSubstring: 'Workspace') - ifTrue: [#('.text' '.txt') inject: aName into: [:name :ext| (name endsWith: ext) ifTrue: [name allButLast: ext size] ifFalse: [name]]] - ifFalse: ['Workspace from ', aName]). - w setProperty: #lineConversion toValue: lineConversion. - directory ~= FileDirectory default ifTrue: [w setProperty: #myDir toValue: directory]! Item was removed: - ----- Method: Workspace class>>fileOut: (in category 'support') ----- - fileOut: contents - "Write the given contents into the workspace file-out file path." - - | filePath | - filePath := self fileOutFilePath. - (FileDirectory default on: filePath) containingDirectory assureExistence. - FileStream - fileNamed: filePath - do: [:stream | - stream - setToEnd; - nextPutAll: '"----ACCEPT----'; - nextPutAll: DateAndTime now asString; - nextPutAll: '"'; - cr; nextPutAll: contents; cr]. - Transcript showln: 'Workspace contents successfully appended to: ', filePath printString.! Item was removed: - ----- Method: Workspace class>>fileOutFilePath (in category 'preferences') ----- - fileOutFilePath - <preference: 'File-out file path for workspace' - categoryList: #('browsing' 'tools') - description: 'Set the file-out location for #fileOutOnAccept in workspaces.' - type: #String> - ^ FileOutFilePath ifNil: [ 'workspace.st' ]! Item was removed: - ----- Method: Workspace class>>fileOutFilePath: (in category 'preferences') ----- - fileOutFilePath: aString - - FileOutFilePath := aString.! Item was changed: ----- Method: Workspace class>>fileOutOnAccept (in category 'preferences') ----- fileOutOnAccept <preference: 'File-out workspace contents on accept' categoryList: #('browsing' 'tools') + description: 'If true, accepting contents in a workspace will append them to a file on disk. The file name is derived from the workspace''s current window title and can thus be changed. The default name is thus ''Workspace.text''.' - description: 'If true, accepting contents in a workspace will append them to a known location in the file system. See #fileOutFilePath.' type: #Boolean> ^ FileOutOnAccept ifNil: [ true ]! Item was changed: ----- Method: Workspace class>>open (in category 'instance creation') ----- open | workspace | workspace := self new. + self fileOutOnAccept + ifTrue: [workspace appendContentsToFileOnAccept]. - self fileOutOnAccept ifTrue: [ - workspace acceptAction: [:string | self fileOut: string]]. ^ self embedTranscript ifTrue: [workspace buildAndOpenWorkspaceTranscript] ifFalse: [workspace buildAndOpen]! Item was changed: ----- Method: Workspace>>acceptContents: (in category 'accessing') ----- acceptContents: aString + + ^ (acceptAction ifNotNil: [acceptAction value: aString]) ~~ false + and: [super acceptContents: aString]! - acceptAction ifNotNil:[acceptAction value: aString]. - ^super acceptContents: aString.! Item was changed: ----- Method: Workspace>>addModelItemsToWindowMenu: (in category 'menu commands') ----- addModelItemsToWindowMenu: aMenu aMenu addLine. aMenu + add: 'change file name...' + target: self + action: #changeFileName. + aMenu add: 'save contents to file...' target: self action: #saveContentsInFile. aMenu + addUpdating: #saveContentsInFileOnAcceptWording + target: self + action: #saveContentsInFileOnAccept. + aMenu + addUpdating: #appendContentsToFileOnAcceptWording + target: self + action: #appendContentsToFileOnAccept. + aMenu addLine. + aMenu add: 'inspect variables' target: self action: #inspectBindings. aMenu add: 'reset variables' target: self + action: #resetBindings. + aMenu addLine. - action: #initializeBindings. aMenu addUpdating: #mustDeclareVariableWording target: self action: #toggleVariableDeclarationMode. aMenu addUpdating: #acceptDroppedMorphsWording target: self action: #toggleDroppingMorphForReference. self addToggleStylingMenuItemTo: aMenu. ! Item was added: + ----- Method: Workspace>>appendContentsToFileOnAccept (in category 'menu commands') ----- + appendContentsToFileOnAccept + "Arrange that the contents will be appended to a file when the user accepts." + + self saveContentsInFileOnAcceptEnabled + ifTrue: [(Project uiManager confirm: 'Do you really want to change file access mode\from #update to #append?\\You might corrupt data when accepting changes.' withCRs translated) + ifFalse: [^ self]]. + + self acceptAction: (self appendContentsToFileOnAcceptEnabled ifTrue: [ "no action" ] ifFalse: [ + [:freshContents | | fileName stringToAppend | + "Ensure to compute fileName as late as possible to consider recent changes of the #windowTitle." + fileName := self suggestedFileNameForSave. + + stringToAppend := '"----ACCEPT----{1}"\{2}\' withCRs + format: { DateAndTime now asString. freshContents }. + + ((FileDirectory forFileName: fileName) fileExists: fileName) + ifFalse: [ "If the default file name, which is derived from the current window title, does not exist, ask the user once to confirm the location." + self + saveContents: stringToAppend + accessMode: #create] + ifTrue: [ "Update/replace the contents in the existing file." + self + saveContents: stringToAppend + onFileNamed: fileName + accessMode: #append]] ]).! Item was added: + ----- Method: Workspace>>appendContentsToFileOnAcceptEnabled (in category 'menu commands') ----- + appendContentsToFileOnAcceptEnabled + + ^ (acceptAction notNil and: [acceptAction home selector = #appendContentsToFileOnAccept])! Item was added: + ----- Method: Workspace>>appendContentsToFileOnAcceptWording (in category 'menu commands') ----- + appendContentsToFileOnAcceptWording + + ^ (self appendContentsToFileOnAcceptEnabled + ifTrue: ['<yes> append contents to {1} on accept'] + ifFalse: ['<no> append contents to {1} on accept']) translated + format: { self suggestedFileNameForSave contractTo: 32 }! Item was added: + ----- Method: Workspace>>changeFileName (in category 'menu commands') ----- + changeFileName + "Let the user specify a new file name (and path) for save-contents requests." + + (Project uiManager + saveFilenameRequest: 'Save text contents in file...' + initialAnswer: self suggestedFileNameForSave) + ifNotNil: [:newFileName | + newFileName ifNotEmpty: [self setFileName: newFileName]].! Item was added: + ----- Method: Workspace>>defaultFileNameForSave (in category 'user edits') ----- + defaultFileNameForSave + "Overwritten to combine selected properties. Also see FileList >> #viewContentsInWorkspace to understand where different directories might originate." + + ^ self fileDirectory fullNameFor: self windowTitle! Item was added: + ----- Method: Workspace>>fileDirectory (in category 'accessing') ----- + fileDirectory + "Answer the current directory for save-contents requests." + + ^ self valueOfProperty: #fileDirectory ifAbsent: [FileDirectory default]! Item was added: + ----- Method: Workspace>>fileDirectory: (in category 'accessing') ----- + fileDirectory: aDirectory + "Do not save the default directory so that the image and its surrounding files can be moved across the disk." + + aDirectory = FileDirectory default + ifTrue: [self removeProperty: #fileDirectory] + ifFalse: [self setProperty: #fileDirectory toValue: aDirectory].! Item was added: + ----- Method: Workspace>>saveContents:onFileNamed:accessMode: (in category 'user edits') ----- + saveContents: stringContents onFileNamed: fileName accessMode: accessMode + "Overwritten to set conversion rule of line-end character. See FileList >> #viewContentsInWorkspace." + + ^ self + saveContents: stringContents + onFileNamed: fileName + accessMode: accessMode + workBlock: [:fileStream | + fileStream + lineEndConvention: (self valueOfProperty: #fileLineConversion); "nil is fine here..." + nextPutAll: stringContents]! Item was added: + ----- Method: Workspace>>saveContents:onFileNamed:accessMode:workBlock: (in category 'user edits') ----- + saveContents: stringContents onFileNamed: fileName accessMode: accessMode workBlock: workBlock + "Overwritten to update #fileDirectory property and #windowTitle on success." + + ^ (super + saveContents: stringContents + onFileNamed: fileName + accessMode: accessMode + workBlock: workBlock) + ifFalse: [false "no success"] + ifTrue: [self setFileName: fileName. true "success"]! Item was changed: ----- Method: Workspace>>saveContentsInFile (in category 'menu commands') ----- saveContentsInFile + "Save the view's current contents in a file. Dispatch goes through the view (or morph). See commentary in and senders of #saveContents:accessMode:." - "Pass along this message to the controller or morph. (Possibly this Workspace menu item could be deleted, since it's now in the text menu.)" + self changed: #saveContents.! - self changed: #saveContents - ! Item was added: + ----- Method: Workspace>>saveContentsInFileOnAccept (in category 'menu commands') ----- + saveContentsInFileOnAccept + "Arrange that the contents will be saved to a file on each save (or accept). Replace any existing file contents." + + self flag: #discuss. "mt: Is it 'onFile' or rather 'inFile'? Note that there are different access modes." + + self appendContentsToFileOnAcceptEnabled + ifTrue: [(Project uiManager confirm: 'Do you really want to change file access mode\from #append to #update?\\You might lose data when accepting changes.' withCRs translated) + ifFalse: [^ self]]. + + self acceptAction: (self saveContentsInFileOnAcceptEnabled + ifFalse: [ [:stringToSave | | fileName | + "Ensure to compute fileName as late as possible to consider recent changes of the #windowTitle." + fileName := self suggestedFileNameForSave. + + ((FileDirectory forFileName: fileName) fileExists: fileName) + ifFalse: [ "If the default file name, which is derived from the current window title, does not exist, ask the user once to confirm the location." + self + saveContents: stringToSave + accessMode: #create] + ifTrue: [ "Update/replace the contents in the existing file." + self + saveContents: stringToSave + onFileNamed: fileName + accessMode: #update]] ]).! Item was added: + ----- Method: Workspace>>saveContentsInFileOnAcceptEnabled (in category 'menu commands') ----- + saveContentsInFileOnAcceptEnabled + + ^ (acceptAction notNil and: [acceptAction home selector = #saveContentsInFileOnAccept])! Item was added: + ----- Method: Workspace>>saveContentsInFileOnAcceptWording (in category 'menu commands') ----- + saveContentsInFileOnAcceptWording + + ^ (self saveContentsInFileOnAcceptEnabled + ifTrue: ['<yes> save contents to {1} on accept'] + ifFalse: ['<no> save contents to {1} on accept']) translated + format: { self suggestedFileNameForSave contractTo: 32 }! Item was added: + ----- Method: Workspace>>setFileName: (in category 'initialize-release') ----- + setFileName: fileName + + | directory | + directory := FileDirectory forFileName: fileName. + self fileDirectory: directory. + self windowTitle: (directory localNameFor: fileName).! Item was added: + ----- Method: Workspace>>windowReqNewLabel: (in category 'user edits') ----- + windowReqNewLabel: newLabel + "The user has edited the window label. Remember for a later save-to-file request. See #defaultFileNameForSave." + + self setProperty: #windowTitle toValue: newLabel. + ^ true! Item was added: + ----- Method: Workspace>>windowTitle (in category 'accessing') ----- + windowTitle + + ^ self valueOfProperty: #windowTitle ifAbsent: ['Workspace']! Item was added: + ----- Method: Workspace>>windowTitle: (in category 'accessing') ----- + windowTitle: aString + "Normalize window title to not expose file extension in regular workspaces." + + | normalizedTitle | + normalizedTitle := ((aString includesSubstring: 'Workspace') and: [aString endsWithAnyOf: #('.text' '.txt')]) + ifTrue: [aString copyFrom: 1 to: (aString lastIndexOf: $.) - 1] + ifFalse: [aString]. + + self setProperty: #windowTitle toValue: normalizedTitle. + self changed: #windowTitle.! Item was changed: (PackageInfo named: 'Tools') postscript: 'ChangeSorter allSubInstancesDo: [:sorter | (sorter instVarNamed: ''contentsAreStyleable'') ifNil: [ + sorter instVarNamed: ''contentsAreStyleable'' put: true]]. + + "Convert existing properties from Morphic windows to the model. For MVC compatibility." + Workspace allInstancesDo: [:workspace | + workspace containingWindow ifNotNil: [:window | + (window valueOfProperty: #myDir) ifNotNil: [:directory | + workspace setProperty: #fileDirectory toValue: directory]. + (window valueOfProperty: #lineConversion) ifNotNil: [:symbol | + workspace setProperty: #fileLineConversion toValue: symbol]. + workspace setProperty: #windowTitle toValue: window label]. + (workspace acceptAction notNil and: [workspace acceptAction home selector = #open]) + ifTrue: [workspace appendContentsToFileOnAccept]].'! - sorter instVarNamed: ''contentsAreStyleable'' put: true]].'!

1 0

The Trunk: Tools-mt.1074.mcz
by commits＠source.squeak.org 25 Nov '21

25 Nov '21

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1074.mcz ==================== Summary ==================== Name: Tools-mt.1074 Author: mt Time: 25 November 2021, 11:44:01.944354 am UUID: 39954290-b416-f242-a5b0-c7aea0e3c6a6 Ancestors: Tools-mt.1073 Adds a property protocol to Workspace to avoid having to go through #containingWindow to store extra stuff, which does not even work for MVC, just for morphs (i.e., SystemWindow, not StandardSystemView). Reuses a workspace's "bindings" with each property being prefixed with a "_" to not interfere with regular bindings. Note that such extra properties have already been added to #containingWindow in the past. =============== Diff against Tools-mt.1073 =============== Item was added: + ----- Method: Workspace>>hasProperty: (in category 'binding - properties') ----- + hasProperty: aSymbol + + | propertyValue | + propertyValue := self valueOfProperty: aSymbol. + propertyValue ifNil: [^ false]. + propertyValue == false ifTrue: [^ false]. + ^ true! Item was changed: ----- Method: Workspace>>initialize (in category 'initialize-release') ----- initialize super initialize. + bindings := Dictionary new. - self initializeBindings. acceptDroppedMorphs := false. mustDeclareVariables := self class declareVariablesAutomatically not. environment := Environment current! Item was removed: - ----- Method: Workspace>>initializeBindings (in category 'binding') ----- - initializeBindings - - bindings := Dictionary new! Item was added: + ----- Method: Workspace>>removeProperty: (in category 'binding - properties') ----- + removeProperty: aSymbol + + bindings removeKey: ('_', aSymbol) asSymbol ifAbsent: [].! Item was added: + ----- Method: Workspace>>resetBindings (in category 'binding') ----- + resetBindings + "Remove all bindings that are not prefixed with an $_. See #setProperty:toValue:." + + bindings keysAndValuesRemove: [:key :value | key first ~= $_]! Item was added: + ----- Method: Workspace>>setProperty:toValue: (in category 'binding - properties') ----- + setProperty: aSymbol toValue: anObject + + anObject ifNil: [^ self removeProperty: aSymbol]. + bindings at: ('_', aSymbol) asSymbol put: anObject.! Item was added: + ----- Method: Workspace>>valueOfProperty: (in category 'binding - properties') ----- + valueOfProperty: aSymbol + + ^ self valueOfProperty: aSymbol ifAbsent: nil! Item was added: + ----- Method: Workspace>>valueOfProperty:ifAbsent: (in category 'binding - properties') ----- + valueOfProperty: aSymbol ifAbsent: aBlock + + ^ bindings at: ('_', aSymbol) asSymbol ifAbsent: aBlock!

1 0

The Trunk: Morphic-mt.1800.mcz
by commits＠source.squeak.org 25 Nov '21

25 Nov '21

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1800.mcz ==================== Summary ==================== Name: Morphic-mt.1800 Author: mt Time: 25 November 2021, 11:38:08.806354 am UUID: 8f04a38b-0c0b-2946-b7b7-eed85d3fcbbd Ancestors: Morphic-mt.1799 Always notify models when a window's label (or title) changes, not just in the manual #relabel request. Now models have full control over such a window title, regardless of how the window is opened (e.g., see ToolBuilder class >> #open:label:. Note that the callback #windowReqNewLabel: could be renamed in the future. Maybe even made configurable like PluggableTextMorph's #setTextSelector (via #acceptTextInModel). =============== Diff against Morphic-mt.1799 =============== Item was changed: ----- Method: SystemWindow>>relabel (in category 'label') ----- relabel + + (Project uiManager - | newLabel | - newLabel := UIManager default request: 'New title for this window' translated + initialAnswer: labelString) + ifNotEmpty: [:newLabel | self setLabel: newLabel].! - initialAnswer: labelString. - newLabel isEmpty ifTrue: [^self]. - (model windowReqNewLabel: newLabel) - ifTrue: [self setLabel: newLabel]! Item was changed: ----- Method: SystemWindow>>setLabel: (in category 'label') ----- setLabel: aString | frame | + (model windowReqNewLabel: aString) ifFalse: [^ self]. labelString := aString. label ifNil: [^ self]. label contents: (aString ifNil: ['']). self labelWidgetAllowance. "Sets it if not already" self isCollapsed ifTrue: [self extent: (label width + labelWidgetAllowance) @ (self labelHeight + 2)] ifFalse: [label fitContents; setWidth: (label width min: self width - labelWidgetAllowance). label align: label bounds topCenter with: self topCenter + (0@self borderWidth). collapsedFrame ifNotNil: [collapsedFrame := collapsedFrame withWidth: label width + labelWidgetAllowance]]. frame := LayoutFrame new. frame leftFraction: 0.5; topFraction: 0.5; leftOffset: label width negated // 2; topOffset: label height negated // 2. label layoutFrame: frame. ! Item was changed: ----- Method: SystemWindow>>tryToRenameTo: (in category 'label') ----- tryToRenameTo: newLabel "Triggered eg by typing a new name in the halo" + newLabel ifNotEmpty: [self setLabel: newLabel]. - newLabel isEmpty ifTrue: [^self]. - (model windowReqNewLabel: newLabel) - ifTrue: [self setLabel: newLabel] !

1 0

The Trunk: Kernel-ct.1423.mcz
by commits＠source.squeak.org 25 Nov '21

25 Nov '21

Christoph Thiede uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ct.1423.mcz ==================== Summary ==================== Name: Kernel-ct.1423 Author: ct Time: 25 November 2021, 11:34:19.428424 am UUID: ec2f69bf-0aac-4747-8cc5-5778a713051f Ancestors: Kernel-mt.1422 Honors Preferences automaticPlatformSettings in EventSensor startUp:. =============== Diff against Kernel-mt.1422 =============== Item was changed: ----- Method: EventSensor class>>startUp: (in category 'system startup') ----- startUp: resuming + + (resuming and: [Preferences automaticPlatformSettings]) ifTrue: [ - - resuming ifTrue: [ Smalltalk platformName = 'Mac OS' ifTrue: [ self mapAltKeysToOptionKeys: false. self mapControlKeysToCommandKeys: false] ifFalse: [ self mapAltKeysToOptionKeys: true. self mapControlKeysToCommandKeys: true]. self installVirtualKeyTable ]. self default startUp.!

1 0

The Trunk: ToolBuilder-Morphic-mt.279.mcz
by commits＠source.squeak.org 25 Nov '21

25 Nov '21

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.279.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.279 Author: mt Time: 25 November 2021, 11:31:27.232354 am UUID: 403c22fe-935b-ed4e-8cfb-556e842edd38 Ancestors: ToolBuilder-Morphic-mt.278 Fixes a minor issue in our file-saver dialog where a fully qualified path was not selected correctly via Project uiManager saveFilenameRequest: someLabel initialAnswer:fullFilePath =============== Diff against ToolBuilder-Morphic-mt.278 =============== Item was changed: ----- Method: FileSaverDialog class>>openOn:initialFilename:label: (in category 'instance creation') ----- openOn: aDirectory initialFilename: aString label: labelString "Open a modal dialog to save a file. Start the dialog with aDirectory selected and aString as the suggested file name. Set the user message to labelString. Note that we set the directory after the initialFilename becuase we want a specific directory and not neccesarily the directory of the file" "FileSaverDialog openOn: FileDirectory default initialFilename: 'aSuggestedFileName' label: 'Select a flie and do something with it' " ^self new - initialFilename: aString; directory: aDirectory; + initialFilename: aString; "Might include a path and thus override aDirectory." message: labelString; getUserResponse ! Item was changed: ----- Method: MorphicUIManager>>edit:label:shouldStyle:accept: (in category 'ui requests') ----- edit: aText label: labelString shouldStyle: aBoolean accept: anAction + "Open an editor on the given string/text. Note that we do not send #open but #new to avoid any default actions to be configured." - "Open an editor on the given string/text" | workspace | workspace := Workspace new shouldStyle: aBoolean; + acceptContents: aText; - acceptContents: aText; acceptAction: anAction. ^ workspace openLabel: (labelString ifNil: [workspace labelString])!

1 0

The Trunk: Multilingual-mt.259.mcz
by commits＠source.squeak.org 25 Nov '21

25 Nov '21

Marcel Taeumel uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-mt.259.mcz ==================== Summary ==================== Name: Multilingual-mt.259 Author: mt Time: 25 November 2021, 11:28:53.961354 am UUID: 6e1246cc-66e2-9140-9e22-49ba1ebad024 Ancestors: Multilingual-ul.258 Adds some backstops to FileStream to avoid having to name "MultiByteFileStream" explicitely in your code. Just use "FileStream fileNamed:do:" etc. and rely on polymorphism. =============== Diff against Multilingual-ul.258 =============== Item was added: + ----- Method: FileStream>>detectLineEndConvention (in category '*Multilingual-accessing') ----- + detectLineEndConvention + "Backstop. See MultiByteFileStream." + + ^ nil! Item was added: + ----- Method: FileStream>>lineEndConvention (in category '*Multilingual-accessing') ----- + lineEndConvention + "See MultiByteFileStream and also String >> #withSqueakLineEndings." + + ^ #cr! Item was added: + ----- Method: FileStream>>lineEndConvention: (in category '*Multilingual-accessing') ----- + lineEndConvention: aSymbolOrNil + "Ignore here. See MultiByteFileStream."! Item was added: + ----- Method: FileStream>>setConverterForCode (in category '*Multilingual-accessing') ----- + setConverterForCode + "Backstop. See MultiByteFileStream."! Item was added: + ----- Method: FileStream>>wantsLineEndConversion: (in category '*Multilingual-accessing') ----- + wantsLineEndConversion: aBoolean + "Backstop. See MultiByteFileStream."! Item was changed: ----- Method: MultiByteFileStream>>lineEndConvention: (in category 'accessing') ----- lineEndConvention: aSymbol + "#cr, #lf, #crlf" + - (lineEndConvention := aSymbol) ifNotNil: [wantsLineEndConversion := true]. self installLineEndConventionInConverter!

1 0

The Trunk: UpdateStream-dtl.17.mcz
by commits＠source.squeak.org 23 Nov '21

23 Nov '21

David T. Lewis uploaded a new version of UpdateStream to project The Trunk: http://source.squeak.org/trunk/UpdateStream-dtl.17.mcz ==================== Summary ==================== Name: UpdateStream-dtl.17 Author: dtl Time: 23 November 2021, 4:28:37.272797 pm UUID: 99d2f5a3-2da1-46ab-87a0-a3d21d30ef99 Ancestors: UpdateStream-mt.16 Add a class comment. =============== Diff against UpdateStream-mt.16 =============== Item was changed: Object subclass: #UpdateStreamDownloader instanceVariableNames: '' classVariableNames: 'PromptForUpdateServer UpdateDownloader UpdateSavesFile UpdateUrlLists' poolDictionaries: '' category: 'UpdateStream'! + + !UpdateStreamDownloader commentStamp: 'dtl 11/23/2021 16:27' prior: 0! + UpdateStreamDownloader is a class that hosts methods previously kept in Utilities class>>'fetching updates'. The Utilities class side methods were copied as is to UpdateStreamDownloader class side with original authors/stamps. + + These methods are intended for managing the change set update stream used for Squeak updates prior to the introduction of a Monticello based update stream. + !

1 0

The Trunk: UpdateStream-dtl.17.mcz
by commits＠source.squeak.org 23 Nov '21

23 Nov '21

David T. Lewis uploaded a new version of UpdateStream to project The Trunk: http://source.squeak.org/trunk/UpdateStream-dtl.17.mcz ==================== Summary ==================== Name: UpdateStream-dtl.17 Author: dtl Time: 23 November 2021, 4:24:41.161214 pm UUID: 4cafeecc-728c-4bf3-8076-bd51fc94fed4 Ancestors: UpdateStream-mt.16 Add a class comment. =============== Diff against UpdateStream-mt.16 =============== Item was changed: Object subclass: #UpdateStreamDownloader instanceVariableNames: '' classVariableNames: 'PromptForUpdateServer UpdateDownloader UpdateSavesFile UpdateUrlLists' poolDictionaries: '' category: 'UpdateStream'! + + !UpdateStreamDownloader commentStamp: 'dtl 11/23/2021 16:22' prior: 0! + UpdateStreamDownloader is a class that hosts methods previously kept in Utilities class>>'fetching updates'. The Utilities class side methods were copied as is to UpdateStreamDownloader class side with original authors/stamps. + + These methods are intended for managing the change set update stream used for Squeak updates prior to the introduction of a Montecello based update stream. + !

1 0

The Trunk: Tools-mt.1073.mcz
by commits＠source.squeak.org 23 Nov '21

23 Nov '21

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1073.mcz ==================== Summary ==================== Name: Tools-mt.1073 Author: mt Time: 23 November 2021, 3:07:02.043922 pm UUID: f873ae33-8582-ed41-a89e-5cdc18ebfa26 Ancestors: Tools-mt.1072 Adds support for traits in HierarchyBrowser. Thanks to Christoph (ct) for the idea! See: http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-October/216835.… =============== Diff against Tools-mt.1072 =============== Item was changed: ----- Method: Browser>>browseClassHierarchy (in category 'multi-window support') ----- browseClassHierarchy "Overridden to consider multi-window state and hierarchy browser." | behavior newBrowser | (behavior := self selectedClassOrMetaClass) isNil ifTrue: [^self]. (self isPackage "PackageBrowser panes can't support a hierarchy browser; not sure why." or: [self multiWindowState isNil]) ifTrue: [^super browseClassHierarchy]. + newBrowser := HierarchyBrowser new + setClass: behavior; - (newBrowser := HierarchyBrowser new initHierarchyForClass: behavior) selectMessageCategoryNamed: self selectedMessageCategoryName; selectMessageNamed: self selectedMessageName; + editSelection: editSelection; + yourself. - editSelection: editSelection. self multiWindowState addWindow: newBrowser! Item was changed: ----- Method: Browser>>setClass: (in category 'initialize-release') ----- setClass: aBehavior "Set the state of a new, uninitialized Browser." | isMeta aClass | aBehavior ifNil: [^ self]. + aBehavior isMeta - (aBehavior isKindOf: Metaclass) ifTrue: [ isMeta := true. aClass := aBehavior soleInstance] ifFalse: [ isMeta := false. aClass := aBehavior]. self selectEnvironment: aClass environment; selectCategoryForClass: aClass; classListIndex: (self classListIndexOf: aClass name); metaClassIndicated: isMeta.! Item was changed: + ----- Method: Browser>>traitsMenu: (in category 'traits') ----- - ----- Method: Browser>>traitsMenu: (in category '*Tools-traits') ----- traitsMenu: aMenu <classListMenuShifted: false> <menuPriority: 140> self selectedClass isTrait ifTrue: [ aMenu add: 'browse trait users' action: #browseTraitUsers]. ^ aMenu! Item was added: + ----- Method: HierarchyBrowser>>allAncestorsOfTrait:withLevelDo: (in category 'traits') ----- + allAncestorsOfTrait: trait withLevelDo: traitAndLevelBlock + + self + allAncestorsOfTrait: trait + withLevelDo: traitAndLevelBlock + startingLevel: 1.! Item was added: + ----- Method: HierarchyBrowser>>allAncestorsOfTrait:withLevelDo:startingLevel: (in category 'traits') ----- + allAncestorsOfTrait: trait withLevelDo: traitAndLevelBlock startingLevel: level + + trait traitComposition asTraitComposition traits + do: [:ancestor | + self + allAncestorsOfTrait: ancestor + withLevelDo: traitAndLevelBlock + startingLevel: level + 1. + traitAndLevelBlock value: ancestor value: level].! Item was added: + ----- Method: HierarchyBrowser>>allSuccessorsOfTrait:withLevelDo:startingLevel: (in category 'traits') ----- + allSuccessorsOfTrait: trait withLevelDo: traitAndLevelBlock startingLevel: level + + traitAndLevelBlock value: trait value: level. + (trait users sorted: #name ascending) + do: [:user | + self + allSuccessorsOfTrait: user + withLevelDo: traitAndLevelBlock + startingLevel: level + 1].! Item was added: + ----- Method: HierarchyBrowser>>initHierarchyFor: (in category 'initialization') ----- + initHierarchyFor: classOrTrait + + classOrTrait isTrait + ifTrue: [self initHierarchyForTrait: classOrTrait] + ifFalse: [self initHierarchyForClass: classOrTrait].! Item was added: + ----- Method: HierarchyBrowser>>initHierarchyForTrait: (in category 'traits') ----- + initHierarchyForTrait: baseTraitOrClassTrait + + | baseTrait baseLevel | + centralClass := baseTraitOrClassTrait. + baseTrait := baseTraitOrClassTrait baseTrait. + self selectEnvironment: baseTraitOrClassTrait environment. + metaClassIndicated := baseTraitOrClassTrait isClassTrait. + classDisplayList := OrderedCollection new. + baseLevel := 0. + self + allAncestorsOfTrait: baseTrait + withLevelDo: [:each :level | baseLevel := baseLevel max: level]. + self + allAncestorsOfTrait: baseTrait + withLevelDo: + [:each :level | classDisplayList add: + (String streamContents: + [ : stream | baseLevel - level timesRepeat: [ stream nextPutAll: ' ' ]. + stream nextPutAll: each name ]) ]. + self + allSuccessorsOfTrait: baseTrait + withLevelDo: + [:each :level | classDisplayList add: + (String streamContents: + [ : stream | level timesRepeat: [ stream nextPutAll: ' ' ]. + stream nextPutAll: each name ]) ] + startingLevel: baseLevel. + + self changed: #classList. + self selectClass: baseTrait.! Item was changed: ----- Method: HierarchyBrowser>>setClass: (in category 'initialization') ----- + setClass: aClassOrTrait + self initHierarchyFor: (centralClass ifNil: [ aClassOrTrait ]). + super setClass: aClassOrTrait! - setClass: aClass - self initHierarchyForClass: (centralClass ifNil: [ aClass ]). - super setClass: aClass! Item was changed: ----- Method: HierarchyBrowser>>updateAfterClassChange (in category 'initialization') ----- updateAfterClassChange "It is possible that some the classes comprising the hierarchy have changed, so reinitialize the entire browser." | priorSelection | priorSelection := self selectedClassName. (centralClass notNil and: [centralClass isObsolete not]) + ifTrue: [self initHierarchyFor: centralClass]. - ifTrue: [self initHierarchyForClass: centralClass]. (self classListIndexOf: priorSelection) > 0 ifTrue: [self selectClassNamed: priorSelection].!

1 0

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

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2021