[Pkg] The Trunk: PreferenceBrowser-mt.75.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Aug 16 16:00:23 UTC 2016
Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk:
http://source.squeak.org/trunk/PreferenceBrowser-mt.75.mcz
==================== Summary ====================
Name: PreferenceBrowser-mt.75
Author: mt
Time: 16 August 2016, 6:00:12.292602 pm
UUID: a637d7c0-295e-624f-9a7e-b6136923af5d
Ancestors: PreferenceBrowser-mt.74
Reduce (additional) dependencies between packages.
=============== Diff against PreferenceBrowser-mt.74 ===============
Item was changed:
----- Method: PreferenceBrowser>>defaultSelected (in category 'preferences search') -----
defaultSelected
+ (Project uiManager
- (UIManager default
confirm: 'Do you really want to restorethe default\preferences?\\If you want to keep the current state,\you have to save it first.' translated withCRs
title: 'Restore Preferences') ifFalse: [^ self].
Preferences chooseInitialSettings!
Item was changed:
----- Method: PreferenceBrowser>>loadFromDiskSelected (in category 'preferences search') -----
loadFromDiskSelected
+ (Project uiManager
- (UIManager default
confirm: 'Do you really want to restore your\personal preferences from disk?\\The file ''my.prefs'' will be loaded.' translated withCRs
title: 'Restore Preferences from Disk') ifFalse: [^ self].
preferences restorePreferencesFromDisk!
Item was changed:
----- Method: PreferenceBrowser>>loadSelected (in category 'preferences search') -----
loadSelected
+ (Project uiManager
- (UIManager default
confirm: 'Do you really want to restore\your personal preferences?' translated withCRs
title: 'Restore Preferences') ifFalse: [^ self].
preferences restorePersonalPreferences.!
Item was changed:
----- Method: PreferenceBrowser>>saveSelected (in category 'preferences search') -----
saveSelected
+ (Project uiManager
- (UIManager default
confirm: 'Do you really want to overwrite\your personal preferences?' translated withCRs
title: 'Save Preferences') ifFalse: [^ self].
preferences savePersonalPreferences.!
Item was changed:
----- Method: PreferenceBrowser>>saveToDiskSelected (in category 'preferences search') -----
saveToDiskSelected
+ (Project uiManager
- (UIManager default
confirm: 'Do you really want to overwrite your\personal preferences on disk?\\The file ''my.prefs'' will be updated.' translated withCRs
title: 'Save Preferences to Disk') ifFalse: [^ self].
preferences storePreferencesToDisk!
Item was changed:
----- Method: PreferenceWizardMorph>>initializePreviewWorld (in category 'initialization') -----
initializePreviewWorld
| w1 w2 w3 |
previewWorld := PasteUpMorph new
hResizing: #spaceFill;
vResizing: #spaceFill;
viewBox: (0 at 0 corner: 500 at 500);
layoutFrame: (LayoutFrame fractions: (0.3 @ 0 corner: 1.0 @ 1.0) offsets: (0@ titleMorph height corner: 0 @ buttonRowMorph height negated));
fillStyle: ActiveWorld 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].
-
- w1 := ToolBuilder open: (Browser new setClass: Morph selector: #drawOn:).
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 changed:
----- Method: PreferenceWizardMorph>>stateAttachToolsToMouse (in category 'buttons') -----
stateAttachToolsToMouse
+ ^ Project uiManager openToolsAttachedToMouseCursor!
- ^ ToolBuilder openToolsAttachedToMouseCursor!
Item was changed:
----- Method: PreferenceWizardMorph>>toggleAttachToolsToMouse (in category 'buttons') -----
toggleAttachToolsToMouse
+ Project uiManager openToolsAttachedToMouseCursor: Project uiManager openToolsAttachedToMouseCursor not.
- ToolBuilder openToolsAttachedToMouseCursor: ToolBuilder openToolsAttachedToMouseCursor not.
self changed: #stateAttachToolsToMouse.!
More information about the Packages
mailing list