A new version of EToys was added to project The Inbox:
http://source.squeak.org/inbox/EToys-kfr.90.mcz

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

Name: EToys-kfr.90
Author: kfr
Time: 27 October 2013, 1:20:20.65 pm
UUID: d78224f0-2f95-d24e-9975-69477d89a347
Ancestors: EToys-bf.89

Add text alignments to properties panel

Remove call to missing addOptionalButtons from properties panel

=============== Diff against EToys-bf.89 ===============

Item was changed:
  ----- Method: ObjectPropertiesMorph>>rebuild (in category 'connectors-visual properties') -----
  rebuild
  	| buttons |
  	
  	self removeAllMorphs.
  	self addARow: {
  		self lockedString: ('Properties for {1}' translated format: {myTarget name}).
  	}.
  	self addARow: {
  		self inAColumn: {
  			self paneForCornerRoundingToggle.
  			self paneForStickinessToggle.
  			self paneForLockedToggle.
  		}.
  	}.
  
  	self addARow: {
  		self paneForMainColorPicker.
  		self paneFor2ndGradientColorPicker.
  	}.
  	self addARow: {
  		self paneForBorderColorPicker.
  		self paneForShadowColorPicker.
  	}.
  
  	buttons := OrderedCollection new.
  	buttons addAll: {
  	self 
  			buttonNamed: 'Accept' translated action: #doAccept color: color lighter 
  			help: 'keep changes made and close panel' translated.
  		self 
  			buttonNamed: 'Cancel' translated action: #doCancel color: color lighter 
  			help: 'cancel changes made and close panel' translated.
  	}.
  	
+ 	
- 	self addOptionalButtonsTo: buttons.
  	self addARow: buttons.
  
  	thingsToRevert := Dictionary new.
  	"thingsToRevert at: #fillStyle: put: myTarget fillStyle."
  	myTarget isSystemWindow ifTrue: [
  		thingsToRevert at: #setWindowColor: put: myTarget paneColorToUse
  	].
  	thingsToRevert at: #hasDropShadow: put: myTarget hasDropShadow.
  	thingsToRevert at: #shadowColor: put: myTarget shadowColor.
  	(myTarget respondsTo: #borderColor:) ifTrue: [
  		thingsToRevert at: #borderColor: put: myTarget borderColor.
  	].
  
  	thingsToRevert at: #borderWidth: put: myTarget borderWidth.
  	thingsToRevert at: #cornerStyle: put: myTarget cornerStyle.
  	thingsToRevert at: #sticky: put: myTarget isSticky.
  	thingsToRevert at: #lock: put: myTarget isLocked.
  !

Item was added:
+ ----- Method: TextPropertiesMorph>>alignCenter (in category 'as yet unclassified') -----
+ alignCenter
+ 	self alignText: #centered.!

Item was added:
+ ----- Method: TextPropertiesMorph>>alignJustified (in category 'as yet unclassified') -----
+ alignJustified
+ 	self alignText:  #justified.
+ 	!

Item was added:
+ ----- Method: TextPropertiesMorph>>alignLeft (in category 'as yet unclassified') -----
+ alignLeft
+ 	self alignText: #leftFlush.
+ 	!

Item was added:
+ ----- Method: TextPropertiesMorph>>alignRight (in category 'as yet unclassified') -----
+ alignRight
+ 	self alignText: #rightFlush.!

Item was added:
+ ----- Method: TextPropertiesMorph>>alignText: (in category 'as yet unclassified') -----
+ alignText: aSymbol
+ 	self applyToWholeText ifTrue: [self activeEditor selectAll].
+ 	self activeEditor setAlignment: aSymbol.
+ 	self activeEditor paragraph composeAll.
+ 	self activeEditor  recomputeSelection.
+ 	self activeTextMorph updateFromParagraph.
+ !

Item was changed:
  ----- Method: TextPropertiesMorph>>rebuild (in category 'as yet unclassified') -----
  rebuild
  
  	| buttonColor c |
  
  	self removeAllMorphs.
  	self addAColumn: {
  		self lockedString: ('Text Properties for {1}' translated format:{myTarget name}).
  	}.
  	self addAColumn: {
  		self paneForApplyToWholeText.
  	}.
  
  
  	c := self addAColumn: {
  		self activeTextMorph.
  	}.
  	c 
  		wrapCentering: #topLeft;
  		color: Color white;
  		borderWidth: 2;
  		borderColor: color darker.
  	self addAColumn: {
  		self paneForTextColorPicker.
  	}.
  
  	self addARow: {
  		self paneForAutoFitToggle.
  	}.
  	self addARow: {
  		self paneForWrappingToggle.
  	}.
  	self addARow: {
  		self paneForMargins.
  	}.
  
  	buttonColor := color lighter.
  	self addARow: {
  		self inAColumn: {
  			self addARow: {
  				self 
  					buttonNamed: 'Size' translated action: #offerFontMenu color: buttonColor
  					help: 'font changing' translated.
  				self 
  					buttonNamed: 'Style' translated action: #changeStyle color: buttonColor
  					help: 'font changing' translated.
  				self 
  					buttonNamed: 'N' translated action: #changeToNormalText color: buttonColor
  					help: 'normal text' translated.
  				self 
  					buttonNamed: 'B' translated action: #toggleBold color: buttonColor
  					help: 'bold text' translated.
  				self 
  					buttonNamed: 'I' translated action: #toggleItalic color: buttonColor
  					help: 'italic text' translated.
  				self 
  					buttonNamed: 'n' translated action: #toggleNarrow color: buttonColor
  					help: 'narrow text' translated.
  				self 
  					buttonNamed: 'U' translated action: #toggleUnderlined color: buttonColor
  					help: 'underlined text' translated.
  				self 
  					buttonNamed: 'S' translated action: #toggleStruckOut color: buttonColor
  					help: 'struck out text' translated.
  				self 
  					buttonNamed: 'Kern-' translated action: #kernMinus color: buttonColor
  					help: 'decrease kern' translated.
  				self 
  					buttonNamed: 'Kern+' translated action: #kernPlus color: buttonColor
  					help: 'increase kern' translated.
  			}.
  		}.
  	}.
  	self addARow: {
  		self inAColumn: {
  			self addARow: {
  				self 
+ 					buttonNamed: 'Left flush' translated action: #alignLeft color: buttonColor
+ 					help: 'align text to left side' translated.
+ 					
+ 				self 
+ 					buttonNamed: 'Center' translated action: #alignCenter color: buttonColor
+ 					help: 'align text to center' translated.
+ 				self 
+ 					buttonNamed: 'Right Flush' translated action: #alignRight color: buttonColor
+ 					help: 'align text to right side' translated.
+ 				self 
+ 					buttonNamed: 'Justified' translated action: #alignJustified color: buttonColor
+ 					help: 'justify text alignmet' translated.
+ 			}.
+ 		}.
+ 	}.
+ 	self addARow: {
+ 		self inAColumn: {
+ 			self addARow: {
+ 				self 
  					buttonNamed: 'Accept' translated action: #doAccept color: buttonColor
  					help: 'keep changes made and close panel' translated.
  				self 
  					buttonNamed: 'Cancel' translated action: #doCancel color: buttonColor
  					help: 'cancel changes made and close panel' translated.
  			}.
  		}.
  	}.
  !