<div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000"><div><img src="cid:5fd9defb-ca0a-411a-84b8-fdf16abe62de" width="auto" style="font-size: 13.3333px;width: 564px;height: 423px"></img></div><div><br></div><div><img src="cid:fad9c5a9-4dca-4691-ab52-b7ab52acd0ad" width="auto" style="width: 563px; height: 421px;"></img></div><div><br></div>
<img src="cid:a4231b0f-41c7-48f6-b5a5-a929df3bf8fc" width="auto" style="width: 565px; height: 422px;"></img><div><br><div class="mb_sig"></div>
<div><img src="cid:660bbc21-b94a-4520-9fbb-6ce5897b0455" width="auto" style="width: 564px; height: 292px;"></img></div></div><blockquote class="history_container" type="cite" style="border-left-style: solid;border-width: 1px;margin-top: 20px;margin-left: 0px;padding-left: 10px;min-width: 500px">
<p style="color: #AAAAAA; margin-top: 10px;">Am 12.09.2019 16:25:15 schrieb commits@source.squeak.org <commits@source.squeak.org>:</p><div style="font-family:Arial,Helvetica,sans-serif">Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk:<br>http://source.squeak.org/trunk/PreferenceBrowser-mt.92.mcz<br><br>==================== Summary ====================<br><br>Name: PreferenceBrowser-mt.92<br>Author: mt<br>Time: 12 September 2019, 4:25:05.125077 pm<br>UUID: 7ec5722c-bc3b-1c4b-8749-d0bbc537e2d5<br>Ancestors: PreferenceBrowser-mt.91<br><br>Preference wizard<br>- adds scroll bars (just in case)<br>- adds option to install common packages<br>- checks for internet connection<br><br>=============== Diff against PreferenceBrowser-mt.91 ===============<br><br>Item was changed:<br> ----- Method: PreferenceWizardMorph>>accept (in category 'actions') -----<br> accept<br> <br>+ self showInstallPage.!<br>- self showSqueak.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>adjustSettingsForLowPerformance (in category 'support') -----<br>- ----- Method: PreferenceWizardMorph>>adjustSettingsForLowPerformance (in category 'actions') -----<br> adjustSettingsForLowPerformance<br> <br> self updateLowPerformanceLabel: 'Please wait, optimizing performance...' translated.<br> self refreshWorld.<br> <br> self stateGradients "flat look" ifFalse: [self toggleGradients].<br> self stateBlinkingCursor ifTrue: [self toggleBlinkingCursor].<br> self stateFastDrag ifFalse: [self toggleFastDrag].<br> <br> self stateSoftShadows ifTrue: [self toggleSoftShadows].<br> self stateHardShadows ifTrue: [self toggleHardShadows].<br> <br> self stateRoundedWindowLook ifTrue: [self toggleRoundedWindowLook].<br> self stateRoundedButtonLook ifTrue: [self toggleRoundedButtonLook].<br> <br> self stateAttachToolsToMouse ifTrue: [self toggleAttachToolsToMouse].<br> self stateToolAndMenuIcons ifTrue: [self toggleToolAndMenuIcons].<br> <br> self stateSmartHorizontalSplitters ifTrue: [self toggleSmartHorizontalSplitters].<br> self stateSmartVerticalSplitters ifTrue: [self toggleSmartVerticalSplitters].<br> <br> PluggableListMorph highlightHoveredRow: false; filterableLists: false.<br> TheWorldMainDockingBar showSecondsInClock: false.<br> Preferences disable: #balloonHelpInMessageLists.<br> <br> <br> "Set simple background."<br> ActiveWorld setAsBackground: MorphicProject defaultFill.<br> previewWorld fillStyle: ActiveWorld fillStyle.<br> <br> "Done."<br> self updateLowPerformanceLabel: 'Settings were adjusted for optimal performance.' translated.<br> !<br><br>Item was added:<br>+ ----- Method: PreferenceWizardMorph>>checkInternetOn: (in category 'updating') -----<br>+ checkInternetOn: button<br>+ <br>+ self isInWorld ifFalse: [^ self].<br>+ (self hasProperty: #checkInternet) ifFalse: [^ self].<br>+ <br>+ self hasInternetConnection<br>+ ifTrue: [button enabled: true; label: 'Yes, install selected packages.' translated]<br>+ ifFalse: [button enabled: false; label: 'Please check your internet connection...' translated].<br>+ <br>+ (self future: 1000) checkInternetOn: button.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>chooseTheme: (in category 'support') -----<br>- ----- Method: PreferenceWizardMorph>>chooseTheme: (in category 'actions') -----<br> chooseTheme: aTheme<br> <br> aTheme apply.<br> <br> "The theme does not theme this fake world."<br>+ previewWorld fillStyle: self world fillStyle.!<br>- previewWorld fillStyle: ActiveWorld fillStyle.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>createButton (in category 'initialization - building') -----<br>- ----- Method: PreferenceWizardMorph>>createButton (in category 'initialization') -----<br> createButton<br> <br> ^ PluggableButtonMorphPlus new<br> setProperty: #noUserInterfaceTheme toValue: true;<br> offColor: (self defaultColor adjustBrightness: 0.2);<br> feedbackColor: (self defaultColor adjustBrightness: 0.4);<br> model: self;<br> font: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 12);<br> textColor: self defaultTextColor;<br> borderColor: self defaultTextColor;<br> instVarNamed: #borderColor put: self defaultTextColor; "HACK!!"<br> borderWidth: 2;<br> cornerStyle: (self hasLowPerformance ifTrue: [#square] ifFalse: [#rounded]);<br> vResizing: #shrinkWrap;<br> hResizing: #shrinkWrap;<br> layoutInset: (20@10 corner: 20@10);<br> yourself!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>createCheckbox:for: (in category 'initialization - building') -----<br>- ----- Method: PreferenceWizardMorph>>createCheckbox:for: (in category 'initialization') -----<br> createCheckbox: label for: selector<br> <br> ^ self<br> createCheckbox: label<br> for: selector<br> help: #()!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>createCheckbox:for:help: (in category 'initialization - building') -----<br>- ----- Method: PreferenceWizardMorph>>createCheckbox:for:help: (in category 'initialization') -----<br> createCheckbox: label for: selector help: terms<br> <br> | box lbl btn |<br> <br> btn := self createButton<br> layoutInset: 0;<br> label: ' ';<br> onColor: (self defaultColor adjustBrightness: 0.3) offColor: (self defaultColor adjustBrightness: 0.3);<br> vResizing: #rigid;<br> hResizing: #rigid;<br> action: ('toggle', selector) asSymbol;<br> getStateSelector: ('state', selector) asSymbol;<br> getLabelSelector: ('label', selector) asSymbol;<br> extent: 25@25.<br> <br> lbl := self createLabel: label color: self defaultTextColor.<br>+ lbl hResizing: #spaceFill.<br> <br> box := Morph new<br> color: Color transparent;<br> changeTableLayout;<br> listDirection: #leftToRight;<br> cellPositioning: #topLeft;<br> hResizing: #spaceFill;<br> vResizing: #shrinkWrap;<br>+ rubberBandCells: true;<br> cellGap: 10;<br> yourself.<br> <br> box addAllMorphs: {btn. lbl}.<br> self<br> setBalloonText: (terms isString ifTrue: [terms] ifFalse: [self findHelpStringFor: terms])<br> for: box.<br> ^ box!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>createHorizontalSpacer (in category 'initialization - building') -----<br>- ----- Method: PreferenceWizardMorph>>createHorizontalSpacer (in category 'initialization') -----<br> createHorizontalSpacer<br> <br> ^ Morph new<br> color: Color transparent;<br> hResizing: #spaceFill;<br> extent: 5@5;<br> yourself!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>createLabel: (in category 'initialization - building') -----<br>- ----- Method: PreferenceWizardMorph>>createLabel: (in category 'initialization') -----<br> createLabel: aString<br> <br> ^ self createLabel: aString color: (self defaultTextColor adjustBrightness: -0.1)!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>createLabel:color: (in category 'initialization - building') -----<br>- ----- Method: PreferenceWizardMorph>>createLabel:color: (in category 'initialization') -----<br> createLabel: aString color: aColor<br> <br> ^ self createLabel: aString color: aColor pointSize: 12!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>createLabel:color:pointSize: (in category 'initialization - building') -----<br>- ----- Method: PreferenceWizardMorph>>createLabel:color:pointSize: (in category 'initialization') -----<br> createLabel: aString color: aColor pointSize: size<br> <br> | lbl |<br> lbl := TextMorph new hResizing: #spaceFill; vResizing: #shrinkWrap.<br> lbl newContents:aString.<br> lbl text<br> addAttribute: (TextColor color: aColor);<br> addAttribute: (TextFontReference toFont: ((StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: size))).<br> lbl lock.<br> ^ lbl!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>createPage (in category 'initialization - building') -----<br>- ----- Method: PreferenceWizardMorph>>createPage (in category 'initialization') -----<br> createPage<br> <br> ^ Morph new<br> color: Color transparent;<br> hResizing: #spaceFill;<br> vResizing: #spaceFill;<br> changeTableLayout;<br> listDirection: #topToBottom;<br> cellPositioning: #topLeft;<br>+ layoutInset: (20@20 corner: 10@0);<br>- layoutInset: 20;<br> cellGap: 10;<br> yourself!<br><br>Item was added:<br>+ ----- Method: PreferenceWizardMorph>>createScrollPane (in category 'initialization - building') -----<br>+ createScrollPane<br>+ <br>+ | pane |<br>+ pane := ScrollPane new<br>+ setProperty: #noUserInterfaceTheme toValue: true;<br>+ hScrollBarPolicy: #never;<br>+ vScrollBarPolicy: #whenNeeded;<br>+ borderWidth: 0;<br>+ color: Color transparent;<br>+ scrollBarThickness: 20;<br>+ yourself.<br>+ <br>+ pane<br>+ hResizing: #spaceFill;<br>+ vResizing: #spaceFill.<br>+ <br>+ pane scroller changeTableLayout.<br>+ pane scroller addMorph: (Morph new<br>+ changeTableLayout;<br>+ color: Color transparent;<br>+ hResizing: #spaceFill;<br>+ vResizing: #shrinkWrap;<br>+ cellGap: 10;<br>+ layoutInset: (0@0 corner: 10@0);<br>+ yourself).<br>+ <br>+ pane vScrollBar<br>+ setProperty: #noUserInterfaceTheme toValue: true;<br>+ sliderColor: Color white.<br>+ (pane vScrollBar instVarNamed: #slider) <br>+ cornerStyle: (self hasLowPerformance ifTrue: [#square] ifFalse: [#rounded]);<br>+ borderWidth: 2.<br>+ (pane vScrollBar instVarNamed: #pagingArea) <br>+ cornerStyle: (self hasLowPerformance ifTrue: [#square] ifFalse: [#rounded]). <br>+ <br>+ ^ pane!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>createVerticalSpace (in category 'initialization - building') -----<br>- ----- Method: PreferenceWizardMorph>>createVerticalSpace (in category 'initialization') -----<br> createVerticalSpace<br> <br> ^ Morph new<br> color: Color transparent;<br> vResizing: #rigid;<br> extent: 5@5;<br> yourself!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>createVerticalSpacer (in category 'initialization - building') -----<br>- ----- Method: PreferenceWizardMorph>>createVerticalSpacer (in category 'initialization') -----<br> createVerticalSpacer<br> <br> ^ Morph new<br> color: Color transparent;<br> vResizing: #spaceFill;<br> extent: 5@5;<br> yourself!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>doesNotUnderstand: (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>doesNotUnderstand: (in category 'buttons') -----<br> doesNotUnderstand: msg<br> <br> (msg selector numArgs = 0 and: [msg selector beginsWith: 'label'])<br> ifTrue: [^ (self perform: ('state', (msg selector allButFirst: 5)) asSymbol)<br> ifTrue: [self checkmark]<br> ifFalse: [' '] ].<br> <br> ^ super doesNotUnderstand: msg!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>findHelpStringFor: (in category 'support') -----<br>- ----- Method: PreferenceWizardMorph>>findHelpStringFor: (in category 'initialization') -----<br> findHelpStringFor: someTerms<br> <br> someTerms ifEmpty: [^ ''].<br> <br> ^ Preferences allPreferences<br> detect:[:pref | someTerms allSatisfy: [:term| pref name includesSubstring: term caseSensitive: false]]<br> ifFound: [:pref | (pref helpString lines joinSeparatedBy: ' ') withBlanksTrimmed]<br> ifNone: ['']!<br><br>Item was added:<br>+ ----- Method: PreferenceWizardMorph>>hasInternetConnection (in category 'testing') -----<br>+ hasInternetConnection<br>+ <br>+ ^ [TestCase new ensureSecureInternetConnection. true]<br>+ on: Error do: [false]!<br><br>Item was changed:<br> ----- Method: PreferenceWizardMorph>>initialize (in category 'initialization') -----<br> initialize<br> <br> super initialize.<br> <br> isFullScreen := false.<br> <br> self hasLowPerformance<br> ifTrue: [self color: self defaultColor]<br> ifFalse: [self color: (self defaultColor alpha: 0.75)].<br> <br> self setProperty: #indicateKeyboardFocus toValue: #never.<br> <br> Preferences enable: #systemWindowEmbedOK.<br> <br> titleMorph := ('Welcome to Squeak' translated asText<br> addAttribute: (TextColor color: self defaultTextColor);<br> addAttribute: (TextFontReference toFont: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 20));<br> yourself) asMorph lock.<br> titleMorph margins: (10@0 corner: 10@10).<br> titleMorph layoutFrame: (LayoutFrame fractions: (0 @ 0 corner: 1 @ 0) offsets: (0@ 0 corner: 0 @ titleMorph height)).<br> <br> self<br> initializePages;<br> initializeButtons;<br> initializeControlMorph;<br> initializePreviewWorld;<br> initializeForLowPerformance.<br> <br> self<br> changeProportionalLayout;<br> layoutInset: 20;<br> cellGap: 10;<br> cellPositioning: #center;<br> addAllMorphs: {titleMorph. buttonRowMorph. controlMorph. previewWorld. startButton. skipButton. lowPerformanceMorph}.<br> <br> self addKeyboardCaptureFilter: self.!<br><br>Item was changed:<br> ----- Method: PreferenceWizardMorph>>initializeButtons (in category 'initialization') -----<br> initializeButtons<br> <br> buttonRowMorph := Morph new<br> color: Color transparent;<br> changeTableLayout;<br> listDirection: #leftToRight;<br> cellGap: 10;<br> layoutInset: (0@20 corner: 0@0);<br> vResizing: #shrinkWrap;<br> hResizing: #spaceFill;<br> yourself.<br> <br> buttonRowMorph addAllMorphs: {<br> previousButton := self createButton action: #previous; label: 'Previous' translated.<br> pagesLabel := (self createLabel: '0 / 0') hResizing: #shrinkWrap; margins: (20@0 corner: 20@0); fullBounds; yourself.<br> nextButton := self createButton action: #next; label: 'Next' translated.<br> self createHorizontalSpacer.<br>+ self createButton action: #accept; label: 'Done' translated}.<br>- self createButton action: #showSqueak; label: 'Done' translated}.<br> <br> <br> buttonRowMorph fullBounds.<br> buttonRowMorph layoutFrame: (LayoutFrame fractions: (0 @ 1 corner: 1 @ 1) offsets: (0@ buttonRowMorph height negated corner: 0 @ 0)).<br> <br> <br> <br> startButton := (self createButton action: #showPlayfield; label: 'Configure' translated).<br> skipButton := (self createButton action: #showSqueak; label: 'Skip' translated).<br> <br> (startButton width max: skipButton width) in: [:w |<br> startButton hResizing: #rigid; width: w.<br> skipButton hResizing: #rigid; width: w.<br> <br> startButton layoutFrame: (LayoutFrame fractions: (0.5 @ 0.6 corner: 0.5 @ 0.6) offsets: (2*w negated @ 0 corner: 0 @ 0)).<br> skipButton layoutFrame: (LayoutFrame fractions: (0.5 @ 0.6 corner: 0.5 @ 0.6) offsets: (0@ 0 corner: 2*w @ 0))].!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>initializePage01Themes (in category 'initialization - pages') -----<br>- ----- Method: PreferenceWizardMorph>>initializePage01Themes (in category 'initialization') -----<br> initializePage01Themes<br> <br>+ | currentPage pane |<br>- | currentPage |<br> currentPage := pages add: self createPage.<br>+ pane := self createScrollPane.<br>+ <br> currentPage addMorphBack: (self createLabel: 'Choose a theme:' color: Color white).<br>+ currentPage addMorphBack: pane.<br>+ <br> ((UserInterfaceTheme allThemes<br> reject: [:uit | uit name beginsWith: 'Demo'])<br> sorted: [:a :b | a name <= b=""><!--=--><br> do: [:ea |<br>+ pane scroller firstSubmorph addMorphBack: (self createButton<br>- currentPage addMorphBack: (self createButton<br> label: ea name;<br> hResizing: #spaceFill;<br> action: #chooseTheme:;<br> arguments: {ea})].<br>+ <br>- currentPage addMorphBack: self createVerticalSpacer.<br> !<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>initializePage02Visuals (in category 'initialization - pages') -----<br>- ----- Method: PreferenceWizardMorph>>initializePage02Visuals (in category 'initialization') -----<br> initializePage02Visuals<br> <br>+ | currentPage pane |<br>- | currentPage |<br> currentPage := pages add: self createPage.<br>+ pane := self createScrollPane.<br>+ <br> currentPage addMorphBack: (self createLabel: 'Choose visual settings' color: Color white).<br>+ currentPage addMorphBack: pane.<br> <br>+ pane scroller firstSubmorph addAllMorphsBack: {<br>- <br>- currentPage addAllMorphsBack: {<br> self createCheckbox: 'Colorful windows' translated for: #UseColorfulWindows help: #(color window).<br> self createCheckbox: 'Flat widget look' translated for: #Gradients help: 'Whether to use gradients or not.' translated.<br> self createVerticalSpace.<br> self createCheckbox: 'Rounded windows' translated for: #RoundedWindowLook help: #(round window).<br> self createCheckbox: 'Rounded buttons' translated for: #RoundedButtonLook help: #(round button).<br> self createVerticalSpace.<br> self createCheckbox: 'Soft shadows' translated for: #SoftShadows help: #(soft shadow).<br> self createCheckbox: 'Hard shadows' translated for: #HardShadows help: 'Whether to use a hard shadow for windows, menus, and dialogs.' translated.<br> self createVerticalSpace.<br> self createCheckbox: 'Fast drag and resize' translated for: #FastDrag help: #(fast drag).<br> self createCheckbox: 'Blinking text cursor' translated for: #BlinkingCursor help: #(blinking cursor).<br> self createCheckbox: 'Show keyboard focus' translated for: #ShowKeyboardFocus help: #(keyboard indicate). <br> self createCheckbox: 'Simple edit indication' translated for: #SimpleFrameAdornments help: #(adornment simple). <br>+ }.!<br>- }.<br>- <br>- currentPage addMorphBack: self createVerticalSpacer.<br>- !<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>initializePage02bVisualsMore (in category 'initialization - pages') -----<br>- ----- Method: PreferenceWizardMorph>>initializePage02bVisualsMore (in category 'initialization') -----<br> initializePage02bVisualsMore<br> <br>+ | currentPage pane |<br>- | currentPage |<br> currentPage := pages add: self createPage.<br>+ pane := self createScrollPane.<br>+ <br> currentPage addMorphBack: (self createLabel: 'Choose more visual settings' color: Color white).<br>+ currentPage addMorphBack: pane.<br> <br>+ pane scroller firstSubmorph addAllMorphsBack: {<br>- currentPage addAllMorphsBack: {<br> self createCheckbox: 'Bigger Fonts' translated for: #UseBiggerFonts help: 'For high-DPI displays, bigger fonts can improve readability.'.<br> self createCheckbox: 'Bigger Cursors' translated for: #UseBiggerCursors help: #(bigger cursor).<br>+ }.!<br>- }.<br>- <br>- currentPage addMorphBack: self createVerticalSpacer.<br>- !<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>initializePage03Interaction (in category 'initialization - pages') -----<br>- ----- Method: PreferenceWizardMorph>>initializePage03Interaction (in category 'initialization') -----<br> initializePage03Interaction<br> <br>+ | currentPage pane |<br>- | currentPage |<br> currentPage := pages add: self createPage.<br>+ pane := self createScrollPane.<br>+ <br> currentPage addMorphBack: (self createLabel: 'Choose interaction settings' color: Color white).<br>+ currentPage addMorphBack: pane.<br> <br>+ pane scroller firstSubmorph addAllMorphsBack: {<br>- <br>- currentPage addAllMorphsBack: {<br> self createCheckbox: 'Swap mouse buttons' translated for: #SwapMouseButtons help: #(swap mouse).<br> self createCheckbox: 'Focus follows mouse' translated for: #FocusFollowsMouse help: #(mouse over keyboard).<br> self createCheckbox: 'Mouse wheel to focus' translated for: #SendMouseWheelToKeyboardFocus help: #(wheel keyboard).<br> self createVerticalSpace.<br> self createCheckbox: 'Auto enclose brackets' translated for: #AutoEnclose help: #(auto enclose).<br> self createCheckbox: 'Auto indent lines' translated for: #AutoIndent help: #(auto indent).<br> self createCheckbox: 'Enclose text selections' translated for: #EncloseSelection help: #(enclose selection).<br> self createVerticalSpace.<br> self createCheckbox: 'Arrows in scrollbar' translated for: #ScrollBarsWithoutArrowButtons help: 'Whether to show arrows for scrolling or not.' translated.<br> self createCheckbox: 'Menu in scrollbar' translated for: #ScrollBarsWithoutMenuButton help: 'Whether to show a menu button or not.' translated.<br> self createCheckbox: 'Scrollbars on the right' translated for: #ScrollBarsOnRight help: #(right scroll).<br> self createCheckbox: 'Retractable scrollbars' translated for: #UseRetractableScrollBars help: #(retractable).<br> self createCheckbox: 'Narrow scrollbars' translated for: #ScrollBarsNarrow help: #(narrow scroll).<br> <br>+ }.!<br>- }.<br>- <br>- currentPage addMorphBack: self createVerticalSpacer.<br>- !<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>initializePage04InteractionMore (in category 'initialization - pages') -----<br>- ----- Method: PreferenceWizardMorph>>initializePage04InteractionMore (in category 'initialization') -----<br> initializePage04InteractionMore<br> <br>+ | currentPage pane |<br>- | currentPage |<br> currentPage := pages add: self createPage.<br>+ pane := self createScrollPane.<br>+ <br> currentPage addMorphBack: (self createLabel: 'Choose more interaction settings' color: Color white).<br>+ currentPage addMorphBack: pane.<br> <br>+ pane scroller firstSubmorph addAllMorphsBack: {<br>- <br>- currentPage addAllMorphsBack: {<br> self createCheckbox: 'Windows raise on click' translated for: #WindowsRaiseOnClick help: #(window raise).<br> self createCheckbox: 'Windows always active' for: #WindowsAlwaysActive help: #(window content active).<br> self createCheckbox: 'Window buttons always active' translated for: #WindowButtonsAlwaysActive help: #(window control active).<br> self createVerticalSpace.<br> self createCheckbox: 'Smart horizontal splitters' translated for: #SmartHorizontalSplitters help: #(horizontal splitter).<br> self createCheckbox: 'Smart vertical splitters' translated for: #SmartVerticalSplitters help: #(vertical splitter).<br> self createVerticalSpace.<br> self createCheckbox: 'Filterable lists and trees' translated for: #FilterableLists help: #(filterable).<br> self createCheckbox: 'Filters clear if unfocused' translated for: #ClearFilterAutomatically help: #(filter clear).<br> self createVerticalSpace.<br> self createCheckbox: 'Attach tools to mouse' translated for: #AttachToolsToMouse help: #(tools attach). <br>+ }.!<br>- }.<br>- <br>- currentPage addMorphBack: self createVerticalSpacer.<br>- !<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>initializePage05Tools (in category 'initialization - pages') -----<br>- ----- Method: PreferenceWizardMorph>>initializePage05Tools (in category 'initialization') -----<br> initializePage05Tools<br> <br>+ | currentPage pane |<br>- | currentPage |<br> currentPage := pages add: self createPage.<br>+ pane := self createScrollPane.<br>+ <br> currentPage addMorphBack: (self createLabel: 'Choose other settings' color: Color white).<br>+ currentPage addMorphBack: pane.<br> <br>+ pane scroller firstSubmorph addAllMorphsBack: {<br>- <br>- currentPage addAllMorphsBack: {<br> self createCheckbox: 'Trace messages browser' translated for: #TraceMessages help: #(trace message).<br> self createCheckbox: 'Reuse tool windows' translated for: #ReuseWindows help: #(window reuse).<br> self createCheckbox: 'Tool and menu icons' translated for: #ToolAndMenuIcons help: 'Whether to show icons in tools and menus.' translated.<br> self createCheckbox: 'Browse class hierarchy' translated for: #AlternativeBrowseIt help: 'Whether to spawn a hierarchy browser or full system browser on browse-it commands.' translated.<br> }.<br>- <br>- currentPage addMorphBack: self createVerticalSpacer.<br> !<br><br>Item was added:<br>+ ----- Method: PreferenceWizardMorph>>initializePage99ExtraPackages (in category 'initialization - pages') -----<br>+ initializePage99ExtraPackages<br>+ "Let the user install extra packages."<br>+ <br>+ | currentPage packagesList installButton |<br>+ currentPage := self createPage.<br>+ currentPage<br>+ cellPositioning: #topCenter;<br>+ layoutInset: (150@40 corner: 150@20);<br>+ addMorphBack: self createHorizontalSpacer;<br>+ addMorphBack: ((self createLabel: 'Do you want to install extra packages?' color: Color white)<br>+ hResizing: #shrinkWrap;<br>+ yourself);<br>+ addMorphBack: ((self createLabel: 'Note that the installation process requires an internet connection and may take several minutes.' color: (Color gray: 0.9))<br>+ hResizing: #rigid;<br>+ vResizing: #shrinkWrap;<br>+ width: 450;<br>+ yourself).<br>+ <br>+ currentPage submorphs last text addAttribute: TextAlignment centered.<br>+ currentPage submorphs last layoutChanged.<br>+ <br>+ currentPage addMorphBack: (self createVerticalSpace height: 20).<br>+ <br>+ packagesList := self createScrollPane.<br>+ packagesList<br>+ width: 350;<br>+ hResizing: #rigid;<br>+ vResizing: #spaceFill.<br>+ <br>+ packagesList scroller firstSubmorph addAllMorphsBack: {<br>+ self createCheckbox: 'Latest system updates' translated for: #InstallLatestUpdates help: 'Install the latest patches for ' translated, SystemVersion current version.<br>+ self createCheckbox: 'Refactoring support in code browsers' translated for: #InstallRefactoringTools help: 'Refactoring is a process of re-writing or re-organizing text or code. The purpose of a refactor is to make the code or text more understandable and readable while exactly preserving its meaning and behavior.' translated.<br>+ self createCheckbox: 'Autocomplete in code editors' translated for: #InstallAutoComplete help: 'Package that provides interactive, context-sensitive auto-completion for Squeak.' translated.<br>+ self createCheckbox: 'Git support and browser' translated for: #InstallGitInfrastructure help: 'From the Git Browser, you can create new commits, synchronize with remote repositories (fetch, pull, push), manage and merge branches, switch between them, and compare different versions.' translated.<br>+ self createCheckbox: 'Foreign function interface (FFI)' translated for: #InstallFFI help: 'FFI, the Squeak Foreign Function Interface, is used to call functions located in shared libraries that are not part of the Squeak VM nor its plugins' translated.<br>+ self createCheckbox: 'Access OS functions' translated for: #InstallOSProcess help: 'OSProcess provides access to operating system functions, including pipes and child process creation.' translated.<br>+ }.<br>+ <br>+ currentPage addMorphBack: packagesList.<br>+ <br>+ currentPage addMorphBack: ((self createLabel: 'Find more on www.squeak.org/projects' color: (Color gray: 0.9))<br>+ hResizing: #shrinkWrap; yourself).<br>+ <br>+ installButton := (self createButton action: #installExtraPackages).<br>+ currentPage addMorphBack: installButton.<br>+ currentPage addMorphBack: (self createButton action: #showSqueak; label: 'No, maybe later.' translated).<br>+ <br>+ self setProperty: #checkInternet toValue: true.<br>+ self checkInternetOn: installButton.<br>+ <br>+ ^ currentPage!<br><br>Item was added:<br>+ ----- Method: PreferenceWizardMorph>>installAutoComplete (in category 'actions - packages') -----<br>+ installAutoComplete<br>+ <br>+ Metacello new<br>+ configuration: 'OCompletion';<br>+ load.!<br><br>Item was added:<br>+ ----- Method: PreferenceWizardMorph>>installExtraPackages (in category 'actions') -----<br>+ installExtraPackages<br>+ "Removes the buttons and adds the progress bar during installation."<br>+ <br>+ | steps page |<br>+ self removeProperty: #checkInternet. "No frequent checks for connectivity from here."<br>+ <br>+ steps := #(<br>+ InstallLatestUpdates<br>+ InstallMetacello<br>+ InstallRefactoringTools<br>+ InstallAutoComplete<br>+ InstallGitInfrastructure<br>+ InstallFFI<br>+ InstallOSProcess )<br>+ select: [:ea | self perform: ('state', ea) asSymbol]<br>+ thenCollect: [:ea | ea withFirstCharacterDownshifted asSymbol].<br>+ <br>+ page := controlMorph firstSubmorph.<br>+ <br>+ page submorphs second hide. "question"<br>+ page submorphs last delete. "url"<br>+ page submorphs last delete. "no button"<br>+ page submorphs last delete. "yes button"<br>+ page submorphs last delete. "package list"<br>+ <br>+ self refreshWorld.<br>+ <br>+ [<br>+ PreferenceWizardProgressMorph install.<br>+ page<br>+ addMorphBack: PreferenceWizardProgressMorph uniqueInstance;<br>+ addMorphBack: self createVerticalSpacer.<br>+ <br>+ steps<br>+ do: [:step | self perform: step]<br>+ displayingProgress: [:step | (step findFeatures joinSeparatedBy: String space), ' ...'].<br>+ ] ensure: [<br>+ PreferenceWizardProgressMorph reset.<br>+ self showSqueak].!<br><br>Item was added:<br>+ ----- Method: PreferenceWizardMorph>>installFFI (in category 'actions - packages') -----<br>+ installFFI<br>+ <br>+ Metacello new<br>+ configuration: 'FFI';<br>+ load.!<br><br>Item was added:<br>+ ----- Method: PreferenceWizardMorph>>installGitInfrastructure (in category 'actions - packages') -----<br>+ installGitInfrastructure<br>+ <br>+ Installer installGitInfrastructure.!<br><br>Item was added:<br>+ ----- Method: PreferenceWizardMorph>>installLatestUpdates (in category 'actions - packages') -----<br>+ installLatestUpdates<br>+ <br>+ MCConfiguration ensureOpenTranscript: false.<br>+ [MCMcmUpdater default doUpdate: false]<br>+ ensure: [MCConfiguration ensureOpenTranscript: true].!<br><br>Item was added:<br>+ ----- Method: PreferenceWizardMorph>>installMetacello (in category 'actions - packages') -----<br>+ installMetacello<br>+ <br>+ Installer ensureRecentMetacello.!<br><br>Item was added:<br>+ ----- Method: PreferenceWizardMorph>>installOSProcess (in category 'actions - packages') -----<br>+ installOSProcess<br>+ <br>+ Metacello new<br>+ configuration: 'OSProcess';<br>+ load.!<br><br>Item was added:<br>+ ----- Method: PreferenceWizardMorph>>installRefactoringTools (in category 'actions - packages') -----<br>+ installRefactoringTools<br>+ <br>+ Metacello new<br>+ configuration: 'RefactoringTools';<br>+ version: '2.0';<br>+ load.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>refreshWorld (in category 'updating') -----<br>- ----- Method: PreferenceWizardMorph>>refreshWorld (in category 'initialization') -----<br> refreshWorld<br> <br> self world layoutChanged. "To be really sure to update docking bars..."<br> self world fullBounds. "Avoid flickering..."<br> self world doOneCycle.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>setBalloonText:for: (in category 'support') -----<br>- ----- Method: PreferenceWizardMorph>>setBalloonText:for: (in category 'initialization') -----<br> setBalloonText: string for: morph<br> <br> morph<br> balloonColor: ((self defaultColor alpha: self color alpha) adjustBrightness: 0.2);<br> balloonText: (string asText<br> addAttribute: (TextFontReference toFont: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9));<br> addAttribute: (TextColor color: Color banana)).!<br><br>Item was added:<br>+ ----- Method: PreferenceWizardMorph>>showInstallPage (in category 'actions') -----<br>+ showInstallPage<br>+ <br>+ buttonRowMorph delete.<br>+ previewWorld delete.<br>+ <br>+ "self refreshWorld."<br>+ <br>+ controlMorph<br>+ removeAllMorphs;<br>+ layoutInset: 0;<br>+ layoutFrame: (LayoutFrame fractions: (0.0 @ 0 corner: 1.0 @ 1.0) offsets: (0@ titleMorph height corner: 0 @ 0));<br>+ addMorphBack: self initializePage99ExtraPackages.<br>+ <br>+ "self refreshWorld."!<br><br>Item was changed:<br> ----- Method: PreferenceWizardMorph>>showPlayfield (in category 'actions') -----<br> showPlayfield<br> <br> startButton hide.<br> skipButton hide.<br> lowPerformanceMorph hide.<br> isFullScreen := true.<br> self step.<br> <br> titleMorph layoutFrame: (LayoutFrame fractions: (0 @ 0 corner: 1 @ 0) offsets: (0@ 0 corner: 0 @ titleMorph height)).<br>- self refreshWorld.<br>- (Delay forMilliseconds: 1000) wait. <br> <br>+ self refreshWorld.<br>+ 500 milliSeconds wait.<br> <br> controlMorph show.<br> previewWorld show.<br> buttonRowMorph show.<br> <br> self next.<br> self refreshWorld.<br> <br> !<br><br>Item was changed:<br> ----- Method: PreferenceWizardMorph>>showSqueak (in category 'actions') -----<br> showSqueak<br> <br>+ self removeProperty: #checkInternet.<br> self isInWelcome ifTrue: [^ self delete].<br> <br> buttonRowMorph hide.<br> controlMorph hide.<br> previewWorld hide.<br> <br> self refreshWorld.<br>+ 500 milliSeconds wait.<br>- (Delay forMilliseconds: 1000) wait.<br> <br>- <br> titleMorph layoutFrame: (LayoutFrame fractions: (0 @ 0 corner: 1 @ 1)).<br>+ <br> self refreshWorld.<br>+ 500 milliSeconds wait.<br>+ <br>- (Delay forMilliseconds: 1000) wait.<br> self delete.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>stateAlternativeBrowseIt (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>stateAlternativeBrowseIt (in category 'buttons') -----<br> stateAlternativeBrowseIt<br> <br> ^ Preferences valueOfFlag: #alternativeBrowseIt ifAbsent: [false]!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>stateAttachToolsToMouse (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>stateAttachToolsToMouse (in category 'buttons') -----<br> stateAttachToolsToMouse<br> <br> ^ Project uiManager openToolsAttachedToMouseCursor!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>stateAutoEnclose (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>stateAutoEnclose (in category 'buttons') -----<br> stateAutoEnclose<br> <br> ^ TextEditor autoEnclose!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>stateAutoIndent (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>stateAutoIndent (in category 'buttons') -----<br> stateAutoIndent<br> <br> ^ TextEditor autoIndent!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>stateBlinkingCursor (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>stateBlinkingCursor (in category 'buttons') -----<br> stateBlinkingCursor<br> <br> ^ TextEditor blinkingCursor!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>stateClearFilterAutomatically (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>stateClearFilterAutomatically (in category 'buttons') -----<br> stateClearFilterAutomatically<br> <br> ^ PluggableListMorph clearFilterAutomatically!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>stateEncloseSelection (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>stateEncloseSelection (in category 'buttons') -----<br> stateEncloseSelection<br> <br> ^ TextEditor encloseSelection!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>stateFastDrag (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>stateFastDrag (in category 'buttons') -----<br> stateFastDrag<br> <br> ^ Preferences valueOfFlag: #fastDragWindowForMorphic ifAbsent: [false]!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>stateFilterableLists (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>stateFilterableLists (in category 'buttons') -----<br> stateFilterableLists<br> <br> ^ PluggableListMorph filterableLists!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>stateFocusFollowsMouse (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>stateFocusFollowsMouse (in category 'buttons') -----<br> stateFocusFollowsMouse<br> <br> ^ Preferences valueOfFlag: #mouseOverForKeyboardFocus ifAbsent: [false]!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>stateGradients (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>stateGradients (in category 'buttons') -----<br> stateGradients<br> <br> ^ SystemWindow gradientWindow not!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>stateHardShadows (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>stateHardShadows (in category 'buttons') -----<br> stateHardShadows<br> <br> ^ (Preferences valueOfFlag: #menuAppearance3d ifAbsent: [false]) and: [Morph useSoftDropShadow not]!<br><br>Item was added:<br>+ ----- Method: PreferenceWizardMorph>>stateInstallAutoComplete (in category 'actions - packages') -----<br>+ stateInstallAutoComplete<br>+ <br>+ ^ self<br>+ valueOfProperty: #InstallAutoComplete<br>+ ifAbsent: [false]<br>+ !<br><br>Item was added:<br>+ ----- Method: PreferenceWizardMorph>>stateInstallFFI (in category 'actions - packages') -----<br>+ stateInstallFFI<br>+ <br>+ ^ self<br>+ valueOfProperty: #InstallFFI<br>+ ifAbsent: [false]!<br><br>Item was added:<br>+ ----- Method: PreferenceWizardMorph>>stateInstallGitInfrastructure (in category 'actions - packages') -----<br>+ stateInstallGitInfrastructure<br>+ <br>+ ^ self<br>+ valueOfProperty: #InstallGitInfrastructure<br>+ ifAbsent: [false]!<br><br>Item was added:<br>+ ----- Method: PreferenceWizardMorph>>stateInstallLatestUpdates (in category 'actions - packages') -----<br>+ stateInstallLatestUpdates<br>+ <br>+ ^ self<br>+ valueOfProperty: #InstallLatestUpdates<br>+ ifAbsent: [true]<br>+ !<br><br>Item was added:<br>+ ----- Method: PreferenceWizardMorph>>stateInstallMetacello (in category 'actions - packages') -----<br>+ stateInstallMetacello<br>+ <br>+ ^ #(<br>+ InstallRefactoringTools<br>+ InstallAutoComplete<br>+ InstallGitInfrastructure<br>+ InstallFFI<br>+ InstallOSProcess )<br>+ anySatisfy: [:ea | self perform: ('state', ea) asSymbol]!<br><br>Item was added:<br>+ ----- Method: PreferenceWizardMorph>>stateInstallOSProcess (in category 'actions - packages') -----<br>+ stateInstallOSProcess<br>+ <br>+ ^ self<br>+ valueOfProperty: #InstallOSProcess<br>+ ifAbsent: [false]!<br><br>Item was added:<br>+ ----- Method: PreferenceWizardMorph>>stateInstallRefactoringTools (in category 'actions - packages') -----<br>+ stateInstallRefactoringTools<br>+ <br>+ ^ self<br>+ valueOfProperty: #InstallRefactoringTools<br>+ ifAbsent: [false]!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>stateReuseWindows (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>stateReuseWindows (in category 'buttons') -----<br> stateReuseWindows<br> <br> ^ SystemWindow reuseWindows!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>stateRoundedButtonLook (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>stateRoundedButtonLook (in category 'buttons') -----<br> stateRoundedButtonLook<br> <br> ^ PluggableButtonMorph roundedButtonCorners!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>stateRoundedWindowLook (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>stateRoundedWindowLook (in category 'buttons') -----<br> stateRoundedWindowLook<br> <br> ^ SystemWindow roundedWindowCorners!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>stateScrollBarsNarrow (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>stateScrollBarsNarrow (in category 'buttons') -----<br> stateScrollBarsNarrow<br> <br> ^ Preferences valueOfPreference: #scrollBarsNarrow ifAbsent: [false]!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>stateScrollBarsOnRight (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>stateScrollBarsOnRight (in category 'buttons') -----<br> stateScrollBarsOnRight<br> <br> ^ Preferences valueOfFlag: #scrollBarsOnRight ifAbsent: [false]!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>stateScrollBarsWithoutArrowButtons (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>stateScrollBarsWithoutArrowButtons (in category 'buttons') -----<br> stateScrollBarsWithoutArrowButtons<br> <br> ^ ScrollBar scrollBarsWithoutArrowButtons not!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>stateScrollBarsWithoutMenuButton (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>stateScrollBarsWithoutMenuButton (in category 'buttons') -----<br> stateScrollBarsWithoutMenuButton<br> <br> ^ ScrollBar scrollBarsWithoutMenuButton not!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>stateSendMouseWheelToKeyboardFocus (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>stateSendMouseWheelToKeyboardFocus (in category 'buttons') -----<br> stateSendMouseWheelToKeyboardFocus<br> <br> ^ HandMorph sendMouseWheelToKeyboardFocus!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>stateShowKeyboardFocus (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>stateShowKeyboardFocus (in category 'buttons') -----<br> stateShowKeyboardFocus<br> <br> ^ Morph indicateKeyboardFocus!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>stateSimpleFrameAdornments (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>stateSimpleFrameAdornments (in category 'buttons') -----<br> stateSimpleFrameAdornments<br> <br> ^ PluggableTextMorph simpleFrameAdornments!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>stateSmartHorizontalSplitters (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>stateSmartHorizontalSplitters (in category 'buttons') -----<br> stateSmartHorizontalSplitters<br> <br> ^ ProportionalSplitterMorph smartHorizontalSplitters!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>stateSmartVerticalSplitters (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>stateSmartVerticalSplitters (in category 'buttons') -----<br> stateSmartVerticalSplitters<br> <br> ^ ProportionalSplitterMorph smartVerticalSplitters!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>stateSoftShadows (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>stateSoftShadows (in category 'buttons') -----<br> stateSoftShadows<br> <br> ^ (Preferences valueOfFlag: #menuAppearance3d ifAbsent: [false]) and: [Morph useSoftDropShadow]!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>stateSwapMouseButtons (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>stateSwapMouseButtons (in category 'buttons') -----<br> stateSwapMouseButtons<br> <br> ^ Preferences valueOfFlag: #swapMouseButtons ifAbsent: [false]!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>stateToolAndMenuIcons (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>stateToolAndMenuIcons (in category 'buttons') -----<br> stateToolAndMenuIcons<br> <br> ^ Browser showClassIcons!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>stateTraceMessages (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>stateTraceMessages (in category 'buttons') -----<br> stateTraceMessages<br> <br> ^ Preferences valueOfFlag: #traceMessages ifAbsent: [false]!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>stateUseBiggerCursors (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>stateUseBiggerCursors (in category 'buttons') -----<br> stateUseBiggerCursors<br> <br> ^ Cursor useBiggerCursors!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>stateUseBiggerFonts (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>stateUseBiggerFonts (in category 'buttons') -----<br> stateUseBiggerFonts<br> <br> ^ UserInterfaceTheme current name beginsWith: 'Demo'!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>stateUseColorfulWindows (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>stateUseColorfulWindows (in category 'buttons') -----<br> stateUseColorfulWindows<br> <br> ^ Model useColorfulWindows!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>stateUseRetractableScrollBars (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>stateUseRetractableScrollBars (in category 'buttons') -----<br> stateUseRetractableScrollBars<br> <br> ^ ScrollPane useRetractableScrollBars!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>stateWindowButtonsAlwaysActive (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>stateWindowButtonsAlwaysActive (in category 'buttons') -----<br> stateWindowButtonsAlwaysActive<br> <br> ^ SystemWindow windowTitleActiveOnFirstClick!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>stateWindowsAlwaysActive (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>stateWindowsAlwaysActive (in category 'buttons') -----<br> stateWindowsAlwaysActive<br> <br> ^ Model windowActiveOnFirstClick!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>stateWindowsRaiseOnClick (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>stateWindowsRaiseOnClick (in category 'buttons') -----<br> stateWindowsRaiseOnClick<br> <br> ^ SystemWindow windowsRaiseOnClick!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>step (in category 'stepping') -----<br>- ----- Method: PreferenceWizardMorph>>step (in category 'stepping and presenter') -----<br> step<br> <br> | oldWidth oldBounds |<br> "self comeToFront."<br> <br> isFullScreen == true<br> ifTrue: [<br> oldBounds := self bounds.<br> self bounds: self world bounds.<br> self bounds = oldBounds ifFalse: [<br> self updateWindowBounds]]<br> ifFalse: [<br> oldWidth := self width.<br> self width: self world width.<br> self center: self world center.<br> self width = oldWidth ifFalse: [<br> self updateWindowBounds]].!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>stepTime (in category 'stepping') -----<br>- ----- Method: PreferenceWizardMorph>>stepTime (in category 'stepping and presenter') -----<br> stepTime<br> ^ 1000!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>toggleAlternativeBrowseIt (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>toggleAlternativeBrowseIt (in category 'buttons') -----<br> toggleAlternativeBrowseIt<br> <br> Preferences toggle: #alternativeBrowseIt.<br> self changed: #stateAlternativeBrowseIt.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>toggleAttachToolsToMouse (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>toggleAttachToolsToMouse (in category 'buttons') -----<br> toggleAttachToolsToMouse<br> <br> Project uiManager openToolsAttachedToMouseCursor: Project uiManager openToolsAttachedToMouseCursor not.<br> self changed: #stateAttachToolsToMouse.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>toggleAutoEnclose (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>toggleAutoEnclose (in category 'buttons') -----<br> toggleAutoEnclose<br> <br> TextEditor autoEnclose: TextEditor autoEnclose not. <br> self changed: #stateAutoEnclose.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>toggleAutoIndent (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>toggleAutoIndent (in category 'buttons') -----<br> toggleAutoIndent<br> <br> TextEditor autoIndent: TextEditor autoIndent not. <br> self changed: #stateAutoIndent.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>toggleBlinkingCursor (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>toggleBlinkingCursor (in category 'buttons') -----<br> toggleBlinkingCursor<br> <br> TextEditor blinkingCursor: TextEditor blinkingCursor not.<br> <br> TextMorph allSubInstancesDo: [:ea |<br> ea stopBlinking.<br> ea hasFocus ifTrue: [<br> Editor blinkingCursor<br> ifTrue: [ea startBlinking]<br> ifFalse: [ea resetBlinkCursor "ensure caret visible"]]].<br> <br> self changed: #stateBlinkingCursor.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>toggleClearFilterAutomatically (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>toggleClearFilterAutomatically (in category 'buttons') -----<br> toggleClearFilterAutomatically<br> <br> PluggableListMorph clearFilterAutomatically: PluggableListMorph clearFilterAutomatically not.<br> self changed: #stateClearFilterAutomatically.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>toggleEncloseSelection (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>toggleEncloseSelection (in category 'buttons') -----<br> toggleEncloseSelection<br> <br> TextEditor encloseSelection: TextEditor encloseSelection not. <br> self changed: #stateEncloseSelection.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>toggleFastDrag (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>toggleFastDrag (in category 'buttons') -----<br> toggleFastDrag<br> <br> Preferences toggle: #fastDragWindowForMorphic.<br> self changed: #stateFastDrag.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>toggleFilterableLists (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>toggleFilterableLists (in category 'buttons') -----<br> toggleFilterableLists<br> <br> PluggableListMorph filterableLists: PluggableListMorph filterableLists not.<br> self changed: #stateFilterableLists.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>toggleFocusFollowsMouse (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>toggleFocusFollowsMouse (in category 'buttons') -----<br> toggleFocusFollowsMouse<br> <br> Preferences toggle: #mouseOverForKeyboardFocus.<br> self changed: #stateFocusFollowsMouse.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>toggleGradients (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>toggleGradients (in category 'buttons') -----<br> toggleGradients<br> <br> | switch |<br> switch := SystemWindow gradientWindow not.<br> <br> SystemWindow gradientWindow: switch.<br> DialogWindow gradientDialog: switch.<br> MenuMorph gradientMenu: switch.<br> ScrollBar gradientScrollBar: switch.<br> PluggableButtonMorph gradientButton: switch.<br> <br> self changed: #stateGradients.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>toggleHardShadows (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>toggleHardShadows (in category 'buttons') -----<br> toggleHardShadows<br> <br> self stateSoftShadows<br> ifFalse: [Preferences toggle: #menuAppearance3d].<br> <br> Morph useSoftDropShadow: false.<br> <br> SystemWindow refreshAllWindows; reconfigureWindowsForFocus.<br> SystemProgressMorph reset.<br> TheWorldMainDockingBar updateInstances.<br> <br> self changed: #stateSoftShadows.<br> self changed: #stateHardShadows.!<br><br>Item was added:<br>+ ----- Method: PreferenceWizardMorph>>toggleInstallAutoComplete (in category 'actions - packages') -----<br>+ toggleInstallAutoComplete<br>+ <br>+ self<br>+ setProperty: #InstallAutoComplete<br>+ toValue: self stateInstallAutoComplete not.<br>+ self changed: #stateInstallAutoComplete.!<br><br>Item was added:<br>+ ----- Method: PreferenceWizardMorph>>toggleInstallFFI (in category 'actions - packages') -----<br>+ toggleInstallFFI<br>+ <br>+ self<br>+ setProperty: #InstallFFI<br>+ toValue: self stateInstallFFI not.<br>+ self changed: #stateInstallFFI.!<br><br>Item was added:<br>+ ----- Method: PreferenceWizardMorph>>toggleInstallGitInfrastructure (in category 'actions - packages') -----<br>+ toggleInstallGitInfrastructure<br>+ <br>+ self<br>+ setProperty: #InstallGitInfrastructure<br>+ toValue: self stateInstallGitInfrastructure not.<br>+ self changed: #stateInstallGitInfrastructure.!<br><br>Item was added:<br>+ ----- Method: PreferenceWizardMorph>>toggleInstallLatestUpdates (in category 'actions - packages') -----<br>+ toggleInstallLatestUpdates<br>+ <br>+ self<br>+ setProperty: #InstallLatestUpdates<br>+ toValue: self stateInstallLatestUpdates not.<br>+ self changed: #stateInstallLatestUpdates.!<br><br>Item was added:<br>+ ----- Method: PreferenceWizardMorph>>toggleInstallOSProcess (in category 'actions - packages') -----<br>+ toggleInstallOSProcess<br>+ <br>+ self<br>+ setProperty: #InstallOSProcess<br>+ toValue: self stateInstallOSProcess not.<br>+ self changed: #stateInstallOSProcess.!<br><br>Item was added:<br>+ ----- Method: PreferenceWizardMorph>>toggleInstallRefactoringTools (in category 'actions - packages') -----<br>+ toggleInstallRefactoringTools<br>+ <br>+ self<br>+ setProperty: #InstallRefactoringTools<br>+ toValue: self stateInstallRefactoringTools not.<br>+ self changed: #stateInstallRefactoringTools.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>toggleReuseWindows (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>toggleReuseWindows (in category 'buttons') -----<br> toggleReuseWindows<br> <br> SystemWindow reuseWindows: SystemWindow reuseWindows not.<br> self changed: #stateReuseWindows.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>toggleRoundedButtonLook (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>toggleRoundedButtonLook (in category 'buttons') -----<br> toggleRoundedButtonLook<br> <br> | switch |<br> switch := PluggableButtonMorph roundedButtonCorners not.<br> <br> PluggableButtonMorph roundedButtonCorners: switch.<br> ScrollBar roundedScrollBarLook: switch.<br> <br> self changed: #stateRoundedButtonLook.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>toggleRoundedWindowLook (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>toggleRoundedWindowLook (in category 'buttons') -----<br> toggleRoundedWindowLook<br> <br> | switch |<br> switch := SystemWindow roundedWindowCorners not.<br> <br> SystemWindow roundedWindowCorners: switch.<br> DialogWindow roundedDialogCorners: switch.<br> MenuMorph roundedMenuCorners: switch.<br> <br> self changed: #stateRoundedWindowLook.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>toggleScrollBarsNarrow (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>toggleScrollBarsNarrow (in category 'buttons') -----<br> toggleScrollBarsNarrow<br> <br> Preferences toggle: #scrollBarsNarrow.<br> ScrollPane allSubInstancesDo: [:ea | ea scrollBarThickness: ScrollPane scrollBarThickness].<br> self changed: #stateScrollBarsNarrow.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>toggleScrollBarsOnRight (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>toggleScrollBarsOnRight (in category 'buttons') -----<br> toggleScrollBarsOnRight<br> <br> Preferences toggle: #scrollBarsOnRight.<br> ScrollPane allSubInstancesDo: [:ea | ea scrollBarOnLeft: self stateScrollBarsOnRight not].<br> self changed: #stateScrollBarsOnRight.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>toggleScrollBarsWithoutArrowButtons (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>toggleScrollBarsWithoutArrowButtons (in category 'buttons') -----<br> toggleScrollBarsWithoutArrowButtons<br> <br> ScrollBar scrollBarsWithoutArrowButtons: ScrollBar scrollBarsWithoutArrowButtons not.<br> self changed: #stateScrollBarsWithoutArrowButtons.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>toggleScrollBarsWithoutMenuButton (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>toggleScrollBarsWithoutMenuButton (in category 'buttons') -----<br> toggleScrollBarsWithoutMenuButton<br> <br> ScrollBar scrollBarsWithoutMenuButton: ScrollBar scrollBarsWithoutMenuButton not.<br> self changed: #stateScrollBarsWithoutMenuButton.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>toggleSendMouseWheelToKeyboardFocus (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>toggleSendMouseWheelToKeyboardFocus (in category 'buttons') -----<br> toggleSendMouseWheelToKeyboardFocus<br> <br> HandMorph sendMouseWheelToKeyboardFocus: HandMorph sendMouseWheelToKeyboardFocus not.<br> self changed: #stateSendMouseWheelToKeyboardFocus.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>toggleShowKeyboardFocus (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>toggleShowKeyboardFocus (in category 'buttons') -----<br> toggleShowKeyboardFocus<br> <br> Morph indicateKeyboardFocus: Morph indicateKeyboardFocus not.<br> self changed: #stateShowKeyboardFocus.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>toggleSimpleFrameAdornments (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>toggleSimpleFrameAdornments (in category 'buttons') -----<br> toggleSimpleFrameAdornments<br> <br> PluggableTextMorph simpleFrameAdornments: PluggableTextMorph simpleFrameAdornments not.<br> self changed: #stateSimpleFrameAdornments.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>toggleSmartHorizontalSplitters (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>toggleSmartHorizontalSplitters (in category 'buttons') -----<br> toggleSmartHorizontalSplitters<br> <br> ProportionalSplitterMorph smartHorizontalSplitters: ProportionalSplitterMorph smartHorizontalSplitters not.<br> self changed: #stateSmartHorizontalSplitters.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>toggleSmartVerticalSplitters (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>toggleSmartVerticalSplitters (in category 'buttons') -----<br> toggleSmartVerticalSplitters<br> <br> ProportionalSplitterMorph smartVerticalSplitters: ProportionalSplitterMorph smartVerticalSplitters not.<br> self changed: #stateSmartVerticalSplitters.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>toggleSoftShadows (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>toggleSoftShadows (in category 'buttons') -----<br> toggleSoftShadows<br> <br> self stateHardShadows<br> ifFalse: [Preferences toggle: #menuAppearance3d].<br> <br> Morph useSoftDropShadow: true.<br> <br> SystemWindow refreshAllWindows; reconfigureWindowsForFocus.<br> SystemProgressMorph reset.<br> TheWorldMainDockingBar updateInstances.<br> <br> self changed: #stateSoftShadows.<br> self changed: #stateHardShadows.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>toggleSwapMouseButtons (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>toggleSwapMouseButtons (in category 'buttons') -----<br> toggleSwapMouseButtons<br> <br> Preferences toggle: #swapMouseButtons.<br> self changed: #stateSwapMouseButtons.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>toggleToolAndMenuIcons (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>toggleToolAndMenuIcons (in category 'buttons') -----<br> toggleToolAndMenuIcons<br> <br> | switch |<br> switch := Browser showClassIcons not.<br> <br> Browser showClassIcons: switch.<br> Browser showMessageIcons: switch.<br> Preferences setFlag: #menuWithIcons toValue: switch.<br> Preferences setFlag: #visualExplorer toValue: switch.<br> <br> self changed: #stateToolAndMenuIcons.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>toggleTraceMessages (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>toggleTraceMessages (in category 'buttons') -----<br> toggleTraceMessages<br> <br> Preferences toggle: #traceMessages.<br> self changed: #stateTraceMessages.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>toggleUseBiggerCursors (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>toggleUseBiggerCursors (in category 'buttons') -----<br> toggleUseBiggerCursors<br> <br> Cursor useBiggerCursors: self stateUseBiggerCursors not.<br> Cursor currentCursor: Cursor currentCursor.<br> <br> self changed: #stateUseBiggerCursors.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>toggleUseBiggerFonts (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>toggleUseBiggerFonts (in category 'buttons') -----<br> toggleUseBiggerFonts<br> <br> [<br> self stateUseBiggerFonts<br> ifFalse: [Preferences setDemoFonts]<br> ifTrue: [Preferences restoreDefaultFonts].<br> ] valueSupplyingAnswer: true.<br> <br> self changed: #stateUseBiggerFonts.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>toggleUseColorfulWindows (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>toggleUseColorfulWindows (in category 'buttons') -----<br> toggleUseColorfulWindows<br> <br> Model useColorfulWindows: Model useColorfulWindows not.<br> self changed: #stateUseColorfulWindows.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>toggleUseRetractableScrollBars (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>toggleUseRetractableScrollBars (in category 'buttons') -----<br> toggleUseRetractableScrollBars<br> <br> ScrollPane useRetractableScrollBars: ScrollPane useRetractableScrollBars not.<br> self changed: #stateUseRetractableScrollBars.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>toggleWindowButtonsAlwaysActive (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>toggleWindowButtonsAlwaysActive (in category 'buttons') -----<br> toggleWindowButtonsAlwaysActive<br> <br> SystemWindow windowTitleActiveOnFirstClick: SystemWindow windowTitleActiveOnFirstClick not.<br> self changed: #stateWindowButtonsAlwaysActive.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>toggleWindowsAlwaysActive (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>toggleWindowsAlwaysActive (in category 'buttons') -----<br> toggleWindowsAlwaysActive<br> <br> Model windowActiveOnFirstClick: Model windowActiveOnFirstClick not.<br> self changed: #stateWindowsAlwaysActive.!<br><br>Item was changed:<br>+ ----- Method: PreferenceWizardMorph>>toggleWindowsRaiseOnClick (in category 'actions - buttons') -----<br>- ----- Method: PreferenceWizardMorph>>toggleWindowsRaiseOnClick (in category 'buttons') -----<br> toggleWindowsRaiseOnClick<br> <br> SystemWindow windowsRaiseOnClick: SystemWindow windowsRaiseOnClick not.<br> self changed: #stateWindowsRaiseOnClick.!<br><br>Item was added:<br>+ SystemProgressMorph subclass: #PreferenceWizardProgressMorph<br>+ instanceVariableNames: ''<br>+ classVariableNames: ''<br>+ poolDictionaries: ''<br>+ category: 'PreferenceBrowser'!<br><br>Item was added:<br>+ ----- Method: PreferenceWizardProgressMorph class>>install (in category 'as yet unclassified') -----<br>+ install<br>+ <br>+ self reset.<br>+ UniqueInstance := self basicNew initialize; yourself.!<br><br>Item was added:<br>+ ----- Method: PreferenceWizardProgressMorph>>createProgressBar (in category 'as yet unclassified') -----<br>+ createProgressBar<br>+ <br>+ ^ SystemProgressBarMorph new <br>+ extent: 500@20;<br>+ color: Color transparent;<br>+ barColor: Color white;<br>+ borderColor: Color white;<br>+ borderWidth: 2;<br>+ yourself<br>+ !<br><br>Item was added:<br>+ ----- Method: PreferenceWizardProgressMorph>>openInWorld (in category 'as yet unclassified') -----<br>+ openInWorld<br>+ <br>+ "Ignore."!<br><br>Item was added:<br>+ ----- Method: PreferenceWizardProgressMorph>>reposition (in category 'as yet unclassified') -----<br>+ reposition<br>+ <br>+ "Ignore."!<br><br>Item was added:<br>+ ----- Method: PreferenceWizardProgressMorph>>setDefaultParameters (in category 'as yet unclassified') -----<br>+ setDefaultParameters<br>+ "change the receiver's appareance parameters"<br>+ <br>+ self<br>+ color: Color transparent;<br>+ borderWidth: 0;<br>+ font: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 12);<br>+ textColor: Color white.!<br><br><br></div></blockquote></div>