[Pkg] The Trunk: Morphic-ar.281.mcz

[commits at source.squeak.org]

Andreas Raab uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-ar.281.mcz

==================== Summary ====================

Name: Morphic-ar.281
Author: ar
Time: 3 January 2010, 12:04:06 pm
UUID: baa031a1-dc42-f84d-b1f8-5eb4a017f946
Ancestors: Morphic-ar.280

Remove last dependencies of PreferenceBrowser and Services. Both are now unloadable.

=============== Diff against Morphic-ar.280 ===============

Item was changed:
  ----- Method: PasteUpMorph>>findAPreferencesPanel: (in category 'world menu') -----
  findAPreferencesPanel: evt
  	"Locate a Preferences Panel, open it, and bring it to the front.  Create one if necessary"
+ 	Smalltalk at: #PreferenceBrowser ifPresent:[:pb|
+ 		self findAWindowSatisfying:[:aWindow | aWindow model isKindOf: pb]
+ 			orMakeOneUsing:[pb open]
+ 	].!
- 
- 	self findAWindowSatisfying:
- 		[:aWindow | aWindow model isKindOf: PreferenceBrowser] orMakeOneUsing:
- 			[ | aPanel |
- 			aPanel := PreferenceBrowserMorph withModel: PreferenceBrowser new.
- 			"Note -- we don't really want the openInHand -- but owing to some annoying
- 			difficulty, if we don't, we get the wrong width.  Somebody please clean this up"
- 			^ aPanel openInHand]!

Item was changed:
  ----- Method: TheWorldMainDockingBar>>preferenceBrowserMenuItemOn: (in category 'submenu - tools') -----
  preferenceBrowserMenuItemOn: menu
+ 	Smalltalk at: #PreferenceBrowser ifPresent:[:pb|
+ 		menu addItem: [ :item |
+ 			item
+ 				contents: 'Preferences' translated;
+ 				help: 'Open a Preferences Browser' translated;
+ 				icon: (self colorIcon: pb basicNew defaultBackgroundColor);
+ 				target: pb;
+ 				selector: #open ]
+ 	].!
- 
- 	menu addItem: [ :item |
- 		item
- 			contents: 'Preferences' translated;
- 			help: 'Open a Preferences Browser' translated;
- 			icon: (self colorIcon: PreferenceBrowser basicNew defaultBackgroundColor);
- 			target: PreferenceBrowser;
- 			selector: #open ]!

Item was changed:
  ----- Method: TheWorldMenu>>buildWorldMenu (in category 'construction') -----
  buildWorldMenu
  	"Build the menu that is put up when the screen-desktop is clicked on"
  	| menu |
  	menu := MenuMorph new defaultTarget: self.
  	menu commandKeyHandler: self.
  	self colorForDebugging: menu.
  	menu addStayUpItem.
  	self makeConvenient: menu.
+ 	Smalltalk at: #ServiceGUI ifPresent:[:sgui|
+ 		sgui worldMenu: menu.
+ 		sgui onlyServices ifTrue: [^ menu].
+ 	].
- 	ServiceGui worldMenu: menu.
- 	ServiceGui onlyServices ifTrue: [^ menu].
  	self addProjectEntries: menu.
  	myWorld addUndoItemsTo: menu.
  	self addRestoreDisplay: menu.
  	self addUtilities: menu.
  	self addObjectsAndTools: menu.
  	self addPrintAndDebug: menu.
  	self addSaveAndQuit: menu.
  	^ menu!

Item was changed:
  ----- Method: TheWorldMenu>>openPreferencesBrowser (in category 'commands') -----
  openPreferencesBrowser
  	"Open a preferences browser"
+ 	^Smalltalk at: #PreferenceBrowser ifPresent:[:pb| pb open].
+ !
- 	^PreferenceBrowser open!

Item was changed:
  ----- Method: HandMorph>>sendKeyboardEvent: (in category 'private events') -----
  sendKeyboardEvent: anEvent 
  	"Send the event to the morph currently holding the focus, or if none to
  	the owner of the hand."
- 	ServiceShortcuts handleKeystroke: anEvent.
  	^ self
  		sendEvent: anEvent
  		focus: self keyboardFocus
  		clear: [self keyboardFocus: nil]!