[Pkg] 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 Packages
mailing list