Packages January 2022

packages@lists.squeakfoundation.org

1 participants
209 discussions

The Trunk: Tools-mt.1114.mcz
by commits＠source.squeak.org 26 Jan '22

26 Jan '22

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1114.mcz ==================== Summary ==================== Name: Tools-mt.1114 Author: mt Time: 26 January 2022, 8:07:12.312127 am UUID: e3c2c01e-3fc1-b14c-b352-3977f6c6abba Ancestors: Tools-mt.1113 Fixes "cancel" option when trying to "save contents to file..." in the Transcript's text-field's "more..." menu. Thanks to Jaromir (jar) for the pointer! =============== Diff against Tools-mt.1113 =============== Item was changed: ----- Method: TranscriptStream>>saveContents:accessMode: (in category '*Tools-file out') ----- saveContents: stringContents accessMode: accessMode "Interactive callback from TextEditor. See commentary in Model class." ^ (Project uiManager saveFilenameRequest: 'Save text contents in file...' initialAnswer: 'Transcript.text') + ifNil: [false] ifNotNil: [:answer | answer ifEmpty: [false] - ifEmpty: [false] ifNotEmpty: [:fileName | Model new saveContents: stringContents onFileNamed: fileName + accessMode: accessMode]].! - accessMode: accessMode].!

1 0

The Trunk: Kernel-mt.1442.mcz
by commits＠source.squeak.org 25 Jan '22

25 Jan '22

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1442.mcz ==================== Summary ==================== Name: Kernel-mt.1442 Author: mt Time: 25 January 2022, 12:35:47.396258 pm UUID: 7397b8c6-4375-9344-aa02-5e6c2d55bda0 Ancestors: Kernel-mt.1441 Clarify comment in #becomeForward:. See http://lists.squeakfoundation.org/pipermail/vm-dev/2022-January/037578.html =============== Diff against Kernel-mt.1441 =============== Item was changed: ----- Method: Object>>becomeForward: (in category 'system primitives') ----- becomeForward: otherObject + "Primitive. All variables in the entire system that used to point to the receiver now point to the argument. Fails if either argument is an immediate such as a SmallInteger, or if the receiver is read-only. + NOTE THAT the identityHash of the receiver IS NOT copied to the argument so that the argument should still be properly indexed in any existing hashed structures after the mutation. See #becomeForward:copyHash:." - "Primitive. All variables in the entire system that used to point - to the receiver now point to the argument. - Fails if either argument is an immediate such as a SmallInteger, - or if the receiver is read-only." {self} elementsForwardIdentityTo: {otherObject}!

1 0

The Trunk: Tools-mt.1113.mcz
by commits＠source.squeak.org 25 Jan '22

25 Jan '22

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1113.mcz ==================== Summary ==================== Name: Tools-mt.1113 Author: mt Time: 25 January 2022, 12:25:06.913258 pm UUID: e1a3c334-5cc9-7844-a5fb-8fa646917c81 Ancestors: Tools-mt.1112 Only show that CMD+S notification in workspaces if the #fileOutOnAccept preferences is enabled. So the old-style of working with workspaces is still supported without extra pop-ups. See http://lists.squeakfoundation.org/pipermail/squeak-dev/2022-January/218623.… This also documents a small bug we have with the CMD+o (spawn) operation... =============== Diff against Tools-mt.1112 =============== Item was changed: ----- Method: Workspace>>acceptContents: (in category 'accessing') ----- acceptContents: aString + (self class fileOutOnAccept and: [acceptAction isNil]) ifTrue: [self inform: 'Your edits were not persisted. Please do not close this window. If you want to save your edits to a file on accept, check the workspace preferences or this window''s menu.' translated asTextFromHtml]. - acceptAction ifNil: [self inform: 'Your edits were not persisted. Please do not close this window. If you want to save your edits to a file on accept, check the workspace preferences or this window''s menu.' translated asTextFromHtml]. ^ (acceptAction ifNotNil: [acceptAction value: aString]) ~~ false and: [super acceptContents: aString]!

