etoys-dev June 2010

etoys-dev@lists.squeakfoundation.org

22 participants
110 discussions

About etoys-notify
by Bert Freudenberg 17 Jun '10

17 Jun '10

On 17.06.2010, at 10:09, K. K. Subramaniam wrote: > On Thursday 17 Jun 2010 5:51:07 am Bert Freudenberg wrote: >> All: if you want to be notified of activity on the bug tracker, subscribe >> to this list: >> >> http://lists.squeakland.org/mailman/listinfo/etoys-notify > Etoys-dev is a small group and the mail traffic in etoys-notify is manageable. > Can the notifications be sent to etoys-dev directly? > > What else would etoys-dev track if not these notifications ;-)? > > Subbu The commit diffs are really important for every developer to see, so that's why I feel it's needed to have them on etoys-dev directly (even though there were a few objections IIRC). Many of the bug notifications are more noise than information - e.g. when priorities are changed, bugs are resolved/closed (which will have a commit message too), etc. So having that be opt-in on a separate list seemed like a good compromise. On etoys-dev there are close to 200 subscribers (talk about silent majority), etoys-notify more like 20. I'm personally fine with the current arrangement. But if others agree we need more visibility of bug tracker activity, we can change it pretty easily :) - Bert -

1 0

Etoys Floss Manual Question - Button Bar
by Steve Thomas 17 Jun '10

17 Jun '10

It seems to me the button bar is a special type of "holder" that only accepts buttons dropped onto it. Is this correct, or is there some other purpose? FYI, the layout doesn't always work well with multiple buttons. Stephen

1 0

Kudos to Karl!
by Bert Freudenberg 17 Jun '10

17 Jun '10

... the one-man bug-fixing machine! Yay! :) - Bert -

3 3

Etoys: Etoys-kfr.28.mcz
by commits＠source.squeak.org 17 Jun '10

17 Jun '10

Karl Ramberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-kfr.28.mcz ==================== Summary ==================== Name: Etoys-kfr.28 Author: kfr Time: 17 June 2010, 2:07:44 am UUID: a462a12d-a2b9-514d-b1ed-084b0959a349 Ancestors: Etoys-kfr.27 Flipping fixing =============== Diff against Etoys-kfr.25 =============== Item was changed: ----- Method: Player>>flip (in category 'costume') ----- flip + self flipHorizontal! - | cos | - ((cos _ self costume renderedMorph) isSketchMorph) - ifTrue: - [cos flipHorizontal. - cos submorphsDo:[ : m | (m isSketchMorph) ifTrue:[m flipHorizontal]]]! Item was changed: ----- Method: Player>>flipHorizontal (in category 'costume') ----- flipHorizontal + | cos | + ((cos _ self costume renderedMorph) isSketchMorph) + ifTrue: + [cos flipHorizontal. + cos submorphsDo:[ : m | (m isSketchMorph) ifTrue:[m flipHorizontal]]]! - self costume flipHorizontal! Item was changed: ----- Method: Player>>tumble (in category 'costume') ----- tumble + self flipVertical! - | cos | - ((cos _ self costume renderedMorph) isSketchMorph) - ifTrue: - [cos flipVertical. - cos submorphsDo:[ : m | (m isSketchMorph) ifTrue:[m flipVertical]]]! Item was changed: ----- Method: Player>>flipVertical (in category 'costume') ----- flipVertical + | cos | + ((cos _ self costume renderedMorph) isSketchMorph) + ifTrue: + [cos flipVertical. + cos submorphsDo:[ : m | (m isSketchMorph) ifTrue:[m flipVertical]]]! - self costume flipVertical!

1 0

Etoys: MorphicExtras-kfr.8.mcz
by commits＠source.squeak.org 17 Jun '10

17 Jun '10

Karl Ramberg uploaded a new version of MorphicExtras to project Etoys: http://source.squeak.org/etoys/MorphicExtras-kfr.8.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.8 Author: kfr Time: 17 June 2010, 1:35:58 am UUID: 58e1cd3b-a123-e940-8f74-0e2f481160c5 Ancestors: MorphicExtras-kfr.7 SQ-679 MagnifierMorph menu round is broken =============== Diff against MorphicExtras-kfr.7 =============== Item was changed: ----- Method: MagnifierMorph>>initialize (in category 'initialization') ----- initialize "initialize the state of the receiver" super initialize. trackPointer _ true. showPointer _ false. magnification _ 2. + roundness := false. - self extent: 128 @ 128! Item was changed: ----- Method: MagnifierMorph>>toggleRoundness (in category 'round view') ----- toggleRoundness + roundness := roundness not. + self fullBounds changed + ! - | sm w | - w _ self world. - self isRound - ifTrue: [owner delete. - w addMorph: self] - ifFalse: [sm _ ScreeningMorph new position: self position. - sm addMorph: self. - sm addMorph: (EllipseMorph newBounds: self bounds). - w addMorph: sm]! Item was changed: ----- Method: MagnifierMorph>>isRound (in category 'round view') ----- isRound + ^ roundness! - ^ owner isMemberOf: ScreeningMorph! Item was changed: ----- Method: MagnifierMorph>>drawOn: (in category 'drawing') ----- drawOn: aCanvas + | stencil newForm bb | + - super drawOn: aCanvas. "border and fill" aCanvas isShadowDrawing ifFalse: [ "Optimize because #magnifiedForm is expensive" + self isRound + ifTrue:[stencil := (EllipseMorph new extent: self extent; color: Color white) imageForm. + bb := BitBlt toForm: stencil. + newForm := (bb copyForm: self magnifiedForm to: 0@0 rule: Form and) destForm. + aCanvas paintImage: newForm at: self innerBounds origin ] + ifFalse:[super drawOn: aCanvas. "border and fill" + aCanvas paintImage: self magnifiedForm at: self innerBounds origin]] + + ! - aCanvas paintImage: self magnifiedForm at: self innerBounds origin]! Item was changed: BorderedMorph subclass: #MagnifierMorph + instanceVariableNames: 'magnification trackPointer srcExtent showPointer roundness' - instanceVariableNames: 'magnification trackPointer srcExtent showPointer' classVariableNames: 'RecursionLock' poolDictionaries: '' category: 'MorphicExtras-Demo'! !MagnifierMorph commentStamp: '<historical>' prior: 0! MagnifierMorph instances are magnifying lenses that magnify the morphs below them (if grabbed or if trackPointer is false) or the area around the mouse pointer. Instance variables: magnification <Number> The magnification to use. If non-integer, smooths the magnified form. trackPointer <Boolean> If set, magnifies the area around the Hand. If not, magnfies the area underneath the magnifier center. showPointer <Boolean> If set, display a small reversed rectangle in the center of the lens. Also enables the display of Morphs in the Hand itself. srcExtent <Rectangle> The extent of the source rectangle. Class variables: RecursionLock <MagnifierMorph|nil> Used to avoid infinite recursion when getting the source patch to display.!

1 0

Etoys: Etoys-kfr.25.mcz
by commits＠source.squeak.org 17 Jun '10

17 Jun '10

Karl Ramberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-kfr.25.mcz ==================== Summary ==================== Name: Etoys-kfr.25 Author: kfr Time: 17 June 2010, 1:10:08 am UUID: 46d07e5f-6d32-d849-bf04-fc64361c0b1b Ancestors: Etoys-kfr.24 SQ-94 Flip operations broken on Etoys =============== Diff against Etoys-kfr.24 =============== Item was added: + ----- Method: Player>>flip (in category 'costume') ----- + flip + | cos | + ((cos _ self costume renderedMorph) isSketchMorph) + ifTrue: + [cos flipHorizontal. + cos submorphsDo:[ : m | (m isSketchMorph) ifTrue:[m flipHorizontal]]]! Item was added: + ----- Method: Player>>tumble (in category 'costume') ----- + tumble + | cos | + ((cos _ self costume renderedMorph) isSketchMorph) + ifTrue: + [cos flipVertical. + cos submorphsDo:[ : m | (m isSketchMorph) ifTrue:[m flipVertical]]]!

