Squeak-dev January 2021

squeak-dev@lists.squeakfoundation.org

38 participants
171 discussions

The Inbox: Monticello-mt.734.mcz
by commits＠source.squeak.org 05 Jan '21

05 Jan '21

A new version of Monticello was added to project The Inbox: http://source.squeak.org/inbox/Monticello-mt.734.mcz ==================== Summary ==================== Name: Monticello-mt.734 Author: mt Time: 5 January 2021, 1:09:08.981865 pm UUID: 93fdf435-68a1-4ace-a7a9-d9d86fb3118f Ancestors: Monticello-mt.733 Alternative fix for the problem addressed in Monticello-nice.734 =============== Diff against Monticello-mt.733 =============== Item was added: + ----- Method: MCAncestry>>isWorkingAncestry (in category 'testing') ----- + isWorkingAncestry + ^ false! Item was added: + ----- Method: MCVersionHistoryBrowser>>package (in category 'accessing') ----- + package + ^ package! Item was changed: ----- Method: MCVersionHistoryBrowser>>selectedSnapshot (in category 'accessing') ----- selectedSnapshot + ^ self selectedInfo isWorkingAncestry + ifTrue: [self package snapshot] + ifFalse: [self snapshotForInfo: self selectedInfo]! - ^ self snapshotForInfo: self selectedInfo! Item was added: + ----- Method: MCWorkingAncestry>>isWorkingAncestry (in category 'testing') ----- + isWorkingAncestry + ^ true!

3 3

The Inbox: Monticello-mt.735.mcz
by commits＠source.squeak.org 05 Jan '21

05 Jan '21

A new version of Monticello was added to project The Inbox: http://source.squeak.org/inbox/Monticello-mt.735.mcz ==================== Summary ==================== Name: Monticello-mt.735 Author: mt Time: 5 January 2021, 1:23:12.398865 pm UUID: b2a82046-9f24-4838-896b-6f669aa8a65d Ancestors: Monticello-mt.734 Consider version infos being working copies "in disguise" :-) =============== Diff against Monticello-mt.734 =============== Item was changed: ----- Method: MCAncestry>>isWorkingAncestry (in category 'testing') ----- isWorkingAncestry + + ^ self name = self nameForWorkingCopy! - ^ false! Item was added: + ----- Method: MCAncestry>>nameForWorkingCopy (in category 'ancestry') ----- + nameForWorkingCopy + + ^ '<working copy>'! Item was changed: ----- Method: MCVersionInfo>>name (in category 'accessing') ----- name + ^ name ifNil: [self nameForWorkingCopy]! - ^ name ifNil: ['<working copy>']! Item was changed: ----- Method: MCWorkingAncestry>>name (in category 'testing') ----- name + ^ self nameForWorkingCopy! - ^ '<working copy>'!

1 0

cannot browse Monticello change from <working copy> to any of its ancestors
by Nicolas Cellier 05 Jan '21

05 Jan '21

Hi MC experts, when spawning history of a dirty package, then selecting the <working copy>, then trying to view changes from one of the ancestors via pop up menu, the operation ends up with a 'MessageNotUnderstood: UndefinedObject>>snapshot'. The problem is that: MCWorkingHistoryBrowser>>selectedSnapshot ^ self snapshotForInfo: self selectedInfo will use a MCWorkingCopyAncestry as the selectedInfo... But a MCWorkingCopyAncestry lacks essential messages of a regular MCVersionInfo, like versionName etc... This will cause an Error, caught at upper level, and result in nil (no repository holds the 'working copy', there is no point in searching...). I have no idea how to fix it, presumably we should catch early that we're dealing with 'working copy' and use appropriate snapshot for it... I do not know if it was broken recently or if it never worked, but this is a useful feature when there are several ancestors, so help would be appreciated.

2 1

The Inbox: Monticello-nice.734.mcz
by commits＠source.squeak.org 05 Jan '21

05 Jan '21

