[Pkg] The Trunk: Morphic-cmm.676.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Aug 7 21:57:25 UTC 2013
Chris Muller uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-cmm.676.mcz
==================== Summary ====================
Name: Morphic-cmm.676
Author: cmm
Time: 7 August 2013, 4:55:40.374 pm
UUID: 0515d02e-790f-446a-a7fd-4925b0a58ada
Ancestors: Morphic-fbs.675
- Don't blow up in rendering code is asked to draw a polygon with no vertices.
- Ensure flash provides sufficient contrast to be easily visible in all cases.
- FINALLY! The problem where code was truncated by the right-edge of the code editor is fixed. THANKS Bob Arning!
- Make Shift+Command+a (arg-advance) work for selectors that have no spaces, such as when having pasted the selector from the methods list.
=============== Diff against Morphic-fbs.675 ===============
Item was changed:
----- Method: BalloonCanvas>>drawPolygon:fillStyle:borderWidth:borderColor: (in category 'drawing-polygons') -----
drawPolygon: vertices fillStyle: aFillStyle borderWidth: borderWidth borderColor: borderColor
"Draw a simple polygon defined by the list of vertices."
| fillC borderC |
+ vertices ifEmpty: [ ^ self ].
fillC := self shadowColor ifNil:[aFillStyle].
borderC := self shadowColor ifNil:[borderColor].
self ensuredEngine
drawPolygon: (vertices copyWith: vertices first)
fill: fillC
borderWidth: borderWidth
borderColor: borderC
transform: transform.!
Item was changed:
----- Method: Morph>>flash (in category 'macpal') -----
flash
| originalColor |
originalColor := self color.
[ self color:
(originalColor
ifNil: [ Color black ]
+ ifNotNil: [ (originalColor alpha: 1) negated adjustSaturation: 0.8 brightness: 0 ]) ]
- ifNotNil: [ (originalColor alpha: 1) negated ]) ]
ensure:
[ self world ifNotNil: [ : w | w displayWorldSafely ].
self color: originalColor ]!
Item was changed:
----- Method: PluggableTextMorphPlus>>stylerStyled: (in category 'styling') -----
stylerStyled: styledCopyOfText
"Sent after the styler completed styling the underlying text"
textMorph contents runs: styledCopyOfText runs .
"textMorph paragraph recomposeFrom: 1 to: textMorph contents size delta: 0." "caused chars to appear in wrong order esp. in demo mode. remove this line when sure it is fixed"
+ textMorph paragraph composeAll.
textMorph updateFromParagraph.
selectionInterval
ifNotNil:[
textMorph editor
selectInvisiblyFrom: selectionInterval first to: selectionInterval last;
storeSelectionInParagraph;
setEmphasisHere].
textMorph editor blinkParen.
self scrollSelectionIntoView!
Item was changed:
----- Method: TextEditor>>argAdvance: (in category 'typing/selecting keys') -----
+ argAdvance: aKeyboardEvent
+ "Invoked by Ctrl-a or Shift+Command+A. Useful after Ctrl-q.
+ Search forward from the end of the selection for a colon followed by a space. Place the caret after the space. If none are found, place the caret at the end of the text. Does not affect the undoability of the previous command."
- argAdvance: aKeyboardEvent
- "Invoked by Ctrl-a. Useful after Ctrl-q.
- Search forward from the end of the selection for a colon followed by
- a space. Place the caret after the space. If none are found, place the
- caret at the end of the text. Does not affect the undoability of the
- previous command."
-
| start |
self insertAndCloseTypeIn.
+ start := paragraph text
+ findString: ': '
+ startingAt: self stopIndex.
+ start isZero
+ ifTrue:
+ [ (start := paragraph text
+ findString: ':'
+ startingAt: self stopIndex) isZero ifTrue: [ start := paragraph text size + 1 ] ]
+ ifFalse: [ start := start + 1 ].
+ self selectAt: start + 1.
+ ^ true!
- start := paragraph text findString: ': ' startingAt: self stopIndex.
- start = 0 ifTrue: [start := paragraph text size + 1].
- self selectAt: start + 2.
- ^true!
More information about the Packages
mailing list