1 0

The Treated Inbox: DTL-internal-sources-dtl.9.mcz
by commits＠source.squeak.org 24 Jan '22

24 Jan '22

David T. Lewis uploaded a new version of DTL-internal-sources to project The Treated Inbox: http://source.squeak.org/treated/DTL-internal-sources-dtl.9.mcz ==================== Summary ==================== Name: DTL-internal-sources-dtl.9 Author: dtl Time: 22 January 2022, 8:00:02.326226 pm UUID: 2a689c21-85bf-49dc-8b27-2fc19ac33dc9 Ancestors: DTL-internal-sources-dtl.8 Remove file system initialization that is no longer needed. Use the 'Cache sources file' preference in category 'Files' to enable or disable use of an internal sources file. =============== Diff against DTL-internal-sources-dtl.4 =============== Item was removed: - ----- Method: CompressedSources class>>clearCachedSources (in category 'accessing') ----- - clearCachedSources - ^ CachedSources := nil. - ! Item was added: + ----- Method: CompressedSources class>>fromSourceFileArray (in category 'instance creation') ----- + fromSourceFileArray + "Answer a new instance created from the existing SourceFiles" + + "CompressedSources fromSourceFileArray" + + | f sourcesName | + f := SourceFiles first readOnlyCopy. + sourcesName := f localName. + (sourcesName endsWith: 'sources') + ifTrue: [^self fromSourcesFile: f]. + ^f asCompressedSources. + ! Item was added: + ----- Method: CompressedSources class>>fromSourcesFile: (in category 'private') ----- + fromSourcesFile: f + + | cf | + f binary. "binary to preserve utf8 encoding" + cf := (CompressedSources on: (ReadWriteStream with: ByteArray new)) + segmentSize: 65536 maxSize: f size. + + "Copy the sources" + 'Compressing Sources File...' + displayProgressAt: Sensor cursorPoint + from: 0 to: f size + during: + [:bar | f position: 0. + [f atEnd] whileFalse: + [cf nextPutAll: (f next: 65536). + bar value: f position]]. + ^cf. + ! Item was removed: - ----- Method: CompressedSources class>>initializeCachedSources (in category 'accessing') ----- - initializeCachedSources - - "CompressedSources initializeCachedSources" - "CompressedSources clearCachedSources" - - ^ CachedSources := self newFromFiles. - ! Item was added: + ----- Method: CompressedSources class>>internalizeSources (in category 'accessing') ----- + internalizeSources + + <preference: 'Cache sources file' + category: 'Files' + description: 'If true, a compressed sources file will be kept in the image to avoid file system access' + type: #Boolean> + ^CachedSources notNil + ! Item was added: + ----- Method: CompressedSources class>>internalizeSources: (in category 'accessing') ----- + internalizeSources: internalize + + internalize + ifTrue: [CachedSources := self fromSourceFileArray position: 0] + ifFalse: [CachedSources := nil]. + Smalltalk openSourceFiles. + ! Item was removed: - ----- Method: CompressedSources class>>newFromFiles (in category 'instance creation') ----- - newFromFiles - "Try updating FileDirectory class>>*openSources:forImage: to answer this." - - "Smalltalk openSourceFiles" - - "CompressedSources newFromFiles" - - ^ self on: CompressedSourcesHolder newFromFiles.! Item was added: + ----- Method: CompressedSources>>asCompressedSources (in category 'converting') ----- + asCompressedSources + ^self! Item was changed: ----- Method: CompressedSources>>readOnlyCopy (in category 'file open/close') ----- readOnlyCopy + "Not required for source file management, just answer a copy" + ^self copy! - ^self! Item was removed: - ReadWriteStream subclass: #CompressedSourcesHolder - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'DTL-internal-sources'! - - !CompressedSourcesHolder commentStamp: 'dtl 1/16/2022 17:42' prior: 0! - A CompressedSourcesHolder replaces the file stream in a CompressedSourceStream with an in-image copy of the sources file data.! Item was removed: - ----- Method: CompressedSourcesHolder class>>compressedSourcesBytes (in category 'source files') ----- - compressedSourcesBytes - "Contents of the compressed sources file" - - | fs bytes | - [fs := FileStream fileNamed: self compressedSourcesName. - fs binary. - bytes := fs contentsOfEntireFile] - ensure: [fs close]. - ^bytes.! Item was removed: - ----- Method: CompressedSourcesHolder class>>compressedSourcesName (in category 'source files') ----- - compressedSourcesName - - | srcName | - srcName := Smalltalk sourcesName. - (srcName last: 7) = 'sources' - ifTrue: [srcName := (srcName allButLast: 7), 'stc']. - (FileDirectory default fileExists: srcName) - ifFalse: [Smalltalk compressSources]. - (FileDirectory default fileExists: srcName) - ifFalse: [self error: 'unable to find or create ', srcName]. - ^srcName - ! Item was removed: - ----- Method: CompressedSourcesHolder class>>newFromFiles (in category 'instance creation') ----- - newFromFiles - "Try updating FileDirectory class>>*openSources:forImage: to answer this." - - "Smalltalk openSourceFiles" - - "CompressedSourcesHolder newFromFiles" - - ^ self on: self compressedSourcesBytes.! Item was removed: - ----- Method: CompressedSourcesHolder class>>on: (in category 'instance creation') ----- - on: bytes - ^ (super on: bytes) initializeSize.! Item was removed: - ----- Method: CompressedSourcesHolder>>initializeSize (in category 'initialize-release') ----- - initializeSize - readLimit := writeLimit. "makes #size work as expected"! Item was added: + TestCase subclass: #CompressedSourcesTest + instanceVariableNames: 'fileBasedStream testFile' + classVariableNames: '' + poolDictionaries: '' + category: 'DTL-internal-sources'! + + !CompressedSourcesTest commentStamp: 'dtl 1/22/2022 11:23' prior: 0! + A CompressedSourcesTest verifies that CompressedSources matches the behavior of CompressedSourceStream. See CompressedSourceStream>>test + ! Item was added: + ----- Method: CompressedSourcesTest>>setUp (in category 'running') ----- + setUp + + testFile := 'test-tmp.stc'. + (FileDirectory default fileExists: testFile) ifTrue: [FileDirectory default deleteFileNamed: testFile]. + fileBasedStream := CompressedSourceStream on: (FileStream newFileNamed: testFile). + ! Item was added: + ----- Method: CompressedSourcesTest>>tearDown (in category 'running') ----- + tearDown + + fileBasedStream close. + (FileDirectory default fileExists: testFile) ifTrue: [FileDirectory default deleteFileNamed: testFile]. + ! Item was added: + ----- Method: CompressedSourcesTest>>testContentsOfEntireFile (in category 'tests') ----- + testContentsOfEntireFile + + | expectedData compressedSources actual | + fileBasedStream fileOutChanges. + expectedData := fileBasedStream contentsOfEntireFile. + compressedSources := CompressedSources on: (ReadWriteStream with: ByteArray new). + compressedSources fileOutChanges. + actual := compressedSources contentsOfEntireFile. + self assert: expectedData equals: actual. + + + ! Item was added: + ----- Method: CompressedSourcesTest>>testFileOutChanges (in category 'tests') ----- + testFileOutChanges + "A filie out from CompressedSources should produce the same data as that of CompressedSourceStream" + + | fs expectedData compressedSources segmentFile | + fileBasedStream fileOutChanges. + [expectedData := (fs := FileStream fileNamed: testFile) binary contentsOfEntireFile] ensure: [fs close]. + compressedSources := CompressedSources on: (ReadWriteStream with: ByteArray new). + compressedSources fileOutChanges. + segmentFile := compressedSources instVarAt: 6. + self assert: expectedData equals: segmentFile contents. + + + ! Item was added: + ----- Method: CompressedSourcesTest>>testFileOutChangesWithSegmentCount (in category 'tests') ----- + testFileOutChangesWithSegmentCount + "Specifying the segment count does not affect validity of the data. Use values + similar to (but different from) the defaults" + + "(CompressedSourcesTest selector: #testFileOutChangesWithSegmentCount) debug" + + | fs expectedData compressedSources segmentFile | + fileBasedStream segmentSize: 22345 maxSize: 34123456. + fileBasedStream fileOutChanges. + [expectedData := (fs := FileStream fileNamed: testFile) binary contentsOfEntireFile] ensure: [fs close]. + compressedSources := CompressedSources on: (ReadWriteStream with: ByteArray new). + compressedSources segmentSize: 22345 maxSize: 34123456. + compressedSources fileOutChanges. + segmentFile := compressedSources instVarAt: 6. + self assert: expectedData equals: segmentFile contents. + + + ! Item was removed: - ----- Method: RemoteString>>textDTL (in category '*DTL-internal-sources') ----- - textDTL - "Answer the receiver's string asText if remote files are enabled." - - | theFile | - theFile := (CurrentReadOnlySourceFiles at: (sourceFileNumber ifNil: [ ^nil ])) ifNil: [ ^nil ]. - ^ self textDTL: theFile. - ! Item was removed: - ----- Method: RemoteString>>textDTL: (in category '*DTL-internal-sources') ----- - textDTL: theFile - "Answer the receiver's string asText if remote files are enabled." - - theFile size <= filePositionHi ifTrue: [ - "SourceFiles might have been appended to since theFile was opened. Flush the written data and reopen theFile to make it see the changes." - (SourceFiles at: sourceFileNumber) flush. - theFile reopen. "Currently the only way to re-read the size field of a read-only file on unix..." ]. - theFile size < filePositionHi ifTrue: [ - self error: 'RemoteString past end of file' ]. - ^theFile - position: filePositionHi; - nextChunkText! Item was removed: - (PackageInfo named: 'DTL-internal-sources') postscript: '"Initialized the internal copy of the compressed sources file. Create an .stc file if it does not yet exist on the file system, then load and save its data in CompressedSources." - - CompressedSources initializeCachedSources. - Smalltalk openSourceFiles.'!

1 0

The Trunk: ToolBuilder-Morphic-mt.287.mcz
by commits＠source.squeak.org 24 Jan '22

24 Jan '22

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.287.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.287 Author: mt Time: 24 January 2022, 12:02:50.618852 pm UUID: 23956dc5-c523-e149-abf6-5d930dcf3517 Ancestors: ToolBuilder-Morphic-mt.286 Sorry for the noise ... =============== Diff against ToolBuilder-Morphic-mt.286 =============== 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." | workspace | - self halt. workspace := Workspace new shouldStyle: aBoolean; contents: aText; acceptAction: anAction. ^ workspace openLabel: (labelString ifNil: [workspace labelString])!

1 0

The Trunk: ToolBuilder-MVC-mt.64.mcz
by commits＠source.squeak.org 24 Jan '22

24 Jan '22

Marcel Taeumel uploaded a new version of ToolBuilder-MVC to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-MVC-mt.64.mcz ==================== Summary ==================== Name: ToolBuilder-MVC-mt.64 Author: mt Time: 24 January 2022, 11:56:27.036852 am UUID: 6d6f6c45-8c3c-a74a-aa5f-e4c999aafd11 Ancestors: ToolBuilder-MVC-mt.63 Avoid side-effects when initializing a workspace for edit-string operations. We might want to add a class-side constructor for that... =============== Diff against ToolBuilder-MVC-mt.63 =============== Item was changed: ----- Method: MVCUIManager>>edit:label:accept: (in category 'ui requests') ----- edit: aText label: labelString accept: anAction "Open an editor on the given string/text" Workspace new + contents: aText; - acceptContents: aText; acceptAction: anAction; openLabel: labelString !

1 0

The Trunk: ToolBuilder-Morphic-mt.286.mcz
by commits＠source.squeak.org 24 Jan '22

24 Jan '22

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.286.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.286 Author: mt Time: 24 January 2022, 11:55:43.641852 am UUID: 79c4f1ff-6335-4944-bf47-4539dbded3ff Ancestors: ToolBuilder-Morphic-ct.285 Avoid side-effects when initializing a workspace for edit-string operations. We might want to add a class-side constructor for that... =============== Diff against ToolBuilder-Morphic-ct.285 =============== 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." | workspace | + self halt. workspace := Workspace new shouldStyle: aBoolean; + contents: aText; - acceptContents: aText; acceptAction: anAction. ^ workspace openLabel: (labelString ifNil: [workspace labelString])!

1 0

The Trunk: Morphic-mt.1858.mcz
by commits＠source.squeak.org 24 Jan '22

24 Jan '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1858.mcz ==================== Summary ==================== Name: Morphic-mt.1858 Author: mt Time: 24 January 2022, 11:32:50.105852 am UUID: 5df5f1f8-2ae1-b946-b775-916420b44670 Ancestors: Morphic-mt.1857 I forgot to copy the text-style I am installing. Sorry for the noise. =============== Diff against Morphic-mt.1857 =============== Item was changed: ----- Method: PluggableTextMorph>>setDefaultParameters (in category 'initialization') ----- setDefaultParameters super setDefaultParameters. self textMorph textStyle defaultFont hasFixedWidth "mt: Law of Demeter ... Can we rely on text styles to only bundle similar fonts?" + ifFalse: [self textStyle: (self userInterfaceTheme textStyle ifNil: [TextStyle default]) copy] + ifTrue: [self textStyle: (self userInterfaceTheme textStyleFixed ifNil: [TextStyle defaultFixed]) copy]. - ifFalse: [self textStyle: (self userInterfaceTheme textStyle ifNil: [TextStyle default])] - ifTrue: [self textStyle: (self userInterfaceTheme textStyleFixed ifNil: [TextStyle defaultFixed])]. self setTextColor: (self userInterfaceTheme textColor ifNil: [Color black]). self wrapBorderColor: ((self userInterfaceTheme wrapBorderColorModifier ifNil: [ [:c | c muchLighter alpha: 0.3] ]) value: self borderColor). self setProperty: #adornmentReadOnly toValue: (self userInterfaceTheme adornmentReadOnly ifNil: [Color black]); setProperty: #adornmentRefuse toValue: (self userInterfaceTheme adornmentRefuse ifNil: [Color tan]); setProperty: #adornmentConflict toValue: (self userInterfaceTheme adornmentConflict ifNil: [Color red]); setProperty: #adornmentDiff toValue: (self userInterfaceTheme adornmentDiff ifNil: [Color green]); setProperty: #adornmentNormalEdit toValue: (self userInterfaceTheme adornmentNormalEdit ifNil: [Color orange]); setProperty: #adornmentDiffEdit toValue: (self userInterfaceTheme adornmentDiffEdit ifNil: [Color yellow]). self setProperty: #frameAdornmentWidth toValue: (self userInterfaceTheme frameAdornmentWidth ifNil: [1]). textMorph caretColor: (self userInterfaceTheme caretColor ifNil: [Color red]); selectionColor: (self userInterfaceTheme selectionColor ifNil: [TranslucentColor r: 0.0 g: 0.0 b: 0.8 alpha: 0.2]); unfocusedSelectionColor: ((self userInterfaceTheme unfocusedSelectionModifier ifNil: [ [:c | Color gray: 0.9] ]) value: textMorph selectionColor).!

1 0

The Trunk: System-mt.1293.mcz
by commits＠source.squeak.org 24 Jan '22

24 Jan '22

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1293.mcz ==================== Summary ==================== Name: System-mt.1293 Author: mt Time: 24 January 2022, 11:28:07.288852 am UUID: 7a5bb745-5cee-9049-9de5-4f7407cee164 Ancestors: System-mt.1292 Complements Morphic-mt.1857 =============== Diff against System-mt.1292 =============== Item was changed: ----- Method: SqueakTheme class>>addScrollables: (in category 'instance creation') ----- addScrollables: theme "self create apply" "Sliders" theme set: #borderColor for: #Slider to: Color gray; set: #borderWidth for: #Slider to: 1; set: #color for: #Slider to: Color lightGray; set: #thumbBorderColor for: #Slider to: [Color gray: 0.6]; set: #thumbBorderWidth for: #Slider to: 0; set: #thumbColor for: #Slider to: Color veryVeryLightGray; set: #thumbShadowModifier for: #Slider to: [ [:c | c alpha: 0.7] ]. "Scroll bars" theme set: #thumbBorderWidth for: #ScrollBar to: 1; set: #thumbColorModifier for: #ScrollBar to: [ [:c | c] ]; set: #pagingAreaColorModifier for: #ScrollBar to: [ [:c | c darker alpha: 0.35] ]; set: #borderColorModifier for: #ScrollBar to: [ [:c | c adjustBrightness: -0.3] ]. "Scroll panes (includes generic stuff for list widgets, tree widgets, and text widgets." theme set: #borderColor for: #ScrollPane to: (Color gray: 0.6); set: #borderWidth for: #ScrollPane to: 1; set: #borderStyle for: #ScrollPane to: BorderStyle simple; set: #color for: #ScrollPane to: Color white. "List widgets" theme set: #font for: #PluggableListMorph to: [Preferences standardListFont]; set: #textColor for: #PluggableListMorph to: Color black; set: #selectionColor for: #PluggableListMorph to: (Color r: 0.72 g: 0.72 b: 0.9); derive: #multiSelectionColor for: #PluggableListMorph from: #PluggableListMorph at: #selectionColor do: [:c | c lighter]; set: #selectionTextColor for: #PluggableListMorph to: Color black; set: #filterColor for: #PluggableListMorph to: Color yellow paler; set: #filterTextColor for: #PluggableListMorph to: Color black; set: #preSelectionModifier for: #PluggableListMorph to: [ [:c | Color gray: 0.9] ]; set: #hoverSelectionModifier for: #PluggableListMorph to: [ [:c | c darker alpha: 0.3] ]. "Tree widgets" theme derive: #font for: #SimpleHierarchicalListMorph from: #PluggableListMorph; derive: #textColor for: #SimpleHierarchicalListMorph from: #PluggableListMorph; derive: #selectionColor for: #SimpleHierarchicalListMorph from: #PluggableListMorph; derive: #selectionTextColor for: #SimpleHierarchicalListMorph from: #PluggableListMorph; derive: #filterColor for: #SimpleHierarchicalListMorph from: #PluggableListMorph; derive: #filterTextColor for: #SimpleHierarchicalListMorph from: #PluggableListMorph; derive: #hoverSelectionModifier for: #SimpleHierarchicalListMorph from: #PluggableListMorph; set: #highlightTextColor for: #SimpleHierarchicalListMorph to: Color fern; set: #lineColor for: #SimpleHierarchicalListMorph to: Color veryLightGray. "Text widgets" theme + set: #font for: #PluggableTextMorph to: [TextStyle defaultFont]; + set: #textStyle for: #PluggableTextMorph to: [TextStyle default]; + set: #textStyleFixed for: #PluggableTextMorph to: [TextStyle defaultFixed]; - set: #font for: #PluggableTextMorph to: [Preferences standardSystemFont]; set: #textColor for: #PluggableTextMorph to: Color black; set: #caretColor for: #PluggableTextMorph to: Color red; set: #selectionColor for: #PluggableTextMorph to: (TranslucentColor r: 0.0 g: 0.0 b: 0.8 alpha: 0.2); set: #unfocusedSelectionModifier for: #PluggableTextMorph to: [ [:c | Color gray: 0.9] ]; set: #adornmentReadOnly for: #PluggableTextMorph to: Color black; set: #adornmentRefuse for: #PluggableTextMorph to: Color tan; set: #adornmentConflict for: #PluggableTextMorph to: Color red; set: #adornmentDiff for: #PluggableTextMorph to: Color green; set: #adornmentNormalEdit for: #PluggableTextMorph to: Color orange; set: #adornmentDiffEdit for: #PluggableTextMorph to: Color yellow; set: #frameAdornmentWidth for: #PluggableTextMorph to: 1. theme set: #balloonTextColor for: #PluggableTextMorphPlus to: (Color gray: 0.7); derive: #balloonTextFont for: #PluggableTextMorphPlus from: #PluggableTextMorph at: #font.!

1 0

The Trunk: Morphic-mt.1857.mcz
by commits＠source.squeak.org 24 Jan '22

24 Jan '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1857.mcz ==================== Summary ==================== Name: Morphic-mt.1857 Author: mt Time: 24 January 2022, 11:26:42.259852 am UUID: 41abd323-92d1-de45-84fa-86859be987fc Ancestors: Morphic-mt.1856 Fixes issue where switching between UI themes messed up text field's mono-vs-proportional fonts. =============== Diff against Morphic-mt.1856 =============== Item was changed: ----- Method: PluggableTextMorph>>setDefaultParameters (in category 'initialization') ----- setDefaultParameters super setDefaultParameters. + self textMorph textStyle defaultFont hasFixedWidth "mt: Law of Demeter ... Can we rely on text styles to only bundle similar fonts?" + ifFalse: [self textStyle: (self userInterfaceTheme textStyle ifNil: [TextStyle default])] + ifTrue: [self textStyle: (self userInterfaceTheme textStyleFixed ifNil: [TextStyle defaultFixed])]. - self - font: (self userInterfaceTheme font ifNil: [TextStyle defaultFont]); - setTextColor: (self userInterfaceTheme textColor ifNil: [Color black]). + self setTextColor: (self userInterfaceTheme textColor ifNil: [Color black]). self wrapBorderColor: ((self userInterfaceTheme wrapBorderColorModifier ifNil: [ [:c | c muchLighter alpha: 0.3] ]) value: self borderColor). self setProperty: #adornmentReadOnly toValue: (self userInterfaceTheme adornmentReadOnly ifNil: [Color black]); setProperty: #adornmentRefuse toValue: (self userInterfaceTheme adornmentRefuse ifNil: [Color tan]); setProperty: #adornmentConflict toValue: (self userInterfaceTheme adornmentConflict ifNil: [Color red]); setProperty: #adornmentDiff toValue: (self userInterfaceTheme adornmentDiff ifNil: [Color green]); setProperty: #adornmentNormalEdit toValue: (self userInterfaceTheme adornmentNormalEdit ifNil: [Color orange]); setProperty: #adornmentDiffEdit toValue: (self userInterfaceTheme adornmentDiffEdit ifNil: [Color yellow]). self setProperty: #frameAdornmentWidth toValue: (self userInterfaceTheme frameAdornmentWidth ifNil: [1]). textMorph caretColor: (self userInterfaceTheme caretColor ifNil: [Color red]); selectionColor: (self userInterfaceTheme selectionColor ifNil: [TranslucentColor r: 0.0 g: 0.0 b: 0.8 alpha: 0.2]); unfocusedSelectionColor: ((self userInterfaceTheme unfocusedSelectionModifier ifNil: [ [:c | Color gray: 0.9] ]) value: textMorph selectionColor).! Item was changed: ----- Method: PluggableTextMorph>>setTextColor: (in category 'model access') ----- setTextColor: aColor "Set the color of my text to the given color" + self flag: #todo. "See commentary in #font:. Maybe we cant to remove all current TextColor attributes here, too?" textMorph textColor: aColor!

1 0

← Newer
1
...
4
5
6
7
8
9
10
...
21
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages January 2022