[Pkg] The Trunk: Morphic-kb.255.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Nov 28 17:49:53 UTC 2009


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

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

Name: Morphic-kb.255
Author: kb
Time: 28 November 2009, 3:17:35 am
UUID: d6d55229-7919-7549-b367-dc7f20d5db58
Ancestors: Morphic-dtl.252

 - Removal of TheWorldMainDockingBarOld. Cleaning up references in the preamble.
 Load System-kb.180 before.

=============== Diff against Morphic-dtl.252 ===============

Item was changed:

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>createButtonIcon:help:selector: (in category 'private - buttons') -----
- createButtonIcon: aFormOrMorph help: helpStringOrNil selector: selector 
- 	"Private - Creates a button to fire an action from a docking bar"
- 	| button icon |
- 	button := RectangleMorph new.
- 	button extent: aFormOrMorph extent + 2.
- 	button borderWidth: 0.
- 	button color: self offColor.
- 	helpStringOrNil isNil
- 
- 		ifFalse: [button setBalloonText: helpStringOrNil translated].
- 	""
- 	icon := aFormOrMorph isMorph
- 				ifTrue: [aFormOrMorph]
- 				ifFalse: [SketchMorph withForm: aFormOrMorph].
- 	button addMorphCentered: icon.
- 	""
- 	button
- 		on: #mouseDown
- 		send: #perform:event:for:
- 		to: self
- 		withValue: selector.
- 	button
- 		on: #mouseEnter
- 		send: #colorOnEvent:for:
- 		to: self.
- 	button
- 		on: #mouseLeave
- 		send: #colorOffEvent:for:
- 		to: self.
- 	""
- 	^ button!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>offColor (in category 'private - buttons') -----
- offColor
- 	"Private - answer the off color"
- 	^ Color black alpha: 0.01!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>hideAllViewersIn: (in category 'menu actions') -----
- hideAllViewersIn: aMorph 
- 	aMorph isFlapTab
- 		ifTrue: [self hideAllViewersIn: aMorph referent].
- 	aMorph
- 		submorphsDo: [:each | ""
- 			({ScriptEditorMorph. StandardViewer} includes: each class)
- 				ifTrue: [each dismiss]
- 				ifFalse: [self hideAllViewersIn: each]]!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>changeSoundVolume (in category 'menu actions') -----
- changeSoundVolume
- 	self notYetImplemented!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>volumeIcon (in category 'private - icons') -----
- volumeIcon
- 	^ Preferences tinyDisplay
- 		ifTrue: [MenuIcons smallVolumeIcon]
- 		ifFalse: [MenuIcons volumeIcon]!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>publishProject (in category 'menu actions') -----
- publishProject
- 	self
- 		publishStyle: #limitedSuperSwikiPublishDirectoryList
- 		forgetURL: false
- 		withRename: false!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>nextProject (in category 'menu actions') -----
- nextProject
- 	Project advanceToNextProject.
- 	Beeper beep!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>appearance (in category 'menu actions') -----
- appearance
- 	self worldMenu appearanceMenu popUpInWorld !

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>windows (in category 'menu actions') -----
- windows
- 	self worldMenu windowsMenu popUpInWorld!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>switchToExpertMode (in category 'menu actions') -----
- switchToExpertMode
- 	| ok |
- 	ok := self confirm: 'CAUTION!!
- The expert mode is powerful as well as dangerous and you can break your Squeak in several ways.
- Are you sure to switch to expert mode?' translated.
- 	ok
- 		ifFalse: [^ self].
- 	""
- 	Preferences enable: #cmdGesturesEnabled.
- 	Preferences enable: #debugHaloHandle.
- 	Preferences disable: #noviceMode.
- !

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>createButtonIcon:selector: (in category 'private - buttons') -----
- createButtonIcon: aFormOrMorph selector: selector 
- 	"Private - Creates a button to fire an action from a docking bar"
- 	^ self
- 		createButtonIcon: aFormOrMorph
- 		help: nil
- 		selector: selector!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>setColorTheme (in category 'menu actions') -----
- setColorTheme
- 		SmallLandColorTheme chooseTheme.  !

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>showAllViewers (in category 'menu actions') -----
- showAllViewers
- 	self world showAllPlayers!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>fillMenuItemsBar: (in category 'construction') -----
- fillMenuItemsBar: aDockingBar 
- 	"Private - fill the given docking bar"
- 	| squeakIcon homeIcon configurationIcon helpIcon squeakLabel projectLabel configurationLabel helpLabel |
- 	(aDockingBar isDockingBar not
- 			or: [Preferences tinyDisplay])
- 		ifTrue: [""
- 			squeakIcon := MenuIcons smallSqueakIcon.
- 			homeIcon := MenuIcons smallHomeIcon.
- 			configurationIcon := MenuIcons smallConfigurationIcon.
- 			helpIcon := MenuIcons smallHelpIcon]
- 		ifFalse: [""
- 			squeakIcon := MenuIcons squeakIcon.
- 			homeIcon := MenuIcons homeIcon.
- 			configurationIcon := MenuIcons configurationIcon.
- 			helpIcon := MenuIcons helpIcon].
- 	""
- 	Preferences tinyDisplay
- 		ifTrue: [""
- 			squeakLabel := '' .
- 			projectLabel := '' .
- 			configurationLabel := '' .
- 			helpLabel := '' ]
- 		ifFalse: [""
- 			squeakLabel := 'Squeak' translated.
- 			projectLabel := 'Project' translated.
- 			configurationLabel := 'Configuration' translated.
- 			helpLabel := 'Help' translated].
- 	""
- 	aDockingBar
- 		add: squeakLabel
- 		icon: squeakIcon
- 		help: 'Options related to Squeak as a whole' translated
- 		subMenu: self squeakMenu.
- 	aDockingBar
- 		add: projectLabel
- 		icon: homeIcon
- 		help: 'Options to open things in the current project or to navigate between projects' translated
- 		subMenu: self projectMenu.
- 	aDockingBar
- 		add: configurationLabel
- 		icon: configurationIcon
- 		help: 'Options to configure Squeak' translated
- 		subMenu: self configurationMenu.
- 	aDockingBar
- 		add: helpLabel
- 		icon: helpIcon
- 		help: 'Helpful options or options to get help' translated
- 		subMenu: self helpMenu!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>forwardIcon (in category 'private - icons') -----
- forwardIcon
- 	^ Preferences tinyDisplay
- 		ifTrue: [MenuIcons smallForwardIcon]
- 		ifFalse: [MenuIcons forwardIcon]!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>objectsIcon (in category 'private - icons') -----
- objectsIcon
- 	^ Preferences tinyDisplay
- 		ifTrue: [MenuIcons smallObjectsIcon]
- 		ifFalse: [MenuIcons objectsIcon]!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>clearTurtleTrails (in category 'menu actions') -----
- clearTurtleTrails
- 	self world clearTurtleTrails!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>paintIcon (in category 'private - icons') -----
- paintIcon
- 	^ Preferences tinyDisplay
- 		ifTrue: [MenuIcons smallPaintIcon]
- 		ifFalse: [MenuIcons paintIcon]!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>about (in category 'menu actions') -----
- about
- 
- 	!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>createDockingBar (in category 'construction') -----
- createDockingBar
- 	"Create a docking bar from the receiver's representation"
- 	| dockingBar |
- 	dockingBar := DockingBarMorph new.
- 	dockingBar adhereToTop.
- 	dockingBar color: ColorTheme current dockingBarColor.
- 	dockingBar gradientRamp: ColorTheme current  dockingBarGradientRamp.
- 	dockingBar autoGradient: ColorTheme current dockingBarAutoGradient.
- 	""
- 	self fillDockingBar: dockingBar.
- 	""
- 	^ dockingBar!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>findAnyFile (in category 'menu actions') -----
- findAnyFile
- 	FileList2 morphicViewGeneralLoaderInWorld: self world!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>hideAllViewers (in category 'menu actions') -----
- hideAllViewers
- 	self hideAllViewersIn: self world!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>exitFromFullScreen (in category 'menu actions') -----
- exitFromFullScreen
- 	self toggleFullScreen!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>saveAsNewVersionMenuItem (in category 'construction - submenus') -----
- saveAsNewVersionMenuItem
- 
- 	^{	'Save As New Version'. 
- 		'Save the current state of Squeak on disk under a version-stamped name'. 
- 		MenuIcons smallSaveAsIcon.
- 		#saveAsNewVersion }!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>viewObjectsHierarchy (in category 'menu actions') -----
- viewObjectsHierarchy
- 	"self world findWindow: nil"
- 	MorphHierarchy openOrDelete!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>squeakLogoIcon (in category 'private - icons') -----
- squeakLogoIcon
- 
- 	^MenuIcons squeakLogoIcon!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>openIcon (in category 'private - icons') -----
- openIcon
- 	^ Preferences tinyDisplay
- 		ifTrue: [MenuIcons smallOpenIcon]
- 		ifFalse: [MenuIcons openIcon]!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>jumpIcon (in category 'private - icons') -----
- jumpIcon
- 	^ Preferences tinyDisplay
- 		ifTrue: [MenuIcons smallJumpIcon]
- 		ifFalse: [MenuIcons jumpIcon]!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>projectMenu (in category 'construction - submenus') -----
- projectMenu
- 	| menu |
- 	menu := MenuMorph new defaultTarget: self.
- 	""
- 	Preferences noviceMode
- 		ifFalse: [""
- 			self createMenuItem: {'open...'. nil. MenuIcons smallOpenIcon} on: menu.
- 			self createMenuItem: {'windows...'. nil. MenuIcons smallWindowIcon} on: menu.
- 			menu addLine].
- 	""
- 	self createMenuItem: {'previous project'. 'Return to the most recently visited project'. MenuIcons smallBackIcon} on: menu.
- 	self createMenuItem: {'jump to project...'. 'Put up a list of all projects, letting me choose one to go to'. MenuIcons smallJumpIcon} on: menu.
- 	self createMenuItem: {'next project'. 'Go to next project'. MenuIcons smallForwardIcon} on: menu.
- 	menu addLine.
- 	self createMenuItem: {'find any file'. 'Import a file into Squeak'. MenuIcons smallOpenIcon} on: menu.
- 	self createMenuItem: {'find a project'. 'Open a project into Squeak'. MenuIcons smallLoadProjectIcon} on: menu.
- 	menu addLine.
- 	self createMenuItem: {'new project'. 'Start a new project'. MenuIcons smallProjectIcon} on: menu.
- 	self createMenuItem: {'make new drawing'. 'Make a painting'. MenuIcons smallPaintIcon} on: menu.
- 	self createMenuItem: {'object catalog (o)'. 'A tool for finding and obtaining many kinds of objects'. MenuIcons smallObjectCatalogIcon} on: menu.
- 	menu addLine.
- 	self createMenuItem: {'object from paste buffer'. 'Create a new object from paste buffer'. MenuIcons smallPasteIcon} on: menu.
- 	Preferences useUndo
- 		ifTrue: [""
- 			Preferences infiniteUndo
- 				ifTrue: [""
- 					menu
- 						addUpdating: #undoMenuWording
- 						target: self commandHistory
- 						action: #undoLastCommand.
- 					menu
- 						addUpdating: #redoMenuWording
- 						target: self commandHistory
- 						action: #redoNextCommand]
- 				ifFalse: [""
- 					menu
- 						addUpdating: #undoOrRedoMenuWording
- 						target: self commandHistory
- 						action: #undoOrRedoCommand]].
- 	menu addLine.
- 	self createMenuItem: {'view objects hierarchy'. 'A tool for discovering the objects and the relations between them'. MenuIcons smallObjectsIcon} on: menu.
- 	menu addLine.
- 	self createMenuItem: {'publish project'. 'Publish the current project'. MenuIcons smallPublishIcon} on: menu.
- 	""
- 	^ menu!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>jumpToProject (in category 'menu actions') -----
- jumpToProject
- 	Project current jumpToProject!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>saveAndQuit (in category 'menu actions') -----
- saveAndQuit
- 	SmalltalkImage current snapshot: true andQuit: true!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>projectIcon (in category 'private - icons') -----
- projectIcon
- 	^ Preferences tinyDisplay
- 		ifTrue: [MenuIcons smallProjectIcon]
- 		ifFalse: [MenuIcons projectIcon]!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>viewSelectedObject (in category 'menu actions') -----
- viewSelectedObject
- 	| selected menu |
- 	selected := self world selectedObject.
- 	selected isNil
- 		ifTrue: [^ self viewObjectsHierarchy].
- 	""
- 	menu := selected buildYellowButtonMenu: ActiveHand.
- 	menu
- 		addTitle: selected externalName
- 		icon: (selected iconOrThumbnailOfSize: (Preferences tinyDisplay ifTrue: [16] ifFalse: [28])).
- 	menu popUpInWorld: selected currentWorld!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>setWorldColor (in category 'menu actions') -----
- setWorldColor
- | world |
- world := self world.
- 	world
- 		changeColorTarget: world
- 		selector: #color:
- 		originalColor: world color
- 		hand: world activeHand!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>findAProject (in category 'menu actions') -----
- findAProject
- 	FileList2
- 		morphicViewProjectLoader2InWorld: self world
- 		reallyLoad: true
- 		dirFilterType: #limitedSuperSwikiDirectoryList!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld class>>showWorldMainDockingBar: (in category 'preferences') -----
- showWorldMainDockingBar: aBoolean
- 	
- 	Project current showWorldMainDockingBar: aBoolean!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>purgeUndoRecords (in category 'menu actions') -----
- purgeUndoRecords
- 	 CommandHistory resetAllHistory!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>previousProject (in category 'menu actions') -----
- previousProject
- 
- 	Project returnToPreviousProject.
- 	Project current exit.	"go to parent if no previous"
- 	Beeper beep.!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld class>>localeChanged (in category 'as yet unclassified') -----
- localeChanged
- 	self updateInstances!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>importFile (in category 'menu actions') -----
- importFile
- 	self findAnyFile!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>publishIcon (in category 'private - icons') -----
- publishIcon
- 	^ Preferences tinyDisplay
- 		ifTrue: [MenuIcons smallPublishIcon]
- 		ifFalse: [MenuIcons publishIcon]!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>openDockingBar (in category 'construction') -----
- openDockingBar
- 	^ self createDockingBar openInWorld !

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>objectFromPasteBuffer (in category 'menu actions') -----
- objectFromPasteBuffer
- 	ActiveHand 	pasteMorph!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>createMenuItem:on: (in category 'private') -----
- createMenuItem: triplet on: menu 
- 	| wording help selectorOrMenu |
- 	wording := triplet first.
- 	help := triplet second.
- 	selectorOrMenu := triplet size > 3
- 				ifTrue: [triplet fourth]
- 				ifFalse: [self selectorForWording: wording].
- 	""
- 	selectorOrMenu isSymbol
- 		ifTrue: [""
- 			menu
- 				add: wording translated
- 				target: self
- 				selector: selectorOrMenu]
- 		ifFalse: [menu add: wording translated subMenu: selectorOrMenu].
- 	""
- 	help isNil
- 		ifFalse: [menu lastItem setBalloonText: help translated].""
- 	Preferences tinyDisplay
- 		ifFalse: [triplet size > 2
- 				ifTrue: [menu lastItem icon: triplet third]]!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>saveAndQuitMenuItem (in category 'construction - submenus') -----
- saveAndQuitMenuItem
- 
- 	^{	'Save And Quit'. 
- 		'Save the current state of Squeak on disk, and quit out of Squeak'. 
- 		MenuIcons smallQuitIcon.
- 		#saveAndQuit }!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>objectCatalog (in category 'menu actions') -----
- objectCatalog
- 	self activateObjectsTool!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>setLanguage (in category 'menu actions') -----
- setLanguage
- 	Project current chooseNaturalLanguage !

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>gradientRamp (in category 'construction') -----
- gradientRamp
- 
- 	^{ 
- 		0.0 -> Color white.
- 		1.0 -> Preferences menuColor }!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>publishStyle:forgetURL:withRename: (in category 'menu actions') -----
- publishStyle: aSymbol forgetURL: aBoolean withRename: renameBoolean
- 
- 	| w primaryServer rename |
- 
- 	w := self world ifNil: [^Beeper beep].
- 	w setProperty: #SuperSwikiPublishOptions toValue: aSymbol.
- 
- 	primaryServer := w project primaryServerIfNil: [nil].
- 	rename := ((primaryServer notNil
- 		and: [primaryServer acceptsUploads]) not)
- 		or: [renameBoolean].
- 	w setProperty: #SuperSwikiRename toValue: rename.
- 
- 	w project 
- 		storeOnServerShowProgressOn: self 
- 		forgetURL: aBoolean | rename.
- !

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>quitMenuItem (in category 'construction - submenus') -----
- quitMenuItem
- 
- 	^{	'Quit'. 
- 		'Quit out of Squeak'. 
- 		MenuIcons smallQuitIcon.
- 		#quit }!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>switchToNoviceMode (in category 'menu actions') -----
- switchToNoviceMode
- 	Preferences disable: #cmdGesturesEnabled.
- 	Preferences disable: #debugHaloHandle.
- 	Preferences enable: #noviceMode.
- !

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>preferences (in category 'menu actions') -----
- preferences
- 	PreferenceBrowser open!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>selectorForWording: (in category 'private') -----
- selectorForWording: aString 
- 	"Private - Create a valid smalltalk selector from an english  
- 	wording.  
- 	'foo' -> #foo  
- 	'foo....' -> #foo  
- 	'foo bar' -> #fooBar  
- 	'foo bar (f)' - #fooBar  
- 	"
- 	| words selector temp |
- 	temp := aString.
- 	('*(*)*' match: temp)
- 		ifTrue: [| pre post | 
- 			pre := temp copyUpTo: $(.
- 			post := temp copyAfterLast: $).
- 			temp := pre , post].
- 	""
- 	temp := temp
- 				collect: [:each | ""
- 					each isLetter
- 						ifTrue: [each]
- 						ifFalse: [Character space]].
- 	words := temp subStrings: Character separators.
- 	selector := String
- 				streamContents: [:stream | ""
- 					words
- 						do: [:word | stream nextPutAll: word capitalized]].
- 	selector at: 1 put: selector first asLowercase.
- 	""
- 	^ selector asSymbol!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>switchToFullScreen (in category 'menu actions') -----
- switchToFullScreen
- 	self toggleFullScreen!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>aboutMenuItem (in category 'construction - submenus') -----
- aboutMenuItem
- 
- 	^{	'About Squeak...'. 
- 		nil. 
- 		nil.
- 		#about }!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>quit (in category 'menu actions') -----
- quit
- 	Preferences readOnlyMode
- 		ifTrue: [""(self confirm: 'REALLY quit Squeak?' translated)
- 				ifTrue: [SmalltalkImage current snapshot: false andQuit: true]]
- 		ifFalse: [| saveBeforeQuitting | 
- 			saveBeforeQuitting := self
- 						confirm: 'Save changes before quitting?' translated
- 						orCancel: [^ self].
- 			SmalltalkImage current snapshot: saveBeforeQuitting andQuit: true]!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>squeakMenu (in category 'construction - submenus') -----
- squeakMenu
- 	| menu |
- 	menu := MenuMorph new defaultTarget: self.
- 	""
- 	" 
- 	menu add: 'configuration...' translated subMenu: self  
- 	configurationMenu. menu lastItem icon: MenuIcons  
- 	smallConfigurationIcon. menu addLine.  
- 	"
- 	Preferences readOnlyMode ifFalse:[""
- 	self createMenuItem: {'save'. 'Save the current state of Squeak on disk'. MenuIcons smallSaveIcon} on: menu.
- 	self createMenuItem: {'save as...'. 'Save the current state of Squeak on disk under a new name'. MenuIcons smallSaveAsIcon} on: menu.
- 	Preferences noviceMode
- 		ifFalse: [""
- 			self createMenuItem: {'save as new version'. 'Save the current state of Squeak on disk under a version-stamped name'. MenuIcons smallSaveAsIcon} on: menu].
- 	menu addLine.
- 	self createMenuItem: {'save and quit'. 'Save the current state of Squeak on disk, and quit out of Squeak'. MenuIcons smallQuitIcon} on: menu].
- 	self createMenuItem: {'quit'. 'Quit out of Squeak'. MenuIcons smallQuitIcon} on: menu.
- 	""
- 	^ menu!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>squeakLogoInvertedIcon (in category 'private - icons') -----
- squeakLogoInvertedIcon
- 
- 	^MenuIcons squeakLogoInvertedIcon!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>updateIfNeeded: (in category 'private') -----
- updateIfNeeded: aDockingBar 
- "Update the given docking bar if needed"
- 	| timeStamp |
- 	timeStamp := aDockingBar
- 				valueOfProperty: #mainDockingBarTimeStamp
- 				ifAbsent: [^ self].
- 	timeStamp = self class timeStamp
- 		ifTrue: [^ self].
- 	""
- 	aDockingBar removeAllMorphs.
- 	self fillDockingBar: aDockingBar!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>worldMenu (in category 'private') -----
- worldMenu
- 	^ TheWorldMenu new
- 		world: self world
- 		project: Project current
- 		hand: self world activeHand; yourself!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>colorOffEvent:for: (in category 'private - buttons') -----
- colorOffEvent: anEvent for: aMorph 
- 	"Private - gives an off-color to the given morph"
- 	aMorph color: self offColor!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld class>>initialize (in category 'class initialization') -----
- initialize
- 	"Initialize the receiver"
- 	Preferences
- 		addPreference: #showWorldMainDockingBar
- 		categories: #(#'docking bars' )
- 		default: true
- 		balloonHelp: 'Whether world''s main docking bar should be shown or not.'
- 		projectLocal: true
- 		changeInformee: TheWorldMainDockingBar
- 		changeSelector: #showWorldMainDockingBarPreferenceChanged.
- 	""
- 	SystemChangeNotifier uniqueInstance noMoreNotificationsFor: self.
- 	SystemChangeNotifier uniqueInstance
- 		notify: self
- 		ofSystemChangesOfItem: #method
- 		using: #updateInstances:.
- 	""
- 	Locale addLocalChangedListener: self.
- 	self setTimeStamp!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>fullScreenIcon (in category 'private - icons') -----
- fullScreenIcon
- 	^ Preferences tinyDisplay
- 		ifTrue: [MenuIcons smallFullScreenIcon]
- 		ifFalse: [MenuIcons fullScreenIcon]!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>save (in category 'menu actions') -----
- save
- 	SmalltalkImage current snapshot: true andQuit: false!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld class>>showWorldMainDockingBar (in category 'preferences') -----
- showWorldMainDockingBar
- 	
- 	<preference: 'Show world main docking bar'
- 		category: 'docking bars'
- 		description: 'Whether world''s main docking bar should be shown or not.'
- 		type: #Boolean>
- 	^Project current showWorldMainDockingBar!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>showWorldMainDockingBarString (in category 'menu actions') -----
- showWorldMainDockingBarString
- 	^ self world showWorldMainDockingBarString!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>helpMenu (in category 'construction - submenus') -----
- helpMenu
- 	| menu |
- 	menu := MenuMorph new defaultTarget: self.
- 	""
- 	self createMenuItem: {'move objects onscreen'. 'Bring back all objects whose current coordinates keep them from being visible, so that at least a portion of each of my interior objects can be seen'} on: menu.
- 	self createMenuItem: {'unhide hidden objects'. 'If any items on the world are currently hidden, make them visible'} on: menu.
- 	menu addLine.
- 	self createMenuItem: {'show all viewers'. 'Make visible the viewers for all objects which have user-written scripts in this playfield'} on: menu.
- 	self createMenuItem: {'hide all viewers'. 'Make invisible the viewers for all objects in the world'} on: menu.
- 	menu addLine.
- 	self createMenuItem: {'clear turtle trails'. 'Remove any pigment laid down on the desktop by objects moving with their pens down'} on: menu.
- "
- 	menu addLine.
- 	self createMenuItem: {'eToy vocabulary summary'. 'Displays a summary of all the pre-defined commands and properties in the pre-defined eToy vocabulary'} on: menu.
- "
- 	""
- 	^ menu!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>backIcon (in category 'private - icons') -----
- backIcon
- 	^ Preferences tinyDisplay
- 		ifTrue: [MenuIcons smallBackIcon]
- 		ifFalse: [MenuIcons backIcon]!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>perform:event:for: (in category 'private - buttons') -----
- perform: selectorSymbol event: anEvent for: aMorph 
- 	"Private - perform the given selector"
- 	aMorph color: self offColor.
- 	self perform: selectorSymbol!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>objectCatalogIcon (in category 'private - icons') -----
- objectCatalogIcon
- 	^ Preferences tinyDisplay
- 		ifTrue: [MenuIcons smallObjectCatalogIcon]
- 		ifFalse: [MenuIcons objectCatalogIcon]!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>newProject (in category 'menu actions') -----
- newProject
- 	MorphicProject openViewOn: nil!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>saveAs (in category 'menu actions') -----
- saveAs
- 	SmalltalkImage current saveAs!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>activateObjectsTool (in category 'menu actions') -----
- activateObjectsTool
- 	self world activateObjectsTool!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>toggleFullScreen (in category 'menu actions') -----
- toggleFullScreen
- 	ScreenController lastScreenModeSelected
- 		ifTrue: [ScreenController new fullScreenOff]
- 		ifFalse: [ScreenController new fullScreenOn].
- 	self world positionSubmorphs.
- self class updateInstances!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>eToyVocabularySummary (in category 'menu actions') -----
- eToyVocabularySummary
- 	Cursor wait
- 		showWhile: [self world printVocabularySummary]!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>onColor (in category 'private - buttons') -----
- onColor
- "Private - answer the on color"
- 	^ (Preferences menuSelectionColor
- 		ifNil: [Color blue])
- 		alpha: 0.4!

Item was removed:
- Object subclass: #TheWorldMainDockingBarOld
- 	instanceVariableNames: 'icons'
- 	classVariableNames: 'Instance TS'
- 	poolDictionaries: ''
- 	category: 'Morphic-Kernel'!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>loadProjectIcon (in category 'private - icons') -----
- loadProjectIcon
- 	^ Preferences tinyDisplay
- 		ifTrue: [MenuIcons smallLoadProjectIcon]
- 		ifFalse: [MenuIcons loadProjectIcon]!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld class>>setTimeStamp (in category 'timestamping') -----
- setTimeStamp
- 	"Change the receiver's timeStamp"
- 	TS := UUID new!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>saveMenuItem (in category 'construction - submenus') -----
- saveMenuItem
- 
- 	^{	'Save Image'. 
- 		'Save the current state of Squeak on disk'. 
- 		MenuIcons smallSaveIcon.
- 		#save }!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld class>>showWorldMainDockingBarPreferenceChanged (in category 'preferences') -----
- showWorldMainDockingBarPreferenceChanged
- 	"The preference #showWorldMainDockingBar has just  
- 	changed"
- 	Project current showWorldMainDockingBar:  Preferences showWorldMainDockingBar!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>toggleShowWorldMainDockingBar (in category 'menu actions') -----
- toggleShowWorldMainDockingBar
- 	self world toggleShowWorldMainDockingBar!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld class>>new (in category 'instance creation') -----
- new
- 	"Singleton, use #instance"
- 	^ self error: 'Use #instance'!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>makeNewDrawing (in category 'menu actions') -----
- makeNewDrawing
- 	self doNewPainting!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>updateFromServer (in category 'menu actions') -----
- updateFromServer
- 	Smalltalk
- 		at: #SmallLandTools
- 		ifPresent: [:smallLandTools | smallLandTools instance updateFromSmallLandSwikiPage: #quick]!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>unhideHiddenObjects (in category 'menu actions') -----
- unhideHiddenObjects
- 	self world showHiders!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>suppressFlapsString (in category 'menu actions') -----
- suppressFlapsString
- 	"Answer the wording of the suppress-flaps item"
- 	^ Project current suppressFlapsString!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>doNewPainting (in category 'menu actions') -----
- doNewPainting
- 	| w |
- 	w := self world.
- 	w
- 		assureNotPaintingElse: [^ self].
- 	w
- 		makeNewDrawing: (World primaryHand lastEvent copy setPosition: w center)!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>saveAsMenuItem (in category 'construction - submenus') -----
- saveAsMenuItem
- 
- 	^{	'Save Image As...'. 
- 		'Save the current state of Squeak on disk under a new name'. 
- 		MenuIcons smallSaveAsIcon.
- 		#saveAs }!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>configurationMenu (in category 'construction - submenus') -----
- configurationMenu
- 	| menu |
- 	menu := MenuMorph new defaultTarget: self.
- 	""
- 	self createMenuItem: {'set language...'. 'Choose the language in which Squeak should be displayed'. MenuIcons smallLanguageIcon} on: menu.
- 	menu addLine.
- 	self createMenuItem: {'update from server'. 'Update from server (Internet access is required)'. MenuIcons smallUpdateIcon} on: menu.
- 	""
- 	menu addLine.
- 	menu addUpdating: #showWorldMainDockingBarString action: #toggleShowWorldMainDockingBar.
- 	Flaps sharedFlapsAllowed
- 		ifTrue: [menu
- 				addUpdating: #suppressFlapsString
- 				target: Project current
- 				action: #toggleFlapsSuppressed].
- 	menu addLine.
- 	self createMenuItem: {'set world color...'. 'Choose a color to use as world background.'} on: menu.
- 	ScreenController lastScreenModeSelected
- 		ifTrue: [self createMenuItem: {'exit from full screen'. 'Exit from full screen and enclose Squeak in a window'. MenuIcons smallFullScreenIcon} on: menu]
- 		ifFalse: [self createMenuItem: {'switch to full screen'. 'Switch to full screen giving the maximun display space to Squeak'. MenuIcons smallFullScreenIcon} on: menu].
- 	""
- 	self createMenuItem: {'change sound volume'. 'Change sound volume'. MenuIcons smallVolumeIcon} on: menu.
- 	menu addLine.
- 	Preferences noviceMode
- 		ifFalse: [""
- 			Preferences useUndo
- 				ifTrue: [""
- 					self createMenuItem: {'purge undo records'. 'Save space by removing all the undo information.'} on: menu.
- 					menu addLine].
- 			self createMenuItem: {'preferences..'. 'Opens a "Preferences Panel" which allows you to alter many settings'. MenuIcons smallConfigurationIcon} on: menu.
- 			self createMenuItem: {'appearance...'. nil. MenuIcons smallConfigurationIcon} on: menu].
- 	self createMenuItem: {'set color theme...'. 'Choose the color theme in which Squeak should be displayed'} on: menu.
- 	menu addLine.
- 	Preferences noviceMode
- 		ifTrue: [self createMenuItem: {'switch to expert mode'. 'Switch to expert mode. CAUTION: The expert mode is powerful as well as dangerous'. MenuIcons smallExpertIcon} on: menu]
- 		ifFalse: [self createMenuItem: {'switch to novice mode'. 'Come back to novice mode'. MenuIcons smallExpertIcon} on: menu].
- 	""
- 	^ menu!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld class>>timeStamp (in category 'timestamping') -----
- timeStamp
- 	"Answer the receiver's timeStamp"
- 	^ TS!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld class>>updateInstances (in category 'events') -----
- updateInstances
- 	"The class has changed, time to update the instances"
- 
- 	self setTimeStamp.
- 	Project current assureMainDockingBarPresenceMatchesPreference!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>moveObjectsOnscreen (in category 'menu actions') -----
- moveObjectsOnscreen
- 	self world roundUpStrays!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld class>>instance (in category 'instance creation') -----
- instance
- 	"Answer the receiver's instance"
- 	^ Instance
- 		ifNil: [Instance := super new]!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>fillDockingBar: (in category 'construction') -----
- fillDockingBar: aDockingBar 
- 	"Private - fill the given docking bar"
- 	self fillMenuItemsBar: aDockingBar.
- 	""
- 	aDockingBar addSpacer.
- 	self fillNavigatorOn: aDockingBar.
- 	""
- 	aDockingBar addSpacer.
- 	Preferences tinyDisplay
- 		ifFalse: [| clock | 
- 			clock := ClockMorph new.
- 			clock show24hr: true.
- 			clock showSeconds: false.
- 			clock font: Preferences standardMenuFont emphasis: 0.
- 			aDockingBar addMorphBack: clock.
- 			aDockingBar addSpace: 5.
- 	""
- 	aDockingBar
- 		addMorphBack: (self
- 				createButtonIcon: self volumeIcon
- 				help: 'Change sound volume' translated
- 				selector: #changeSoundVolume)].
- 	aDockingBar
- 		addMorphBack: (self
- 				createButtonIcon: self fullScreenIcon
- 				help: (ScreenController lastScreenModeSelected
- 						ifTrue: ['Exit from full screen']
- 						ifFalse: ['Switch to full screen'])
- 				selector: #toggleFullScreen).
- 	aDockingBar
- 		addMorphBack: (self
- 				createButtonIcon: (SelectedObjectThumbnail
- 						extent: 37 @ 28
- 								- (Preferences tinyDisplay
- 										ifTrue: [12]
- 										ifFalse: [0])
- 						noSelectedThumbnail: self objectsIcon
- 						noSelectedBalloonText: 'View objects hierarchy' translated)
- 				selector: #viewSelectedObject).
- 	""
- 	aDockingBar setProperty: #mainDockingBarTimeStamp toValue: self class timeStamp!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>saveAsNewVersion (in category 'menu actions') -----
- saveAsNewVersion
- 	SmalltalkImage current saveAsNewVersion!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>fillNavigatorOn: (in category 'construction') -----
- fillNavigatorOn: main 
- 	"main addLine."
- 	main addDefaultSpace.
- 	""
- 	main
- 		addMorphBack: (self
- 				createButtonIcon: self backIcon
- 				help: 'Previous project'
- 				selector: #previousProject).
- 	main
- 		addMorphBack: (self
- 				createButtonIcon: self jumpIcon
- 				help: 'Put up a list of all projects, letting me choose one to go to'
- 				selector: #jumpToProject).
- 	main
- 		addMorphBack: (self
- 				createButtonIcon: self forwardIcon
- 				help: 'Next project'
- 				selector: #nextProject).
- 	main
- 		addMorphBack: (self
- 				createButtonIcon: self openIcon
- 				help: 'Find any file'
- 				selector: #findAnyFile).
- Preferences tinyDisplay ifFalse:[""
- 	main
- 		addMorphBack: (self
- 				createButtonIcon: self loadProjectIcon
- 				help: 'Find a project'
- 				selector: #findAProject)].
- 	main addDefaultSpace.
- 	main addSpacer.
- 	main
- 		addMorphBack: (self
- 				createButtonIcon: self projectIcon
- 				help: 'Start a new project'
- 				selector: #newProject).
- 	main
- 		addMorphBack: (self
- 				createButtonIcon: self paintIcon
- 				help: 'Make a painting'
- 				selector: #doNewPainting).
- 	main
- 		addMorphBack: (self
- 				createButtonIcon: self objectCatalogIcon
- 				help: 'Open the objects catalog'
- 				selector: #activateObjectsTool).
- Preferences tinyDisplay ifFalse:[""
- 	main
- 		addMorphBack: (self
- 				createButtonIcon: self publishIcon
- 				help: 'Publish the current project'
- 				selector: #publishProject)].
- 	""
- 	main addDefaultSpace!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>colorOnEvent:for: (in category 'private - buttons') -----
- colorOnEvent: anEvent for: aMorph 
- 	"Private - gives an on-color to the given morph"
- 	aMorph color: self onColor!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>open (in category 'menu actions') -----
- open
- 	self worldMenu openMenu popUpInWorld!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld class>>updateInstances: (in category 'events') -----
- updateInstances: anEvent 
- 	"The class has changed, time to update the instances"
- 	(anEvent itemClass == self
- 			or: [anEvent itemClass == self class])
- 		ifFalse: [^ self].
- 	""
- 	self updateInstances!

Item was removed:
- ----- Method: TheWorldMainDockingBarOld>>world (in category 'private') -----
- world
- ^ World!



More information about the Packages mailing list