[squeak-dev] The Trunk: Graphics-cmm.184.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Jun 15 16:17:00 UTC 2011


Chris Muller uploaded a new version of Graphics to project The Trunk:
http://source.squeak.org/trunk/Graphics-cmm.184.mcz

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

Name: Graphics-cmm.184
Author: cmm
Time: 15 June 2011, 11:16:09.001 am
UUID: 32d27338-5068-764e-b00a-244caed09044
Ancestors: Graphics-cmm.183

- Added remaining Rectangle-access methods to Form.
- Updated senders of #displayProgressAt:from:... to #displayProgressFrom:... to allow honoring of the preference.

=============== Diff against Graphics-cmm.183 ===============

Item was added:
+ ----- Method: Form>>bottomLeft (in category 'display box access') -----
+ bottomLeft
+ 	^ self boundingBox bottomLeft!

Item was added:
+ ----- Method: Form>>bottomRight (in category 'display box access') -----
+ bottomRight
+ 	^ self boundingBox bottomRight!

Item was added:
+ ----- Method: Form>>topLeft (in category 'display box access') -----
+ topLeft
+ 	^ self boundingBox topLeft!

Item was added:
+ ----- Method: Form>>topRight (in category 'display box access') -----
+ topRight
+ 	^ self boundingBox topRight!

Item was changed:
  ----- Method: HostFont class>>textStyleFrom: (in category 'accessing') -----
  textStyleFrom: fontName
  	"HostFont textStyleFromUser"
  	| styleName fonts |
  	styleName := fontName asSymbol.
  	"(TextConstants includesKey: styleName)
  		ifTrue:[(self confirm: 
  styleName , ' is already defined in TextConstants.
  Do you want to replace that definition?')
  			ifFalse: [^ self]]."
  	fonts := #(10 11 12 13 14 16 18 20 22 24 26 28 30 36 48 60 72 90).
+ 	('Rendering ', styleName) displayProgressFrom: 1 to: fonts size during:[:bar|
- 	('Rendering ', styleName) displayProgressAt: Sensor cursorPoint
- 		from: 1 to: fonts size during:[:bar|
  			fonts := fonts
  				collect:[:ptSize| bar value: (fonts indexOf: ptSize).
  							   self fontName: styleName 
  									size: ptSize
  									emphasis: 0]
  				thenSelect:[:font| font notNil]]. "reject those that failed"
  	fonts size = 0 ifTrue:[^self error:'Could not create font style', styleName].
  	TextConstants
  		at: styleName
  		put: (TextStyle fontArray: fonts).!

Item was changed:
  ----- Method: HostFont class>>textStyleFrom:sizes: (in category 'accessing') -----
  textStyleFrom: fontName sizes: ptSizes
  	| styleName fonts |
  	styleName := fontName asSymbol.
  	(TextConstants includesKey: styleName)
  		ifTrue:[(self confirm: 
  styleName , ' is already defined in TextConstants.
  Do you want to replace that definition?')
  			ifFalse: [^ self]].
+ 	('Rendering ', styleName) displayProgressFrom: 1 to: ptSizes size during:[:bar|
- 	('Rendering ', styleName) displayProgressAt: Sensor cursorPoint
- 		from: 1 to: ptSizes size during:[:bar|
  			fonts := ptSizes
  				collect:[:ptSize| bar value: (ptSizes indexOf: ptSize).
  							   self fontName: styleName 
  									size: ptSize
  									emphasis: 0]
  				thenSelect:[:font| font notNil]]. "reject those that failed"
  	fonts size = 0 ifTrue:[^self error:'Could not create font style', styleName].
  	TextConstants
  		at: styleName
  		put: (TextStyle fontArray: fonts).!

Item was changed:
  ----- Method: HostFont class>>textStyleFrom:sizes:ranges: (in category 'accessing') -----
  textStyleFrom: fontName sizes: ptSizes ranges: ranges
  	| styleName fonts |
  	styleName := fontName asSymbol.
  	(TextConstants includesKey: styleName)
  		ifTrue:[(self confirm: 
  styleName , ' is already defined in TextConstants.
  Do you want to replace that definition?')
  			ifFalse: [^ self]].
+ 	('Rendering ', styleName) displayProgressFrom: 1 to: ptSizes size during:[:bar|
- 	('Rendering ', styleName) displayProgressAt: Sensor cursorPoint
- 		from: 1 to: ptSizes size during:[:bar|
  			fonts := ptSizes
  				collect:[:ptSize| bar value: (ptSizes indexOf: ptSize).
  							   self fontName: styleName 
  									size: ptSize
  									emphasis: 0 rangesArray: ranges
  				]
  				thenSelect:[:font| font notNil]]. "reject those that failed"
  	fonts size = 0 ifTrue:[^self error:'Could not create font style', styleName].
  	TextConstants
  		at: styleName
  		put: (TextStyle fontArray: fonts).!

Item was changed:
  ----- Method: HostFont class>>textStyleFromUser (in category 'accessing') -----
  textStyleFromUser
  	"HostFont textStyleFromUser"
  	| styleName fonts |
  	styleName := self fontNameFromUser ifNil:[^self].
  	styleName := styleName asSymbol.
  	(TextConstants includesKey: styleName)
  		ifTrue:[(self confirm: 
  styleName , ' is already defined in TextConstants.
  Do you want to replace that definition?')
  			ifFalse: [^ self]].
  	fonts := #(10 12 14 16 18 20 22 24 26 28 30 36 48 60 72 90).
+ 	('Rendering ', styleName) displayProgressFrom: 1 to: fonts size during:[:bar|
- 	('Rendering ', styleName) displayProgressAt: Sensor cursorPoint
- 		from: 1 to: fonts size during:[:bar|
  			fonts := fonts
  				collect:[:ptSize| bar value: (fonts indexOf: ptSize).
  							   self fontName: styleName 
  									size: ptSize
  									emphasis: 0]
  				thenSelect:[:font| font notNil]]. "reject those that failed"
  	fonts size = 0 ifTrue:[^self error:'Could not create font style', styleName].
  	TextConstants
  		at: styleName
  		put: (TextStyle fontArray: fonts).!




More information about the Squeak-dev mailing list