[squeak-dev] The Trunk: System-fbs.529.mcz

commits at source.squeak.org commits at source.squeak.org
Mon May 13 21:10:17 UTC 2013


Frank Shearar uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-fbs.529.mcz

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

Name: System-fbs.529
Author: fbs
Time: 13 May 2013, 10:09:14.405 pm
UUID: 2ba98257-9342-4eee-a927-a0c3d6deaf41
Ancestors: System-fbs.528

Another tiny step in breaking the System -> MorphicExtras dependency. Locale class>>migrateSystem moves to MorphicExtras because, while it refers to other packages as well, MorphicExtras form the largest minority of package references.

=============== Diff against System-fbs.528 ===============

Item was removed:
- ----- Method: HTTPClient class>>tellAFriend:url:name: (in category 'utilities') -----
- tellAFriend: emailAddressOrNil url: urlForLoading name: projectName
- 	| recipient subject body linkToInclude |
- 	recipient := emailAddressOrNil ifNil: ['RECIPIENT.GOESHERE'].
- 	subject := 'New/Updated Squeak project'.
- 	body := 'This is a link to the Squeak project ' , projectName , ': ' , String crlf.
- 	linkToInclude := urlForLoading.
- 	HTTPClient shouldUsePluginAPI
- 		ifTrue: [
- 			self composeMailTo: recipient subject: subject body: body , (linkToInclude copyReplaceAll: '%' with: '%25')]
- 		ifFalse: [FancyMailComposition new
- 				celeste: nil 
- 				to: recipient
- 				subject: subject
- 				initialText: body
- 				theLinkToInclude: linkToInclude;
- 				open].!

Item was removed:
- ----- Method: Locale class>>migrateSystem (in category 'private') -----
- migrateSystem
- 	"Locale migrateSystem"
- 	"Do all the necessary operations to switch to the new Locale environment."
- 
- 	LocaleChangeListeners := nil.
- 	self
- 		addLocalChangedListener: HandMorph;
- 		addLocalChangedListener: Clipboard;
- 		addLocalChangedListener: Vocabulary;
- 		addLocalChangedListener: PartsBin;
- 		addLocalChangedListener: Project;
- 		addLocalChangedListener: PaintBoxMorph;
- 		yourself!

Item was removed:
- ----- Method: Utilities class>>scrapsBook (in category 'scraps') -----
- scrapsBook
- 	| header aButton label |
- 	ScrapsBook ifNil:
- 		[ScrapsBook := BookMorph new pageSize: 200 at 300; setNameTo: 'scraps' translated.
- 		ScrapsBook color: Color yellow muchLighter.
- 		ScrapsBook borderColor: Color darkGray; borderWidth: 2.
- 		ScrapsBook removeEverything; showPageControls; insertPage.
- 		header := AlignmentMorph newRow wrapCentering: #center; cellPositioning: #leftCenter.
- 		header setProperty: #header toValue: true.
- 		header addMorph: (aButton := SimpleButtonMorph new label: 'O' font: Preferences standardButtonFont).
- 		aButton target: ScrapsBook; color:  Color tan; actionSelector: #delete;
- 				setBalloonText: 'Close the trashcan.
- (to view again later, click on any trashcan).' translated.
- 
- 		header addMorphBack: AlignmentMorph newVariableTransparentSpacer beSticky.
- 		header addMorphBack: 	(label := UpdatingStringMorph new target: self) beSticky.
- 		label getSelector: #trashTitle; useStringFormat; step.
- 		header addMorphBack: AlignmentMorph newVariableTransparentSpacer beSticky.
- 		header addMorphBack: (aButton := SimpleButtonMorph new label: 'E' translated font: Preferences standardButtonFont).
- 		aButton target: Utilities; color:  Color veryLightGray; actionSelector: #maybeEmptyTrash;
- 				setBalloonText: 'Click here to empty the trash.' translated.
- 		ScrapsBook currentPage addMorph: (TextMorph new contents: 'Objects you drag into the trash will automatically be saved here, one object per page, in case you need them later.  To disable this feature set the "preserveTrash" Preference to false.
- 
- You can individually expunge objects by hitting the - control, and you can empty out all the objects in the trash can by hitting the "E" button at top right.' translated
- 			wrappedTo: 190).
- 
- 		ScrapsBook addMorphFront: header.
- 		ScrapsBook setProperty: #scraps toValue: true].
- 	^ ScrapsBook
- 
- 	"Utilities emptyScrapsBook"
- !



More information about the Squeak-dev mailing list