A new version of Monticello was added to project The Inbox: http://source.squeak.org/inbox/Monticello-nice.734.mcz ==================== Summary ==================== Name: Monticello-nice.734 Author: nice Time: 30 December 2020, 3:57:21.60758 pm UUID: 863f642a-7795-4eb6-aa6b-76a5af3a8504 Ancestors: Monticello-mt.733 Workaround version history browser bug when 'working copy' is selected. The snapshot is searched in repositoryGroup, and logically, none is found. Note that the self selectedInfo isKindOf: MCWorkingCopyAncestry, which does not behave as a regular MCVersionInfo, it does not even answer to versionName... This somehow accelerate the failure thru an ifError: [] handling, but at the end, the selectedSnapshot is still nil which makes the 'view changes from...' menu fail. The workaround is not very nice, it use implicit knowledge that 'working copy' will be at top of list (index = 1). If you can think of nicer fix, please raise voice. =============== Diff against Monticello-mt.733 =============== Item was changed: ----- Method: MCVersionHistoryBrowser>>selectedSnapshot (in category 'accessing') ----- selectedSnapshot + index = 1 ifTrue: [^package snapshot]. ^ self snapshotForInfo: self selectedInfo!

5 4

follow up to previous email. work in progress on "terse guide to XTreams Parsing Syntax" cheat sheet.
by gettimothy 05 Jan '21

05 Jan '21

Hi Levente. Regarding my previous letter, I am almost certain that "consume" means a match has been made and eat the string. "Yield" means "invoke the callback" or "return the section of a AST for that rule. anyhoo, I have been going through your old emails and cross checking with:https://nim-lang.org/docs/pegs.html and have come up with a preliminary "terse guide" to the syntax. I would like to expand this into tests/examples for others to use going forward. Eventually this will make its way to a SqueakBook when/if I get some time. Anyhoo, if you could peruse it and see if anything jumps out at you that is incorrect/incomplete. Much appreciated. t p.s. I have cc'd squeak-dev in case anybody else finds this interesting. XTreams https://code.google.com/archive/p/xtreams/wikis/Parsing.wiki https://nim-lang.org/docs/pegs.html A < - E Rule: Bind the expression E to the nonterminal symbol A . Left recursive rules are not possible and crash the matching engine. \ddd Character with decimal code ddd \" , etc Literal " , etc. PEG: Literal <- QUOTE LiteralEntity{QUOTE}/ DOUBLE_QUOTE LiteralEntity{DOUBLE_QUOTE} A ... Z Sequence: Apply expressions A , ..., Z , in this order, to consume consecutive portions of the text ahead, as long as they succeed. Indicate success if all succeeded. Otherwise do not consume any text and indicate failure. The sequence's precedence is higher than that of Ordered Choice: A B / C means (A B) / Z and not A (B / Z) . A / ... / Z Ordered Choice: Apply expressions A , ..., Z , in this order, to the text ahead, until one of them succeeds and possibly consumes some text. Indicate success if one of expressions succeeded. Otherwise do not consume any text and indicate failure. The Ordered Choice precedence is lower than that of Sequence: A B / C means (A B) / Z and not A (B / Z) . (E) Grouping: Parenthesis can be used to change operator priority. (A B) / Z vs. A (B / Z) . {E} Cardinality: Stop Expression A <- B{C} to accept A, means, accept any number of B up until E comes. Consume E too, but don't yield it. So, such expression accepts: BE, BBE, BBBE, BBBBE, etc, and yields B, BB, BBB, BBBB, etc. A <- B{1,"\n"} means that a A consists of one or more Bs. The parser will read B's up until "\n" appears on the stream, which is a carriage return character. E? Cardinality: Zero or One E E* Cardinality Zero or more: E Apply expression E repeatedly to match the text ahead, as long as it succeeds. Consume the matched text (if any). Always indicate success. E* Cardinality: Matches zero or more E. E+ Cardinality: Matches one or more E Apply expression E repeatedly to match the text ahead, as long as it succeeds. Consume the matched text (if any) and indicate success if there was at least one match. Otherwise indicate failure. E{m} Cardinality: Matches m repetitions of E. B{3}, which is a shorthand for BBB. B{E} means, accept any number of B up until E comes. Consume E too, but don't yield it. So, such expression accepts: BE, BBE, BBBE, BBBBE, etc, and yields B, BB, BBB, BBBB, etc. E{m,n} Cardinality: Matches from m to n repetitions of E. B{1,3} means B 1 to 3 times, so it accepts B, BB, and BBB. [A-Za-z]+ Cardinality: EXAMPLE: Matches one or more alphabetical characters. $ Anchor: Matches at the end of the input. No character is consumed. Same as !. . !. = $ Anchor: Matches at the end of the input. No character is consumed. Same as $ ^ Anchor: Matches at the start of the input. No character is consumed. &E And predicate: Indicate success if expression E matches the text ahead; otherwise indicate failure. Do not consume any text. !E Not predicate: Indicate failure if expression E matches the text ahead; otherwise indicate success. Do not consume any text. [s] Character class: If the character ahead appears in the string s , consume it and indicate success. Otherwise indicate failure. [a-b] Character range: If the character ahead is one from the range a through b , consume it and indicate success. Otherwise indicate failure. 's' String: If the text ahead is the string s , consume it and indicate success. Otherwise indicate failure. . Any character: If there is a character ahead, consume it and indicate success. Otherwise (that is, at the end of input) indicate failure. "BELOW PROBABLY NOT IN PEG" _ Any Unicode character: If there is an UTF-8 character ahead, consume it and indicate success. Otherwise indicate failure. @E Search: Shorthand for (!E .)* E . (Search loop for the pattern E .) {@} E Captured Search: Shorthand for {(!E .)*} E . (Search loop for the pattern E .) Everything until and exluding E is captured. @@ E Same as {@} E . \identifier Built-in macro for a longer expression. $i Back reference to the i th capture. i counts from 1. i's' String match ignoring case. y's' String match ignoring style. v's' Verbatim string match: Use this to override a global \i or \y modifier. i$j String match ignoring case for back reference. y$j String match ignoring style for back reference. v$j Verbatim string match for back reference.

