Squeak-dev April 2017

squeak-dev@lists.squeakfoundation.org

48 participants
221 discussions

The Trunk: MorphicExtras-ul.205.mcz
by commits＠source.squeak.org 24 Apr '17

24 Apr '17

Levente Uzonyi uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-ul.205.mcz ==================== Summary ==================== Name: MorphicExtras-ul.205 Author: ul Time: 24 April 2017, 1:05:03.685277 pm UUID: fe46b749-0a60-4228-958e-7072da23108c Ancestors: MorphicExtras-dtl.204 - rewrote senders of #clone to use #shallowCopy =============== Diff against MorphicExtras-dtl.204 =============== Item was changed: ----- Method: BookPageThumbnailMorph>>objectForDataStream: (in category 'fileIn/Out') ----- objectForDataStream: refStrm "I am about to be written on an object file. It would be bad to write a whole BookMorph out. Store a string that is the url of the book or page in my inst var." | clone bookUrl bb stem ind | (bookMorph isString) & (page isString) ifTrue: [ ^ super objectForDataStream: refStrm]. (bookMorph isNil) & (page isString) ifTrue: [ ^ super objectForDataStream: refStrm]. (bookMorph isNil) & (page url notNil) ifTrue: [ ^ super objectForDataStream: refStrm]. (bookMorph isNil) & (page url isNil) ifTrue: [ self error: 'page should already have a url' translated. "find page's book, and remember it" "bookMorph := "]. + clone := self shallowCopy. - clone := self clone. (bookUrl := bookMorph url) ifNil: [bookUrl := self valueOfProperty: #futureUrl]. bookUrl ifNil: [ bb := RectangleMorph new. "write out a dummy" bb bounds: bounds. refStrm replace: self with: bb. ^ bb] ifNotNil: [clone instVarNamed: 'bookMorph' put: bookUrl]. page url ifNil: [ "Need to assign a url to a page that will be written later. It might have bookmarks too. Don't want to recurse deeply. Have that page write out a dummy morph to save its url on the server." stem := SqueakPage stemUrl: bookUrl. ind := bookMorph pages identityIndexOf: page. page reserveUrl: stem,(ind printString),'.sp']. clone instVarNamed: 'page' put: page url. refStrm replace: self with: clone. ^ clone! Item was changed: ----- Method: SketchEditorMorph>>mouseDown: (in category 'morphic') ----- mouseDown: evt "Start a new stroke. Check if any palette setting have changed. 6/11/97 20:30 tk" | cur pfPen myAction | "verify that we are in a good state" self verifyState: evt. "includes prepareToPaint and #scalingOrRotate" pfPen := self get: #paintingFormPen for: evt. paintingForm extent = undoBuffer extent ifTrue: [ paintingForm displayOn: undoBuffer at: 0@0 rule: Form over. ] ifFalse: [ undoBuffer := paintingForm deepCopy. "know we will draw something" ]. pfPen place: (evt cursorPoint - bounds origin). myAction := self getActionFor: evt. palette colorable ifTrue:[ palette recentColor: (self getColorFor: evt)]. self set: #strokeOrigin for: evt to: evt cursorPoint. "origin point for pickup: rect: ellispe: polygon: line: star:. Always take it." myAction == #pickup: ifTrue: [ + cur := Cursor corner shallowCopy. - cur := Cursor corner clone. cur offset: 0@0 "cur offset abs". evt hand showTemporaryCursor: cur]. myAction == #polygon: ifTrue: [self polyNew: evt]. "a mode lets you drag vertices" self mouseMove: evt.! Item was changed: ----- Method: SqueakPage>>copyForSaving (in category 'accessing') ----- copyForSaving "Make a copy and configure me to be put out on the disk. When it is brought in and touched, it will turn into the object at the url." | forDisk holder | + forDisk := self shallowCopy. - forDisk := self clone. holder := MorphObjectOut new xxxSetUrl: url page: forDisk. forDisk contentsMorph: holder. ^ holder "directly representing the object"!

1 0

The Trunk: Morphic-ul.1335.mcz
by commits＠source.squeak.org 24 Apr '17

24 Apr '17

Levente Uzonyi uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ul.1335.mcz ==================== Summary ==================== Name: Morphic-ul.1335 Author: ul Time: 24 April 2017, 1:04:42.9817 pm UUID: 9e7af827-2124-49b6-b910-9cbdfc12a867 Ancestors: Morphic-eem.1334 - rewrote senders of #clone to use #shallowCopy - removed some unnecessary #copy implementations - use #postCopy in BalloonCanvas and FormCanvas for additional post-copy actions =============== Diff against Morphic-eem.1334 =============== Item was changed: ----- Method: BalloonCanvas>>copy (in category 'copying') ----- copy + self flush. + ^super copy! - ^super copy resetEngine! Item was added: + ----- Method: BalloonCanvas>>postCopy (in category 'copying') ----- + postCopy + + super postCopy. + ^self resetEngine! Item was removed: - ----- Method: Canvas>>copy (in category 'copying') ----- - copy - - ^ self clone - ! Item was changed: ----- Method: ComplexBorder>>drawPolyPatchFrom:to:on:usingEnds: (in category 'drawing') ----- drawPolyPatchFrom: startPoint to: stopPoint on: aCanvas usingEnds: endsArray | cos sin tfm fill dir fsOrigin fsDirection points x y | dir := (stopPoint - startPoint) normalized. "Compute the rotational transform from (0@0) -> (1@0) to startPoint -> stopPoint" cos := dir dotProduct: (1@0). sin := dir crossProduct: (1@0). "Now get the fill style appropriate for the given direction" fill := self fillStyleForDirection: dir. false ifTrue:[ "Transform the fill appropriately" + fill := fill shallowCopy. - fill := fill clone. "Note: Code below is inlined from tfm transformPoint:/transformDirection:" x := fill origin x. y := fill origin y. fsOrigin := ((x * cos) + (y * sin) + startPoint x) @ ((y * cos) - (x * sin) + startPoint y). x := fill direction x. y := fill direction y. fsDirection := ((x * cos) + (y * sin)) @ ((y * cos) - (x * sin)). fill origin: fsOrigin; direction: fsDirection rounded; "NOTE: This is a bug in the balloon engine!!!!!!" normal: nil. aCanvas asBalloonCanvas drawPolygon: endsArray fillStyle: fill. ] ifFalse:[ "Transform the points rather than the fills" tfm := (MatrixTransform2x3 new) a11: cos; a12: sin; a21: sin negated; a22: cos. "Install the start point offset" tfm offset: startPoint. points := endsArray collect:[:pt| tfm invertPoint: pt]. aCanvas asBalloonCanvas transformBy: tfm during:[:cc| cc drawPolygon: points fillStyle: fill. ]. ].! Item was removed: - ----- Method: FormCanvas>>copy (in category 'copying') ----- - copy - "Make a copy the receiver on the same underlying Form but with its own grafPort." - - ^ self clone resetGrafPort - ! Item was added: + ----- Method: FormCanvas>>postCopy (in category 'copying') ----- + postCopy + "Let the copy have its own grafPort." + + super postCopy. + self resetGrafPort + ! Item was changed: ----- Method: GrafPort>>displayScannerFor:foreground:background:ignoreColorChanges: (in category 'accessing') ----- displayScannerFor: para foreground: foreColor background: backColor ignoreColorChanges: shadowMode ^ (DisplayScanner new text: para text textStyle: para textStyle foreground: foreColor background: backColor fillBlt: self ignoreColorChanges: shadowMode) + setPort: self shallowCopy - setPort: self clone ! Item was changed: ----- Method: Morph>>copyWithoutSubmorph: (in category 'submorphs-add/remove') ----- copyWithoutSubmorph: sub "Needed to get a morph to draw without one of its submorphs. NOTE: This must be thrown away immediately after use." + ^ self shallowCopy privateSubmorphs: (submorphs copyWithout: sub)! - ^ self clone privateSubmorphs: (submorphs copyWithout: sub)! Item was changed: ----- Method: Morph>>veryDeepInner: (in category 'copying') ----- veryDeepInner: deepCopier "The inner loop, so it can be overridden when a field should not be traced." "super veryDeepInner: deepCopier. know Object has no inst vars" + bounds := bounds shallowCopy. - bounds := bounds clone. "Points are shared with original" "owner := owner. special, see veryDeepFixupWith:" submorphs := submorphs veryDeepCopyWith: deepCopier. "each submorph's fixup will install me as the owner" "fullBounds := fullBounds. fullBounds is shared with original!!" color := color veryDeepCopyWith: deepCopier. "color, if simple, will return self. may be complex" extension := (extension veryDeepCopyWith: deepCopier)! Item was changed: ----- Method: MouseEvent>>asMouseEnter (in category 'converting') ----- asMouseEnter + ^self shallowCopy setType: #mouseEnter! - ^self clone setType: #mouseEnter! Item was changed: ----- Method: MouseEvent>>asMouseLeave (in category 'converting') ----- asMouseLeave + ^self shallowCopy setType: #mouseLeave! - ^self clone setType: #mouseLeave! Item was changed: ----- Method: TransformationMorph>>flexing:byTransformation: (in category 'initialization') ----- flexing: aMorph byTransformation: tfm "Initialize me with position and bounds of aMorph, and with an offset that provides centered rotation." (aMorph isKindOf: TransformationMorph) + ifTrue: [aMorph submorphsDo: [:m | self addMorph: m shallowCopy]] - ifTrue: [aMorph submorphsDo: [:m | self addMorph: m clone]] ifFalse: [self addMorph: aMorph]. transform := tfm. self chooseSmoothing. self layoutChanged.!

1 0

The Trunk: Kernel-ul.1098.mcz
by commits＠source.squeak.org 24 Apr '17

24 Apr '17

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.1098.mcz ==================== Summary ==================== Name: Kernel-ul.1098 Author: ul Time: 24 April 2017, 12:59:49.967288 pm UUID: f803e743-6f80-4bd8-9d1b-192f56d70de6 Ancestors: Kernel-eem.1097 - rewrote senders of #clone to use #shallowCopy - Object >> #shallowCopy uses the fallback code of #clone, because that one is simpler (copying is done by #copyFrom:) and can copy CompiledMethods too. =============== Diff against Kernel-eem.1097 =============== Item was changed: ----- Method: ClassBuilder>>newSubclassOf:type:instanceVariables:from: (in category 'class definition') ----- newSubclassOf: newSuper type: type instanceVariables: instVars from: oldClass "Create a new subclass of the given superclass with the given specification." | newFormat newClass | "Compute the format of the new class" newFormat := self computeFormat: type instSize: instVars size forSuper: newSuper. newFormat ifNil: [^nil]. (oldClass == nil or:[oldClass isMeta not]) ifTrue:[newClass := self privateNewSubclassOf: newSuper from: oldClass] + ifFalse:[newClass := oldClass shallowCopy]. - ifFalse:[newClass := oldClass clone]. newClass superclass: newSuper methodDictionary: (oldClass ifNil: [MethodDictionary new] ifNotNil: [oldClass methodDict copy]) format: newFormat; setInstVarNames: instVars. oldClass ifNotNil:[ newClass organization: oldClass organization. "Recompile the new class" oldClass hasMethods ifTrue:[newClass compileAllFrom: oldClass]. oldClass hasTraitComposition ifTrue: [ newClass setTraitComposition: oldClass traitComposition copyTraitExpression ]. oldClass class hasTraitComposition ifTrue: [ newClass class setTraitComposition: oldClass class traitComposition copyTraitExpression ]. self recordClass: oldClass replacedBy: newClass. ]. (oldClass == nil or:[oldClass isObsolete not]) ifTrue:[newSuper addSubclass: newClass] ifFalse:[newSuper addObsoleteSubclass: newClass]. ^newClass! Item was changed: ----- Method: ClassBuilder>>privateNewSubclassOf:from: (in category 'private') ----- privateNewSubclassOf: newSuper from: oldClass "Create a new meta and non-meta subclass of newSuper using oldClass as template" "WARNING: This method does not preserve the superclass/subclass invariant!!" | newSuperMeta oldMeta newMeta | oldClass ifNil:[^self privateNewSubclassOf: newSuper]. newSuperMeta := newSuper ifNil:[Class] ifNotNil:[newSuper class]. oldMeta := oldClass class. + newMeta := oldMeta shallowCopy. - newMeta := oldMeta clone. newMeta superclass: newSuperMeta methodDictionary: oldMeta methodDict copy format: (self computeFormat: oldMeta typeOfClass instSize: oldMeta instVarNames size forSuper: newSuperMeta); setInstVarNames: oldMeta instVarNames; organization: oldMeta organization. "Recompile the meta class" oldMeta hasMethods ifTrue:[newMeta compileAllFrom: oldMeta]. "Record the meta class change" self recordClass: oldMeta replacedBy: newMeta. "And create a new instance" ^newMeta adoptInstance: oldClass from: oldMeta! Item was changed: ----- Method: EventSensor>>queueEvent: (in category 'private-I/O') ----- queueEvent: evt "Queue the given event in the event queue (if any). Note that the event buffer must be copied since it will be reused later on." self eventQueue ifNotNil: [:queue | + queue nextPut: evt shallowCopy].! - queue nextPut: evt clone].! Item was changed: ----- Method: Float>>veryDeepCopyWith: (in category 'copying') ----- veryDeepCopyWith: deepCopier "Return self. Do not record me." + ^self shallowCopy! - ^ self clone! Item was changed: ----- Method: Object>>copyTwoLevel (in category 'copying') ----- copyTwoLevel "one more level than a shallowCopy" | newObject class index | class := self class. + newObject := self shallowCopy. - newObject := self clone. newObject == self ifTrue: [^ self]. class isVariable ifTrue: [index := self basicSize. [index > 0] whileTrue: [newObject basicAt: index put: (self basicAt: index) shallowCopy. index := index - 1]]. index := class instSize. [index > 0] whileTrue: [newObject instVarAt: index put: (self instVarAt: index) shallowCopy. index := index - 1]. ^newObject! Item was changed: ----- Method: Object>>shallowCopy (in category 'copying') ----- shallowCopy "Answer a copy of the receiver which shares the receiver's instance variables." + - | class newObject index | <primitive: 148 error: ec> + | class newObject | ec == #'insufficient object memory' ifFalse: [^self primitiveFailed]. + "If the primitive fails due to insufficient memory, instantiate via basicNew: to invoke + the garbage collector before retrying, and use copyFrom: to copy state." + newObject := (class := self class) isVariable + ifTrue: + [class isCompiledMethodClass + ifTrue: + [class newMethod: self basicSize - self initialPC + 1 header: self header] + ifFalse: + [class basicNew: self basicSize]] + ifFalse: + [class basicNew]. + ^newObject copyFrom: self! - class := self class. - class isVariable - ifTrue: - [index := self basicSize. - newObject := class basicNew: index. - [index > 0] whileTrue: - [newObject basicAt: index put: (self basicAt: index). - index := index - 1]] - ifFalse: [newObject := class basicNew]. - index := class instSize. - [index > 0] whileTrue: - [newObject instVarAt: index put: (self instVarAt: index). - index := index - 1]. - ^newObject! Item was changed: ----- Method: Object>>veryDeepCopyWith: (in category 'copying') ----- veryDeepCopyWith: deepCopier "Copy me and the entire tree of objects I point to. An object in the tree twice is copied once, and both references point to him. deepCopier holds a dictionary of objects we have seen. Some classes refuse to be copied. Some classes are picky about which fields get deep copied." | class index sub subAss new uc sup has mine | deepCopier references at: self ifPresent: [:newer | ^ newer]. "already did him" class := self class. class isMeta ifTrue: [^ self]. "a class" + new := self shallowCopy. - new := self clone. (class isSystemDefined not and: [deepCopier newUniClasses "allowed"]) ifTrue: [ uc := deepCopier uniClasses at: class ifAbsent: [nil]. uc ifNil: [ deepCopier uniClasses at: class put: (uc := self copyUniClassWith: deepCopier). deepCopier references at: class put: uc]. "remember" new := uc new. new copyFrom: self]. "copy inst vars in case any are weak" deepCopier references at: self put: new. "remember" (class isVariable and: [class isPointers]) ifTrue: [index := self basicSize. [index > 0] whileTrue: [sub := self basicAt: index. (subAss := deepCopier references associationAt: sub ifAbsent: [nil]) ifNil: [new basicAt: index put: (sub veryDeepCopyWith: deepCopier)] ifNotNil: [new basicAt: index put: subAss value]. index := index - 1]]. "Ask each superclass if it wants to share (weak copy) any inst vars" new veryDeepInner: deepCopier. "does super a lot" "other superclasses want all inst vars deep copied" sup := class. index := class instSize. [has := sup compiledMethodAt: #veryDeepInner: ifAbsent: [nil]. has := has ifNil: [class isSystemDefined not "is a uniClass"] ifNotNil: [true]. mine := sup instVarNames. has ifTrue: [index := index - mine size] "skip inst vars" ifFalse: [1 to: mine size do: [:xx | sub := self instVarAt: index. (subAss := deepCopier references associationAt: sub ifAbsent: [nil]) "use association, not value, so nil is an exceptional value" ifNil: [new instVarAt: index put: (sub veryDeepCopyWith: deepCopier)] ifNotNil: [new instVarAt: index put: subAss value]. index := index - 1]]. (sup := sup superclass) == nil] whileFalse. new rehash. "force Sets and Dictionaries to rehash" ^ new !

1 0

The Trunk: Graphics-ul.373.mcz
by commits＠source.squeak.org 24 Apr '17

24 Apr '17

Levente Uzonyi uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-ul.373.mcz ==================== Summary ==================== Name: Graphics-ul.373 Author: ul Time: 24 April 2017, 1:02:39.629816 pm UUID: db169757-0711-4bd4-8d51-74b25589668c Ancestors: Graphics-cbc.372 - rewrote senders of #clone to use #shallowCopy - removed some unnecessary #copy implementations =============== Diff against Graphics-cbc.372 =============== Item was changed: ----- Method: BDFFontReader class>>downloadFonts (in category 'resource download') ----- downloadFonts "BDFFontReader downloadFonts" "Download a standard set of BDF sources from x.org. The combined size of these source files is around 1.2M; after conversion to .sf2 format they may be deleted." | heads tails filenames baseUrl basePath | heads := #( 'charR' 'courR' 'helvR' 'lubR' 'luRS' 'lutRS' 'ncenR' 'timR' ). tails := #( '08' '10' '12' '14' '18' '24'). filenames := OrderedCollection new. heads do: [:head | filenames addAll: (tails collect: [:tail | head , tail , '.bdf']) ]. baseUrl := 'http://cvsweb.xfree86.org/cvsweb/*checkout*/xc/fonts/bdf/75dpi/' asUrl. basePath := baseUrl path. filenames do: [:filename | | document newPath newUrl | + newUrl := baseUrl shallowCopy. - newUrl := baseUrl clone. newPath := OrderedCollection newFrom: basePath. newPath addLast: filename. newUrl path: newPath. UIManager default informUser: 'Fetching ' , filename during: [document := newUrl retrieveContents]. MultiByteFileStream newFileNamed: filename do: [ :f | f wantsLineEndConversion: true; nextPutAll: document content ] ]. ! Item was removed: - ----- Method: Bitmap>>copy (in category 'copying') ----- - copy - - ^self clone! Item was removed: - ----- Method: CharacterBlock>>copy (in category 'accessing') ----- - copy - "Overridden because Rectangle does a deepCopy, which goes nuts with the text" - - ^ self clone! Item was changed: ----- Method: DisplayHostWindow>>queueEvent: (in category 'private-events') ----- queueEvent: evt "Queue the given event in the event queue (if any). Note that the event buffer must be copied since it will be reused later on." eventQueue ifNil: [^self]. "queue gets created by client" + eventQueue nextPut: evt shallowCopy. - eventQueue nextPut: evt clone. ! Item was changed: ----- Method: TextStyle>>veryDeepCopyWith: (in category 'Disk I/O') ----- veryDeepCopyWith: deepCopier "All inst vars are meant to be shared" self == #veryDeepCopyWith:. "to satisfy checkVariables" + ^ deepCopier references at: self ifAbsentPut: [self shallowCopy]. "remember"! - ^ deepCopier references at: self ifAbsentPut: [self clone]. "remember"!

1 0

The Trunk: Files-ul.169.mcz
by commits＠source.squeak.org 24 Apr '17

24 Apr '17

Levente Uzonyi uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-ul.169.mcz ==================== Summary ==================== Name: Files-ul.169 Author: ul Time: 24 April 2017, 1:01:59.851183 pm UUID: 9593611d-fbbb-487f-a1c3-994e6347636e Ancestors: Files-ul.168 - rewrote senders of #clone to use #shallowCopy =============== Diff against Files-ul.168 =============== Item was changed: ----- Method: FileStream class>>cs (in category 'file reader services') ----- cs + ^'cs' shallowCopy! - ^ 'cs' clone. - ! Item was changed: ----- Method: FileStream class>>multiCs (in category 'file reader services') ----- multiCs + ^'mcs' shallowCopy! - ^ 'mcs' clone. - ! Item was changed: ----- Method: FileStream class>>multiSt (in category 'file reader services') ----- multiSt + ^'mst' shallowCopy! - ^ 'mst' clone. - ! Item was changed: ----- Method: FileStream class>>sources (in category 'file reader services') ----- sources + ^'sources' shallowCopy! - ^ 'sources' clone! Item was changed: ----- Method: FileStream class>>st (in category 'file reader services') ----- st + ^'st' shallowCopy! - ^ 'st' clone. - !

1 0

The Trunk: EToys-ul.293.mcz
by commits＠source.squeak.org 24 Apr '17

24 Apr '17

Levente Uzonyi uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-ul.293.mcz ==================== Summary ==================== Name: EToys-ul.293 Author: ul Time: 24 April 2017, 1:01:48.504154 pm UUID: d935e150-2a96-4b3f-9ce4-cbe3926044f4 Ancestors: EToys-nice.292 - rewrote senders of #clone to use #shallowCopy - removed the long time obsoleted Etoys-Squeakland-Tools-File Contents Browser category =============== Diff against EToys-nice.292 =============== Item was changed: SystemOrganization addCategory: #'Etoys-Buttons'! SystemOrganization addCategory: #'Etoys-CustomEvents'! SystemOrganization addCategory: #'Etoys-Experimental'! SystemOrganization addCategory: #'Etoys-Outliner'! SystemOrganization addCategory: #'Etoys-Protocols'! SystemOrganization addCategory: #'Etoys-Protocols-Type Vocabularies'! SystemOrganization addCategory: #'Etoys-Scripting'! SystemOrganization addCategory: #'Etoys-Scripting Support'! SystemOrganization addCategory: #'Etoys-Scripting Tiles'! SystemOrganization addCategory: #'Etoys-Squeakland-BroomMorphs-Base'! SystemOrganization addCategory: #'Etoys-Squeakland-BroomMorphs-Connectors'! SystemOrganization addCategory: #'Etoys-Squeakland-EToys-Kedama'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Buttons'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Calendar'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Debugger'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Help'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Input'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Scripting'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Scripting Support'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Scripting Tiles'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-SpeechBubbles'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Tile Scriptors'! SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-External'! SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-Text'! SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-Tools-Intersection'! SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-Tools-Simplification'! SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-Tools-Triangulation'! SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-AdditionalMorphs'! SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-Charts'! SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-Postscript Filters'! SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-WebCam'! SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-Widgets'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Basic'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Books'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Components'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Demo'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Experimental'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Games'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Games-Chess'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-GeeMail'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Kernel'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Mentoring'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Navigators'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-PartsBin'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-PDA'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Support'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Widgets'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Windows'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Worlds'! SystemOrganization addCategory: #'Etoys-Squeakland-Multilingual-Languages'! SystemOrganization addCategory: #'Etoys-Squeakland-Multilingual-TextConversion'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Formatter'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Forms'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Parser'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Parser Entities'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Tokenizer'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-MIME'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-TelNet WordNet'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-UI'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-Url'! SystemOrganization addCategory: #'Etoys-Squeakland-Protocols-Type Vocabularies'! SystemOrganization addCategory: #'Etoys-Squeakland-Sound-Interface'! SystemOrganization addCategory: #'Etoys-Squeakland-Sound-Ogg'! SystemOrganization addCategory: #'Etoys-Squeakland-Sound-Scores'! SystemOrganization addCategory: #'Etoys-Squeakland-ST80-Morphic'! SystemOrganization addCategory: #'Etoys-Squeakland-SUnit'! SystemOrganization addCategory: #'Etoys-Squeakland-Sugar'! SystemOrganization addCategory: #'Etoys-Squeakland-System-Clipboard-Extended'! SystemOrganization addCategory: #'Etoys-Squeakland-System-Compiler'! SystemOrganization addCategory: #'Etoys-Squeakland-System-Exceptions Kernel'! SystemOrganization addCategory: #'Etoys-Squeakland-System-Support'! SystemOrganization addCategory: #'Etoys-Squeakland-Tools-Changes'! SystemOrganization addCategory: #'Etoys-Squeakland-Tools-Explorer'! - SystemOrganization addCategory: #'Etoys-Squeakland-Tools-File Contents Browser'! SystemOrganization addCategory: #'Etoys-Squeakland-Tools-Process Browser'! SystemOrganization addCategory: #'Etoys-Squeakland-Tweak-Kedama-ObjectVectors'! SystemOrganization addCategory: #'Etoys-Squeakland-Tweak-Kedama-ParseTreeTransformer'! SystemOrganization addCategory: #'Etoys-Squeakland-Tweak-Kedama-ParseTree-AttributeDefinition'! SystemOrganization addCategory: #'Etoys-Stacks'! SystemOrganization addCategory: #'Etoys-StarSqueak'! SystemOrganization addCategory: #'Etoys-Support'! SystemOrganization addCategory: #'Etoys-Tests'! SystemOrganization addCategory: #'Etoys-Tile Scriptors'! SystemOrganization addCategory: #'Etoys-Widgets'! SystemOrganization addCategory: #'Etoys-Squeakland-Support'! SystemOrganization addCategory: #'Etoys-Squeakland-SISS-Serialization'! SystemOrganization addCategory: #'Etoys-OLPC-Display'! SystemOrganization addCategory: #'Etoys-ReleaseBuilder'! SystemOrganization addCategory: #'Etoys-UserInterfaceTheme'! Item was removed: - ----- Method: ChessBoard>>copy (in category 'copying') ----- - copy - ^self shallowCopy postCopy! Item was removed: - ----- Method: ChessPlayer>>copy (in category 'copying') ----- - copy - ^self shallowCopy postCopy! Item was changed: ----- Method: ChessPlayer>>postCopy (in category 'copying') ----- postCopy + + pieces := pieces copy! - pieces := pieces clone.! Item was changed: ----- Method: ChessTranspositionTable>>initialize: (in category 'initialize') ----- initialize: nBits "Initialize the receiver using 1<<nBits entries. See also ChessPlayerAI>>initializeTranspositionTable." | entry | array := Array new: 1 << nBits. used := ReadWriteStream on: (Array new: 50000). "<- will grow if not sufficient!!" entry := ChessTTEntry new clear. + 1 to: array size do:[:i| array at: i put: entry shallowCopy]. - 1 to: array size do:[:i| array at: i put: entry clone]. collisions := 0. Smalltalk garbageCollect. "We *really* want them old here"! Item was changed: ----- Method: DeepCopier>>mapUniClassMethods: (in category '*Etoys-Squeakland-full copy') ----- mapUniClassMethods: pool "Players also refer to each other using associations in the References dictionary. Search the literals of the methods of our Players for those. There are already new entries in project-local References and point to them." | newKey newAssoc oldSelList newSelList newValue | uniClasses "values" do: [:newClass | oldSelList := OrderedCollection new. newSelList := OrderedCollection new. newClass selectorsDo: [:sel | (newClass compiledMethodAt: sel) literals do: [:assoc | assoc isVariableBinding ifTrue: [ newValue := references at: assoc value ifAbsent: []. newValue ifNotNil: [ newKey := newValue externalName asSymbol. (assoc key ~= newKey) & (pool includesKey: newKey) ifTrue: [ newAssoc := pool associationAt: newKey. newClass methodDictionary at: sel put: + (newClass compiledMethodAt: sel) shallowCopy. "were sharing it" - (newClass compiledMethodAt: sel) clone. "were sharing it" (newClass compiledMethodAt: sel) literalAt: ((newClass compiledMethodAt: sel) literals indexOf: assoc) put: newAssoc. (oldSelList includes: assoc key) ifFalse: [ oldSelList add: assoc key. newSelList add: newKey]]]]]]. oldSelList with: newSelList do: [:old :new | newClass replaceSilently: old to: new]]. "This is text replacement and can be wrong"! Item was changed: ----- Method: EFontBDFFontReaderForRanges>>override2:with:ranges:transcodingTable:additionalRange: (in category '*Etoys-Squeakland-as yet unclassified') ----- override2: chars with: otherFileName ranges: pairArray transcodingTable: table additionalRange: additionalRanges | other newChars form u j in newArray | other := BDFFontReader readOnlyFileNamed: otherFileName. newChars := PluggableSet new. newChars hashBlock: [:elem | (elem at: 2) hash]. newChars equalBlock: [:a :b | (a at: 2) = (b at: 2)]. other readChars do: [:array | j := array at: 2. u := table at: (((j // 256) - 33 * 94 + ((j \\ 256) - 33)) + 1). u ~= -1 ifTrue: [ u hex printString displayAt: 0@0. in := false. pairArray do: [:pair | (u between: pair first and: pair second) ifTrue: [ in := true ] ]. in ifTrue: [ form := array at: 1. form ifNotNil: [ + newArray := array shallowCopy. - newArray := array clone. newArray at: 2 put: u. newChars add: newArray. ]. ]. ]. ]. newChars addAll: chars. ^ newChars. ! Item was changed: ----- Method: KedamaExamplerPlayer>>clonedSequentialStub (in category 'subclass players management') ----- clonedSequentialStub + ^sequentialStub shallowCopy! - ^ sequentialStub clone. - ! Item was changed: ----- Method: KedamaSequenceExecutionStub>>getReplicated (in category 'player commands') ----- getReplicated | proto newWho n | proto := (1 to: turtles arrays size) collect: [:i | (turtles arrays at: i) at: self index]. kedamaWorld makeReplicatedTurtles: 1 examplerPlayer: exampler color: nil ofPrototype: proto randomize: false. exampler costume renderedMorph privateTurtleCount: (kedamaWorld turtlesCountOf: exampler). newWho := (kedamaWorld lastWhoOf: exampler). + n := self shallowCopy. - n := self clone. n who: newWho. ^ n. ! Item was changed: ----- Method: KedamaTurtleVectorPlayer2>>test:ifTrue:ifFalse: (in category 'command execution') ----- test: cond ifTrue: trueBlock ifFalse: falseBlock | origPredicate c actualCond condValue | (cond == true or: [cond == false]) ifTrue: [ ^ cond ifTrue: [trueBlock value: self] ifFalse: [falseBlock value: self]. ]. actualCond := cond. cond isBlock ifTrue: [ actualCond := ByteArray new: predicate size. condValue := cond value. condValue isCollection ifTrue: [ actualCond := condValue. ] ifFalse: [ 1 to: predicate size do: [:i | actualCond at: i put: (cond value ifTrue: [1] ifFalse: [0])] ] ]. + origPredicate := predicate shallowCopy. - origPredicate := predicate clone. predicate bytesAnd: actualCond. trueBlock value: self. + c := actualCond shallowCopy. - c := actualCond clone. c not. predicate replaceFrom: 1 to: (predicate size min: origPredicate size) with: origPredicate startingAt: 1. predicate bytesAnd: c. falseBlock value: self. predicate replaceFrom: 1 to: (predicate size min: origPredicate size) with: origPredicate startingAt: 1.! Item was changed: ----- Method: MentoringEventRecorder>>nextEventToPlay (in category 'event handling') ----- nextEventToPlay "Return the next event when it is time to be replayed. If it is not yet time, then return an interpolated mouseMove. Return nil if nothing has happened. Return an EOF event if there are no more events to be played." | nextEvent now nextTime lastP delta | (tapeStream isNil or:[tapeStream atEnd]) ifTrue:[^MorphicUnknownEvent new setType: #EOF argument: nil]. now := Time millisecondClockValue. + nextEvent := tapeStream next shallowCopy. "always copied" - nextEvent := tapeStream next clone. "always copied" areaOffset ifNotNil: [nextEvent isMouse ifTrue: [nextEvent position: nextEvent position + areaOffset]]. nextEvent isKeyboard ifTrue: [ nextEvent setPosition: areaBounds center]. nextEvent type == #noCondense ifTrue: [^nil]. "ignore in playback" deltaTime ifNil:[deltaTime := now - nextEvent timeStamp]. nextTime := nextEvent timeStamp + deltaTime. now < time ifTrue:["clock rollover" time := now. deltaTime := nil. ^nil "continue it on next cycle"]. time := now. (now >= nextTime) ifTrue:[ nextEvent setTimeStamp: nextTime. nextEvent isMouse ifTrue:[lastEvent := nextEvent] ifFalse:[lastEvent := nil]. ^nextEvent]. tapeStream skip: -1. "Not time for the next event yet, but interpolate the mouse. This allows tapes to be compressed when velocity is fairly constant." lastEvent ifNil: [^ nil]. now - lastInterpolation < 20 "WorldState minCycleLapse" ifTrue: [^ nil]. lastP := lastEvent position. delta := (nextEvent position - lastP) * (now - lastEvent timeStamp) // (nextTime - lastEvent timeStamp). (delta dist: lastDelta) < 3 ifTrue: [^ nil]. "Almost no movement" lastDelta := delta. lastInterpolation := now. ^ MouseMoveEvent new setType: #mouseMove startPoint: lastEvent position endPoint: lastP + delta trail: nil buttons: lastEvent buttons hand: nil stamp: now.! Item was changed: ----- Method: Morph>>color:sees: (in category '*Etoys-geometry') ----- color: sensitiveColor sees: soughtColor "Return true if any of my pixels of sensitiveColor intersect with pixels of soughtColor." "Make a mask with black where sensitiveColor is, white elsewhere" | myImage sensitivePixelMask map patchBelowMe tfm morphAsFlexed i1 pasteUp | pasteUp := self world ifNil: [ ^false ]. tfm := self transformFrom: pasteUp. morphAsFlexed := tfm isIdentity ifTrue: [self] + ifFalse: [TransformationMorph new flexing: self shallowCopy byTransformation: tfm]. - ifFalse: [TransformationMorph new flexing: self clone byTransformation: tfm]. myImage := morphAsFlexed imageForm offset: 0 @ 0. sensitivePixelMask := Form extent: myImage extent depth: 1. "ensure at most a 16-bit map" map := Bitmap new: (1 bitShift: (myImage depth - 1 min: 15)). map at: (i1 := sensitiveColor indexInMap: map) put: 1. sensitivePixelMask copyBits: sensitivePixelMask boundingBox from: myImage form at: 0 @ 0 colorMap: map. "get an image of the world below me" patchBelowMe := pasteUp patchAt: morphAsFlexed fullBounds without: self andNothingAbove: false. " sensitivePixelMask displayAt: 0@0. patchBelowMe displayAt: 100@0. " "intersect world pixels of the color we're looking for with the sensitive pixels" map at: i1 put: 0. "clear map and reuse it" map at: (soughtColor indexInMap: map) put: 1. sensitivePixelMask copyBits: patchBelowMe boundingBox from: patchBelowMe at: 0 @ 0 clippingBox: patchBelowMe boundingBox rule: Form and fillColor: nil map: map. " sensitivePixelMask displayAt: 200@0. " ^(sensitivePixelMask tallyPixelValues second) > 0! Item was changed: ----- Method: Morph>>touchesColor: (in category '*Etoys-geometry') ----- touchesColor: soughtColor "Return true if any of my pixels overlap pixels of soughtColor." "Make a shadow mask with black in my shape, white elsewhere" | map patchBelowMe shadowForm tfm morphAsFlexed pasteUp | pasteUp := self world ifNil: [ ^false ]. tfm := self transformFrom: pasteUp. morphAsFlexed := tfm isIdentity ifTrue: [self] + ifFalse: [TransformationMorph new flexing: self shallowCopy byTransformation: tfm]. - ifFalse: [TransformationMorph new flexing: self clone byTransformation: tfm]. shadowForm := morphAsFlexed shadowForm offset: 0 @ 0. "get an image of the world below me" patchBelowMe := (pasteUp patchAt: morphAsFlexed fullBounds without: self andNothingAbove: false) offset: 0 @ 0. " shadowForm displayAt: 0@0. patchBelowMe displayAt: 100@0. " "intersect world pixels of the color we're looking for with our shape." "ensure a maximum 16-bit map" map := Bitmap new: (1 bitShift: (patchBelowMe depth - 1 min: 15)). map at: (soughtColor indexInMap: map) put: 1. shadowForm copyBits: patchBelowMe boundingBox from: patchBelowMe at: 0 @ 0 clippingBox: patchBelowMe boundingBox rule: Form and fillColor: nil map: map. " shadowForm displayAt: 200@0. " ^(shadowForm tallyPixelValues second) > 0! Item was changed: ----- Method: ParseNode>>normalize (in category '*Etoys-Squeakland-Tweak-Kedama') ----- normalize self getAllChildren do: [:child | child isLeaf ifTrue: [ + self replaceNode: child with: child shallowCopy. - self replaceNode: child with: child clone. ] ifFalse: [ child normalize. ]. ]. ! Item was changed: ----- Method: TileMessageNode>>printIfNilNotNil:indent: (in category 'printing') ----- printIfNilNotNil: aMorph indent: level | newNode | + newNode := aMorph parseNode shallowCopy. - newNode := aMorph parseNode clone. newNode receiver ifNotNil: [newNode receiver: newNode receiver ifNilReceiver]. "fudge so it prints right" (arguments first isJust: NodeNil) ifTrue: [^ newNode morphFromKeywords: #ifNotNil: arguments: { arguments second } on: aMorph indent: level]. (arguments second isJust: NodeNil) ifTrue: [^ newNode morphFromKeywords: #ifNil: arguments: { arguments first } on: aMorph indent: level]. ^ newNode morphFromKeywords: #ifNil:ifNotNil: arguments: arguments on: aMorph indent: level! Item was removed: - Object subclass: #TwoLevelDictionary - instanceVariableNames: 'firstLevel' - classVariableNames: '' - poolDictionaries: '' - category: 'Etoys-Squeakland-Tools-File Contents Browser'! - - !TwoLevelDictionary commentStamp: '<historical>' prior: 0! - A simple dictionary for the use of the TextDiffBuilder. Keys are presumed to be Points and a significant speed advantage is gained by using a dictionary of dictionaries. The first is keyed by the x-values and the second by the y-values. Only the minimum necessary protocol is implemented.! Item was removed: - ----- Method: TwoLevelDictionary>>at: (in category 'as yet unclassified') ----- - at: aPoint - - ^(firstLevel at: aPoint x ifAbsent: [^nil]) at: aPoint y ifAbsent: [^nil] - ! Item was removed: - ----- Method: TwoLevelDictionary>>at:put: (in category 'as yet unclassified') ----- - at: aPoint put: anObject - - (firstLevel at: aPoint x ifAbsentPut: [Dictionary new]) at: aPoint y put: anObject - ! Item was removed: - ----- Method: TwoLevelDictionary>>initialize (in category 'as yet unclassified') ----- - initialize - - firstLevel := Dictionary new.! Item was removed: - ----- Method: TwoLevelDictionary>>keysDo: (in category 'as yet unclassified') ----- - keysDo: aBlock - - firstLevel keysAndValuesDo: [ :x :v | - v keysDo: [ :y | aBlock value: x@y] - ].! Item was removed: - ----- Method: TwoLevelDictionary>>twoLevelKeys (in category 'as yet unclassified') ----- - twoLevelKeys - - | twoLevelSet | - - twoLevelSet := TwoLevelSet new. - self keysDo: [ :each | twoLevelSet add: each]. - ^twoLevelSet - ! Item was removed: - Object subclass: #TwoLevelSet - instanceVariableNames: 'firstLevel' - classVariableNames: '' - poolDictionaries: '' - category: 'Etoys-Squeakland-Tools-File Contents Browser'! - - !TwoLevelSet commentStamp: '<historical>' prior: 0! - A simple set for the use of the TextDiffBuilder. Elements are presumed to be Points and a significant speed advantage is gained by using a dictionary of sets. The first is keyed by the x-values and the second contains the y-values. Only the minimum necessary protocol is implemented.! Item was removed: - ----- Method: TwoLevelSet>>add: (in category 'as yet unclassified') ----- - add: aPoint - - (firstLevel at: aPoint x ifAbsentPut: [Set new]) add: aPoint y - ! Item was removed: - ----- Method: TwoLevelSet>>copy (in category 'as yet unclassified') ----- - copy - - | answer | - - answer := self class new initialize. - self do: [ :each | - answer add: each - ]. - ^answer! Item was removed: - ----- Method: TwoLevelSet>>detect: (in category 'as yet unclassified') ----- - detect: aBlock - - firstLevel keysAndValuesDo: [ :x :v | - v do: [ :y | (aBlock value: x@y) ifTrue: [^x@y]] - ]. - ^nil! Item was removed: - ----- Method: TwoLevelSet>>do: (in category 'as yet unclassified') ----- - do: aBlock - - firstLevel keysAndValuesDo: [ :x :v | - v do: [ :y | aBlock value: x@y] - ].! Item was removed: - ----- Method: TwoLevelSet>>includes: (in category 'as yet unclassified') ----- - includes: aPoint - - ^(firstLevel at: aPoint x ifAbsent: [^false]) includes: aPoint y! Item was removed: - ----- Method: TwoLevelSet>>initialize (in category 'as yet unclassified') ----- - initialize - - firstLevel := Dictionary new.! Item was removed: - ----- Method: TwoLevelSet>>isEmpty (in category 'as yet unclassified') ----- - isEmpty - - ^firstLevel isEmpty! Item was removed: - ----- Method: TwoLevelSet>>remove: (in category 'as yet unclassified') ----- - remove: aPoint - - | lev2 | - - lev2 := firstLevel at: aPoint x ifAbsent: [^self]. - lev2 remove: aPoint y ifAbsent: []. - lev2 isEmpty ifTrue: [firstLevel removeKey: aPoint x]. - - ! Item was removed: - ----- Method: TwoLevelSet>>removeAllXAndY: (in category 'as yet unclassified') ----- - removeAllXAndY: aPoint - - | deletes | - - deletes := OrderedCollection new. - firstLevel removeKey: aPoint x ifAbsent: []. - firstLevel keysAndValuesDo: [ :x :lev2 | - lev2 remove: aPoint y ifAbsent: []. - lev2 isEmpty ifTrue: [deletes add: x]. - ]. - deletes do: [ :each | firstLevel removeKey: each ifAbsent: []].!

1 0

The Trunk: Compiler-ul.352.mcz
by commits＠source.squeak.org 24 Apr '17

24 Apr '17

Levente Uzonyi uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-ul.352.mcz ==================== Summary ==================== Name: Compiler-ul.352 Author: ul Time: 24 April 2017, 1:00:45.337997 pm UUID: 1ac9255e-aa00-4fca-8983-810cd0f1f3ba Ancestors: Compiler-eem.351 - rewrote senders of #clone to use #shallowCopy =============== Diff against Compiler-eem.351 =============== Item was changed: ----- Method: FieldNode>>assignmentCheck:at: (in category 'testing') ----- assignmentCheck: encoder at: location (encoder cantStoreInto: name) ifTrue: [^location]. fieldDef toSet ifNil:[ encoder interactive ifTrue:[^location]. + fieldDef := fieldDef shallowCopy assignDefaultSetter. - fieldDef := fieldDef clone assignDefaultSetter. ]. ^-1!

1 0

The Trunk: Collections-ul.749.mcz
by commits＠source.squeak.org 24 Apr '17

24 Apr '17

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.749.mcz ==================== Summary ==================== Name: Collections-ul.749 Author: ul Time: 24 April 2017, 1:00:31.346232 pm UUID: 455e6beb-40fe-41a4-a35e-675211c77f10 Ancestors: Collections-ul.748 - rewrote senders of #clone to use #shallowCopy =============== Diff against Collections-ul.748 =============== Item was changed: ----- Method: FloatArray>>* (in category 'arithmetic') ----- * anObject + + ^self shallowCopy *= anObject! - ^self clone *= anObject! Item was changed: ----- Method: FloatArray>>+ (in category 'arithmetic') ----- + anObject + + ^self shallowCopy += anObject! - ^self clone += anObject! Item was changed: ----- Method: FloatArray>>- (in category 'arithmetic') ----- - anObject + + ^self shallowCopy -= anObject! - ^self clone -= anObject! Item was changed: ----- Method: FloatArray>>/ (in category 'arithmetic') ----- / anObject + + ^self shallowCopy /= anObject! - ^self clone /= anObject! Item was changed: ----- Method: FloatArray>>negated (in category 'arithmetic') ----- negated + + ^self shallowCopy *= -1! - ^self clone *= -1!

1 0

The Trunk: Balloon-ul.30.mcz
by commits＠source.squeak.org 24 Apr '17

24 Apr '17

Levente Uzonyi uploaded a new version of Balloon to project The Trunk: http://source.squeak.org/trunk/Balloon-ul.30.mcz ==================== Summary ==================== Name: Balloon-ul.30 Author: ul Time: 24 April 2017, 1:00:18.796732 pm UUID: 15ea6361-1ff2-41af-bde1-171dc7c83dd4 Ancestors: Balloon-ul.29 - rewrote senders of #clone to use #shallowCopy =============== Diff against Balloon-ul.29 =============== Item was changed: ----- Method: BalloonBezierSimulation>>computeSplitAt: (in category 'computing') ----- computeSplitAt: t "Split the receiver at the parametric value t" | left right newVia1 newVia2 newPoint | + left := self shallowCopy. + right := self shallowCopy. - left := self clone. - right := self clone. "Compute new intermediate points" newVia1 := (via - start) * t + start. newVia2 := (end - via) * t + via. "Compute new point on curve" newPoint := ((newVia1 - newVia2) * t + newVia2) asIntegerPoint. left via: newVia1 asIntegerPoint. left end: newPoint. right start: newPoint. right via: newVia2 asIntegerPoint. ^Array with: left with: right! Item was changed: ----- Method: Bezier2Segment>>curveFrom:to: (in category 'vector functions') ----- curveFrom: param1 to: param2 "Return a new curve from param1 to param2" | newStart newEnd newVia tan1 tan2 d1 d2 | tan1 := via - start. tan2 := end - via. param1 <= 0.0 ifTrue:[ newStart := start. ] ifFalse:[ d1 := tan1 * param1 + start. d2 := tan2 * param1 + via. newStart := (d2 - d1) * param1 + d1 ]. param2 >= 1.0 ifTrue:[ newEnd := end. ] ifFalse:[ d1 := tan1 * param2 + start. d2 := tan2 * param2 + via. newEnd := (d2 - d1) * param2 + d1. ]. tan2 := (tan2 - tan1 * param1 + tan1) * (param2 - param1). newVia := newStart + tan2. + ^self shallowCopy from: newStart to: newEnd via: newVia.! - ^self clone from: newStart to: newEnd via: newVia.! Item was changed: ----- Method: LineSegment>>curveFrom:to: (in category 'vector functions') ----- curveFrom: parameter1 to: parameter2 "Create a new segment like the receiver but starting/ending at the given parametric values" | delta | delta := end - start. + ^self shallowCopy from: delta * parameter1 + start to: delta * parameter2 + start! - ^self clone from: delta * parameter1 + start to: delta * parameter2 + start!

1 0

Setting default font breaks DefaultTextStyle font list
by tim Rowledge 23 Apr '17

23 Apr '17

Whilst checking my RotaryDialMorphs stuff in an update to 17183 image I noticed that the labels looked awful. Turns out that the default TextStyle was broken to just one font and so trying to choose a size to suit my dials could only find a 9pt one. Given that this then gets scaled down as part of some anti-aliasing it looks terribly small at the end. The question is of course why the text style was so limited. After investigation it seems that the latest version of Preferences class> setSystemFontTo: was changed on 8/30/2016 such that it fairly carefully makes a broken style instead of what the prior version did. Since the changes here were made by marcel & TimF as part of the themes upgrade I’m loath to simply override them and force it back. It may be mixed in with other stuff that I don’t know about, so I’d rather not break it. As a temporary measure, reverting to Marcel’s 8/19/2016 version seems to be the solution. A side-weirdness just to make life interesting was that the first time I changed the default find using the font chooser the screen background suddenly reverted to the dark gray linen pattern. I haven’t been able to spot a code path that could explain that and it doesn’t seem to happen now so… haunted image? tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Strange OpCodes: PSM: Print and SMear

2 4

← Newer
1
...
7
8
9
10
11
12
13
...
23
Older →

Jump to page: