etoys-dev August 2011

etoys-dev@lists.squeakfoundation.org

5 participants
20 discussions

Re: [etoys-dev] Stencils in Etoys
by Steve Thomas 02 Dec '11

02 Dec '11

Subbu, Thanks this is a lot of fun and useful. So I tried to use it for fractions (although I really like your art work project at Ofset <http://community.ofset.org/index.php/Grab_area_button>better, but I am thinking about fractions lately) I used the "do menu item | stencil a sketch" scripting tile in a "Mouse Down" script. The rectangle then moves forward by its width. So with a series of successive clicks you can make a fraction. It get's my vote for inclusion in the next release. Thanks, Stephen On Fri, Jul 22, 2011 at 10:02 PM, K. K. Subramaniam <kksubbu.ml(a)gmail.com>wrote: > Hi Steve, > > I have attached a patch to Morphic that adds three functions to 'extras...' > menu for any Morph. These enable anyone to quick convert an assembly of > morphs > into a sketch (e.g. a car assembled using rectangles and ellipses), use any > morph as a stencil to cut out a sketch from underlying screen area and to > create silhouette (shadow) sketch respectively. > > To use the patch, just drop it into Etoys and select "file it in". I would > appreciate it if you could use it and let me know if it is useful. If so, I > will send it to Etoys Inbox. > > Subbu >

3 12

[SVN][884] release 4.1.2 alpha 5 (2397)
by commits＠etoys.squeak.org 31 Aug '11

31 Aug '11

Repository: http://etoys.squeak.org/svn Revision: 884 Author: bf Date: 2011-08-31 20:26:25 +0000 (Wed, 31 Aug 2011) Log Message: ----------- release 4.1.2 alpha 5 (2397) Modified Paths: -------------- trunk/Documentation/Release-HowTo.txt trunk/Etoys/etoys.changes trunk/Etoys/etoys.image trunk/VM/os-x/app/Contents/Info.plist trunk/VM/to-go/Contents/Info.plist trunk/po/templates/BroomMorphs.pot trunk/po/templates/Collections.pot trunk/po/templates/Compression.pot trunk/po/templates/Connectors.pot trunk/po/templates/DAVServerDirectory.pot trunk/po/templates/DrGeoII-Core.pot trunk/po/templates/Etoys-Tiles.pot trunk/po/templates/Etoys.pot trunk/po/templates/FSM.pot trunk/po/templates/Files.pot trunk/po/templates/Flash.pot trunk/po/templates/GStreamer-UI.pot trunk/po/templates/Graphics.pot trunk/po/templates/Kernel.pot trunk/po/templates/Monticello.pot trunk/po/templates/Morphic.pot trunk/po/templates/MorphicExtras.pot trunk/po/templates/Movies.pot trunk/po/templates/Nebraska.pot trunk/po/templates/Network.pot trunk/po/templates/Pango.pot trunk/po/templates/Protocols.pot trunk/po/templates/SMLoader.pot trunk/po/templates/ST80.pot trunk/po/templates/Sound.pot trunk/po/templates/Sugar.pot trunk/po/templates/System.pot trunk/po/templates/Tools.pot trunk/po/templates/TrueType.pot trunk/po/templates/VideoForSqueak.pot trunk/po/templates/WS-Sound.pot

1 0

Etoys: ReleaseBuilder-bf.10.mcz
by commits＠source.squeak.org 29 Aug '11

29 Aug '11

Bert Freudenberg uploaded a new version of ReleaseBuilder to project Etoys: http://source.squeak.org/etoys/ReleaseBuilder-bf.10.mcz ==================== Summary ==================== Name: ReleaseBuilder-bf.10 Author: bf Time: 29 August 2011, 9:52:29 pm UUID: 6df46d7b-9113-4a0c-aab0-40dbeb89efe7 Ancestors: ReleaseBuilder-bf.9 fix copyrigth check =============== Diff against ReleaseBuilder-bf.9 =============== Item was changed: ReleaseBuilder subclass: #ReleaseBuilderSqueakland instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'ReleaseBuilder'! + !ReleaseBuilderSqueakland commentStamp: '<historical>' prior: 0! - !ReleaseBuilderSqueakland commentStamp: 'bf 10/13/2010 01:16' prior: 0! Note: as of this writing, the only reliable way to get rid of all but the current project is to execute the following, one line at a time... + Smalltalk zapAllOtherProjects. "close inspector if it popped up" - Smalltalk zapAllOtherProjects. ProjectHistory currentHistory initialize. Smalltalk garbageCollect. Project rebuildAllProjects. ReleaseBuilderSqueakland new prepareReleaseImage.! Item was changed: ----- Method: ReleaseBuilderSqueakland>>checkCopyright (in category 'utilities') ----- checkCopyright | inNotice inImage inFile dir | dir := FileDirectory on: Smalltalk imagePath. [inFile := (dir readOnlyFileNamed: 'NOTICE') wantsLineEndConversion: true; contentsOfEntireFile] on: FileDoesNotExistException do: [:ex | dir = FileDirectory default ifTrue: [dir := dir containingDirectory. ex retry] ifFalse: [self error: 'NOTICE file not found']]. inFile = Utilities copyrightNotice ifFalse: [self error: 'NOTICE file does not match image']. inNotice := ((Utilities copyrightNotice findTokens: Character cr) select: [:s | s includesSubString: '(c)']) collect: [:s | s withBlanksTrimmed]. + inNotice := {inNotice first. inNotice last}. + inImage := (Smalltalk copyright findTokens: Character cr) asArray. - inImage := Smalltalk copyright findTokens: Character cr. inNotice = inImage ifFalse: [self error: 'Copyright declarations do not match'].!

1 0

[SVN][883] mention postflight in Mac release how-to
by commits＠etoys.squeak.org 29 Aug '11

29 Aug '11

Repository: http://etoys.squeak.org/svn Revision: 883 Author: bf Date: 2011-08-29 19:41:03 +0000 (Mon, 29 Aug 2011) Log Message: ----------- mention postflight in Mac release how-to Modified Paths: -------------- trunk/Documentation/Release-HowTo.txt trunk/installers/os-x/assets/scripts/postflight

1 0

[SVN][882] Update translations: de, nl, zh_CN, en, es, mn, mr
by commits＠etoys.squeak.org 29 Aug '11

29 Aug '11

Repository: http://etoys.squeak.org/svn Revision: 882 Author: bf Date: 2011-08-29 19:39:49 +0000 (Mon, 29 Aug 2011) Log Message: ----------- Update translations: de, nl, zh_CN, en, es, mn, mr Modified Paths: -------------- trunk/Etoys/locale/de/LC_MESSAGES/BroomMorphs.mo trunk/Etoys/locale/de/LC_MESSAGES/Collections.mo trunk/Etoys/locale/de/LC_MESSAGES/Compression.mo trunk/Etoys/locale/de/LC_MESSAGES/Connectors.mo trunk/Etoys/locale/de/LC_MESSAGES/DAVServerDirectory.mo trunk/Etoys/locale/de/LC_MESSAGES/DrGeoII-Core.mo trunk/Etoys/locale/de/LC_MESSAGES/Etoys-Tiles.mo trunk/Etoys/locale/de/LC_MESSAGES/Etoys.mo trunk/Etoys/locale/de/LC_MESSAGES/FSM.mo trunk/Etoys/locale/de/LC_MESSAGES/Files.mo trunk/Etoys/locale/de/LC_MESSAGES/Flash.mo trunk/Etoys/locale/de/LC_MESSAGES/GStreamer-UI.mo trunk/Etoys/locale/de/LC_MESSAGES/Graphics.mo trunk/Etoys/locale/de/LC_MESSAGES/Kernel.mo trunk/Etoys/locale/de/LC_MESSAGES/Monticello.mo trunk/Etoys/locale/de/LC_MESSAGES/Morphic.mo trunk/Etoys/locale/de/LC_MESSAGES/MorphicExtras.mo trunk/Etoys/locale/de/LC_MESSAGES/Movies.mo trunk/Etoys/locale/de/LC_MESSAGES/Nebraska.mo trunk/Etoys/locale/de/LC_MESSAGES/Network.mo trunk/Etoys/locale/de/LC_MESSAGES/Pango.mo trunk/Etoys/locale/de/LC_MESSAGES/Protocols.mo trunk/Etoys/locale/de/LC_MESSAGES/SMLoader.mo trunk/Etoys/locale/de/LC_MESSAGES/ST80.mo trunk/Etoys/locale/de/LC_MESSAGES/Sound.mo trunk/Etoys/locale/de/LC_MESSAGES/Sugar.mo trunk/Etoys/locale/de/LC_MESSAGES/System.mo trunk/Etoys/locale/de/LC_MESSAGES/Tools.mo trunk/Etoys/locale/de/LC_MESSAGES/TrueType.mo trunk/Etoys/locale/de/LC_MESSAGES/VideoForSqueak.mo trunk/Etoys/locale/de/LC_MESSAGES/WS-Sound.mo trunk/Etoys/locale/en/LC_MESSAGES/BroomMorphs.mo trunk/Etoys/locale/en/LC_MESSAGES/Collections.mo trunk/Etoys/locale/en/LC_MESSAGES/Compression.mo trunk/Etoys/locale/en/LC_MESSAGES/Connectors.mo trunk/Etoys/locale/en/LC_MESSAGES/DAVServerDirectory.mo trunk/Etoys/locale/en/LC_MESSAGES/DrGeoII-Core.mo trunk/Etoys/locale/en/LC_MESSAGES/Etoys-Tiles.mo trunk/Etoys/locale/en/LC_MESSAGES/Etoys.mo trunk/Etoys/locale/en/LC_MESSAGES/FSM.mo trunk/Etoys/locale/en/LC_MESSAGES/Files.mo trunk/Etoys/locale/en/LC_MESSAGES/Flash.mo trunk/Etoys/locale/en/LC_MESSAGES/GStreamer-UI.mo trunk/Etoys/locale/en/LC_MESSAGES/Graphics.mo trunk/Etoys/locale/en/LC_MESSAGES/Kernel.mo trunk/Etoys/locale/en/LC_MESSAGES/Monticello.mo trunk/Etoys/locale/en/LC_MESSAGES/Morphic.mo trunk/Etoys/locale/en/LC_MESSAGES/MorphicExtras.mo trunk/Etoys/locale/en/LC_MESSAGES/Movies.mo trunk/Etoys/locale/en/LC_MESSAGES/Nebraska.mo trunk/Etoys/locale/en/LC_MESSAGES/Network.mo trunk/Etoys/locale/en/LC_MESSAGES/Pango.mo trunk/Etoys/locale/en/LC_MESSAGES/Protocols.mo trunk/Etoys/locale/en/LC_MESSAGES/SMLoader.mo trunk/Etoys/locale/en/LC_MESSAGES/ST80.mo trunk/Etoys/locale/en/LC_MESSAGES/Sound.mo trunk/Etoys/locale/en/LC_MESSAGES/Sugar.mo trunk/Etoys/locale/en/LC_MESSAGES/System.mo trunk/Etoys/locale/en/LC_MESSAGES/Tools.mo trunk/Etoys/locale/en/LC_MESSAGES/TrueType.mo trunk/Etoys/locale/en/LC_MESSAGES/VideoForSqueak.mo trunk/Etoys/locale/en/LC_MESSAGES/WS-Sound.mo trunk/Etoys/locale/es/LC_MESSAGES/Morphic.mo trunk/Etoys/locale/mn/LC_MESSAGES/Etoys.mo trunk/Etoys/locale/mr/LC_MESSAGES/Collections.mo trunk/Etoys/locale/nl/LC_MESSAGES/Etoys.mo trunk/Etoys/locale/zh_CN/LC_MESSAGES/Etoys-Tiles.mo trunk/Etoys/locale/zh_CN/LC_MESSAGES/Etoys.mo trunk/Etoys/locale/zh_CN/LC_MESSAGES/Morphic.mo trunk/Etoys/locale/zh_CN/LC_MESSAGES/MorphicExtras.mo

1 0

Etoys: Etoys-kfr.93.mcz
by commits＠source.squeak.org 28 Aug '11

28 Aug '11

Karl Ramberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-kfr.93.mcz ==================== Summary ==================== Name: Etoys-kfr.93 Author: kfr Time: 28 August 2011, 7:31:07 pm UUID: 2bbca75a-f220-7449-96b5-b203ce0e8c50 Ancestors: Etoys-kfr.92 http://tracker.squeakland.org/browse/SQ-983 =============== Diff against Etoys-kfr.92 ===============

1 0

Etoys: Etoys-kfr.92.mcz
by commits＠source.squeak.org 28 Aug '11

28 Aug '11

Karl Ramberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-kfr.92.mcz ==================== Summary ==================== Name: Etoys-kfr.92 Author: kfr Time: 28 August 2011, 7:27:42 pm UUID: 48a7b6b1-18f3-9149-9e01-1cfcd196f98c Ancestors: Etoys-kfr.91 http://tracker.squeakland.org/browse/SQ-982 =============== Diff against Etoys-kfr.91 =============== Item was changed: ----- Method: Morph>>putOnForeground (in category '*Etoys') ----- putOnForeground + self holdsSeparateDataForEachInstance + ifTrue: [self + confirm: 'Caution -- every card of this background - "Place the receiver, formerly on the background, onto the foreground. If the receiver needs data carried on its behalf by the card, those data will be lost, so in this case get user confirmation before proceeding." - - self holdsSeparateDataForEachInstance "later add the refinement of not putting up the following confirmer if only a single instance of the current background's uniclass exists" - ifTrue: - [self confirm: 'Caution -- every card of this background formerly had its own value for this item. If you put it on the foreground, + the values of this item on all other - the values of this item on all other cards will be lost' translated orCancel: [^ self]]. - self removeProperty: #shared. + self stack reassessBackgroundShape! - self stack reassessBackgroundShape. - "still work to be done here!!"!

1 0

Etoys: Etoys-kfr.91.mcz
by commits＠source.squeak.org 28 Aug '11

28 Aug '11

Karl Ramberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-kfr.91.mcz ==================== Summary ==================== Name: Etoys-kfr.91 Author: kfr Time: 28 August 2011, 7:24:38 pm UUID: dbf9fba5-d0fe-3243-bd8f-6ac79b982011 Ancestors: Etoys-kfr.90 http://tracker.squeakland.org/browse/SQ-981 =============== Diff against Etoys-kfr.90 =============== Item was changed: ----- Method: Morph class>>additionsToViewerCategoryTests (in category '*eToys-scripting') ----- additionsToViewerCategoryTests + ^ #(#tests #(#(#slot #isOverColor 'whether any part of the object is over the given color' #Boolean #readOnly #Player #seesColor: #unused #unused) #(#slot #isUnderMouse 'whether the object is under the current mouse position' #Boolean #readOnly #Player #getIsUnderMouse #unused #unused) #(#slot #colorSees 'whether the given color sees the given color' #Boolean #readOnly #Player #color:sees: #unused #unused) #(#slot #overlaps 'whether I overlap a given object' #Boolean #readOnly #Player #overlaps: #unused #unused) #(#slot #overlapsAny 'whether I overlap a given object or one of its siblings or similar objects' #Boolean #readOnly #Player #overlapsAny: #unused #unused) #(#slot #touchesA 'whether I overlap any Sketch that is showing the same picture as a particular prototype.' #Boolean #readOnly #Player #touchesA: #unused #unused) #(#slot #obtrudes 'whether the object sticks out over its container''s edge' #Boolean #readOnly #Player #getObtrudes #unused #unused)) )! - "Answer viewer additions for the 'tests' category." - - "Note: Because of intractable performance problems in continuously evaluating isOverColor in a Viewer, the isOverColor entry is not given a readout" - - ^#( - #tests - ( - (slot isOverColor 'whether any part of the object is over the given color' Boolean readOnly Player seesColor: unused unused) - (slot isUnderMouse 'whether the object is under the current mouse position' Boolean readOnly Player getIsUnderMouse unused unused) - (slot colorSees 'whether the given color sees the given color' Boolean readOnly Player color:sees: unused unused) - (slot overlaps 'whether I overlap a given object' Boolean readOnly Player overlaps: unused unused) - (slot overlapsAny 'whether I overlap a given object or one of its siblings or similar objects' Boolean readOnly Player overlapsAny: unused unused) - (slot touchesA 'whether I overlap any Sketch that is showing the same picture as a particular prototype.' Boolean readOnly Player touchesA: unused unused) - (slot obtrudes 'whether the object sticks out over its container''s edge' Boolean readOnly Player getObtrudes unused unused) - ) - ) - !

1 0

Etoys: Etoys-kfr.90.mcz
by commits＠source.squeak.org 28 Aug '11

28 Aug '11

Karl Ramberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-kfr.90.mcz ==================== Summary ==================== Name: Etoys-kfr.90 Author: kfr Time: 28 August 2011, 7:22:04 pm UUID: f57d55a7-6c2b-ef4a-a409-4d9935929ae5 Ancestors: Etoys-kfr.89 http://tracker.squeakland.org/browse/SQ-980 =============== Diff against Etoys-kfr.89 =============== Item was changed: ----- Method: StandardScriptingSystem>>wordingForOperator: (in category '*Etoys-utilities') ----- + wordingForOperator: aSelector - wordingForOperator: aSelector - "Answer the wording to be seen by the user for the given operator symbol/string" - | wording | wording := aSelector asString. + #(#(#append: 'include at end') #(#beep: 'make sound') #(#clearTurtleTrails 'clear pen trails') #(#clearOwnersPenTrails 'clear all pen trails') #(#colorSees 'color sees') #(#distanceToPlayer 'distance to') #(#doScript: 'do') #(#forward: 'forward by') #(#goToRightOf: 'align after') #(#makeNewDrawingIn: 'start painting in') #(#noArrowheadsOnAllPens 'no arrowheads on pens') #(#playButtonHit 'play') #(#prepend: 'include at beginning') #(#recordButtonHit 'start recording') #(#seesColor: 'is over color') #(#stopButtonHit 'stop') #(#stopProgramatically 'stop') #(#tellSelfAndAllSiblings: 'send to all') #(#turn: 'turn by') #(#wearCostumeOf: 'look like') #(#dial: 'dial to') #(#playSound: 'play frequency of') #(#soundListening 'listening') #(#appendVertex 'add a vertex at end') #(#insertVertexAtCursor 'insert a vertex at cursor') #(#prependVertex 'add a vertex at beginning') #(#removeAllButCursor 'remove all vertices but cursor') #(#removeVertexAtCursor 'remove the vertex at cursor') #(#lineCurved 'line is curved') #(#lineOpened 'line is opened') ) translatedNoop + do: [:pair | + wording = pair first + ifTrue: [^ pair second]. + nil]. - - #( (append: 'include at end') - (beep: 'make sound') - (clearTurtleTrails 'clear pen trails') - (clearOwnersPenTrails 'clear all pen trails') - (colorSees 'color sees') - (distanceToPlayer 'distance to') - (doScript: 'do') - (forward: 'forward by') - (goToRightOf: 'align after') - (makeNewDrawingIn: 'start painting in') - (noArrowheadsOnAllPens 'no arrowheads on pens') - (playButtonHit 'play') - (prepend: 'include at beginning') - (recordButtonHit 'start recording') - (seesColor: 'is over color') - (stopButtonHit 'stop') - (stopProgramatically 'stop') - (tellSelfAndAllSiblings: 'send to all') - (turn: 'turn by') - (wearCostumeOf: 'look like') - - (dial: 'dial to') - - (playSound: 'play frequency of') - (soundListening 'listening') - - (appendVertex 'add a vertex at end') - (insertVertexAtCursor 'insert a vertex at cursor') - (prependVertex 'add a vertex at beginning') - (removeAllButCursor 'remove all vertices but cursor') - (removeVertexAtCursor 'remove the vertex at cursor') - (lineCurved 'line is curved') - (lineOpened 'line is opened') - ) translatedNoop - - do: - [:pair | wording = pair first ifTrue: [^ pair second]]. - wording := wording fromCamelCase. + ^ (wording includes: $:) - ^(wording includes: $:) ifTrue: [wording copyWithout: $:] + ifFalse: [wording]! - ifFalse: [wording] - - "StandardScriptingSystem initialize" - - !

1 0

Etoys: Etoys-kfr.89.mcz
by commits＠source.squeak.org 28 Aug '11

28 Aug '11

Karl Ramberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-kfr.89.mcz ==================== Summary ==================== Name: Etoys-kfr.89 Author: kfr Time: 28 August 2011, 7:06:13 pm UUID: 65810e77-e7dc-7c46-9d16-1dedaa1754a3 Ancestors: Etoys-kfr.88 Revert some of the ViewerLine changes pickup and visual feedback changes . http://tracker.squeakland.org/browse/SQ-972 =============== Diff against Etoys-kfr.88 =============== Item was changed: ----- Method: CategoryViewer>>phraseForVariableFrom: (in category 'entries') ----- + phraseForVariableFrom: aMethodInterface + | 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. - 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 | - Preferences universalTiles ifTrue: [^ self universalTilesPhraseForVariableFrom: aMethodInterface]. - - aRow _ ViewerLine newRow - elementSymbol: (slotName _ aMethodInterface selector); - wrapCentering: #center; - cellPositioning: #leftCenter. - (self wantsInfoButtonFor: slotName) + ifTrue: [aRow + addMorphBack: (self infoButtonFor: slotName)] + ifFalse: [aRow addMorphBack: ScriptingSystem buttonSpacer]. - 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: - - 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: - - 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. - 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: [self addPlayerArgumentTo: aRow. + ^ aRow]. - 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" - ^ aRow]. - aRow addMorphBack: VariableSpacer new. + (setter := aMethodInterface companionSetterSelector) + ifNotNil: [aRow addMorphBack: (Morph new color: self color; + extent: 2 @ 10). + anArrow := self + arrowSetterButton: #makeSetter:from:forPart: - (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: [aRow + addMorphBack: (self + readoutFor: slotName + type: aMethodInterface resultType + readOnly: setter isNil + getSelector: aMethodInterface selector + putSelector: setter)]]. + anArrow + ifNotNil: [anArrow step]. - 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.]]. - anArrow ifNotNil: [anArrow step]. ^ aRow!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

etoys-dev August 2011