1 0

Etoys: Morphic-kfr.20.mcz
by commits＠source.squeak.org 17 Jun '10

17 Jun '10

Karl Ramberg uploaded a new version of Morphic to project Etoys: http://source.squeak.org/etoys/Morphic-kfr.20.mcz ==================== Summary ==================== Name: Morphic-kfr.20 Author: kfr Time: 17 June 2010, 12:57:37 am UUID: 04de9588-6502-4a43-87db-be783f97a49c Ancestors: Morphic-kfr.19 SQ-94 Flip operations broken on Etoys =============== Diff against Morphic-kfr.19 =============== Item was changed: ----- Method: SketchMorph>>flipVertical (in category 'e-toy support') ----- flipVertical + | r | + r _ self rotationCenter. + self top: self top - (1.0 - (2 * r y) * self height). + self form: (self form flipBy: #vertical centerAt: self form center). + self rotationCenter: r x @ (1 - r y).! - self form: (self form flipBy: #vertical centerAt: self form center)! Item was added: + ----- Method: SketchMorph class>>additionsToViewerCategories (in category 'scripting') ----- + additionsToViewerCategories + "Answer a list of (<categoryName> <list of category specs>) pairs that characterize the phrases this kind of morph wishes to add to various Viewer categories." + + ^ #((graphics ( + (slot graphic 'The picture currently being worn' Graphic readWrite Player getGraphic Player setGraphic:) + (command wearCostumeOf: 'wear the costume of...' Player) + (slot baseGraphic 'The picture originally painted for this object, but can subsequently be changed via menu or script' Graphic readWrite Player getBaseGraphic Player setBaseGraphic:) + (command restoreBaseGraphic 'Make my picture be the one I remember in my baseGraphic') + + (slot rotationStyle 'How the picture should change when the heading is modified' RotationStyle readWrite Player getRotationStyle Player setRotationStyle:) + (command flip 'Flip left right' Player) + (command tumble 'Flip up down' Player) + ))) + + + ! Item was changed: ----- Method: SketchMorph>>flipHorizontal (in category 'e-toy support') ----- flipHorizontal + | r | + r _ self rotationCenter. + self left: self left - (1.0 - (2 * r x) * self width). + self form: (self form flipBy: #horizontal centerAt: self form center). + self rotationCenter: (1 - r x) @ (r y).! - self form: (self form flipBy: #horizontal centerAt: self form center)!

1 0

Etoys: Etoys-kfr.24.mcz
by commits＠source.squeak.org 17 Jun '10

17 Jun '10