1 0

similar issue in XTMemoryFileSystemReadingWringTest
by gettimothy 05 Jan '21

05 Jan '21

setUp fileSystem := FileSystem memory. file := fileSystem workingDirectory / (self class name , '-' , testSelector). super setUp.

1 0

XTreams XTFileSystemReadingWritingTest >> setUp fails due to FileSystem change (?)
by gettimothy 05 Jan '21

05 Jan '21

Hi Folks, /home/wm/usr/src/smalltalk/squeak6.0alpha/shared/Squeak6.0alpha-19802-64bit.image Squeak6.0alpha latest update: #19885 Current Change Set: WikitextParser Image format 68021 (64 bit) XTFileSystemReadingWritingTest >> setup file := FileSystem workingDirectory / (self class name , '-' , testSelector). super setUp. DNU on that "workingDirectory" send. Browsing via monticello, all my local are in sync with the repo. Ideas on how to patch this correctly much appreciated.

1 0

The Trunk: PreferenceBrowser-mt.109.mcz
by commits＠source.squeak.org 04 Jan '21

04 Jan '21

Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-mt.109.mcz ==================== Summary ==================== Name: PreferenceBrowser-mt.109 Author: mt Time: 4 January 2021, 1:15:55.86444 pm UUID: 42f005a2-2686-4bda-8d58-486b6881ae54 Ancestors: PreferenceBrowser-mt.108 Speed up preference wizard open about 10x =============== Diff against PreferenceBrowser-mt.108 =============== Item was changed: ----- Method: PreferenceWizardMorph>>initialize (in category 'initialization') ----- initialize super initialize. isFullScreen := false. self hasLowPerformance ifTrue: [self color: self defaultColor] ifFalse: [self color: (self defaultColor alpha: 0.75)]. self setProperty: #indicateKeyboardFocus toValue: #never. - Preferences enable: #systemWindowEmbedOK. - - titleMorph := ('Welcome to Squeak' translated asText - addAttribute: (TextColor color: self defaultTextColor); - addAttribute: (TextFontReference toFont: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 20)); - yourself) asMorph lock. - titleMorph margins: (10@0 corner: 10@10). - titleMorph layoutFrame: (LayoutFrame fractions: (0 @ 0 corner: 1 @ 0) offsets: (0@ 0 corner: 0 @ titleMorph height)). - self - initializePages; - initializeButtons; - initializeControlMorph; - initializePreviewWorld; - initializeForLowPerformance. - - self changeProportionalLayout; layoutInset: 20; cellGap: 10; + cellPositioning: #center. + - cellPositioning: #center; - addAllMorphs: {titleMorph. buttonRowMorph. controlMorph. previewWorld. startButton. skipButton. lowPerformanceMorph}. - self addKeyboardCaptureFilter: self.! Item was changed: + ----- Method: PreferenceWizardMorph>>initializeButtons (in category 'initialization - playfield') ----- - ----- Method: PreferenceWizardMorph>>initializeButtons (in category 'initialization') ----- initializeButtons buttonRowMorph := Morph new color: Color transparent; changeTableLayout; listDirection: #leftToRight; cellGap: 10; layoutInset: (0@20 corner: 0@0); vResizing: #shrinkWrap; hResizing: #spaceFill; yourself. buttonRowMorph addAllMorphs: { previousButton := self createButton action: #previous; label: 'Previous' translated. pagesLabel := (self createLabel: '0 / 0') hResizing: #shrinkWrap; margins: (20@0 corner: 20@0); fullBounds; yourself. nextButton := self createButton action: #next; label: 'Next' translated. self createHorizontalSpacer. self createButton action: #accept; label: 'Done' translated}. - buttonRowMorph fullBounds. + buttonRowMorph layoutFrame: (LayoutFrame fractions: (0 @ 1 corner: 1 @ 1) offsets: (0@ buttonRowMorph height negated corner: 0 @ 0)).! - buttonRowMorph layoutFrame: (LayoutFrame fractions: (0 @ 1 corner: 1 @ 1) offsets: (0@ buttonRowMorph height negated corner: 0 @ 0)). - - - - startButton := (self createButton action: #showPlayfield; label: 'Configure' translated). - skipButton := (self createButton action: #showSqueak; label: 'Skip' translated). - - (startButton width max: skipButton width) in: [:w | - startButton hResizing: #rigid; width: w. - skipButton hResizing: #rigid; width: w. - - startButton layoutFrame: (LayoutFrame fractions: (0.5 @ 0.6 corner: 0.5 @ 0.6) offsets: (2*w negated @ 0 corner: 0 @ 0)). - skipButton layoutFrame: (LayoutFrame fractions: (0.5 @ 0.6 corner: 0.5 @ 0.6) offsets: (0@ 0 corner: 2*w @ 0))].! Item was changed: + ----- Method: PreferenceWizardMorph>>initializeControlMorph (in category 'initialization - playfield') ----- - ----- Method: PreferenceWizardMorph>>initializeControlMorph (in category 'initialization') ----- initializeControlMorph controlMorph := Morph new color: Color transparent; changeTableLayout; listDirection: #topToBottom; hResizing: #spaceFill; vResizing: #spaceFill; layoutInset: (0@0 corner: 10@0); layoutFrame: (LayoutFrame fractions: (0.0 @ 0 corner: 0.3 @ 1.0) offsets: (0@ titleMorph height corner: 0 @ buttonRowMorph height negated)); yourself. controlMorph addMorph: (self createLabel: 'Please take a few minutes and configure the look-and-feel of the environment. You can always adjust these settings later. You can see the effects of these settings in the live and editable windows to the right.' translated).! Item was removed: - ----- Method: PreferenceWizardMorph>>initializeForLowPerformance (in category 'initialization') ----- - initializeForLowPerformance - - lowPerformanceMorph := TextMorph new lock.! Item was changed: + ----- Method: PreferenceWizardMorph>>initializePages (in category 'initialization - playfield') ----- - ----- Method: PreferenceWizardMorph>>initializePages (in category 'initialization') ----- initializePages pages := OrderedCollection new. currentPageIndex := 0. self initializePage01Themes; initializePage02Visuals; initializePage02bVisualsMore; initializePage03Interaction; initializePage04InteractionMore; initializePage05Tools.! Item was added: + ----- Method: PreferenceWizardMorph>>initializePlayfield (in category 'initialization') ----- + initializePlayfield + + self + initializePages; + initializeButtons; + initializeControlMorph; + initializePreviewWorld. + + self + addAllMorphs: {titleMorph. buttonRowMorph. controlMorph. previewWorld. startButton. skipButton. lowPerformanceMorph}.! Item was changed: + ----- Method: PreferenceWizardMorph>>initializePreviewWorld (in category 'initialization - playfield') ----- - ----- Method: PreferenceWizardMorph>>initializePreviewWorld (in category 'initialization') ----- initializePreviewWorld | w1 w2 w3 | + Preferences enable: #systemWindowEmbedOK. previewWorld := PasteUpMorph new hResizing: #spaceFill; vResizing: #spaceFill; viewBox: (0@0 corner: 500@500); layoutFrame: (LayoutFrame fractions: (0.3 @ 0 corner: 1.0 @ 1.0) offsets: (0@ titleMorph height corner: 0 @ buttonRowMorph height negated)); fillStyle: Project current world fillStyle; borderWidth: 2; borderColor: Color white; cornerStyle: (self hasLowPerformance ifTrue: [#square] ifFalse: [#rounded]); yourself. w1 := (ToolSet browse: Morph selector: #drawOn:) dependents detect: [:ea | ea isSystemWindow]. w2 := ToolSet browseMessageSet: (SystemNavigation default allCallsOn: #negated) name: 'Senders' translated autoSelect: 'negated'. w3 := (Workspace new contents: '3+4 "Select and hit [CMD]+[P]."') openLabel: 'Workspace'. {w1. w2. w3} do: [:ea | ea makeUnclosable. previewWorld addMorph: ea]. self updateWindowBounds.! Item was added: + ----- Method: PreferenceWizardMorph>>initializeWelcome (in category 'initialization') ----- + initializeWelcome + + titleMorph := ('Welcome to Squeak' translated asText + addAttribute: (TextColor color: self defaultTextColor); + addAttribute: (TextFontReference toFont: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 20)); + yourself) asMorph lock. + titleMorph margins: (10@0 corner: 10@10). + titleMorph layoutFrame: (LayoutFrame fractions: (0 @ 0 corner: 1 @ 0) offsets: (0@ 0 corner: 0 @ titleMorph height)). + + startButton := (self createButton action: #showPlayfield; label: 'Configure' translated). + skipButton := (self createButton action: #showSqueak; label: 'Skip' translated). + + (startButton width max: skipButton width) in: [:w | + startButton hResizing: #rigid; width: w. + skipButton hResizing: #rigid; width: w. + + startButton layoutFrame: (LayoutFrame fractions: (0.5 @ 0.6 corner: 0.5 @ 0.6) offsets: (2*w negated @ 0 corner: 0 @ 0)). + skipButton layoutFrame: (LayoutFrame fractions: (0.5 @ 0.6 corner: 0.5 @ 0.6) offsets: (0@ 0 corner: 2*w @ 0))]. + + lowPerformanceMorph := TextMorph new lock. + + self addAllMorphs: {titleMorph. startButton. skipButton. lowPerformanceMorph}.! Item was changed: ----- Method: PreferenceWizardMorph>>isInPlayfield (in category 'testing') ----- isInPlayfield + ^ previewWorld notNil and: [previewWorld visible]! - ^ previewWorld visible! Item was changed: ----- Method: PreferenceWizardMorph>>showPlayfield (in category 'actions') ----- showPlayfield + previewWorld ifNil: [self initializePlayfield]. + startButton hide. skipButton hide. lowPerformanceMorph hide. isFullScreen := true. self step. titleMorph layoutFrame: (LayoutFrame fractions: (0 @ 0 corner: 1 @ 0) offsets: (0@ 0 corner: 0 @ titleMorph height)). self refreshWorld. 500 milliSeconds wait. controlMorph show. previewWorld show. buttonRowMorph show. self next. self refreshWorld. ! Item was changed: ----- Method: PreferenceWizardMorph>>showWelcome (in category 'actions') ----- showWelcome + self isInPlayfield ifTrue: [^ self "Not possible to go back due to fast-init strategy."]. + titleMorph ifNil: [self initializeWelcome]. + titleMorph layoutFrame: (LayoutFrame fractions: (0 @ 0 corner: 1 @ 0.65) offsets: (0 @0 corner: 0@0)). isFullScreen := false. self height: titleMorph fullBounds height * 4. - controlMorph hide. - previewWorld hide. - buttonRowMorph hide. - - titleMorph show. - startButton show. - skipButton show. self hasLowPerformance ifFalse: [lowPerformanceMorph hide] ifTrue: [lowPerformanceMorph show]. self hasLowPerformance ifTrue: [Cursor wait showWhile: [self adjustSettingsForLowPerformance]]. self refreshWorld. ! Item was changed: ----- Method: PreferenceWizardMorph>>updateWindowBounds (in category 'layout') ----- updateWindowBounds | windows offset margin extentToUse pointsToUse | isFullScreen == false ifTrue: [^ self]. + previewWorld ifNil: [^ self]. self fullBounds. margin := 20@20. extentToUse := (previewWorld extent - (margin * 2)) // 3 * (1.8 @ 1.5). pointsToUse := { previewWorld center - (previewWorld extent // (5.5 @ 4.5)). previewWorld center + (previewWorld width // 5.5 @ 0). previewWorld center + (0 @ (previewWorld width // 5))}. windows := previewWorld submorphs. offset := 50@50. windows reversed withIndexDo: [:ea :i | ea extent: extentToUse; center: (pointsToUse atWrap: i). offset := offset + (50@50)].!

