Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-mt.156.mcz
==================== Summary ====================
Name: PreferenceBrowser-mt.156 Author: mt Time: 13 April 2023, 3:11:54.037682 pm UUID: b7d5542e-cd9a-b948-be26-a7132abf699b Ancestors: PreferenceBrowser-mt.155
Complements Tools-mt.1198
=============== Diff against PreferenceBrowser-mt.155 ===============
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 stateTraditionalSystemBrowser ifFalse: [self toggleTraditionalSystemBrowser]. + 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. "Done." self updateLowPerformanceLabel: 'Settings were adjusted for optimal performance.' translated.!
Item was changed: ----- Method: PreferenceWizardMorph>>initializePage05Tools (in category 'initialization - pages') ----- initializePage05Tools
| currentPage pane | currentPage := pages add: self createPage. pane := self createScrollPane. currentPage addMorphBack: (self createLabel: 'Choose other settings' color: Color white). currentPage addMorphBack: pane. pane scroller firstSubmorph addAllMorphsBack: { + self createCheckbox: 'Traditional system browser' translated for: #TraditionalSystemBrowser help: 'Enable to use the traditional Smalltalk system browser, which has no tree views in its top panes but plain lists.' translated. self createCheckbox: 'Trace messages browser' translated for: #TraceMessages help: #(trace message). self createCheckbox: 'Browse class hierarchy' translated for: #AlternativeBrowseIt help: 'Whether to spawn a hierarchy browser or full system browser on browse-it commands.' translated. self createVerticalSpace. self createCheckbox: 'Reuse tool windows' translated for: #ReuseWindows help: #(window reuse). self createCheckbox: 'Tool and menu icons' translated for: #ToolAndMenuIcons help: 'Whether to show icons in tools and menus.' translated. self createVerticalSpace. self createCheckbox: 'Embed Transcript in Workspace' translated for: #WorkspaceEmbedTranscript help: #(workspace transcript). self createCheckbox: 'File out Workspace on accept' translated for: #WorkspaceFileOutOnAccept help: #(workspace accept). }. !
Item was added: + ----- Method: PreferenceWizardMorph>>stateTraditionalSystemBrowser (in category 'actions - buttons') ----- + stateTraditionalSystemBrowser + + ^ SystemBrowser default == Browser!
Item was added: + ----- Method: PreferenceWizardMorph>>toggleTraditionalSystemBrowser (in category 'actions - buttons') ----- + toggleTraditionalSystemBrowser + + self stateTraditionalSystemBrowser + ifTrue: [SystemBrowser default: TreeBrowser] + ifFalse: [SystemBrowser default: Browser]. + self changed: #stateTraditionalSystemBrowser. + self resetWorld.!
squeak-dev@lists.squeakfoundation.org