Squeak-dev March 2013

squeak-dev@lists.squeakfoundation.org

73 participants
283 discussions

ConfigurationOfControl (was Re: [squeak-dev] Seaside, Squeak4.4, SqueakMap and Metacello, or Why Software Configuration Management is Important (war: Re: [Seaside] New catalog entry for Seaside 3.0.3))
by Frank Shearar 06 Mar '13

06 Mar '13

On 6 March 2013 10:39, Tobias Pape <Das.Linux(a)gmx.de> wrote: > Am 06.03.2013 um 11:09 schrieb Frank Shearar <frank.shearar(a)gmail.com>: > >> On 6 March 2013 09:30, Tobias Pape <Das.Linux(a)gmx.de> wrote: >> (I used to have a ConfigurationOfControl; I changed it to an Installer >> script because the time it took to load Metacello and friends >> completely dwarfed the time it took to load Control. Control is tiny >> and has no dependencies outside a standard image.) > > Did you happen to have Metacello installed before loading the Config? > Other than that, I would like to see the config :) http://ss3.gemstone.com/ss/Control/ConfigurationOfControl-fbs.21.mcz should be reasonably current. frank

2 1

The Trunk: Tools-fbs.450.mcz
by commits＠source.squeak.org 06 Mar '13

06 Mar '13

Frank Shearar uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-fbs.450.mcz ==================== Summary ==================== Name: Tools-fbs.450 Author: fbs Time: 4 March 2013, 10:45:01.19 pm UUID: 416ef277-60a3-4dea-938f-8de92d1368e2 Ancestors: Tools-fbs.449 Transform callers of Utilities class >> #timeStampForMethod: to callers of CompiledMethod >> #timeStamp. =============== Diff against Tools-fbs.449 =============== Item was changed: ----- Method: MessageSet>>filterToCurrentAuthor (in category 'filtering') ----- filterToCurrentAuthor "Filter down only to messages with my initials as most recent author" self filterFrom: [:aClass :aSelector | | aMethod aTimeStamp | (aClass notNil and: [aSelector notNil]) and: [aMethod := aClass compiledMethodAt: aSelector ifAbsent: [nil]. aMethod notNil and: + [(aTimeStamp := aMethod timeStamp) notNil and: - [(aTimeStamp := Utilities timeStampForMethod: aMethod) notNil and: [aTimeStamp beginsWith: Utilities authorInitials]]]]! Item was changed: ----- Method: MessageSet>>filterToNotCurrentAuthor (in category 'filtering') ----- filterToNotCurrentAuthor "Filter down only to messages not stamped with my initials" self filterFrom: [:aClass :aSelector | | aTimeStamp aMethod | (aClass notNil and: [aSelector notNil]) and: [aMethod := aClass compiledMethodAt: aSelector ifAbsent: [nil]. aMethod notNil and: + [(aTimeStamp := aMethod timeStamp) isNil or: - [(aTimeStamp := Utilities timeStampForMethod: aMethod) isNil or: [(aTimeStamp beginsWith: Utilities authorInitials) not]]]]! Item was changed: ----- Method: StringHolder>>timeStamp (in category '*Tools') ----- timeStamp "Answer the time stamp for the chosen class and method, if any, else an empty string" | selector aMethod | (selector := self selectedMessageName) ifNotNil: [self selectedClassOrMetaClass ifNil: [^ String new] ifNotNil: [aMethod := self selectedClassOrMetaClass compiledMethodAt: selector ifAbsent: [nil]. + aMethod ifNotNil: [^ aMethod timeStamp]]]. - aMethod ifNotNil: [^ Utilities timeStampForMethod: aMethod]]]. ^ String new!

1 0

KomHttpServer on SqueakMap
by H. Hirzel 06 Mar '13

06 Mar '13

Hello Chris Attached is a screenshot of the KomHttpServer entry for Squeak 4.4 on SqueakMap. The entry I loaded for running Squeak 4.4. and Seaside 3.0.3 is the one marked with (4.4) which seems to apply to the Squeak version. What do the parenthesis mean? The other version numbers seems to be the version numbers of the KomHttpServer. Could you please shed some light on this issue? Regards Hannes N.B. 897 out of 898 Seaside 3.0.3 tests work fine in Squeak 4.4

