etoys-dev May 2011

etoys-dev@lists.squeakfoundation.org

17 participants
95 discussions

Etoys: Etoys-kfr.70.mcz
by commits＠source.squeak.org 22 May '11

22 May '11

Karl Ramberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-kfr.70.mcz ==================== Summary ==================== Name: Etoys-kfr.70 Author: kfr Time: 22 May 2011, 8:00:42 pm UUID: cdee253f-af6d-9b46-8493-464179d48432 Ancestors: Etoys-kfr.69 Mouseover Feedback of a phrase tile is wrong http://tracker.squeakland.org/browse/SQ-62 =============== Diff against Etoys-kfr.69 =============== Item was changed: ----- Method: CategoryViewer>>addColorSeesDetailTo: (in category 'entries') ----- addColorSeesDetailTo: aRow "Special-casee code for the boolean-valued phrase variously known as is-over-color or sees-color." + | hotTileForSelf colorMorph | - | hotTileForSelf m | (aRow submorphs last) delete. aRow addMorphBack: (hotTileForSelf _ ColorSeerTile new showPalette: false; yourself). + aRow addMorphBack: (colorMorph _ ColorTileMorph new showPalette: false; - aRow addMorphBack: (m _ ColorTileMorph new showPalette: false; typeColor: (ScriptingSystem colorForType: #Color); yourself). + colorMorph colorSwatch color: Color blue. + hotTileForSelf on: #mouseEnter send: #addGetterFeedback to: aRow. - m colorSwatch color: Color blue. - hotTileForSelf on: #mouseEnter send: #addGetterFeedback to: aRow. hotTileForSelf on: #mouseLeave send: #removeHighlightFeedback to: aRow. hotTileForSelf on: #mouseLeaveDragging send: #removeHighlightFeedback to: aRow. hotTileForSelf on: #mouseDown send: #makeGetter:event:from: to: self withValue: (Array with: #color:sees: with: #Boolean). + colorMorph on: #mouseEnter send: #addGetterFeedback to: aRow. + colorMorph on: #mouseLeave send: #removeHighlightFeedback to: aRow. + colorMorph on: #mouseLeaveDragging send: #removeHighlightFeedback to: aRow. + + colorMorph on: #mouseDown send: #makeGetter:event:from: + to: self + withValue: (Array with: #color:sees: with: #Boolean). + aRow addMorphBack: (Morph new extent: 0@(aRow height)). ! Item was changed: ----- Method: CategoryViewer>>addIsOverColorDetailTo: (in category 'entries') ----- addIsOverColorDetailTo: aRow "Special-casee code for the boolean-valued phrase variously known as is-over-color or sees-color." + | hotTileForSelf | + aRow addMorphBack: (Morph new color: self color; extent: 0@10). "spacer" + hotTileForSelf _ ColorTileMorph new showPalette: false; - | m | - aRow addMorphBack: (Morph new color: self color; extent: 2@10). "spacer" - m _ ColorTileMorph new showPalette: false; typeColor: (ScriptingSystem colorForType: #Color); yourself. + hotTileForSelf colorSwatch color: Color blue. + hotTileForSelf on: #mouseEnter send: #addGetterFeedback to: aRow. + hotTileForSelf on: #mouseLeave send: #removeHighlightFeedback to: aRow. + hotTileForSelf on: #mouseLeaveDragging send: #removeHighlightFeedback to: aRow. + hotTileForSelf on: #mouseDown send: #makeGetter:event:from: + to: self + withValue: (Array with: #seesColor: with: #Color). + aRow addMorphBack: hotTileForSelf. - m colorSwatch color: Color blue. - aRow addMorphBack: (m _ ColorTileMorph new showPalette: false; - typeColor: (ScriptingSystem colorForType: #Color); yourself). - "The following commented-out code put a readout up; the readout was very nice, but was very consumptive of cpu time, which is why the is-over-color tile got removed from the viewer long ago. Now is-over-color is reinstated to the viewer, minus the expensive readout..." " aRow addMorphBack: (AlignmentMorph new beTransparent). readout _ UpdatingStringMorphWithArgument new target: scriptedPlayer; getSelector: #seesColor:; growable: false; putSelector: nil; argumentTarget: clrTile colorSwatch argumentGetSelector: #color. readout useDefaultFormat. aTile _ StringReadoutTile new typeColor: Color lightGray lighter. aTile addMorphBack: readout. aRow addMorphBack: aTile. aTile setLiteralTo: (scriptedPlayer seesColor: clrTile colorSwatch color) printString width: 30"! Item was changed: ----- Method: CategoryViewer>>addPlayerArgumentTo: (in category 'entries') ----- addPlayerArgumentTo: aRow "Add, delimited by spacer morphs, a player-valued TileMorph to the row provided." + | aTileToRefer | aRow addMorphBack: (Morph new extent: 0@0). "spacer (Is this spacer really needed??? - takashi)" + aTileToRefer := self presenter standardPlayer tileToRefer. + aTileToRefer on: #mouseEnter send: #addGetterFeedback to: aRow. + aTileToRefer on: #mouseLeave send: #removeHighlightFeedback to: aRow. + aTileToRefer on: #mouseLeaveDragging send: #removeHighlightFeedback to: aRow. + aRow addMorphBack: aTileToRefer . - aRow addMorphBack: self presenter standardPlayer tileToRefer. aRow addMorphBack: (AlignmentMorph new beTransparent). "flexible spacer" ! Item was changed: ----- Method: CategoryViewer>>phraseForVariableFrom: (in category 'entries') ----- phraseForVariableFrom: aMethodInterface "Return a structure consisting of tiles and controls and a readout representing a 'variable' belonging to the player, complete with an appropriate readout when indicated. Slightly misnamed in that this path is used for any methodInterface that indicates an interesting resultType." + | anArrow slotName getterButton aRow doc setter hotTileForSelf spacer readOut aTileToRefer | - | anArrow slotName getterButton aRow doc setter hotTileForSelf spacer | Preferences universalTiles ifTrue: [^ self universalTilesPhraseForVariableFrom: aMethodInterface]. aRow _ ViewerLine newRow elementSymbol: (slotName _ aMethodInterface selector); wrapCentering: #center; cellPositioning: #leftCenter. (self wantsInfoButtonFor: slotName) ifFalse: [aRow addMorphBack: ScriptingSystem buttonSpacer] ifTrue: [aRow addMorphBack: (self infoButtonFor: slotName)]. aRow addMorphBack: self spacerAfterButton. hotTileForSelf _ self tileForSelf bePossessive. hotTileForSelf on: #mouseDown send: #makeGetter:event:from: to: self withValue: (Array with: aMethodInterface selector with: aMethodInterface resultType). aRow addMorphBack: hotTileForSelf. aRow addMorphBack: (spacer _ Morph new color: self color; extent: 0@0). spacer on: #mouseEnter send: #addGetterFeedback to: aRow. spacer on: #mouseLeave send: #removeHighlightFeedback to: aRow. spacer on: #mouseLeaveDragging send: #removeHighlightFeedback to: aRow. spacer on: #mouseDown send: #makeGetter:event:from: to: self withValue: (Array with: aMethodInterface selector with: aMethodInterface resultType). hotTileForSelf on: #mouseEnter send: #addGetterFeedback to: aRow. hotTileForSelf on: #mouseLeave send: #removeHighlightFeedback to: aRow. hotTileForSelf on: #mouseLeaveDragging send: #removeHighlightFeedback to: aRow. getterButton _ self getterButtonFor: aMethodInterface selector type: aMethodInterface resultType. aRow addMorphBack: getterButton. getterButton on: #mouseEnter send: #addGetterFeedback to: aRow. getterButton on: #mouseLeave send: #removeHighlightFeedback to: aRow. getterButton on: #mouseLeaveDragging send: #removeHighlightFeedback to: aRow. (doc _ aMethodInterface documentation) ifNotNil: [getterButton setBalloonText: doc]. (slotName == #seesColor:) ifTrue: [self addIsOverColorDetailTo: aRow. ^ aRow]. (slotName == #color:sees:) ifTrue: [self addColorSeesDetailTo: aRow. ^ aRow]. (#(touchesA: overlaps: overlapsAny: distanceToPlayer: bearingTo: bearingFrom:) includes: slotName) ifTrue: + [aRow addMorphBack: (Morph new extent: 0@0). "spacer (Is this spacer really needed??? - takashi)" + aTileToRefer := self presenter standardPlayer tileToRefer. + aTileToRefer on: #mouseEnter send: #addGetterFeedback to: aRow. + aTileToRefer on: #mouseLeave send: #removeHighlightFeedback to: aRow. + aTileToRefer on: #mouseLeaveDragging send: #removeHighlightFeedback to: aRow. + aTileToRefer on: #mouseDown send: #makeGetter:event:from: + to: self + withValue: (Array with: aMethodInterface selector with: aMethodInterface resultType). + aRow addMorphBack: aTileToRefer . + aRow addMorphBack: (AlignmentMorph new beTransparent). "flexible spacer" - [self addPlayerArgumentTo: aRow. ^ aRow]. aRow addMorphBack: VariableSpacer new. (setter _ aMethodInterface companionSetterSelector) ifNotNil: [aRow addMorphBack: (Morph new color: self color; extent: 2@10). " spacer" anArrow _ self arrowSetterButton: #makeSetter:from:forPart: args: (Array with: slotName with: aMethodInterface resultType). anArrow beTransparent. anArrow on: #mouseEnter send: #addSetterFeedback to: aRow. anArrow on: #mouseLeave send: #removeHighlightFeedback to: aRow. anArrow on: #mouseLeaveDragging send: #removeHighlightFeedback to: aRow. aRow addMorphBack: anArrow]. (#(color:sees: copy touchesA: overlaps: overlapsAny: getTurtleAt: getTurtleOf:) includes: slotName) ifFalse: [aMethodInterface wantsReadoutInViewer ifTrue: + [readOut := (self readoutFor: slotName type: aMethodInterface resultType readOnly: setter isNil getSelector: aMethodInterface selector putSelector: setter). + readOut on: #mouseEnter send: #addSetterFeedback to: aRow. + readOut on: #mouseLeave send: #removeHighlightFeedback to: aRow. + readOut on: #mouseLeaveDragging send: #removeHighlightFeedback to: aRow. + readOut on: #mouseDown send: #makeGetter:event:from: + to: self + withValue: (Array with: aMethodInterface selector with: aMethodInterface resultType). + aRow addMorphBack: readOut.]]. - [aRow addMorphBack: (self readoutFor: slotName type: aMethodInterface resultType readOnly: setter isNil getSelector: aMethodInterface selector putSelector: setter)]]. anArrow ifNotNil: [anArrow step]. ^ aRow! Item was changed: ----- Method: CompoundTileMorph>>addCommandFeedback: (in category 'miscellaneous') ----- addCommandFeedback: evt "Add screen feedback showing what would be torn off in a drag" | aMorph | + aMorph _ RectangleMorph new bounds: (self bounds). + aMorph beTransparent; borderWidth: 2; borderColor: ScriptingSystem commandFeedback; lock. - aMorph beTransparent; borderWidth: 2; borderColor: (Color r: 1.0 g: 0.548 b: 0.452); lock. ActiveWorld addHighlightMorph: aMorph for: self outmostScriptEditor! Item was changed: ----- Method: PhraseTileForTest>>addCommandFeedback: (in category 'as yet unclassified') ----- addCommandFeedback: evt "Add screen feedback showing what would be torn off in a drag" + | aMorph | - | aMorph rect | (self owner owner isMemberOf: PhraseTileMorph) ifTrue: [self owner owner addCommandFeedback: evt. ^ self]. + aMorph _ RectangleMorph new bounds: ((self topLeft - (2@1)) corner: (self bottomRight) + (2@1)). + aMorph beTransparent; borderWidth: 2; borderColor: ScriptingSystem commandFeedback; lock. - rect _ self bounds. - aMorph _ RectangleMorph new bounds: rect. - aMorph beTransparent; borderWidth: 2; borderColor: (Color r: 1.0 g: 0.548 b: 0.452); lock. ActiveWorld addHighlightMorph: aMorph for: self outmostScriptEditor! Item was changed: ----- Method: PhraseTileForTimesRepeat>>addCommandFeedback: (in category 'hilighting') ----- addCommandFeedback: evt "Add screen feedback showing what would be torn off in a drag" + | aMorph | + - | aMorph rect | (self owner owner isMemberOf: PhraseTileMorph) ifTrue: [self owner owner addCommandFeedback: evt. ^ self]. + aMorph _ RectangleMorph new bounds: ((self topLeft - (2@1)) corner: (self bottomRight) + (2@1)). + aMorph beTransparent; borderWidth: 2; borderColor: ScriptingSystem commandFeedback; lock. - rect _ self bounds. - aMorph _ RectangleMorph new bounds: rect. - aMorph beTransparent; borderWidth: 2; borderColor: (Color r: 1.0 g: 0.548 b: 0.452); lock. ActiveWorld addHighlightMorph: aMorph for: self outmostScriptEditor! Item was changed: ----- Method: PhraseTileMorph>>addCommandFeedback: (in category 'hilighting') ----- addCommandFeedback: evt "Add screen feedback showing what would be torn off in a drag" + | aMorph | - | aMorph rect inHotZone | (self owner owner isMemberOf: PhraseTileMorph) ifTrue: [self owner owner addCommandFeedback: evt. ^ self]. + aMorph _ RectangleMorph new bounds: ((self topLeft - (2@1)) corner: ((submorphs at: (2 max: submorphs size)) bottomRight + (2@1))). + "inHotZone _ evt ifNil: [true] ifNotNil: [rect containsPoint: evt cursorPoint]." + aMorph beTransparent; borderWidth: 2; borderColor: ScriptingSystem commandFeedback; lock. - rect _ self topLeft corner: (submorphs at: (2 min: submorphs size)) bottomRight. - inHotZone _ evt ifNil: [true] ifNotNil: [rect containsPoint: evt cursorPoint]. - aMorph _ RectangleMorph new bounds: rect; beTransparent; borderWidth: 2. - aMorph borderColor: (Color r: 1.0 g: 0.548 b: 0.452); lock. ActiveWorld addHighlightMorph: aMorph for: self outmostScriptEditor! Item was changed: ----- Method: TileMorph>>handlesMouseOver: (in category 'event handling') ----- handlesMouseOver: evt ^ self isPopArrowNeeded + or: [^super handlesMouseOver: evt]! - or: [super handlesMouseOver: evt]! Item was changed: ----- Method: TileMorph>>mouseEnter: (in category 'event handling') ----- mouseEnter: evt + + . + super mouseEnter:evt. + ^self showPopArrows! - self showPopArrows! Item was changed: ----- Method: TileMorph>>mouseLeave: (in category 'event handling') ----- mouseLeave: evt "When the mouse is leaving and next object is not a pop arrow, remove pop arrows." | popArrows vpanel hpanel | popArrows := evt hand valueOfProperty: #popArrows + ifAbsent: [^super mouseLeave: evt]. - ifAbsent: [^ self]. vpanel := popArrows second. hpanel := popArrows third. (vpanel notNil and: [vpanel containsPoint: evt position]) + ifTrue: [^super mouseLeave: evt]. - ifTrue: [^ self]. (hpanel notNil and: [hpanel containsPoint: evt position]) + ifTrue: [^super mouseLeave: evt]. + self hidePopArrows. + ^super mouseLeave: evt! - ifTrue: [^ self]. - self hidePopArrows! Item was changed: ----- Method: TimesRepeatTile>>numberOfTimesToRepeatPart (in category 'access') ----- numberOfTimesToRepeatPart "Answer the TilePadMorph which holds the tiles defining the number of times to repeat" ^ timesRow timesPad ! Item was changed: ----- Method: TimesRepeatTile>>storeCodeOn:indent: (in category 'code generation') ----- storeCodeOn: aStream indent: tabCount "Store code representing the receiver on the stream, obeying the tab state." aStream nextPutAll: '(('. self numberOfTimesToRepeatPart submorphs ifEmpty: [aStream nextPutAll: '0'] ifNotEmpty: [self numberOfTimesToRepeatPart storeCodeOn: aStream indent: tabCount + 2]. aStream nextPutAll: ' ) asInteger max: 0) timesRepeat:'. tabCount + 1 timesRepeat: [aStream tab]. aStream nextPutAll: '['; cr. self storeCodeBlockFor: whatToRepeatPart on: aStream indent: tabCount + 2. aStream nextPut: $]. ! Item was changed: ----- Method: TimesRepeatTile>>targetPartFor: (in category 'initialization') ----- targetPartFor: aMorph "Return the row into which the given morph should be inserted." | centerY | centerY _ aMorph fullBounds center y. {self numberOfTimesToRepeatPart, whatToRepeatPart} do: [:m | (centerY <= m bounds bottom) ifTrue: [^ m]]. ^ noPart ! Item was changed: ----- Method: ViewerLine>>addCommandFeedback: (in category 'slot') ----- addCommandFeedback: evt "Add screen feedback showing what would be torn off in a drag" | aMorph | + aMorph _ RectangleMorph new bounds: ((submorphs third topLeft - (2@1)) corner: (submorphs last bottomRight) + (2@1)). + aMorph beTransparent; borderWidth: 2; borderColor: ScriptingSystem commandFeedback; lock. - aMorph _ RectangleMorph new bounds: ((submorphs third topLeft - (2@1)) corner: (submorphs last bottomRight) + (2@0)). - aMorph beTransparent; borderWidth: 2; borderColor: (Color r: 1.0 g: 0.548 b: 0.452); lock. ActiveWorld addHighlightMorph: aMorph for: nil! Item was changed: ----- Method: ViewerLine>>addGetterFeedback (in category 'slot') ----- addGetterFeedback "Add feedback during mouseover of a getter" | aMorph endMorph | + endMorph _ (#(touchesA: #seesColor: #overlaps: color:sees: overlapsAny: bearingTo: bearingFrom: distanceToPlayer:) includes: self elementSymbol) ifTrue: [submorphs seventh] ifFalse: [submorphs fifth]. + aMorph _ RectangleMorph new bounds: ((submorphs third topLeft - (2@1)) corner: ((endMorph right @ submorphs third bottom) + (2@1))). + aMorph beTransparent; borderWidth: 2; borderColor: ScriptingSystem getterFeedback; lock. - aMorph _ RectangleMorph new bounds: ((submorphs third topLeft - (2@-1)) corner: (endMorph bottomRight + (2@-1))). - aMorph height:(submorphs third height + 1). - aMorph beTransparent; borderWidth: 2; borderColor: (Color r: 1.0 g: 0.355 b: 0.839); lock. ActiveWorld addHighlightMorph: aMorph for: nil. " Color fromUser (Color r: 1.0 g: 0.355 b: 0.839) "! Item was changed: ----- Method: ViewerLine>>addSetterFeedback (in category 'slot') ----- addSetterFeedback "Add screen feedback showing what would be torn off to make a setter" | aMorph | + aMorph _ RectangleMorph new bounds: ((submorphs third topLeft - (2@1)) corner: ((submorphs last right @ submorphs third bottom) + (2@1))). + aMorph beTransparent; borderWidth: 2; borderColor: ScriptingSystem setterFeedback; lock. - aMorph _ RectangleMorph new bounds: ((submorphs third topLeft - (2@1)) corner: (submorphs last bottomRight) + (2@0)). - aMorph height:(submorphs third height + 1). - aMorph beTransparent; borderWidth: 2; borderColor: (Color r: 1.0 g: 0.548 b: 0.452); lock. ActiveWorld addHighlightMorph: aMorph for: nil!

1 0

Re: [etoys-dev] [etoys-notify] [JIRA] Commented: (SQ-938) In Spanish, viewer does not start with basic category
by Bert Freudenberg 22 May '11

22 May '11

On 22.05.2011, at 17:52, Karl Ramberg (JIRA) wrote: > I can not reproduce this error > >> To reproduce: >> 1. Switch language to "Español" >> 2. Make an object (e.g., get a "Rectángulo" from supplies) >> 3. Open its viewer >> Expected result: >> - viewer opens with "basico" ("basic") category on top >> Actual result: >> - viewer opens with "pruebas" ("tests") category on top Really?! It worked fine in Etoys 4.0, but it's broken and easily reproducible in Etoys 4.1.1 for me. - Bert -

2 1

Re: [etoys-dev] Etoys: Etoys-kfr.68.mcz
by Scott Wallace 22 May '11

22 May '11

On May 22, 2011, at 4:28 PM, commits(a)source.squeak.org wrote: > Karl Ramberg uploaded a new version of Etoys to project Etoys: > http://source.squeak.org/etoys/Etoys-kfr.68.mcz > > ==================== Summary ==================== > > Name: Etoys-kfr.68 > Author: kfr > Time: 22 May 2011, 6:28:05 pm > UUID: 21209153-78b3-0d45-93e0-1bd43b3e2100 > Ancestors: Etoys-kfr.67 > > Hide 'add search pane' menu item if it already is present Really? Sometimes it's useful to have more than one "search pane" at the same time. Why preclude this? Maybe if the wording of the menu item were "add a search pane" instead of simply "add search pane", it might make it clearer... -- Scott

3 2

Etoys: Etoys-kfr.69.mcz
by commits＠source.squeak.org 22 May '11

22 May '11

Karl Ramberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-kfr.69.mcz ==================== Summary ==================== Name: Etoys-kfr.69 Author: kfr Time: 22 May 2011, 6:53:40 pm UUID: 6f72dd32-6531-5e4a-b915-2450c79e787d Ancestors: Etoys-kfr.68 Revert http://source.squeak.org/etoys/Etoys-kfr.68.mcz =============== Diff against Etoys-kfr.68 =============== Item was changed: ----- Method: Player>>offerViewerMenuFor:event: (in category 'misc') ----- offerViewerMenuFor: aViewer event: evt "Put up the Viewer menu on behalf of the receiver. If the shift key is held down, put up the alternate menu. The menu omits the 'add a new variable' item when in eToyFriendly mode, as per request from teachers using Squeakland in 2003 once the button for adding a new variable was added to the viewer" | aMenu aWorld | (evt notNil and: [evt shiftPressed and: [Preferences eToyFriendly not]]) ifTrue: [^ self offerAlternateViewerMenuFor: aViewer event: evt]. aWorld _ aViewer world. aMenu _ MenuMorph new defaultTarget: self. aMenu title: self externalName. aMenu addStayUpItem. self costume renderedMorph offerCostumeViewerMenu: aMenu. Preferences eToyFriendly ifFalse: "exclude this from squeakland-like UI " [aMenu add: 'add a new variable' translated target: self action: #addInstanceVariable. aMenu balloonTextForLastItem: 'Add a new variable to this object and all of its siblings. You will be asked to supply a name for it.' translated]. aMenu add: 'add a new script' translated target: aViewer action: #newPermanentScript. aMenu balloonTextForLastItem: 'Add a new script that will work for this object and all of its siblings' translated. aMenu addLine. aMenu add: 'grab this object' translated target: self selector: #grabPlayerIn: argument: aWorld. aMenu balloonTextForLastItem: 'This will actually pick up the object this Viewer is looking at, and hand it to you. Click the (left) button to drop it' translated. aMenu add: 'reveal this object' translated target: self selector: #revealPlayerIn: argument: aWorld. aMenu balloonTextForLastItem: 'If you have misplaced the object that this Viewer is looking at, use this item to (try to) make it visible' translated. aMenu add: 'tile representing this object' translated action: #tearOffTileForSelf. aMenu balloonTextForLastItem: 'choose this to obtain a tile which represents the object associated with this script' translated. aMenu addLine. + + aMenu add: 'add a search pane' translated target: aViewer action: #addSearchPane. - (aViewer findA: SearchingViewer) - ifNil:[aMenu add: 'add search pane' translated target: aViewer action: #addSearchPane]. Preferences eToyFriendly ifFalse: [ aMenu addLine. aMenu add: 'more...' translated target: self selector: #offerAlternateViewerMenuFor:event: argumentList: {aViewer. evt}]. aMenu popUpEvent: evt in: aWorld !

1 0

Etoys: Morphic-kfr.62.mcz
by commits＠source.squeak.org 22 May '11

22 May '11

Karl Ramberg uploaded a new version of Morphic to project Etoys: http://source.squeak.org/etoys/Morphic-kfr.62.mcz ==================== Summary ==================== Name: Morphic-kfr.62 Author: kfr Time: 22 May 2011, 6:44:07 pm UUID: 57c097d7-c188-8943-8ab6-8521f4085a2b Ancestors: Morphic-kfr.61 Connectors Flap, Maker Button when clicked gives subscript error http://tracker.squeakland.org/browse/SQ-538 =============== Diff against Morphic-kfr.61 =============== Item was changed: ----- Method: IconicButton>>launchPartFromClick (in category 'menu') ----- launchPartFromClick "The user clicked on the receiver." + arguments size = 0 ifTrue:[^self]. - target launchPartVia: arguments first label: arguments second. oldColor ifNotNil: ["if oldColor nil, it signals that mouse had not gone DOWN inside me, e.g. because of a cmd-drag; in this case we want to avoid triggering the action!!" self color: oldColor. oldColor _ nil]!

1 0

Etoys: Etoys-kfr.68.mcz
by commits＠source.squeak.org 22 May '11

22 May '11

Karl Ramberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-kfr.68.mcz ==================== Summary ==================== Name: Etoys-kfr.68 Author: kfr Time: 22 May 2011, 6:28:05 pm UUID: 21209153-78b3-0d45-93e0-1bd43b3e2100 Ancestors: Etoys-kfr.67 Hide 'add search pane' menu item if it already is present =============== Diff against Etoys-kfr.67 =============== Item was changed: ----- Method: Player>>offerViewerMenuFor:event: (in category 'misc') ----- offerViewerMenuFor: aViewer event: evt "Put up the Viewer menu on behalf of the receiver. If the shift key is held down, put up the alternate menu. The menu omits the 'add a new variable' item when in eToyFriendly mode, as per request from teachers using Squeakland in 2003 once the button for adding a new variable was added to the viewer" | aMenu aWorld | (evt notNil and: [evt shiftPressed and: [Preferences eToyFriendly not]]) ifTrue: [^ self offerAlternateViewerMenuFor: aViewer event: evt]. aWorld _ aViewer world. aMenu _ MenuMorph new defaultTarget: self. aMenu title: self externalName. aMenu addStayUpItem. self costume renderedMorph offerCostumeViewerMenu: aMenu. Preferences eToyFriendly ifFalse: "exclude this from squeakland-like UI " [aMenu add: 'add a new variable' translated target: self action: #addInstanceVariable. aMenu balloonTextForLastItem: 'Add a new variable to this object and all of its siblings. You will be asked to supply a name for it.' translated]. aMenu add: 'add a new script' translated target: aViewer action: #newPermanentScript. aMenu balloonTextForLastItem: 'Add a new script that will work for this object and all of its siblings' translated. aMenu addLine. aMenu add: 'grab this object' translated target: self selector: #grabPlayerIn: argument: aWorld. aMenu balloonTextForLastItem: 'This will actually pick up the object this Viewer is looking at, and hand it to you. Click the (left) button to drop it' translated. aMenu add: 'reveal this object' translated target: self selector: #revealPlayerIn: argument: aWorld. aMenu balloonTextForLastItem: 'If you have misplaced the object that this Viewer is looking at, use this item to (try to) make it visible' translated. aMenu add: 'tile representing this object' translated action: #tearOffTileForSelf. aMenu balloonTextForLastItem: 'choose this to obtain a tile which represents the object associated with this script' translated. aMenu addLine. + (aViewer findA: SearchingViewer) + ifNil:[aMenu add: 'add search pane' translated target: aViewer action: #addSearchPane]. - - aMenu add: 'add search pane' translated target: aViewer action: #addSearchPane. Preferences eToyFriendly ifFalse: [ aMenu addLine. aMenu add: 'more...' translated target: self selector: #offerAlternateViewerMenuFor:event: argumentList: {aViewer. evt}]. aMenu popUpEvent: evt in: aWorld !

1 0

Etoys: MorphicExtras-kfr.24.mcz
by commits＠source.squeak.org 22 May '11

22 May '11

Karl Ramberg uploaded a new version of MorphicExtras to project Etoys: http://source.squeak.org/etoys/MorphicExtras-kfr.24.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.24 Author: kfr Time: 22 May 2011, 5:47:20 pm UUID: 92ab7a8a-2334-b940-a073-24a08fee6fc1 Ancestors: MorphicExtras-kfr.23 Playfield's menu item: "set thumbnail height" does not take effect until you uncheck and re-check "use thumbnails http://tracker.squeakland.org/browse/SQ-814 =============== Diff against MorphicExtras-kfr.22 =============== Item was changed: ----- Method: MorphThumbnail>>representativeNoTallerThan:norWiderThan:thumbnailHeight: (in category 'thumbnail') ----- representativeNoTallerThan: maxHeight norWiderThan: maxWidth thumbnailHeight: thumbnailHeight "Return a morph representing the receiver but which is no taller than aHeight. If the receiver is already small enough, just return it, else return a MorphThumbnail companioned to the receiver, enforcing the maxWidth" + "(self height <= maxHeight and: [self width <= maxWidth]) ifTrue: [^ self]." - (self height <= maxHeight and: [self width <= maxWidth]) ifTrue: [^ self]. ^ MorphThumbnail new + extent: maxWidth @ (thumbnailHeight "min: self height"); - extent: maxWidth @ (thumbnailHeight min: self height); morphRepresented: morphRepresented!

1 0

Etoys: Etoys-kfr.67.mcz
by commits＠source.squeak.org 22 May '11

22 May '11

Karl Ramberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-kfr.67.mcz ==================== Summary ==================== Name: Etoys-kfr.67 Author: kfr Time: 22 May 2011, 2:33:34 pm UUID: e0c41b97-6dfd-a54f-b820-0c6be877c7f8 Ancestors: Etoys-kfr.66 Watcher for "Playfields : cursor" changes to "Playfields : pasteUpCursor" http://tracker.squeakland.org/browse/SQ-886 =============== Diff against Etoys-kfr.66 =============== Item was changed: ----- Method: WatcherWrapper>>buildForPlayer:getter: (in category 'initialization') ----- buildForPlayer: aPlayer getter: aGetter "Build up basic structure" + | aColor aMethodInterface | + aMethodInterface := self currentVocabulary methodInterfaceAt: aGetter ifAbsent: [Vocabulary eToyVocabulary methodInterfaceAt: aGetter ifAbsent: [ nil ]]. - | aColor | self player: aPlayer + variableName: aMethodInterface wording. - variableName: (Utilities inherentSelectorForGetter: aGetter). aColor := self detailedWatcherColor. self listDirection: #leftToRight; hResizing: #shrinkWrap; vResizing: #shrinkWrap; color: aColor; layoutInset: -1; borderWidth: 1; borderColor: aColor darker; listCentering: #center. self addMorphBack: (self buildReadout: aGetter)!

1 0

Etoys: Morphic-kfr.61.mcz
by commits＠source.squeak.org 22 May '11

22 May '11

Karl Ramberg uploaded a new version of Morphic to project Etoys: http://source.squeak.org/etoys/Morphic-kfr.61.mcz ==================== Summary ==================== Name: Morphic-kfr.61 Author: kfr Time: 22 May 2011, 12:11:06 pm UUID: 9d7aa0d2-3277-8047-9bf7-e693b06867f2 Ancestors: Morphic-kfr.60 If you scale a parts bin, then drag an object out an exception is thrown http://tracker.squeakland.org/browse/SQ-936 =============== Diff against Morphic-kfr.60 =============== Item was changed: ----- Method: Morph>>addFlexShell (in category 'rotate scale and flex') ----- addFlexShell "Wrap a rotating and scaling shell around this morph." + | oldHalo flexMorph myWorld anIndex morphOwner | - | oldHalo flexMorph myWorld anIndex | + myWorld := self world. + oldHalo:= self halo. + self owner ifNotNil:[ morphOwner := self owner] + ifNil:[morphOwner := self currentWorld]. + + anIndex := morphOwner submorphIndexOf: self. + morphOwner addMorph: (flexMorph := self newTransformationMorph asFlexOf: self) - myWorld _ self world. - oldHalo _ self halo. - anIndex _ self owner submorphIndexOf: self. - self owner addMorph: (flexMorph _ self newTransformationMorph asFlexOf: self) asElementNumber: anIndex. self transferStateToRenderer: flexMorph. oldHalo ifNotNil: [oldHalo setTarget: flexMorph]. myWorld ifNotNil: [myWorld startSteppingSubmorphsOf: flexMorph]. ^ flexMorph!

1 0

Etoys: Morphic-kfr.60.mcz
by commits＠source.squeak.org 22 May '11

22 May '11

Karl Ramberg uploaded a new version of Morphic to project Etoys: http://source.squeak.org/etoys/Morphic-kfr.60.mcz ==================== Summary ==================== Name: Morphic-kfr.60 Author: kfr Time: 22 May 2011, 11:04:03 am UUID: 49145a94-80c0-294d-b869-3f0949a74c2b Ancestors: Morphic-kfr.59 Reverting the change =============== Diff against Morphic-kfr.59 =============== Item was changed: ----- Method: RulerMorph>>drawOn: (in category 'drawing') ----- + drawOn: aCanvas + + | s | - drawOn: aCanvas - | s aMorph | super drawOn: aCanvas. + s _ self width printString, 'x', self height printString. + aCanvas drawString: s in: (bounds insetBy: borderWidth + 5) font: nil color: Color red. + ! - self isFlexed - ifTrue: [aMorph := self owner] - ifFalse: [aMorph := self]. - s := aMorph width printString , 'x' , aMorph height printString. - aCanvas - drawString: s - in: (bounds insetBy: borderWidth + 5) - font: nil - color: Color red!

1 0

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

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

etoys-dev May 2011