Karl Ramberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-kfr.24.mcz ==================== Summary ==================== Name: Etoys-kfr.24 Author: kfr Time: 17 June 2010, 12:39:07 am UUID: cfe33825-e7a6-094d-b768-4b220e96af8c Ancestors: Etoys-kfr.23 SQ-485 Function tile not translated trnFuncHelp-KR is the proposed patch for translating balloon help =============== Diff against Etoys-kfr.23 =============== Item was changed: ----- Method: FunctionNameTile>>showOptions (in category 'choice of function') ----- showOptions "Put up a pop-up menu of options for the operator tile within me." | aMenu aTable | aMenu := MenuMorph new defaultTarget: self. aTable := ScriptingSystem tableOfNumericFunctions. aTable do: [:triplet | aMenu add: triplet first translated target: self selector: #setOperator: argument: triplet second. triplet second = operatorOrExpression ifTrue: [aMenu lastItem color: Color red]. + aMenu balloonTextForLastItem: triplet third translated]. - aMenu balloonTextForLastItem: triplet third]. aMenu addTranslatedList: #(- ('parentheses' grouped 'enclose within parentheses')) translatedNoop. operatorOrExpression = #grouped ifTrue: [aMenu lastItem color: Color red]. (owner owner isKindOf: TilePadMorph) ifTrue: [aMenu addLine. operatorOrExpression = #grouped ifFalse: [aMenu addTranslatedList: #(('remove function' removeFunction 'strip away the function call, leaving just its former argument in its place')) translatedNoop.] ifTrue: [aMenu addTranslatedList: #(('remove parentheses' removeFunction 'strip away the parenthesises')) translatedNoop]]. aMenu position: self position. aMenu invokeModal !

1 0

Etoys: Graphics-kfr.5.mcz
by commits＠source.squeak.org 17 Jun '10

17 Jun '10

Karl Ramberg uploaded a new version of Graphics to project Etoys: http://source.squeak.org/etoys/Graphics-kfr.5.mcz ==================== Summary ==================== Name: Graphics-kfr.5 Author: kfr Time: 17 June 2010, 12:16:10 am UUID: 24e1cba9-4f7b-c440-8a5d-84a3f37b2450 Ancestors: Graphics-Richo.4 SQ-597 Animated Gif has several basic bugs Fix by Jerome Peace =============== Diff against Graphics-Richo.4 =============== Item was changed: ----- Method: GIFReadWriter>>readBitData (in category 'private-decoding') ----- readBitData "using modified Lempel-Ziv Welch algorithm." | outCodes outCount bitMask initCodeSize code curCode oldCode inCode finChar i bytes f c packedBits hasLocalColor localColorSize maxOutCodes | maxOutCodes _ 4096. offset := self readWord@self readWord. "Image Left@Image Top" width _ self readWord. height _ self readWord. "--- Local Color Table Flag 1 Bit Interlace Flag 1 Bit Sort Flag 1 Bit Reserved 2 Bits Size of Local Color Table 3 Bits ----" packedBits _ self next. interlace _ (packedBits bitAnd: 16r40) ~= 0. hasLocalColor _ (packedBits bitAnd: 16r80) ~= 0. localColorSize _ 1 bitShift: ((packedBits bitAnd: 16r7) + 1). hasLocalColor ifTrue: [localColorTable _ self readColorTable: localColorSize]. pass _ 0. xpos _ 0. ypos _ 0. rowByteSize _ ((width + 3) // 4) * 4. remainBitCount _ 0. bufByte _ 0. bufStream _ ReadStream on: ByteArray new. outCodes _ ByteArray new: maxOutCodes + 1. outCount _ 0. + - bitMask _ (1 bitShift: bitsPerPixel) - 1. prefixTable _ Array new: 4096. suffixTable _ Array new: 4096. initCodeSize _ self next. + bitMask _ (1 bitShift: initCodeSize ) - 1. - self setParameters: initCodeSize. bitsPerPixel > 8 ifTrue: [^self error: 'never heard of a GIF that deep']. bytes _ ByteArray new: rowByteSize * height. [(code _ self readCode) = eoiCode] whileFalse: [code = clearCode ifTrue: [self setParameters: initCodeSize. curCode _ oldCode _ code _ self readCode. finChar _ curCode bitAnd: bitMask. "Horrible hack to avoid running off the end of the bitmap. Seems to cure problem reading some gifs!!? tk 6/24/97 20:16" xpos = 0 ifTrue: [ ypos < height ifTrue: [ bytes at: (ypos * rowByteSize) + xpos + 1 put: finChar]] ifFalse: [bytes at: (ypos * rowByteSize) + xpos + 1 put: finChar]. self updatePixelPosition] ifFalse: [curCode _ inCode _ code. curCode >= freeCode ifTrue: [curCode _ oldCode. outCodes at: (outCount _ outCount + 1) put: finChar]. [curCode > bitMask] whileTrue: [outCount > maxOutCodes ifTrue: [^self error: 'corrupt GIF file (OutCount)']. outCodes at: (outCount _ outCount + 1) put: (suffixTable at: curCode + 1). curCode _ prefixTable at: curCode + 1]. finChar _ curCode bitAnd: bitMask. outCodes at: (outCount _ outCount + 1) put: finChar. i _ outCount. [i > 0] whileTrue: ["self writePixel: (outCodes at: i) to: bits" bytes at: (ypos * rowByteSize) + xpos + 1 put: (outCodes at: i). self updatePixelPosition. i _ i - 1]. outCount _ 0. prefixTable at: freeCode + 1 put: oldCode. suffixTable at: freeCode + 1 put: finChar. oldCode _ inCode. freeCode _ freeCode + 1. self checkCodeSize]]. prefixTable _ suffixTable _ nil. f _ ColorForm extent: width@height depth: 8. f bits copyFromByteArray: bytes. "Squeak can handle depths 1, 2, 4, and 8" bitsPerPixel > 4 ifTrue: [^ f]. "reduce depth to save space" c _ ColorForm extent: width@height depth: (bitsPerPixel = 3 ifTrue: [4] ifFalse: [bitsPerPixel]). f displayOn: c. ^ c !

1 0

Etoys: MorphicExtras-kfr.7.mcz
by commits＠source.squeak.org 17 Jun '10

17 Jun '10

Karl Ramberg uploaded a new version of MorphicExtras to project Etoys: http://source.squeak.org/etoys/MorphicExtras-kfr.7.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.7 Author: kfr Time: 17 June 2010, 12:11:15 am UUID: 581386bc-ce32-e94f-967f-c367f2c57047 Ancestors: MorphicExtras-kfr.6 SQ-597 Animated Gif has several basic bugs Some fixes harvested of Mantis made by Jerome Peace =============== Diff against MorphicExtras-kfr.6 =============== Item was changed: ----- Method: AnimatedImageMorph class>>services (in category 'fileIn/Out') ----- services + ^ Array + with: self serviceOpenGIFInWindow + "with: Form serviceImageImports" + "with: Form serviceImageAsBackground"! - - | a | - a _ Array with: self serviceOpenGIFInWindow. - - Preferences eToyFriendly ifFalse: [ - a _ (Array with: Form serviceImageAsBackground with: Form serviceImageImports), a. - ]. - - ^ a. - ! Item was changed: ----- Method: AnimatedImageMorph>>step (in category 'stepping and presenter') ----- step - "Period action: animate the image." - | d | images isEmpty ifTrue: [^ self]. nextTime > Time millisecondClockValue ifTrue: [^self]. + self changed . + self image: (images at: + (imageIndex _ imageIndex \\ images size + 1)). - self image: (images at: (imageIndex _ imageIndex \\ images size + 1)). self changed . d _ (delays at: imageIndex) ifNil: [0]. + nextTime := Time millisecondClockValue + d + ! - nextTime := Time millisecondClockValue + d! Item was changed: ----- Method: AnimatedImageMorph class>>serviceOpenGIFInWindow (in category 'fileIn/Out') ----- serviceOpenGIFInWindow "Answer a service for opening a gif graphic in a window" + ^ (SimpleServiceEntry + provider: self + label: 'open the graphic as a morph' - - ^ (SimpleServiceEntry - provider: self - label: 'open graphic in a window' translatedNoop selector: #openGIFInWindow: + description: 'open a GIF graphic file as a morph' + buttonLabel: 'open gif') + argumentGetter: [:fileList | fileList readOnlyStream]! - description: 'open a GIF graphic file in a window' translatedNoop - buttonLabel: 'open' translatedNoop) - argumentGetter: [ :fileList | fileList readOnlyStream ]!

1 0

← Newer
1
2
3
4
5
6
7
8
9
10
11
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

etoys-dev June 2010