1 0

apparently http://www.squeakci.org/ expired yesterday
by Dale Henrichs 06 Mar '13

06 Mar '13

getting GoDaddy langing page

2 1

Daily Commit Log
by commits＠source.squeak.org 06 Mar '13

06 Mar '13

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2013-March/005761.html Name: SmallLand-ColorTheme-fbs.1 Ancestors: Put all the SmallLand colour themes in a separate package. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-March/005762.html Name: System-fbs.517 Ancestors: System-fbs.516 Transform callers of Utilities class >> #timeStampForMethod: to callers of CompiledMethod >> #timeStamp. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-March/005763.html Name: System-fbs.518 Ancestors: System-fbs.517 Put all the SmallLand colour themes in a separate package. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-March/005764.html Name: System-fbs.519 Ancestors: System-fbs.518 Simple typo fix. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-March/005765.html Name: EToys-fbs.93 Ancestors: EToys-fbs.92 Moved Morph's "geometry eToy" and "latter day support" methods to Etoys. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-March/005766.html Name: Morphic-fbs.644 Ancestors: Morphic-nice.643 Moved Morph's "geometry eToy" and "latter day support" methods to Etoys. =============================================

1 0

Running process after image save/stop/restart
by Louis LaBrunda 05 Mar '13

05 Mar '13

If a process is running when an image is saved, is the process stopped at any point in particular? If the saved image is started, is there any way the process can tell? I'm running a process that keeps running for a look time. It loops with a delay and in the loop gets the date and time. If the date and time were obtained just before the save, they would be old at the time of the image restart and need to be refreshed. Lou ----------------------------------------------------------- Louis LaBrunda Keystone Software Corp. SkypeMe callto://PhotonDemon mailto:Lou@Keystone-Software.com http://www.Keystone-Software.com

4 14

The Trunk: Morphic-fbs.644.mcz
by commits＠source.squeak.org 05 Mar '13

05 Mar '13

Frank Shearar uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-fbs.644.mcz ==================== Summary ==================== Name: Morphic-fbs.644 Author: fbs Time: 5 March 2013, 6:32:30.782 pm UUID: 5353bf55-473d-417d-afa3-d89ae405d128 Ancestors: Morphic-nice.643 Moved Morph's "geometry eToy" and "latter day support" methods to Etoys. =============== Diff against Morphic-nice.643 =============== Item was removed: - ----- Method: Morph>>addTransparentSpacerOfSize: (in category 'geometry eToy') ----- - addTransparentSpacerOfSize: aPoint - self addMorphBack: (self transparentSpacerOfSize: aPoint)! Item was removed: - ----- Method: Morph>>beTransparent (in category 'geometry eToy') ----- - beTransparent - self color: Color transparent! Item was removed: - ----- Method: Morph>>cartesianBoundsTopLeft (in category 'geometry eToy') ----- - cartesianBoundsTopLeft - "Answer the origin of this morph relative to it's container's cartesian origin. - NOTE: y DECREASES toward the bottom of the screen" - - | w container | - - w := self world ifNil: [^ bounds origin]. - container := self referencePlayfield ifNil: [w]. - ^ (bounds left - container cartesianOrigin x) @ - (container cartesianOrigin y - bounds top)! Item was removed: - ----- Method: Morph>>cartesianXY: (in category 'geometry eToy') ----- - cartesianXY: coords - ^ self x: coords x y: coords y - ! Item was removed: - ----- Method: Morph>>color:sees: (in category 'geometry eToy') ----- - 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 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 removed: - ----- Method: Morph>>colorUnder (in category 'geometry eToy') ----- - colorUnder - "Return the color of under the receiver's center." - - self isInWorld - ifTrue: [^ self world colorAt: (self pointInWorld: self referencePosition) belowMorph: self] - ifFalse: [^ Color black]. - ! Item was removed: - ----- Method: Morph>>degreesOfFlex (in category 'geometry eToy') ----- - degreesOfFlex - "Return any rotation due to flexing" - "NOTE: because renderedMorph, which is used by the halo to set heading, goes down through dropShadows as well as transformations, we need this method (and its other implems) to come back up through such a chain." - ^ 0.0! Item was removed: - ----- Method: Morph>>forwardDirection: (in category 'geometry eToy') ----- - forwardDirection: newDirection - "Set the receiver's forward direction (in eToy terms)" - self setProperty: #forwardDirection toValue: newDirection.! Item was removed: - ----- Method: Morph>>getIndexInOwner (in category 'geometry eToy') ----- - getIndexInOwner - "Answer which position the receiver holds in its owner's hierarchy" - - "NB: There is some concern about submorphs that aren't really to be counted, such as a background morph of a playfield." - - | container topRenderer | - container := (topRenderer := self topRendererOrSelf) owner. - ^ container submorphIndexOf: topRenderer.! Item was removed: - ----- Method: Morph>>goHome (in category 'geometry eToy') ----- - goHome - | box fb | - owner isInMemory ifFalse: [^ self]. - owner isNil ifTrue: [^ self]. - self visible ifFalse: [^ self]. - - box := owner visibleClearArea. - fb := self fullBounds. - - fb left < box left - ifTrue: [self left: box left - fb left + self left]. - fb right > box right - ifTrue: [self right: box right - fb right + self right]. - - fb top < box top - ifTrue: [self top: box top - fb top + self top]. - fb bottom > box bottom - ifTrue: [self bottom: box bottom - fb bottom + self bottom]. - ! Item was removed: - ----- Method: Morph>>heading (in category 'geometry eToy') ----- - heading - "Return the receiver's heading (in eToy terms)" - owner ifNil: [^ self forwardDirection]. - ^ self forwardDirection + owner degreesOfFlex! Item was removed: - ----- Method: Morph>>heading: (in category 'geometry eToy') ----- - heading: newHeading - "Set the receiver's heading (in eToy terms)" - self isFlexed ifFalse:[self addFlexShell]. - owner rotationDegrees: (newHeading - self forwardDirection).! Item was removed: - ----- Method: Morph>>isEtoyReadout (in category 'latter day support') ----- - isEtoyReadout - "Answer whether the receiver can serve as an etoy readout" - - ^ false! Item was removed: - ----- Method: Morph>>move:toPosition: (in category 'geometry eToy') ----- - move: aMorph toPosition: aPointOrNumber - "Support for e-toy demo. Move the given submorph to the given position. Allows the morph's owner to determine the policy for motion. For example, moving forward through a table might mean motion only in the x-axis with wrapping modulo the table size." - - aMorph position: aPointOrNumber asPoint. - ! Item was removed: - ----- Method: Morph>>referencePosition (in category 'geometry eToy') ----- - referencePosition - "Return the current reference position of the receiver" - | box | - box := self bounds. - ^box origin + (self rotationCenter * box extent). - ! Item was removed: - ----- Method: Morph>>referencePosition: (in category 'geometry eToy') ----- - referencePosition: aPosition - "Move the receiver to match its reference position with aPosition" - | newPos intPos | - newPos := self position + (aPosition - self referencePosition). - intPos := newPos asIntegerPoint. - newPos = intPos - ifTrue:[self position: intPos] - ifFalse:[self position: newPos].! Item was removed: - ----- Method: Morph>>referencePositionInWorld (in category 'geometry eToy') ----- - referencePositionInWorld - - ^ self pointInWorld: self referencePosition - ! Item was removed: - ----- Method: Morph>>referencePositionInWorld: (in category 'geometry eToy') ----- - referencePositionInWorld: aPoint - | localPosition | - localPosition := owner - ifNil: [aPoint] - ifNotNil: [(owner transformFrom: self world) globalPointToLocal: aPoint]. - - self referencePosition: localPosition - ! Item was removed: - ----- Method: Morph>>rotationCenter (in category 'geometry eToy') ----- - rotationCenter - "Return the rotation center of the receiver. The rotation center defines the relative offset inside the receiver's bounds for locating the reference position." - ^self valueOfProperty: #rotationCenter ifAbsent:[0.5@0.5] - ! Item was removed: - ----- Method: Morph>>rotationCenter: (in category 'geometry eToy') ----- - rotationCenter: aPointOrNil - "Set the new rotation center of the receiver. The rotation center defines the relative offset inside the receiver's bounds for locating the reference position." - aPointOrNil isNil - ifTrue:[self removeProperty: #rotationCenter] - ifFalse:[self setProperty: #rotationCenter toValue: aPointOrNil] - ! Item was removed: - ----- Method: Morph>>scale: (in category 'geometry eToy') ----- - scale: newScale - "Backstop for morphs that don't have to do something special to set their scale" - ! Item was removed: - ----- Method: Morph>>scaleFactor: (in category 'geometry eToy') ----- - scaleFactor: newScale - "Backstop for morphs that don't have to do something special to set their - scale " - | toBeScaled | - toBeScaled := self. - newScale = 1.0 - ifTrue: [(self heading isZero - and: [self isFlexMorph]) - ifTrue: [toBeScaled := self removeFlexShell]] - ifFalse: [self isFlexMorph - ifFalse: [toBeScaled := self addFlexShellIfNecessary]]. - - toBeScaled scale: newScale. - - toBeScaled == self ifTrue: [ - newScale = 1.0 - ifTrue: [ self removeProperty: #scaleFactor ] - ifFalse: [ self setProperty: #scaleFactor toValue: newScale ]]! Item was removed: - ----- Method: Morph>>setDirectionFrom: (in category 'geometry eToy') ----- - setDirectionFrom: aPoint - | delta degrees | - delta := (self transformFromWorld globalPointToLocal: aPoint) - self referencePosition. - degrees := delta degrees + 90.0. - self forwardDirection: (degrees \\ 360) rounded. - ! Item was removed: - ----- Method: Morph>>setIndexInOwner: (in category 'geometry eToy') ----- - setIndexInOwner: anInteger - "Answer which position the receiver holds in its owner's hierarchy" - - "There is some concern about submorphs that aren't really to be counted, such as a background morph of a playfield." - | container topRenderer indexToUse | - container := (topRenderer := self topRendererOrSelf) owner. - indexToUse := (anInteger min: container submorphCount) max: 1. - container addMorph: topRenderer asElementNumber: indexToUse! Item was removed: - ----- Method: Morph>>simplySetVisible: (in category 'geometry eToy') ----- - simplySetVisible: aBoolean - "Set the receiver's visibility property. This mild circumlocution is because my TransfomationMorph #visible: method would also set the visibility flag of my flexee, which in this case is pointless because it's the flexee that calls this. - This appears in morph as a backstop for morphs that don't inherit from TFMorph" - - self visible: aBoolean! Item was removed: - ----- Method: Morph>>touchesColor: (in category 'geometry eToy') ----- - 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 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 removed: - ----- Method: Morph>>transparentSpacerOfSize: (in category 'geometry eToy') ----- - transparentSpacerOfSize: aPoint - ^ (Morph new extent: aPoint) color: Color transparent! Item was removed: - ----- Method: Morph>>wrap (in category 'geometry eToy') ----- - wrap - - | myBox box newX newY wrapped | - owner ifNil: [^ self]. - myBox := self fullBounds. - myBox corner < (50000@50000) ifFalse: [ - self inform: 'Who is trying to wrap a hidden object?'. ^ self]. - box := owner bounds. - newX := self position x. - newY := self position y. - wrapped := false. - ((myBox right < box left) or: [myBox left > box right]) ifTrue: [ - newX := box left + ((self position x - box left) \\ box width). - wrapped := true]. - ((myBox bottom < box top) or: [myBox top > box bottom]) ifTrue: [ - newY := box top + ((self position y - box top) \\ box height). - wrapped := true]. - self position: newX@newY. - (wrapped and: [owner isPlayfieldLike]) - ifTrue: [owner changed]. "redraw all turtle trails if wrapped" - - ! Item was removed: - ----- Method: Morph>>x (in category 'geometry eToy') ----- - x - "Return my horizontal position relative to the cartesian origin of a relevant playfield" - - | aPlayfield | - aPlayfield := self referencePlayfield. - ^aPlayfield isNil - ifTrue: [self referencePosition x] - ifFalse: [self referencePosition x - aPlayfield cartesianOrigin x]! Item was removed: - ----- Method: Morph>>x: (in category 'geometry eToy') ----- - x: aNumber - "Set my horizontal position relative to the cartesian origin of the playfield or the world." - - | offset aPlayfield newX | - aPlayfield := self referencePlayfield. - offset := self left - self referencePosition x. - newX := aPlayfield isNil - ifTrue: [aNumber + offset] - ifFalse: [aPlayfield cartesianOrigin x + aNumber + offset]. - self position: newX @ bounds top! Item was removed: - ----- Method: Morph>>x:y: (in category 'geometry eToy') ----- - x: xCoord y: yCoord - | aWorld xyOffset delta aPlayfield | - (aWorld := self world) ifNil: [^ self position: xCoord @ yCoord]. - xyOffset := self topLeft - self referencePosition. - delta := (aPlayfield := self referencePlayfield) - ifNil: - [xCoord @ (aWorld bottom - yCoord)] - ifNotNil: - [aPlayfield cartesianOrigin + (xCoord @ (yCoord negated))]. - self position: (xyOffset + delta) - ! Item was removed: - ----- Method: Morph>>y (in category 'geometry eToy') ----- - y - "Return my vertical position relative to the cartesian origin of the playfield or the world. Note that larger y values are closer to the top of the screen." - - | w aPlayfield | - w := self world. - w ifNil: [^bounds top]. - aPlayfield := self referencePlayfield. - ^aPlayfield isNil - ifTrue: [w cartesianOrigin y - self referencePosition y] - ifFalse: [aPlayfield cartesianOrigin y - self referencePosition y]! Item was removed: - ----- Method: Morph>>y: (in category 'geometry eToy') ----- - y: aNumber - "Set my vertical position relative to the cartesian origin of the playfield or the world. Note that larger y values are closer to the top of the screen." - - | w offset newY aPlayfield | - w := self world. - w ifNil: [^self position: bounds left @ aNumber]. - aPlayfield := self referencePlayfield. - offset := self top - self referencePosition y. - newY := aPlayfield isNil - ifTrue: [w bottom - aNumber + offset] - ifFalse: [aPlayfield cartesianOrigin y - aNumber + offset]. - self position: bounds left @ newY!

1 0

The Trunk: EToys-fbs.93.mcz
by commits＠source.squeak.org 05 Mar '13

05 Mar '13

Frank Shearar uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-fbs.93.mcz ==================== Summary ==================== Name: EToys-fbs.93 Author: fbs Time: 5 March 2013, 6:32:45.848 pm UUID: 669123f2-ac73-4f25-8ef6-8d605db8e074 Ancestors: EToys-fbs.92 Moved Morph's "geometry eToy" and "latter day support" methods to Etoys. =============== Diff against EToys-fbs.92 =============== Item was added: + ----- Method: Morph>>addTransparentSpacerOfSize: (in category '*Etoys-geometry') ----- + addTransparentSpacerOfSize: aPoint + self addMorphBack: (self transparentSpacerOfSize: aPoint)! Item was added: + ----- Method: Morph>>beTransparent (in category '*Etoys-geometry') ----- + beTransparent + self color: Color transparent! Item was added: + ----- Method: Morph>>cartesianBoundsTopLeft (in category '*Etoys-geometry') ----- + cartesianBoundsTopLeft + "Answer the origin of this morph relative to it's container's cartesian origin. + NOTE: y DECREASES toward the bottom of the screen" + + | w container | + + w := self world ifNil: [^ bounds origin]. + container := self referencePlayfield ifNil: [w]. + ^ (bounds left - container cartesianOrigin x) @ + (container cartesianOrigin y - bounds top)! Item was added: + ----- Method: Morph>>cartesianXY: (in category '*Etoys-geometry') ----- + cartesianXY: coords + ^ self x: coords x y: coords y + ! Item was added: + ----- 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 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 added: + ----- Method: Morph>>colorUnder (in category '*Etoys-geometry') ----- + colorUnder + "Return the color of under the receiver's center." + + self isInWorld + ifTrue: [^ self world colorAt: (self pointInWorld: self referencePosition) belowMorph: self] + ifFalse: [^ Color black]. + ! Item was added: + ----- Method: Morph>>degreesOfFlex (in category '*Etoys-geometry') ----- + degreesOfFlex + "Return any rotation due to flexing" + "NOTE: because renderedMorph, which is used by the halo to set heading, goes down through dropShadows as well as transformations, we need this method (and its other implems) to come back up through such a chain." + ^ 0.0! Item was added: + ----- Method: Morph>>forwardDirection: (in category '*Etoys-geometry') ----- + forwardDirection: newDirection + "Set the receiver's forward direction (in eToy terms)" + self setProperty: #forwardDirection toValue: newDirection.! Item was added: + ----- Method: Morph>>getIndexInOwner (in category '*Etoys-geometry') ----- + getIndexInOwner + "Answer which position the receiver holds in its owner's hierarchy" + + "NB: There is some concern about submorphs that aren't really to be counted, such as a background morph of a playfield." + + | container topRenderer | + container := (topRenderer := self topRendererOrSelf) owner. + ^ container submorphIndexOf: topRenderer.! Item was added: + ----- Method: Morph>>goHome (in category '*Etoys-geometry') ----- + goHome + | box fb | + owner isInMemory ifFalse: [^ self]. + owner isNil ifTrue: [^ self]. + self visible ifFalse: [^ self]. + + box := owner visibleClearArea. + fb := self fullBounds. + + fb left < box left + ifTrue: [self left: box left - fb left + self left]. + fb right > box right + ifTrue: [self right: box right - fb right + self right]. + + fb top < box top + ifTrue: [self top: box top - fb top + self top]. + fb bottom > box bottom + ifTrue: [self bottom: box bottom - fb bottom + self bottom]. + ! Item was added: + ----- Method: Morph>>heading (in category '*Etoys-geometry') ----- + heading + "Return the receiver's heading (in eToy terms)" + owner ifNil: [^ self forwardDirection]. + ^ self forwardDirection + owner degreesOfFlex! Item was added: + ----- Method: Morph>>heading: (in category '*Etoys-geometry') ----- + heading: newHeading + "Set the receiver's heading (in eToy terms)" + self isFlexed ifFalse:[self addFlexShell]. + owner rotationDegrees: (newHeading - self forwardDirection).! Item was added: + ----- Method: Morph>>isEtoyReadout (in category '*Etoys-latter day support') ----- + isEtoyReadout + "Answer whether the receiver can serve as an etoy readout" + + ^ false! Item was added: + ----- Method: Morph>>move:toPosition: (in category '*Etoys-geometry') ----- + move: aMorph toPosition: aPointOrNumber + "Support for e-toy demo. Move the given submorph to the given position. Allows the morph's owner to determine the policy for motion. For example, moving forward through a table might mean motion only in the x-axis with wrapping modulo the table size." + + aMorph position: aPointOrNumber asPoint. + ! Item was added: + ----- Method: Morph>>referencePosition (in category '*Etoys-geometry') ----- + referencePosition + "Return the current reference position of the receiver" + | box | + box := self bounds. + ^box origin + (self rotationCenter * box extent). + ! Item was added: + ----- Method: Morph>>referencePosition: (in category '*Etoys-geometry') ----- + referencePosition: aPosition + "Move the receiver to match its reference position with aPosition" + | newPos intPos | + newPos := self position + (aPosition - self referencePosition). + intPos := newPos asIntegerPoint. + newPos = intPos + ifTrue:[self position: intPos] + ifFalse:[self position: newPos].! Item was added: + ----- Method: Morph>>referencePositionInWorld (in category '*Etoys-geometry') ----- + referencePositionInWorld + + ^ self pointInWorld: self referencePosition + ! Item was added: + ----- Method: Morph>>referencePositionInWorld: (in category '*Etoys-geometry') ----- + referencePositionInWorld: aPoint + | localPosition | + localPosition := owner + ifNil: [aPoint] + ifNotNil: [(owner transformFrom: self world) globalPointToLocal: aPoint]. + + self referencePosition: localPosition + ! Item was added: + ----- Method: Morph>>rotationCenter (in category '*Etoys-geometry') ----- + rotationCenter + "Return the rotation center of the receiver. The rotation center defines the relative offset inside the receiver's bounds for locating the reference position." + ^self valueOfProperty: #rotationCenter ifAbsent:[0.5@0.5] + ! Item was added: + ----- Method: Morph>>rotationCenter: (in category '*Etoys-geometry') ----- + rotationCenter: aPointOrNil + "Set the new rotation center of the receiver. The rotation center defines the relative offset inside the receiver's bounds for locating the reference position." + aPointOrNil isNil + ifTrue:[self removeProperty: #rotationCenter] + ifFalse:[self setProperty: #rotationCenter toValue: aPointOrNil] + ! Item was added: + ----- Method: Morph>>scale: (in category '*Etoys-geometry') ----- + scale: newScale + "Backstop for morphs that don't have to do something special to set their scale" + ! Item was added: + ----- Method: Morph>>scaleFactor: (in category '*Etoys-geometry') ----- + scaleFactor: newScale + "Backstop for morphs that don't have to do something special to set their + scale " + | toBeScaled | + toBeScaled := self. + newScale = 1.0 + ifTrue: [(self heading isZero + and: [self isFlexMorph]) + ifTrue: [toBeScaled := self removeFlexShell]] + ifFalse: [self isFlexMorph + ifFalse: [toBeScaled := self addFlexShellIfNecessary]]. + + toBeScaled scale: newScale. + + toBeScaled == self ifTrue: [ + newScale = 1.0 + ifTrue: [ self removeProperty: #scaleFactor ] + ifFalse: [ self setProperty: #scaleFactor toValue: newScale ]]! Item was added: + ----- Method: Morph>>setDirectionFrom: (in category '*Etoys-geometry') ----- + setDirectionFrom: aPoint + | delta degrees | + delta := (self transformFromWorld globalPointToLocal: aPoint) - self referencePosition. + degrees := delta degrees + 90.0. + self forwardDirection: (degrees \\ 360) rounded. + ! Item was added: + ----- Method: Morph>>setIndexInOwner: (in category '*Etoys-geometry') ----- + setIndexInOwner: anInteger + "Answer which position the receiver holds in its owner's hierarchy" + + "There is some concern about submorphs that aren't really to be counted, such as a background morph of a playfield." + | container topRenderer indexToUse | + container := (topRenderer := self topRendererOrSelf) owner. + indexToUse := (anInteger min: container submorphCount) max: 1. + container addMorph: topRenderer asElementNumber: indexToUse! Item was added: + ----- Method: Morph>>simplySetVisible: (in category '*Etoys-geometry') ----- + simplySetVisible: aBoolean + "Set the receiver's visibility property. This mild circumlocution is because my TransfomationMorph #visible: method would also set the visibility flag of my flexee, which in this case is pointless because it's the flexee that calls this. + This appears in morph as a backstop for morphs that don't inherit from TFMorph" + + self visible: aBoolean! Item was added: + ----- 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 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 added: + ----- Method: Morph>>transparentSpacerOfSize: (in category '*Etoys-geometry') ----- + transparentSpacerOfSize: aPoint + ^ (Morph new extent: aPoint) color: Color transparent! Item was added: + ----- Method: Morph>>wrap (in category '*Etoys-geometry') ----- + wrap + + | myBox box newX newY wrapped | + owner ifNil: [^ self]. + myBox := self fullBounds. + myBox corner < (50000@50000) ifFalse: [ + self inform: 'Who is trying to wrap a hidden object?'. ^ self]. + box := owner bounds. + newX := self position x. + newY := self position y. + wrapped := false. + ((myBox right < box left) or: [myBox left > box right]) ifTrue: [ + newX := box left + ((self position x - box left) \\ box width). + wrapped := true]. + ((myBox bottom < box top) or: [myBox top > box bottom]) ifTrue: [ + newY := box top + ((self position y - box top) \\ box height). + wrapped := true]. + self position: newX@newY. + (wrapped and: [owner isPlayfieldLike]) + ifTrue: [owner changed]. "redraw all turtle trails if wrapped" + + ! Item was added: + ----- Method: Morph>>x (in category '*Etoys-geometry') ----- + x + "Return my horizontal position relative to the cartesian origin of a relevant playfield" + + | aPlayfield | + aPlayfield := self referencePlayfield. + ^aPlayfield isNil + ifTrue: [self referencePosition x] + ifFalse: [self referencePosition x - aPlayfield cartesianOrigin x]! Item was added: + ----- Method: Morph>>x: (in category '*Etoys-geometry') ----- + x: aNumber + "Set my horizontal position relative to the cartesian origin of the playfield or the world." + + | offset aPlayfield newX | + aPlayfield := self referencePlayfield. + offset := self left - self referencePosition x. + newX := aPlayfield isNil + ifTrue: [aNumber + offset] + ifFalse: [aPlayfield cartesianOrigin x + aNumber + offset]. + self position: newX @ bounds top! Item was added: + ----- Method: Morph>>x:y: (in category '*Etoys-geometry') ----- + x: xCoord y: yCoord + | aWorld xyOffset delta aPlayfield | + (aWorld := self world) ifNil: [^ self position: xCoord @ yCoord]. + xyOffset := self topLeft - self referencePosition. + delta := (aPlayfield := self referencePlayfield) + ifNil: + [xCoord @ (aWorld bottom - yCoord)] + ifNotNil: + [aPlayfield cartesianOrigin + (xCoord @ (yCoord negated))]. + self position: (xyOffset + delta) + ! Item was added: + ----- Method: Morph>>y (in category '*Etoys-geometry') ----- + y + "Return my vertical position relative to the cartesian origin of the playfield or the world. Note that larger y values are closer to the top of the screen." + + | w aPlayfield | + w := self world. + w ifNil: [^bounds top]. + aPlayfield := self referencePlayfield. + ^aPlayfield isNil + ifTrue: [w cartesianOrigin y - self referencePosition y] + ifFalse: [aPlayfield cartesianOrigin y - self referencePosition y]! Item was added: + ----- Method: Morph>>y: (in category '*Etoys-geometry') ----- + y: aNumber + "Set my vertical position relative to the cartesian origin of the playfield or the world. Note that larger y values are closer to the top of the screen." + + | w offset newY aPlayfield | + w := self world. + w ifNil: [^self position: bounds left @ aNumber]. + aPlayfield := self referencePlayfield. + offset := self top - self referencePosition y. + newY := aPlayfield isNil + ifTrue: [w bottom - aNumber + offset] + ifFalse: [aPlayfield cartesianOrigin y - aNumber + offset]. + self position: bounds left @ newY!

1 0

Pool dictionary entries and array shorthand
by Louis LaBrunda 05 Mar '13

05 Mar '13

Hi, I'm sure we have all used the array creation shorthand: #(5 4 3 2 1). When trying to create an array with elements of a pool dictionary like: #(BlueWool LimeWool) one ends up with an array of the symbolic names of the pool dictionary entries and not their values: #(#BlueWool #LimeWool). IMHO this is almost useless. If I wanted the symbols in an array I would just use: #(#BlueWool #LimeWool) which looks like what was wanted and isn't much more to type. I think the values is what one would expect from: #(BlueWool LimeWool) and not the symbols and I don't see any other shorthand way to get them. VA Smalltalk works the same way. I don't know about any other Smalltalk. Both Smalltalks pretty print it the same way they do with any other pool dictionary usage. I don't want to go so far as to call this a bug but I'm close. I don't see why one would want it to work this way and I can see great value in building the array with the pool values. Can we get this changed? Does anyone depend on the current implementation? Lou ----------------------------------------------------------- Louis LaBrunda Keystone Software Corp. SkypeMe callto://PhotonDemon mailto:Lou@Keystone-Software.com http://www.Keystone-Software.com

3 3

Squeak CI Domain Name Parked?
by Jeff Gonis 05 Mar '13

05 Mar '13

Hi Everyone, So maybe I missed the notice where it was announced that the CI server was going to be available under a different domain name, but attempting to visit it right now gives the godaddy domain parked page, and says that squeakci.org expired March 4th. Is this something that needs looking into, or am I totally out to lunch here? Thanks, Jeff

2 2

← Newer
1
...
20
21
22
23
24
25
26
...
29
Older →

Jump to page: