The Trunk: PreferenceBrowser-mt.75.mcz

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@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: 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.!