3 2

Sound mixing makes nasty noises
by tim Rowledge 04 Jan '21

04 Jan '21

I've discovered that playing two or more sounds simultaneously can make truly appalling noises. I'm hoping somebody has a good solution. The problem started with playing a sound and using the pianokeyboardmorph at the same time. Ouch! Also, swizzling the mouse across the keyboard causes occasional quite audible 'scratchy-clicks' somehow. There can also be a quite noticeable sound between notes, not easily describable but sort of a 'dull thump'. I thought it was some issue with how the sound was played, maybe the note-end process as each piano key was released and the next pressed, timing issues.. but none of that had very much effect. The AbstractSound>>#stopGracefully method does seem to have a small bug, in that the decayInMs value surely ought not be the sum of the attack & decay times from the envelope? But carefully fudging the note shutdown to be faster didn't help a lot. After too much messing around I discovered that at least some of the problem is the mixing of sounds. Now, I know we did a small change to MixedSound>>#add:pan:volume: since 5.3, and that we made a small change to the SampledSound>>#mixSampleCount:into:startingAt:leftVol:rightVol: primitive. However, I'm running on a VM that has the prim change, and I've ported across the add:pan... change, with no real difference. This is, of course, on a Pi, but the same issue is audible on my iMac as well. Eventually I cottoned on to the fact that I was mixing two sounds with volumes set to 100%. Changing to 50% for both actually results in a perfectly fine end result - Yay! This doesn't seem like a robust solution though. What if I have four sounds playing each set to 40%? Why does it seem to work perfectly well for AbstractSound>>#stereoBachFugue play, which uses four? To make life even more fun, it doesn't seem like there is any volume control once a sound is playing. The AbstractSound>>#adjustVolumeTo:overMSecs: method appears to be the one to use but it has no audible effect. There is also #loudness: which does work, but produces pretty much exactly the glitch I hear from glissandoing(?) the keyboard. So - some workspace code to illustrate "awful noise when mixing" |snd| snd := FMSound organ1. snd setPitch: 440 dur: 10 loudness: 0.9; play. 1 second wait. FMSound brass1 setPitch: 470 dur:2 loudness: 0.9; play. 1 second wait. snd stopGracefully "OK, because both sound defualt to quieter" |snd | snd := FMSound organ1. snd duration: 5; play. 1 second wait. FMSound brass1 play. 1 second wait. snd stopGracefully. "nasty glitch using #loudness: plus mixing graunch" |snd | snd := FMSound organ1. snd duration: 5; play. 1 second wait. snd loudness: 1.0 . 1 second wait. FMSound brass1 play. 1 second wait. snd stopGracefully. "no effect from adjustVol..." |snd | snd := FMSound organ1. snd duration: 5; play. 1 second wait. snd adjustVolumeTo: 1.0 overMSecs: 500. 1 second wait. FMSound brass1 play. 1 second wait. snd stopGracefully. Aargh! tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim A computer program does what you tell it to do, not what you want it to do.

8 57

The Trunk: PreferenceBrowser-mt.110.mcz
by commits＠source.squeak.org 04 Jan '21

04 Jan '21

Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-mt.110.mcz ==================== Summary ==================== Name: PreferenceBrowser-mt.110 Author: mt Time: 4 January 2021, 1:30:47.80744 pm UUID: c536a6cc-a1e2-4634-bebc-7e27aa40b27b Ancestors: PreferenceBrowser-mt.109 Fixes minor slip in wizard's last update. Sorry for the noise. =============== Diff against PreferenceBrowser-mt.109 =============== Item was changed: ----- Method: PreferenceWizardMorph>>adjustSettingsForLowPerformance (in category 'support') ----- adjustSettingsForLowPerformance self updateLowPerformanceLabel: 'Please wait, optimizing performance...' translated. self refreshWorld. self stateGradients "flat look" ifFalse: [self toggleGradients]. self stateBlinkingCursor ifTrue: [self toggleBlinkingCursor]. self stateFastDrag ifFalse: [self toggleFastDrag]. self stateSoftShadows ifTrue: [self toggleSoftShadows]. self stateHardShadows ifTrue: [self toggleHardShadows]. self stateRoundedWindowLook ifTrue: [self toggleRoundedWindowLook]. self stateRoundedButtonLook ifTrue: [self toggleRoundedButtonLook]. self stateAttachToolsToMouse ifTrue: [self toggleAttachToolsToMouse]. self stateToolAndMenuIcons ifTrue: [self toggleToolAndMenuIcons]. self stateSmartHorizontalSplitters ifTrue: [self toggleSmartHorizontalSplitters]. self stateSmartVerticalSplitters ifTrue: [self toggleSmartVerticalSplitters]. PluggableListMorph highlightHoveredRow: false; filterableLists: false; highlightPreSelection: true; "Feedback is important!!" flashOnErrors: false. TheWorldMainDockingBar showSecondsInClock: false. Preferences disable: #balloonHelpInMessageLists. "Set simple background." + self currentWorld setAsBackground: MorphicProject defaultFill. - Project current world setAsBackground: MorphicProject defaultFill. - previewWorld fillStyle: Project current world fillStyle. "Done." self updateLowPerformanceLabel: 'Settings were adjusted for optimal performance.' translated.!

1 0

Jump to page: