Packages November 2023

packages@lists.squeakfoundation.org

1 participants
89 discussions

The Trunk: Tools-ct.1239.mcz
by commits＠source.squeak.org 13 Nov '23

13 Nov '23

Christoph Thiede uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.1239.mcz ==================== Summary ==================== Name: Tools-ct.1239 Author: ct Time: 13 November 2023, 8:09:02.809583 pm UUID: 2612d17b-dcd9-f94b-815f-740bc583c673 Ancestors: Tools-ct.1238, Tools-ct.1096 Merges and revises Tools-ct.1096 (Process>>#browse). Revision: Add hop through ToolSet. Filter terminated processes. Thanks to Marcel (mt) for the feedback! =============== Diff against Tools-ct.1238 =============== Item was added: + ----- Method: Process>>browse (in category '*Tools-Browsing') ----- + browse + + ^ ToolSet browseProcess: self! Item was added: + ----- Method: ProcessBrowser class>>browseProcess: (in category 'instance creation') ----- + browseProcess: aProcess + + ^ self new + selectProcess: aProcess; + open! Item was changed: ----- Method: ProcessBrowser class>>open (in category 'instance creation') ----- open + + ^ self new open! - ^ToolBuilder open: self new! Item was added: + ----- Method: ProcessBrowser>>open (in category 'toolbuilder') ----- + open + + ^ ToolBuilder open: self! Item was added: + ----- Method: ProcessBrowser>>selectProcess: (in category 'accessing') ----- + selectProcess: aProcess + + self processListIndex: (self processList indexOf: aProcess).! Item was added: + ----- Method: StandardToolSet class>>browseProcess: (in category 'browsing') ----- + browseProcess: aProcess + + aProcess isTerminated ifTrue: [ + ^ aProcess inspectWithLabel: ('{1} (terminated)' translated format: {aProcess defaultLabelForInspector})]. + ^ ProcessBrowser browseProcess: aProcess!

1 0

The Trunk: JSON-ct.58.mcz
by commits＠source.squeak.org 13 Nov '23

13 Nov '23

Christoph Thiede uploaded a new version of JSON to project The Trunk: http://source.squeak.org/trunk/JSON-ct.58.mcz ==================== Summary ==================== Name: JSON-ct.58 Author: ct Time: 10 November 2023, 9:25:24.28745 pm UUID: 204b1ced-8cc9-5b4e-9d05-7fcfbd52bb8f Ancestors: JSON-ul.57 Minor refactoring: Extracts #readFromString: from String>>#parseAsJsonWithDictionaryClass:. =============== Diff against JSON-ul.57 =============== Item was added: + ----- Method: Json class>>readFromString: (in category 'instance creation') ----- + readFromString: aStream + ^ self new readFromString: aStream! Item was added: + ----- Method: Json>>readFromString: (in category 'parsing') ----- + readFromString: aString + + | result | + result := self readFrom: aString readStream. + stream atEnd ifFalse: [self invalid: 'Unexpected data at end of input']. + ^ result! Item was changed: ----- Method: String>>parseAsJsonWithDictionaryClass: (in category '*JSON') ----- parseAsJsonWithDictionaryClass: aClassOrNil "Convenience" + | parser | - | input parser result | parser := Json new. aClassOrNil ifNotNil: [ parser dictionaryClass: aClassOrNil ]. + ^ parser readFromString: self! - input := self readStream. - result := parser readFrom: input. - input atEnd ifFalse: [ parser invalid: 'Unexpected data at end of input' ]. - ^result!

1 0

The Trunk: System-ct.1433.mcz
by commits＠source.squeak.org 13 Nov '23

13 Nov '23

Christoph Thiede uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ct.1433.mcz ==================== Summary ==================== Name: System-ct.1433 Author: ct Time: 13 November 2023, 7:56:11.254583 pm UUID: 39d1f112-d37f-c24f-b1cf-5a3c7815fd0c Ancestors: System-ct.1432 Uses #printString instead of #asString for displaying the result of an evaluated expression. See: https://lists.squeakfoundation.org/archives/list/squeak-dev@lists.squeakfou… =============== Diff against System-ct.1432 =============== Item was changed: ----- Method: DoItFirst>>doIt: (in category 'actions') ----- doIt: arguments "Evaluate arguments and print the result on stdout, or error message on stderr. Exit the image after any error." arguments do: [ :arg | + [ self printOut: (Compiler evaluate: arg) printString ] - [ self printOut: (Compiler evaluate: arg) asString ] on: Error do: [ :ex | self printError: ex asString ]].! Item was changed: ----- Method: DoItFirst>>evaluateOption: (in category 'actions') ----- evaluateOption: arg "Evaluate option and print the result on stdout, or error message on stderr. Exit immediately without saving the image." | safeToQuit | + [ safeToQuit := self printOut: (Compiler evaluate: arg) printString ] - [ safeToQuit := self printOut: (Compiler evaluate: arg) asString ] on: Error do: [ :ex | safeToQuit := self printError: ex asString ]. safeToQuit ifTrue: [ Smalltalk quitPrimitive ].! Item was changed: ----- Method: Transcripter>>readEvalPrint (in category 'command line') ----- readEvalPrint | line okToRevert | okToRevert := true. [#('quit' 'exit' 'done' ) includes: (line := self request: '>')] whileFalse: [line = 'revert' ifTrue: [okToRevert ifTrue: [RecentMessages default revertMostRecent. self cr; show: 'reverted: ' , RecentMessages default mostRecent. okToRevert := false] ifFalse: [self cr; show: 'Only one level of revert currently supported']] + ifFalse: [self cr; show: ([(Compiler evaluate: line) printString] ifError: [:err :ex | err])]]! - ifFalse: [self cr; show: ([Compiler evaluate: line] ifError: [:err :ex | err])]]!

1 0

The Trunk: Morphic-ct.2139.mcz
by commits＠source.squeak.org 13 Nov '23

13 Nov '23

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.2139.mcz ==================== Summary ==================== Name: Morphic-ct.2139 Author: ct Time: 13 November 2023, 7:55:13.229583 pm UUID: 4e1f443c-c598-1b4b-a2fa-8547999acea3 Ancestors: Morphic-ct.2138 Uses #printString instead of #asString for displaying the result of an evaluated expression. See: https://lists.squeakfoundation.org/archives/list/squeak-dev@lists.squeakfou… =============== Diff against Morphic-ct.2138 =============== Item was changed: ----- Method: SearchBar>>printIt:result: (in category 'do-its') ----- printIt: code result: object | focusedWidget | focusedWidget := self currentHand keyboardFocus. self removeResultsWidget. ToolBuilder default in: [:builder | resultsWidget := (builder build: (StringHolder new + contents: object printString; - contents: object asString; buildCodePaneWith: builder)). "This might cause the widget disappear to early. Especially if the textMorph is to small but the container needs to maintain a larger size because of its scroll bars." resultsWidget textMorph on: #mouseLeave send: #delete to: resultsWidget. resultsWidget extent: 1000 px @ 1000 px; fullBounds; "give text a chance to layout good" width: 250 px; fullBounds; height: (resultsWidget extentToFit y min: 300 px); position: (focusedWidget ifNotNil: [:w | w owner boundsInWorld bottomLeft] ifNil: [self currentHand position]); color: (BalloonMorph balloonColor alpha: 1.0). Preferences menuAppearance3d ifTrue: [resultsWidget addDropShadow]. resultsWidget openInWorld].!

1 0

The Trunk: Tools-ct.1238.mcz
by commits＠source.squeak.org 13 Nov '23

13 Nov '23

Christoph Thiede uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.1238.mcz ==================== Summary ==================== Name: Tools-ct.1238 Author: ct Time: 13 November 2023, 6:37:08.419722 pm UUID: 87c8f62b-7175-ba4b-8333-353ff7681a02 Ancestors: Tools-eem.1237 Fixes missing escaping in common senders of #asTextFromHtml and #format:. Note that also Texts respond to #format: since Squeak 5.3. =============== Diff against Tools-eem.1237 =============== Item was changed: ----- Method: Browser>>informUnknownPackage (in category 'system category functions') ----- informUnknownPackage + self inform: ('The category {1} does not belong to a known package.' translated asTextFromHtml format: {self selectedSystemCategory}).! - self inform: ('The category {1} does not belong to a known package.' translated format: {self selectedSystemCategory}) asTextFromHtml.! Item was changed: ----- Method: TreeBrowser>>systemCategoryHelpAt: (in category 'system category tree - support') ----- systemCategoryHelpAt: category "Integrate Monticello by informing users about package repositories and modifications." ^ PackageOrganizer default packageNamed: category ifPresent: [:pkg | Text streamContents: [:packageHelp | | wc repos | wc := pkg workingCopy. packageHelp nextPutAll: ('This is a{1} package:' translated + format: {wc modified ifTrue: [' modified' translated] ifFalse: ['']}) asTextFromHtml; - format: {wc modified ifTrue: [' modified'] ifFalse: ['']}) asTextFromHtml; cr; space; nextPutAll: (wc := pkg workingCopy) description. (repos := wc repositoryGroup repositories) size > 1 "more than cache" ifTrue: [ packageHelp cr; cr; nextPutAll: 'Known repositories:' translated. 2 to: repos size do: [:index | | repo | repo := repos at: index. packageHelp cr; space; nextPutAll: repo description]] ]] ifAbsent: [(SystemOrganization categories includes: category) ifTrue: [category]] !

1 0

The Trunk: System-ct.1432.mcz
by commits＠source.squeak.org 13 Nov '23

13 Nov '23

Christoph Thiede uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ct.1432.mcz ==================== Summary ==================== Name: System-ct.1432 Author: ct Time: 13 November 2023, 6:36:57.388722 pm UUID: 9bd805c2-1d3e-2c4a-acbc-0066cc40c712 Ancestors: System-dtl.1431 Fixes missing escaping in common senders of #asTextFromHtml and #format:. Note that also Texts respond to #format: since Squeak 5.3. =============== Diff against System-dtl.1431 =============== Item was changed: ----- Method: DeepCopier>>warnIverNotCopiedIn:sel: (in category 'like fullCopy') ----- warnIverNotCopiedIn: aClass sel: sel "Warn the user to update veryDeepCopyWith: or veryDeepInner:" + self inform: ('An instance variable was added to to class {1} and it is not copied in the method {2}. Please rewrite it to handle all instance variables. See DeepCopier class comment.' translated asTextFromHtml format: {aClass name . sel}). - self inform: ('An instance variable was added to to class {1} and it is not copied in the method {2}. Please rewrite it to handle all instance variables. See DeepCopier class comment.' translated format: { aClass name . sel}) asTextFromHtml. ToolSet browse: aClass selector: sel! Item was changed: ----- Method: SmalltalkImage>>openSourcesAndChanges:forImage: (in category 'image, changes names') ----- openSourcesAndChanges: changesName forImage: imageName "Open the changes and sources files and install them in SourceFiles. Inform the user of problems regarding write permissions or CR/CRLF mixups." "Note: SourcesName and imageName are full paths; changesName is a local name." | sources changes msg wmsg | msg := 'Squeak cannot locate {1}. + Please check that the file is named properly and is in the same directory as this image.' translated. - Please check that the file is named properly and is in the same directory as this image.'. wmsg := 'Squeak cannot write to {1}. Please check that you have write permission for this file. + You won''t be able to save this image correctly until you fix this.' translated. + - You won''t be able to save this image correctly until you fix this.'. - sources := Smalltalk openSources. sources ifNotNil: [sources setConverterForCode]. changes := SourceFileArray cachedChanges ifNil: [Smalltalk openChanges: changesName forImage: imageName]. changes ifNotNil: [changes setConverterForCode]. ((sources == nil or: [sources atEnd]) and: [Preferences valueOfFlag: #warnIfNoSourcesFile]) ifTrue: [Smalltalk platformName = 'Mac OS' ifTrue: [msg := msg , ' + Make sure the sources file is not an Alias.' translated]. + self inform: (msg format: { 'the sources file named ' translated , self sourcesName })]. + - Make sure the sources file is not an Alias.']. - self inform: (msg format: { 'the sources file named ' , self sourcesName })]. - (changes == nil and: [Preferences valueOfFlag: #warnIfNoChangesFile]) + ifTrue: [self inform: (msg format: { 'the changes file named ' translated , changesName })]. + - ifTrue: [self inform: (msg format: { 'the changes file named ' , changesName })]. - ((Preferences valueOfFlag: #warnIfNoChangesFile) and: [changes notNil]) ifTrue: [changes isReadOnly + ifTrue: [self inform: (wmsg format: { 'the changes file named ' translated , changesName })]. - ifTrue: [self inform: (wmsg format: { 'the changes file named ' , changesName })]. ((changes next: 200) includesSubstring: String crlf) ifTrue: [self inform: ('The changes file named {1} has been injured by an unpacking utility. Line endings were changed from Cr to CrLf. Please set the preferences in your decompressing program to + do not convert text files and unpack the system again.' translated asTextFromHtml format: { changesName })]]. + - do not convert text files and unpack the system again.' translated format: { changesName }) asTextFromHtml]]. - SourceFiles := Array with: sources with: changes! Item was changed: ----- Method: Utilities class>>setAuthorInitials (in category 'identification') ----- setAuthorInitials "Put up a dialog allowing the user to specify the author's initials. Inform the user about collisions with known contributors. See SystemNavigation class >> #authors. " | newInitials newName | newInitials := Project uiManager request: 'Please type your initials:' translated initialAnswer: AuthorInitials. newInitials ifEmpty: [^ self "No Change"]. (SystemNavigation authorsInverted at: newInitials ifPresent: [:existingNames | newName := existingNames sorted joinSeparatedBy: '/'. (self confirm: ('Hello, {1}!! :-) Our <a href="code://{3}">list of known contributors</{4}> associates the initials you have entered with this name. If this is not you, please consider alternative initials, preferably more than just a few characters, to avoid collisions. Do you want to use these author initials? {2}' translated format: { + (newName ifNil: [newInitials]) escapeEntities. + newInitials escapeEntities. - newName ifNil: [newInitials]. - newInitials. 'SystemReporter open model categoryAt: 1 put: true'. "mt: Avoid triggering the Windows Defender. See http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-December/217346…" 'a' }) asTextFromHtml) ] ifAbsent: [true]) ifTrue: [self authorInitials: newInitials].!

1 0

The Trunk: Morphic-ct.2138.mcz
by commits＠source.squeak.org 13 Nov '23

13 Nov '23

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.2138.mcz ==================== Summary ==================== Name: Morphic-ct.2138 Author: ct Time: 13 November 2023, 6:36:40.229722 pm UUID: 8f5cf761-3423-1c45-8bcc-6fa5db72e299 Ancestors: Morphic-dtl.2137 Fixes missing escaping in common senders of #asTextFromHtml and #format:. Note that also Texts respond to #format: since Squeak 5.3. =============== Diff against Morphic-dtl.2137 =============== Item was changed: ----- Method: FontImporterTool>>pointSizeInputHelp (in category 'preview text - ui') ----- pointSizeInputHelp self editModeEnabled ifFalse: [ ^ 'Point size in the preview box' translated]. + ^ 'Point size in the preview box. The system''s default is currently {1} points. It is recommended to adjust the font''s extra glyph scale and extra line gap using the default point size. Look at other text in the system to assess whether this font would integrate nicely. Make empty to reset to default value.' translated asTextFromHtml + format: {TextStyle defaultFont pointSize}! - ^ ('Point size in the preview box. The system''s default is currently {1} points. It is recommended to adjust the font''s extra glyph scale and extra line gap using the default point size. Look at other text in the system to assess whether this font would integrate nicely. Make empty to reset to default value.' translated - format: {TextStyle defaultFont pointSize}) asTextFromHtml! Item was changed: ----- Method: FontImporterTool>>ttExtraGapInputHelp (in category 'edit mode - ui') ----- ttExtraGapInputHelp | tt | tt := self selectedFont ifNotNil: [:f | f isTTCFont ifTrue: [ f ttcDescription ] ]. + ^ 'Extra line gap in font measures. This font''s own value is {1} with units-per-em (UPM) being {2}. Adjust to change the font''s line grid (or "height") to compensate for extra glyph scale. The value may be negative. Note that there is also line spacing, which is not per font but per text style and thus application-specific. Make empty to reset to default value.' translated asTextFromHtml - ^ ('Extra line gap in font measures. This font''s own value is {1} with units-per-em (UPM) being {2}. Adjust to change the font''s line grid (or "height") to compensate for extra glyph scale. The value may be negative. Note that there is also line spacing, which is not per font but per text style and thus application-specific. Make empty to reset to default value.' translated format: { tt ifNil: ['?'] ifNotNil: [tt typographicLineGap]. tt ifNil: ['?'] ifNotNil: [tt unitsPerEm]. + }! - }) asTextFromHtml! Item was changed: ----- Method: FontImporterTool>>ttExtraScaleInputHelp (in category 'edit mode - ui') ----- ttExtraScaleInputHelp (self selectedFont isNil or: [self selectedFont isTTCFont not]) ifTrue: [ ^ '']. + ^ 'Extra glyph scale to accommodate varying heights when using different fonts side-by-side. This font has a relative x-height of {1} while the system''s reference is {2}. You can only use values greater than 0.0. Note that this does not change the font''s "pixel height" and is thus unrelated to the system''s overall UI scale factor. You may want to adjust extra line gap as well to retain the font''s aesthetics. Make empty to reset to default value.' translated asTextFromHtml - ^ ('Extra glyph scale to accommodate varying heights when using different fonts side-by-side. This font has a relative x-height of {1} while the system''s reference is {2}. You can only use values greater than 0.0. Note that this does not change the font''s "pixel height" and is thus unrelated to the system''s overall UI scale factor. You may want to adjust extra line gap as well to retain the font''s aesthetics. Make empty to reset to default value.' translated format: { self selectedFont xHeightFraction printShowingDecimalPlaces: 3. + TextStyle defaultTTFont xHeightFraction printShowingDecimalPlaces: 3 }! - TextStyle defaultTTFont xHeightFraction printShowingDecimalPlaces: 3 }) asTextFromHtml! Item was changed: ----- Method: SmalltalkEditor>>tallySelection (in category 'do-its') ----- tallySelection "Treat the current selection as an expression; evaluate it and return the time took for this evaluation" | code result rcvr ctxt v | self lineSelectAndEmptyCheck: [^ self]. (model respondsTo: #doItReceiver) ifTrue: [ rcvr := model doItReceiver. ctxt := model doItContext] ifFalse: [rcvr := ctxt := nil]. result := [ | cm | code := self selectionAsStream. cm := rcvr class evaluatorClass new compiledMethodFor: code in: ctxt to: rcvr notifying: self ifFail: [morph flash. ^ self]. Time millisecondsToRun: [v := cm valueWithReceiver: rcvr arguments: (ctxt ifNil: [#()] ifNotNil: [{ctxt}]) ]. ] on: OutOfScopeNotification do: [ :ex | ex resume: true]. + Project uiManager + inform: ('Expression{1} {2} Time (compile and execute) {3} ms Result {4}' translated asTextFromHtml format: { - UIManager default - inform: ('Expression{1} {2} Time (compile and execute) {3} ms Result {4}' translated format: { rcvr ifNil: [''] ifNotNil: [' (', (rcvr printString truncateWithElipsisTo: 20), ')']. (code contents truncateWithElipsisTo: 200) copyReplaceAll: String cr with: ' '. result printString. + v printString truncateWithElipsisTo: 100}).! - v printString truncateWithElipsisTo: 100}) asTextFromHtml.! Item was changed: ----- Method: TheWorldMainDockingBar>>sendFeedback (in category 'menu actions') ----- sendFeedback | url os vm hash image | url := 'https://bugs.squeak.org/'. ([Smalltalk vm platformSourceVersion] on: Warning do: ["Ignore"]) ifNotNil: [:info | | tokens | tokens := info findTokens. vm := tokens at: 2. hash := tokens atLast: 4]. os := Smalltalk platformName, ' ', Smalltalk osVersion, ' ', Smalltalk platformSubtype. image := SystemVersion current version, ' #', SystemVersion current highestUpdate. + self inform: ('Please visit the following website to report on bugs, requests, and other issues: <a href="{1}">{1}</a> Make sure that you always include information about your current environment such as: OS: {2} VM: {3} ({4}) SQ: {5} ({6} bit) You can find more in the <a href="code://SystemReporter open">System Reporter</a>.' translated format: {url. os escapeEntities. vm escapeEntities. hash escapeEntities. image escapeEntities. Smalltalk image wordSize * 8}) asTextFromHtml.! - self inform: ('Please visit the following website to report on bugs, requests, and other issues: <a href="{1}">{1}</a> Make sure that you always include information about your current environment such as: OS: {2} VM: {3} ({4}) SQ: {5} ({6} bit) You can find more in the <a href="code://SystemReporter open">System Reporter</a>.' translated format: {url. os. vm. hash. image. Smalltalk image wordSize * 8}) asTextFromHtml!

1 0

The Trunk: MonticelloConfigurations-ct.181.mcz
by commits＠source.squeak.org 13 Nov '23

13 Nov '23

Christoph Thiede uploaded a new version of MonticelloConfigurations to project The Trunk: http://source.squeak.org/trunk/MonticelloConfigurations-ct.181.mcz ==================== Summary ==================== Name: MonticelloConfigurations-ct.181 Author: ct Time: 13 November 2023, 6:36:34.469722 pm UUID: 14ecfb6d-4f37-8143-8bd1-1af13e7f0ee3 Ancestors: MonticelloConfigurations-ct.180 Fixes missing escaping in common senders of #asTextFromHtml and #format:. Note that also Texts respond to #format: since Squeak 5.3. =============== Diff against MonticelloConfigurations-ct.180 =============== Item was changed: ----- Method: MCMcmUpdater>>updateMessageFor: (in category 'private') ----- updateMessageFor: previousUpdateLevel ^ ('Update completed. Version: {1} Update: {3}{2} Url: <a href="{4}">{4}</{10}> Map: ''{5}'' CI status: <a href="{8}"><img src="{7}" /> {9}</{10}>{6}{11}' translated format: { + SystemVersion current version escapeEntities. - SystemVersion current version. SystemVersion current highestUpdate. + (previousUpdateLevel = SystemVersion current highestUpdate - previousUpdateLevel = SystemVersion current highestUpdate ifTrue: [''] + ifFalse: [previousUpdateLevel asString, ' -> ']) escapeEntities. + self repository escapeEntities. + MCMcmUpdater updateMapName escapeEntities. - ifFalse: [previousUpdateLevel asString, ' -> ']. - self repository. - MCMcmUpdater updateMapName. SystemVersion current description ifEmpty: [''] ifNotEmpty: [:d | ' {1}' format: { + d escapeEntities. - d. Preferences standardButtonFont familyName. Preferences standardButtonFont pointSize. }]. SystemVersion current ciStatusBadgeUrl. SystemVersion current ciStatusPageUrl. SystemVersion current ciStatusTimestamp ifNil: ['(build inaccessible!!)' translated]. "mt: Avoid triggering the Windows Defender. See http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-December/217346…" 'a'. SystemVersion current recommendedVMUpdateInfo ifNil: [''] ifNotNil: [:info | ' A newer VM is recommended ({1} -> {2})!! Visit the <a href="{3}">project page</{4}> to download it.' translated format: { + info key escapeEntities. + info value escapeEntities. - info key. - info value. SystemVersion current vmUpdateURL. 'a'. "avoid Windows Defender again" Preferences standardButtonFont familyName. Preferences standardButtonFont pointSize }] }) asTextFromHtml!

1 0

The Trunk: Monticello-ct.804.mcz
by commits＠source.squeak.org 13 Nov '23

13 Nov '23

Christoph Thiede uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-ct.804.mcz ==================== Summary ==================== Name: Monticello-ct.804 Author: ct Time: 13 November 2023, 6:36:27.485722 pm UUID: 8f7b9ab3-636d-884e-9607-aa9362b721fb Ancestors: Monticello-eem.803 Fixes missing escaping in common senders of #asTextFromHtml and #format:. Note that also Texts respond to #format: since Squeak 5.3. =============== Diff against Monticello-eem.803 =============== Item was changed: ----- Method: MCWorkingCopyBrowser>>copyImageVersionsSafely (in category 'actions') ----- copyImageVersionsSafely + (Project uiManager confirm: ('Do you really want to copy the loaded version of each of {1} packages to {2}?' translated asTextFromHtml format: {MCWorkingCopy allManagers size. self repository description}) title: 'Copy Image Versions' translated) ifFalse: [^ self]. - (Project current uiManager confirm: ('Do you really want to copy the loaded version of each of {1} packages to {2}?' translated format: {MCWorkingCopy allManagers size. self repository description}) asTextFromHtml title: 'Copy Image Versions' translated) ifFalse: [^ self]. self copyImageVersions.!

1 0

The Trunk: Graphics-ct.547.mcz
by commits＠source.squeak.org 13 Nov '23

13 Nov '23

Christoph Thiede uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-ct.547.mcz ==================== Summary ==================== Name: Graphics-ct.547 Author: ct Time: 13 November 2023, 6:36:05.858722 pm UUID: 2d4cc28d-cd67-2544-8c4e-687845589a7d Ancestors: Graphics-dtl.546 Fixes missing escaping in common senders of #asTextFromHtml and #format:. Note that also Texts respond to #format: since Squeak 5.3. =============== Diff against Graphics-dtl.546 =============== Item was changed: ----- Method: DisplayScreen>>uiScaleFactor: (in category 'scale factor') ----- uiScaleFactor: aFloat "Sets the effective scale factor for the user interface, i.e., all widgets, tools, and windows. Note that the user can override the #platformScaleFactor, which is just a hint recommended by the platform." | oldPixelFactor newPixelFactor newScaleFactor | newScaleFactor := aFloat max: 0.75. (UserInterfaceTheme current canFakeScaleFactor: newScaleFactor) ifTrue: [ self flag: #isTTCBased. ^ UserInterfaceTheme current applyScaled: newScaleFactor]. newScaleFactor = 0.75 ifTrue: [(Project uiManager + confirm: ('You are currently using TrueType fonts. Your requested scale factor of {1}% looks better using pre-rendered pixel fonts. Do you want to switch to pixel fonts now?' translated asTextFromHtml format: {(newScaleFactor * 100) rounded}) - confirm: ('You are currently using TrueType fonts. Your requested scale factor of {1}% looks better using pre-rendered pixel fonts. Do you want to switch to pixel fonts now?' translated format: {(newScaleFactor * 100) rounded}) asTextFromHtml title: 'Blurry Fonts Detected' translated) == true ifTrue: [UserInterfaceTheme cleanUpAndReset. ^ self uiScaleFactor: newScaleFactor]]. "Do nothing if the factor is unchanged. For comparison, use actual pixel-based scale factor to account for rounding errors, instead of #uiScaleFactor." oldPixelFactor := RealEstateAgent scaleFactor. newScaleFactor = oldPixelFactor ifTrue: [^ self]. "Update system's PPI to then compute the new pixel-based scale factor." TextStyle pixelsPerInch: 96.0 * newScaleFactor. newPixelFactor := RealEstateAgent resetScaleFactor; scaleFactor. "Let the current project (kind) decide how to update the system." Project current ifNotNil: [:p | p displayScaleChangedFrom: oldPixelFactor to: newPixelFactor].!

1 0

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

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2023