[squeak-dev] 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 Squeak-dev mailing list