Nicolas Cellier uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-nice.206.mcz
==================== Summary ====================
Name: MorphicExtras-nice.206 Author: nice Time: 26 April 2017, 11:05:07.705923 pm UUID: d16239c9-452c-4885-93f9-0e7f7d6c59f8 Ancestors: MorphicExtras-ul.205
Classify a few 'as yet unclassified' methods
=============== Diff against MorphicExtras-ul.205 ===============
Item was changed: + ----- Method: AbstractMediaEventMorph>>endTime (in category 'accessing') ----- - ----- Method: AbstractMediaEventMorph>>endTime (in category 'as yet unclassified') ----- endTime
^endTimeInScore ifNil: [startTimeInScore + 100]!
Item was changed: + ----- Method: DescriptionForPartsBin>>categories (in category 'accessing') ----- - ----- Method: DescriptionForPartsBin>>categories (in category 'access') ----- categories "Answer the categoryList of the receiver"
^ categoryList!
Item was changed: + ----- Method: DescriptionForPartsBin>>documentation (in category 'accessing') ----- - ----- Method: DescriptionForPartsBin>>documentation (in category 'access') ----- documentation "Answer the documentation of the receiver"
^ documentation!
Item was changed: + ----- Method: DescriptionForPartsBin>>formalName (in category 'accessing') ----- - ----- Method: DescriptionForPartsBin>>formalName (in category 'access') ----- formalName "Answer the formalName of the receiver"
^ formalName!
Item was changed: + ----- Method: DescriptionForPartsBin>>globalReceiverSymbol (in category 'accessing') ----- - ----- Method: DescriptionForPartsBin>>globalReceiverSymbol (in category 'access') ----- globalReceiverSymbol "Answer the globalReceiverSymbol of the receiver"
^ globalReceiverSymbol!
Item was changed: + ----- Method: DescriptionForPartsBin>>nativitySelector (in category 'accessing') ----- - ----- Method: DescriptionForPartsBin>>nativitySelector (in category 'access') ----- nativitySelector "Answer the nativitySelector of the receiver"
^ nativitySelector!
Item was changed: + ----- Method: DescriptionForPartsBin>>translatedCategories (in category 'accessing') ----- - ----- Method: DescriptionForPartsBin>>translatedCategories (in category 'access') ----- translatedCategories "Answer translated the categoryList of the receiver" ^ self categories collect: [:each | each translated]!
Item was changed: + ----- Method: EnvelopeLineMorph>>vertices:borderWidth:borderColor: (in category 'initialization') ----- - ----- Method: EnvelopeLineMorph>>vertices:borderWidth:borderColor: (in category 'as yet unclassified') ----- vertices: verts borderWidth: bw borderColor: bc super initialize. vertices := verts. borderWidth := bw. borderColor := bc. closed := false. arrows := #none. self computeBounds!
Item was changed: + ----- Method: FancyMailComposition>>subject (in category 'accessing') ----- - ----- Method: FancyMailComposition>>subject (in category 'access') ----- subject
^subject
!
Item was changed: + ----- Method: FancyMailComposition>>subject: (in category 'accessing') ----- - ----- Method: FancyMailComposition>>subject: (in category 'access') ----- subject: x
subject := x. self changed: #subject. ^true!
Item was changed: + ----- Method: FancyMailComposition>>to (in category 'accessing') ----- - ----- Method: FancyMailComposition>>to (in category 'access') ----- to
^to!
Item was changed: + ----- Method: FancyMailComposition>>to: (in category 'accessing') ----- - ----- Method: FancyMailComposition>>to: (in category 'access') ----- to: x
to := x. self changed: #to. ^true !
Item was changed: + ----- Method: FlexMorph>>changeBorderColor: (in category 'menus') ----- - ----- Method: FlexMorph>>changeBorderColor: (in category 'as yet unclassified') ----- changeBorderColor: evt | aHand | aHand := evt ifNotNil: [evt hand] ifNil: [self primaryHand]. self changeColorTarget: self selector: #borderColor: originalColor: self borderColor hand: aHand.!
Item was changed: + ----- Method: FlexMorph>>changeBorderWidth: (in category 'menus') ----- - ----- Method: FlexMorph>>changeBorderWidth: (in category 'as yet unclassified') ----- changeBorderWidth: evt | handle origin aHand | aHand := evt ifNil: [self primaryHand] ifNotNil: [evt hand]. origin := aHand position. handle := HandleMorph new forEachPointDo: [:newPoint | handle removeAllMorphs. handle addMorph: (LineMorph from: origin to: newPoint color: Color black width: 1). self borderWidth: (newPoint - origin) r asInteger // 5]. aHand attachMorph: handle. handle startStepping!
Item was changed: + ----- Method: FlexMorph>>loadOriginalForm (in category 'private') ----- - ----- Method: FlexMorph>>loadOriginalForm (in category 'as yet unclassified') ----- loadOriginalForm
originalForm ifNil: [self updateFromOriginal]. !
Item was changed: + ----- Method: FlexMorph>>originalMorph (in category 'accessing') ----- - ----- Method: FlexMorph>>originalMorph (in category 'as yet unclassified') ----- originalMorph
^ originalMorph!
Item was changed: + ----- Method: FlexMorph>>originalMorph: (in category 'accessing') ----- - ----- Method: FlexMorph>>originalMorph: (in category 'as yet unclassified') ----- originalMorph: aMorph
originalMorph := aMorph. scalePoint := 0.25@0.25. self updateFromOriginal.!
Item was changed: + ----- Method: FlexMorph>>updateFromOriginal (in category 'private') ----- - ----- Method: FlexMorph>>updateFromOriginal (in category 'as yet unclassified') ----- updateFromOriginal
| intermediateForm | intermediateForm := originalMorph imageForm offset: 0@0. intermediateForm border: intermediateForm boundingBox widthRectangle: (borderWidth corner: borderWidth+1) rule: Form over fillColor: borderColor. self form: intermediateForm. originalMorph fullReleaseCachedState!
Item was changed: + ----- Method: GraphicalMenu>>argument (in category 'accessing') ----- - ----- Method: GraphicalMenu>>argument (in category 'as yet unclassified') ----- argument ^argument!
Item was changed: + ----- Method: GraphicalMenu>>argument: (in category 'accessing') ----- - ----- Method: GraphicalMenu>>argument: (in category 'as yet unclassified') ----- argument: anObject argument := anObject!
Item was changed: + ----- Method: GraphicalMenu>>cancel (in category 'event handling') ----- - ----- Method: GraphicalMenu>>cancel (in category 'as yet unclassified') ----- cancel coexistWithOriginal ifTrue: [self delete] ifFalse: [owner replaceSubmorph: self topRendererOrSelf by: target]!
Item was changed: + ----- Method: GraphicalMenu>>downArrowHit (in category 'event handling') ----- - ----- Method: GraphicalMenu>>downArrowHit (in category 'as yet unclassified') ----- downArrowHit currentIndex := currentIndex - 1. (currentIndex < 1) ifTrue: [currentIndex := formChoices size]. self updateThumbnail !
Item was changed: + ----- Method: GraphicalMenu>>okay (in category 'event handling') ----- - ----- Method: GraphicalMenu>>okay (in category 'as yet unclassified') ----- okay | nArgs | target ifNotNil:[ nArgs := selector numArgs. nArgs = 1 ifTrue:[target perform: selector with: (formChoices at: currentIndex)]. nArgs = 2 ifTrue:[target perform: selector with: (formChoices at: currentIndex) with: argument]]. coexistWithOriginal ifTrue: [self delete] ifFalse: [owner replaceSubmorph: self topRendererOrSelf by: target]!
Item was changed: + ----- Method: GraphicalMenu>>selector (in category 'accessing') ----- - ----- Method: GraphicalMenu>>selector (in category 'as yet unclassified') ----- selector ^selector!
Item was changed: + ----- Method: GraphicalMenu>>selector: (in category 'accessing') ----- - ----- Method: GraphicalMenu>>selector: (in category 'as yet unclassified') ----- selector: aSymbol selector := aSymbol!
Item was changed: + ----- Method: GraphicalMenu>>upArrowHit (in category 'event handling') ----- - ----- Method: GraphicalMenu>>upArrowHit (in category 'as yet unclassified') ----- upArrowHit currentIndex := currentIndex + 1. (currentIndex > formChoices size) ifTrue: [currentIndex := 1]. self updateThumbnail !
Item was changed: + ----- Method: InterimSoundMorph>>addGraphic (in category 'initialization') ----- - ----- Method: InterimSoundMorph>>addGraphic (in category 'as yet unclassified') ----- addGraphic
graphic := SketchMorph withForm: self speakerGraphic. graphic position: bounds center - (graphic extent // 2). self addMorph: graphic. !
Item was changed: + ----- Method: InterimSoundMorph>>sound (in category 'accessing') ----- - ----- Method: InterimSoundMorph>>sound (in category 'as yet unclassified') ----- sound
^ sound !
Item was changed: + ----- Method: InterimSoundMorph>>sound: (in category 'accessing') ----- - ----- Method: InterimSoundMorph>>sound: (in category 'as yet unclassified') ----- sound: aSound
sound := aSound. !
Item was changed: + ----- Method: InterimSoundMorph>>speakerGraphic (in category 'initialization') ----- - ----- Method: InterimSoundMorph>>speakerGraphic (in category 'as yet unclassified') ----- speakerGraphic
^ Form extent: 19@18 depth: 8 fromArray: #(0 0 1493172224 2816 0 0 0 1493172224 11 0 0 138 1493172224 184549376 184549376 0 35509 2315255808 720896 720896 0 9090522 2315255808 2816 720896 0 2327173887 2315255819 2816 720896 138 3051028442 2315255819 2816 2816 1505080590 4294957786 2315255808 184549387 2816 3053453311 4292532917 1493172224 184549387 2816 1505080714 3048584629 1493172224 184549387 2816 9079434 3048584629 1493172224 184549387 2816 138 2327164341 1493172235 2816 2816 0 2324346293 1493172235 2816 720896 0 9079477 1493172224 2816 720896 0 35466 1493172224 720896 720896 0 138 0 184549376 184549376 0 0 0 11 0 0 0 0 2816 0) offset: 0@0 !
Item was changed: + ----- Method: MultiResolutionCanvas>>deferredMorphs (in category 'accessing') ----- - ----- Method: MultiResolutionCanvas>>deferredMorphs (in category 'as yet unclassified') ----- deferredMorphs
^deferredMorphs!
Item was changed: + ----- Method: MultiResolutionCanvas>>deferredMorphs: (in category 'accessing') ----- - ----- Method: MultiResolutionCanvas>>deferredMorphs: (in category 'as yet unclassified') ----- deferredMorphs: aCollection
deferredMorphs := aCollection!
Item was changed: + ----- Method: MultiResolutionCanvas>>initializeFrom: (in category 'initialize-release') ----- - ----- Method: MultiResolutionCanvas>>initializeFrom: (in category 'as yet unclassified') ----- initializeFrom: aFormCanvas
origin := aFormCanvas origin. clipRect := aFormCanvas privateClipRect. form := aFormCanvas form. port := aFormCanvas privatePort. shadowColor := aFormCanvas shadowColor. !
Item was changed: + ----- Method: SoundEventMorph>>sound: (in category 'accessing') ----- - ----- Method: SoundEventMorph>>sound: (in category 'as yet unclassified') ----- sound: aSound
sound := aSound. self setBalloonText: 'a sound of duration ',(sound duration printShowingMaxDecimalPlaces: 1),' seconds'.!
Item was changed: + ----- Method: SoundLoopMorph>>addCursorMorph (in category 'initialization') ----- - ----- Method: SoundLoopMorph>>addCursorMorph (in category 'as yet unclassified') ----- addCursorMorph self addMorph: (cursor := (RectangleMorph newBounds: (self innerBounds topLeft extent: 1@self innerBounds height) color: Color red) borderWidth: 0)!
Item was changed: + ----- Method: SoundLoopMorph>>allowSubmorphExtraction (in category 'dropping/grabbing') ----- - ----- Method: SoundLoopMorph>>allowSubmorphExtraction (in category 'as yet unclassified') ----- allowSubmorphExtraction
^ true!
Item was changed: + ----- Method: SoundLoopMorph>>buildSound (in category 'playing') ----- - ----- Method: SoundLoopMorph>>buildSound (in category 'as yet unclassified') ----- buildSound "Build a compound sound for the next iteration of the loop."
| mixer soundMorphs | mixer := MixedSound new. mixer add: (RestSound dur: (self width - (2 * borderWidth)) / 128.0). soundMorphs := self submorphs select: [:m | m respondsTo: #sound]. soundMorphs do: [:m | | startTime pan | startTime := (m position x - (self left + borderWidth)) / 128.0. pan := (m position y - (self top + borderWidth)) asFloat / (self height - (2 * borderWidth) - m height). mixer add: ((RestSound dur: startTime), m sound copy) pan: pan]. ^ mixer !
Item was changed: + ----- Method: SoundLoopMorph>>play (in category 'playing') ----- - ----- Method: SoundLoopMorph>>play (in category 'as yet unclassified') ----- play "Play this sound to the sound ouput port in real time."
self reset. SoundPlayer playSound: self. !
Item was changed: + ----- Method: SquishedNameMorph>>colorAroundName (in category 'drawing') ----- - ----- Method: SquishedNameMorph>>colorAroundName (in category 'as yet unclassified') ----- colorAroundName
^Color gray: 0.8!
Item was changed: + ----- Method: SquishedNameMorph>>fontForName (in category 'drawing') ----- - ----- Method: SquishedNameMorph>>fontForName (in category 'as yet unclassified') ----- fontForName
^(TextStyle default fontOfSize: 15) emphasized: 1 !
Item was changed: + ----- Method: SquishedNameMorph>>isEditingName (in category 'drawing') ----- - ----- Method: SquishedNameMorph>>isEditingName (in category 'as yet unclassified') ----- isEditingName
^((self findA: UpdatingStringMorph) ifNil: [^false]) hasFocus !
Item was changed: + ----- Method: SquishedNameMorph>>stringToShow (in category 'drawing') ----- - ----- Method: SquishedNameMorph>>stringToShow (in category 'as yet unclassified') ----- stringToShow
(target isNil or: [getSelector isNil]) ifTrue: [^'????']. ^target perform: getSelector!
Item was changed: + ----- Method: SquishedNameMorph>>target:getSelector:setSelector: (in category 'initialization') ----- - ----- Method: SquishedNameMorph>>target:getSelector:setSelector: (in category 'as yet unclassified') ----- target: aTarget getSelector: symbol1 setSelector: symbol2
target := aTarget. getSelector := symbol1. setSelector := symbol2.!
Item was changed: + ----- Method: StoryboardBookMorph>>changeTiltFactor: (in category 'private') ----- - ----- Method: StoryboardBookMorph>>changeTiltFactor: (in category 'as yet unclassified') ----- changeTiltFactor: x
currentPage changeTiltFactor: x. panAndTiltFactor := x.
!
Item was changed: + ----- Method: StoryboardBookMorph>>changeZoomFactor: (in category 'private') ----- - ----- Method: StoryboardBookMorph>>changeZoomFactor: (in category 'as yet unclassified') ----- changeZoomFactor: x
currentPage changeZoomFactor: x. zoomFactor := x.!
Item was changed: + ----- Method: StoryboardBookMorph>>getTiltFactor (in category 'private') ----- - ----- Method: StoryboardBookMorph>>getTiltFactor (in category 'as yet unclassified') ----- getTiltFactor
^panAndTiltFactor ifNil: [panAndTiltFactor := 0.5].!
Item was changed: + ----- Method: StoryboardBookMorph>>getZoomFactor (in category 'private') ----- - ----- Method: StoryboardBookMorph>>getZoomFactor (in category 'as yet unclassified') ----- getZoomFactor
^zoomFactor ifNil: [zoomFactor := 0.5]!
Item was changed: + ----- Method: StoryboardBookMorph>>offsetX (in category 'accessing') ----- - ----- Method: StoryboardBookMorph>>offsetX (in category 'as yet unclassified') ----- offsetX
^currentPage offsetX!
Item was changed: + ----- Method: StoryboardBookMorph>>offsetX: (in category 'accessing') ----- - ----- Method: StoryboardBookMorph>>offsetX: (in category 'as yet unclassified') ----- offsetX: aNumber
currentPage offsetX: aNumber!
Item was changed: + ----- Method: StoryboardBookMorph>>offsetY (in category 'accessing') ----- - ----- Method: StoryboardBookMorph>>offsetY (in category 'as yet unclassified') ----- offsetY
^currentPage offsetY!
Item was changed: + ----- Method: StoryboardBookMorph>>offsetY: (in category 'accessing') ----- - ----- Method: StoryboardBookMorph>>offsetY: (in category 'as yet unclassified') ----- offsetY: aNumber
currentPage offsetY: aNumber!
Item was changed: + ----- Method: StoryboardBookMorph>>scale (in category 'accessing') ----- - ----- Method: StoryboardBookMorph>>scale (in category 'as yet unclassified') ----- scale
^currentPage scale!
Item was changed: + ----- Method: StoryboardBookMorph>>scale: (in category 'accessing') ----- - ----- Method: StoryboardBookMorph>>scale: (in category 'as yet unclassified') ----- scale: aValue
currentPage scale: aValue!
Item was changed: + ----- Method: TextOnCurve>>composeLinesFrom:withLines:atY: (in category 'composition') ----- - ----- Method: TextOnCurve>>composeLinesFrom:withLines:atY: (in category 'as yet unclassified') ----- composeLinesFrom: startingIndex withLines: startingLines atY: startingY "Here we determine the 'lines' of text that will fit along each segment of the curve. For each line, we determine its rectangle, then the dest wuadrilateral that it willbe rotated to. Then, we take the outer hull to determine a dest rectangle for WarpBlt. In addition we need the segment pivot point and angle, from which the source quadrilateral may be computed."
| charIndex scanner line firstLine curveSegments segIndex pa pb segLen lineRect textSegments segDelta segAngle destRect destQuad i oldBounds | (oldBounds := container bounds) ifNotNil: [curve invalidRect: oldBounds]. charIndex := startingIndex. lines := startingLines. curveSegments := curve lineSegments. container textDirection < 0 ifTrue: [curveSegments := curveSegments reversed collect: [:seg | Array with: (seg second) with: seg first]]. textSegments := OrderedCollection new. scanner := SegmentScanner new text: text textStyle: textStyle. segIndex := 1. "For curves, segIndex is just an index." firstLine := true. pa := curveSegments first first. [charIndex <= text size and: [segIndex <= curveSegments size]] whileTrue: [curve isCurve ifFalse: [pa := (curveSegments at: segIndex) first]. pb := (curveSegments at: segIndex) last. segDelta := pb - pa. "Direction of this segment" segLen := segDelta r. lineRect := 0 @ 0 extent: segLen asInteger @ textStyle lineGrid. line := scanner composeFrom: charIndex inRectangle: lineRect firstLine: firstLine leftSide: true rightSide: true. line setRight: scanner rightX. line width > 0 ifTrue: [lines addLast: line. segAngle := segDelta theta. destQuad := line rectangle corners collect: [:p | (p translateBy: pa - (0 @ (line baseline + container baseline))) rotateBy: segAngle negated about: pa]. destRect := Rectangle encompassing: destQuad. textSegments addLast: (Array with: destRect truncated with: pa with: segAngle). pa := pa + ((pb - pa) * line width / segLen). charIndex := line last + 1]. segIndex := segIndex + 1. firstLine := false]. lines isEmpty ifTrue: ["No space in container or empty text"
line := (TextLine start: startingIndex stop: startingIndex - 1 internalSpaces: 0 paddingWidth: 0) rectangle: (0 @ 0 extent: 10 @ textStyle lineGrid); lineHeight: textStyle lineGrid baseline: textStyle baseline. lines := Array with: line. textSegments addLast: (Array with: (curve vertices first extent: line rectangle extent) with: curve vertices first with: 0.0)]. "end of segments, now attempt word break." lines last last < text size ifTrue: [ [lines size > 1 and: [(text at: (i := lines last last) + 1) ~= Character space]] whileTrue: [i = lines last first ifTrue: [lines removeLast. textSegments removeLast] ifFalse: [lines last stop: i - 1]]]. lines := lines asArray. container textSegments: textSegments asArray. curve invalidRect: container bounds. ^maxRightX!
Item was changed: + ----- Method: TextOnCurve>>extent (in category 'accessing') ----- - ----- Method: TextOnCurve>>extent (in category 'access') ----- extent ^ curve bounds extent!
Item was changed: + ----- Method: TextOnCurve>>pointInLine:forDestPoint:segStart:segAngle: (in category 'private') ----- - ----- Method: TextOnCurve>>pointInLine:forDestPoint:segStart:segAngle: (in category 'as yet unclassified') ----- pointInLine: line forDestPoint: p segStart: segStart segAngle: segAngle ^ (p rotateBy: segAngle about: segStart) translateBy: (0@(line baseline + container baseline)) - segStart!
Item was changed: + ----- Method: TextOnCurve>>releaseCachedState (in category 'caching') ----- - ----- Method: TextOnCurve>>releaseCachedState (in category 'as yet unclassified') ----- releaseCachedState super releaseCachedState. CachedWarpMap := CachedWarpDepth := CachedWarpColor := nil!
Item was changed: + ----- Method: TextOnCurve>>textOwner: (in category 'accessing') ----- - ----- Method: TextOnCurve>>textOwner: (in category 'access') ----- textOwner: theCurve curve := theCurve!
Item was changed: + ----- Method: TextOnCurve>>textSegmentsDo: (in category 'private') ----- - ----- Method: TextOnCurve>>textSegmentsDo: (in category 'as yet unclassified') ----- textSegmentsDo: blockForLineDestPivotAngle | segments segSpec | (segments := container textSegments) ifNil: [^self]. 1 to: lines size do: [:i | segSpec := segments at: i. blockForLineDestPivotAngle value: (lines at: i) value: (segSpec first) value: (segSpec second) value: (segSpec third)]!
Item was changed: + ----- Method: TextOnCurve>>warpMapForDepth:withTransparentFor: (in category 'private') ----- - ----- Method: TextOnCurve>>warpMapForDepth:withTransparentFor: (in category 'as yet unclassified') ----- warpMapForDepth: destDepth withTransparentFor: bkgndColor (CachedWarpDepth = destDepth and: [CachedWarpColor = bkgndColor]) ifTrue: ["Map is OK as is -- return it"
^CachedWarpMap]. (CachedWarpMap isNil or: [CachedWarpDepth ~= destDepth]) ifTrue: ["Have to recreate the map"
CachedWarpMap := Color computeColormapFrom: 32 to: destDepth. CachedWarpDepth := destDepth] ifFalse: ["Map is OK, if we restore prior color substiution"
CachedWarpMap at: (CachedWarpColor indexInMap: CachedWarpMap) put: (CachedWarpColor pixelValueForDepth: destDepth)]. "Now map the background color into transparent, and return the new map" CachedWarpColor := bkgndColor. CachedWarpMap at: (CachedWarpColor indexInMap: CachedWarpMap) put: 0. ^CachedWarpMap!
Item was changed: + ----- Method: TextOnCurveContainer>>baseline (in category 'accessing') ----- - ----- Method: TextOnCurveContainer>>baseline (in category 'as yet unclassified') ----- baseline baseline ifNil: [^ 0]. ^ baseline!
Item was changed: + ----- Method: TextOnCurveContainer>>baseline: (in category 'accessing') ----- - ----- Method: TextOnCurveContainer>>baseline: (in category 'as yet unclassified') ----- baseline: newBaseline baseline := newBaseline!
Item was changed: + ----- Method: TextOnCurveContainer>>bounds (in category 'accessing') ----- - ----- Method: TextOnCurveContainer>>bounds (in category 'as yet unclassified') ----- bounds textSegments ifNil: [^nil]. ^textSegments inject: (textSegments first first) into: [:bnd :each | bnd merge: (each first)]!
Item was changed: + ----- Method: TextOnCurveContainer>>paragraphClass (in category 'accessing') ----- - ----- Method: TextOnCurveContainer>>paragraphClass (in category 'as yet unclassified') ----- paragraphClass ^ TextOnCurve!
Item was changed: + ----- Method: TextOnCurveContainer>>releaseCachedState (in category 'caching') ----- - ----- Method: TextOnCurveContainer>>releaseCachedState (in category 'as yet unclassified') ----- releaseCachedState textSegments := nil.!
Item was changed: + ----- Method: TextOnCurveContainer>>textDirection (in category 'accessing') ----- - ----- Method: TextOnCurveContainer>>textDirection (in category 'as yet unclassified') ----- textDirection ^ textDirection!
Item was changed: + ----- Method: TextOnCurveContainer>>textDirection: (in category 'accessing') ----- - ----- Method: TextOnCurveContainer>>textDirection: (in category 'as yet unclassified') ----- textDirection: plusOrMinusOne textDirection := plusOrMinusOne!
Item was changed: + ----- Method: TextOnCurveContainer>>textSegments (in category 'accessing') ----- - ----- Method: TextOnCurveContainer>>textSegments (in category 'as yet unclassified') ----- textSegments ^ textSegments!
Item was changed: + ----- Method: TextOnCurveContainer>>textSegments: (in category 'accessing') ----- - ----- Method: TextOnCurveContainer>>textSegments: (in category 'as yet unclassified') ----- textSegments: segments textSegments := segments!
Item was changed: + ----- Method: TextOnCurveContainer>>top (in category 'accessing') ----- - ----- Method: TextOnCurveContainer>>top (in category 'as yet unclassified') ----- top ^ 1 "for compatibility"!
Item was changed: + ----- Method: TextOnCurveContainer>>translateBy: (in category 'transforming') ----- - ----- Method: TextOnCurveContainer>>translateBy: (in category 'as yet unclassified') ----- translateBy: delta textSegments isNil ifTrue: [^self]. textSegments := textSegments collect: [:ls | Array with: (ls first translateBy: delta) with: (ls second translateBy: delta) with: ls third]!
Item was changed: + ----- Method: TransformationB2Morph>>useRegularWarpBlt: (in category 'accessing') ----- - ----- Method: TransformationB2Morph>>useRegularWarpBlt: (in category 'as yet unclassified') ----- useRegularWarpBlt: aBoolean
useRegularWarpBlt := aBoolean!
Item was changed: + ----- Method: ZASMStepsMorph>>getStepCount (in category 'accessing') ----- - ----- Method: ZASMStepsMorph>>getStepCount (in category 'as yet unclassified') ----- getStepCount
^[self contents asNumber] ifError: [ :a :b | 10] !
Item was changed: + ----- Method: ZASMStepsMorph>>setStepCount: (in category 'accessing') ----- - ----- Method: ZASMStepsMorph>>setStepCount: (in category 'as yet unclassified') ----- setStepCount: n
self contents: n printString.
!