etoys-dev May 2010

etoys-dev@lists.squeakfoundation.org

19 participants
192 discussions

Morphic-Scripting
by karl ramberg 13 May '10

13 May '10

There are some Etoy classes left in Morphic-Scripting and Morphic-Scripting tiles These should be in Etoy package, right ? Karl

2 4

Etoys: Etoys-kfr.5.mcz
by commits＠source.squeak.org 13 May '10

13 May '10

Karl Ramberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-kfr.5.mcz ==================== Summary ==================== Name: Etoys-kfr.5 Author: kfr Time: 13 May 2010, 1:00:56 am UUID: 0ba41a55-51ff-6d42-8882-346899715412 Ancestors: Etoys-bf.4 Classes from Morphic-Scripting =============== Diff against Etoys-bf.4 =============== Item was added: + ----- Method: FunctionTile>>tileRows (in category 'dropping/grabbing') ----- + tileRows + "Answer a list of tile rows -- in this case exactly one row -- representing the receiver." + + ^ Array with: (Array with: self)! Item was added: + Object subclass: #ScriptEditorMorphBuilder + instanceVariableNames: 'context playerScripted topEditor' + classVariableNames: '' + poolDictionaries: '' + category: 'Etoys-Scripting'! Item was added: + ----- Method: ViewerRow>>entryType (in category 'access') ----- + entryType + "Answer one of: #systemSlot #userSlot #systemScript #userScript" + + ^ self playerBearingCode elementTypeFor: elementSymbol vocabulary: self currentVocabulary! Item was added: + ----- 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 added: + CompoundTileMorph subclass: #TimesRepeatTile + instanceVariableNames: 'timesRow whatToRepeatPart' + classVariableNames: '' + poolDictionaries: '' + category: 'Etoys-Scripting Tiles'! + + !TimesRepeatTile commentStamp: 'sw 6/15/2007 18:39' prior: 0! + A variant on the CompoundTileMorph that allows a section of code to be executed as many times as a numeric-control-field indicates. For reasons of sharing and history, the CompoundTileMorph continues to be the one for test/yes/no, and this subclass disregards those three areas and adds two of its own. An associated class is the TimesRow -- see its class comment.! Item was added: + ----- Method: ViewerRow>>playerBearingCode (in category 'access') ----- + playerBearingCode + ^ owner playerBearingCode! Item was added: + ----- Method: FunctionTile>>kedamaParseNodeWith:actualObject: (in category 'code generation') ----- + kedamaParseNodeWith: encoder actualObject: obj + + | ret arg | + arg _ submorphs third parseNodeWith: encoder. + ret _ MessageNode new + receiver: (encoder encodePlayer: obj) + selector: #random: + arguments: (Array with: arg) + precedence: (#random: precedence) + from: encoder + sourceRange: nil. + ^ self convertPrecedenceOfArgsInParseNode: ret with: encoder. + ! Item was added: + ----- Method: ScriptEditorMorphBuilder>>assign: (in category 'reconstituting scripting tiles ') ----- + assign: sexp + + | rcvr propertyName updating rhs p | + rcvr _ self fromSexp: sexp elements first. + + propertyName _ sexp attributeAt: #property ifAbsent: [self error: '']. + propertyName _ propertyName asSymbol. + (#(patchValueIn: setRedComponentIn: setGreenComponentIn: setBlueComponentIn:) includes: propertyName) ifTrue: [ + ^ self specialAssign: sexp with: rcvr. + ]. + + updating _ sexp attributeAt: #updating ifAbsent: [nil]. + rhs _ self fromSexp: sexp elements last. + + p _ PhraseTileMorph new + setAssignmentRoot: propertyName asSymbol + type: #command + rcvrType: #Player + argType: (sexp attributeAt: #type ifAbsent: [#Number]) asSymbol + vocabulary: self currentVocabulary. + p justGrabbedFromViewer: false. + updating ifNotNil: [p submorphs second value: updating]. + p submorphs first addMorph: rcvr. + p submorphs third setType: (sexp elements last attributeAt: #type ifAbsent: [#Number]) asSymbol. + p submorphs third addMorph: rhs. + (rhs resultType == #Number and: [rhs isMemberOf: TileMorph]) ifTrue: [ + rhs addSuffixArrow. + ]. + + ^ p. + ! Item was added: + ----- Method: ScriptEditorMorphBuilder>>functionSend:with:with: (in category 'reconstituting scripting tiles ') ----- + functionSend: sexp with: rcvr with: realSel + + | p | + p _ FunctionTile new. + p operator: realSel pad: rcvr. + ^ p. + ! Item was added: + ----- 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]. + + 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 + ! Item was added: + ----- Method: FunctionTile>>operator:pad: (in category 'initialization') ----- + operator: opSymbol pad: aTilePadMorph + "Set the operator and pad. Builds and adds the four submorphs of the receiver + function-name, left-paren, argument-pad, right-paren." + + | functionTriplet | + functionTriplet := ScriptingSystem tableOfNumericFunctions detect: [:triplet | triplet second = opSymbol]. "If none, error..." + self operator: opSymbol wording: functionTriplet first translated helpString: functionTriplet third translated pad: aTilePadMorph! Item was added: + AlignmentMorph subclass: #ScriptingTileHolder + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Etoys-Scripting Tiles'! + + !ScriptingTileHolder commentStamp: 'sw 6/28/2007 17:18' prior: 0! + Serves as a wrapper for a scripting-tile element that otherwise would be bare on the desktop.! Item was added: + ----- Method: ScriptEditorMorphBuilder>>send: (in category 'reconstituting scripting tiles ') ----- + send: sexp + + | rcvr type selNode realSel val p argType | + rcvr _ self fromSexp: sexp elements second. + type _ sexp attributeAt: #type ifAbsent: ['#Player']. + selNode _ sexp elements first. + realSel _ selNode attributeAt: #getter ifAbsent: []. + realSel ifNotNil: [ + realSel _ Utilities getterSelectorFor: realSel. + (rcvr isMemberOf: PhraseTileMorph) ifFalse: [rcvr bePossessive]. + ] ifNil: [ + realSel _ (selNode attributeAt: #selector) asSymbol. + "realSel ifNil: [self error: '']." + ]. + (#(getAngleTo: bounceOn: getDistanceTo: getPatchValueIn: getTurtleOf: getUphillIn: getRedComponentIn: getGreenComponentIn: getBlueComponentIn:) includes: realSel) ifTrue: [ + ^ self specialKedamaSend: sexp with: rcvr with: realSel + ]. + (#(color:sees:) includes: realSel) ifTrue: [ + ^ self specialSend: sexp with: rcvr with: realSel + ]. + ((ScriptingSystem tableOfNumericFunctions collect: [:e | e second]) includes: realSel) ifTrue: [ + ^ self functionSend: sexp with: rcvr with: realSel + ]. + + p _ PhraseTileMorph new + setOperator: realSel + type: type asSymbol + rcvrType: #Player + argType: #Number. + p justGrabbedFromViewer: false. + p submorphs first addMorph: rcvr. + p submorphs first setType: (sexp elements second attributeAt: #type ifAbsent: ['Number']) asSymbol. + sexp elements size = 2 ifTrue: [ + (p resultType == #Number and: [p submorphs second isMemberOf: TileMorph]) ifTrue: [ + p submorphs second addSuffixArrow. + ]. + ]. + sexp elements size > 2 ifTrue: [ + val _ self fromSexp: sexp elements third. + argType _ (sexp elements third attributeAt: #type ifAbsent: ['Number']) asSymbol. + p submorphs third setType: argType. + p submorphs third addMorph: val. + (argType == #Number and: [val isMemberOf: TileMorph]) ifTrue: [val addSuffixArrow. + (#(#+ #- #* #/ #'//' #'\\' #max: #min: #< #'<=' #= #'~=' #> #'>=' #isDivisibleBy:) includes: realSel) ifFalse: [p submorphs second addRetractArrowAnyway]. + ]. + ]. + ^ p. + ! Item was added: + ----- Method: PhraseTileForTimesRepeat>>addCommandFeedback: (in category 'hilighting') ----- + addCommandFeedback: evt + "Add screen feedback showing what would be torn off in a drag" + + | aMorph rect | + (self owner owner isMemberOf: PhraseTileMorph) ifTrue: [self owner owner addCommandFeedback: evt. ^ self]. + 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 added: + ----- Method: ScriptEditorMorphBuilder>>condition: (in category 'reconstituting scripting tiles ') ----- + condition: sexp + + | p testPart yesPart noPart n | + testPart _ self fromSexp: (sexp elements first). + yesPart _ self fromSexp: (sexp elements second). + noPart _ self fromSexp: (sexp elements third). + + p _ CompoundTileMorph new. + testPart = #() ifFalse: [ + p submorphs first submorphs last addNewRow addMorph: testPart. + ]. + + yesPart do: [:e | + n _ p submorphs second submorphs last addNewRow. + n addMorph: e. + ]. + noPart do: [:e | + n _ p submorphs third submorphs last addNewRow. + n addMorph: e. + ]. + ^ p. + ! Item was added: + ----- Method: FunctionTile>>replaceSubmorph:by: (in category 'initialization') ----- + replaceSubmorph: existingMorph by: newMorph + "Replace a submorph by a different morph. If it's my pad, fix up my argumentPad inst var." + + super replaceSubmorph: existingMorph by: newMorph. + (newMorph isKindOf: TilePadMorph) ifTrue: [argumentPad := newMorph]. + ! Item was added: + AlignmentMorph subclass: #TimesRow + instanceVariableNames: 'timesPad' + classVariableNames: '' + poolDictionaries: '' + category: 'Etoys-Scripting Tiles'! + + !TimesRow commentStamp: 'sw 6/14/2007 19:15' prior: 0! + A custom alignment morph that holds the "times' portion of a Times/Repeat complex! Item was added: + ----- Method: ScriptEditorMorphBuilder>>loop: (in category 'reconstituting scripting tiles ') ----- + loop: sexp + "Answer a TimesRepeatTile derived from the s-expression provided." + + | p test body whatToRepeatPart numberOfTimesToRepeatPart | + "You can think of different loops, but for current Etoys, there is only one kind." + "initial _ sexp elements detect: [:e | e keyword == #initial] ifNone: [nil]. + increment _ sexp elements detect: [:e | e keyword == #increment] ifNone: [nil]." + test _ sexp elements detect: [:e | e keyword == #test] ifNone: [nil]. + body _ sexp elements detect: [:e | e keyword == #sequence] ifNone: [nil]. + + test _ self fromSexp: test elements first. + + body _ self fromSexp: body. + p _ TimesRepeatTile new. + numberOfTimesToRepeatPart _ p numberOfTimesToRepeatPart. + numberOfTimesToRepeatPart removeAllMorphs; addMorph: test. + whatToRepeatPart _ p instVarNamed: 'whatToRepeatPart'. + body do: [:b | + whatToRepeatPart addNewRow addMorph: b. + ]. + ^ p. + ! Item was added: + ----- Method: ViewerRow>>elementSymbol: (in category 'access') ----- + elementSymbol: aSymbol + elementSymbol _ aSymbol! Item was added: + ----- Method: FunctionTile>>rowOfRightTypeFor:forActor: (in category 'dropping/grabbing') ----- + rowOfRightTypeFor: aLayoutMorph forActor: aPlayer + "Answer a phrase of the right type for the putative container" + + | aTemporaryViewer aPhrase | + aLayoutMorph demandsBoolean ifTrue: + [aTemporaryViewer _ CategoryViewer new invisiblySetPlayer: aPlayer. + aPhrase _ aTemporaryViewer booleanPhraseFromPhrase: self. + aPhrase justGrabbedFromViewer: false. + ^ aPhrase]. + ^ self! Item was added: + ----- Method: PhraseTileForTimesRepeat>>mouseDown: (in category 'mouse') ----- + mouseDown: evt + "Handle a mouse-down on the receiver" + + | guyToTake catViewer | + guyToTake _ TimesRepeatTile new. + guyToTake setNamePropertyTo: 'Repeat Tile' translated. + guyToTake position: evt position + (-25@8). + + guyToTake formerPosition: ActiveHand position. + "self startSteppingSelector: #trackDropZones." + (catViewer := self ownerThatIsA: CategoryViewer) ifNotNil: + [guyToTake setProperty: #newPermanentPlayer toValue: catViewer scriptedPlayer. + guyToTake setProperty: #newPermanentScript toValue: true]. + guyToTake justGrabbedFromViewer: true. + + ^ evt hand grabMorph: guyToTake + ! Item was added: + ----- Method: PhraseTileForTimesRepeat>>initialize (in category 'initialization') ----- + initialize + "Initialize the receiver." + + super initialize. + self color: Color orange muchLighter. + self + hResizing: #shrinkWrap; + vResizing: #shrinkWrap; + borderWidth: 1; + borderColor: ScriptingSystem standardTileBorderColor. + self setupCostume + ! Item was added: + ----- Method: ScriptEditorMorphBuilder>>specialAssign:with: (in category 'reconstituting scripting tiles ') ----- + specialAssign: sexp with: rcvr + + | propertyName updating rhs patch p componentName | + propertyName _ (sexp attributeAt: #property) asSymbol. + updating _ sexp attributeAt: #updating ifAbsent: [nil]. + rhs _ self fromSexp: sexp elements last. + (propertyName == #patchValueIn:) ifTrue: [ + patch _ self fromSexp: sexp elements second. + + p _ PhraseTileMorph new + setPixelValueRoot: propertyName asSymbol + type: #command + rcvrType: #Player + argType: #Number + vocabulary: self currentVocabulary. + p justGrabbedFromViewer: false. + updating ifNotNil: [p submorphs second value: updating]. + p submorphs first addMorph: rcvr. + p submorphs third setType: (sexp elements last attributeAt: #type ifAbsent: [#Number]) asSymbol. + p submorphs third addMorph: rhs. + p submorphs second setPatchDefaultTo: patch actualObject. + ^ p. + ]. + (propertyName == #setRedComponentIn:) ifTrue: [componentName _ #red]. + (propertyName == #setGreenComponentIn:) ifTrue: [componentName _ #green]. + (propertyName == #setBlueComponentIn:) ifTrue: [componentName _ #blue]. + + (#(setRedComponentIn: setGreenComponentIn: setBlueComponentIn:) includes: propertyName) ifTrue: [ + patch _ self fromSexp: sexp elements second. + + p _ PhraseTileMorph new + setColorComponentRoot: propertyName + componentName: componentName + type: #command + rcvrType: #Patch + argType: #Number + vocabulary: self currentVocabulary. + p justGrabbedFromViewer: false. + updating ifNotNil: [p submorphs second value: updating]. + p submorphs first addMorph: rcvr. + p submorphs third setType: (sexp elements last attributeAt: #type ifAbsent: [#Number]) asSymbol. + p submorphs third addMorph: rhs. + p submorphs second setPatchDefaultTo: patch actualObject. + ^ p. + ]. + + ! Item was added: + ----- Method: ScriptingTileHolder>>around: (in category 'initialization') ----- + around: aTileScriptingElement + "Make the receiver surround the given item, either a TileMorph or a PhraseTileMorph or something like a CompoundTIleMorph." + + self removeAllMorphs. + self position: aTileScriptingElement position. + self addMorph: aTileScriptingElement. + aTileScriptingElement lock. + ! Item was added: + ----- Method: PhraseTileForTest>>addCommandFeedback: (in category 'as yet unclassified') ----- + addCommandFeedback: evt + "Add screen feedback showing what would be torn off in a drag" + + | aMorph rect | + (self owner owner isMemberOf: PhraseTileMorph) ifTrue: [self owner owner addCommandFeedback: evt. ^ self]. + 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 added: + ----- Method: SyntaxTestMethods>>repeatExample (in category 'as yet unclassified') ----- + repeatExample + + self + repeatFor: (1 to: 50) + doing: [ :i | i + 3]! Item was added: + ----- Method: FunctionTile>>booleanComparatorPhrase (in category 'dropping/grabbing') ----- + booleanComparatorPhrase + "Answer a boolean-valued phrase derived from a retriever (e.g. 'car's heading'); this is in order to assure that tiles laid down in a TEST area will indeed produce a boolean result" + + | outerPhrase rel | + + rel := Vocabulary numberVocabulary comparatorForSampleBoolean. + outerPhrase := PhraseTileMorph new setOperator: rel type: #Boolean rcvrType: #Number argType: #Number. + outerPhrase firstSubmorph addMorph: self. + outerPhrase submorphs last addMorph: (ScriptingSystem tileForArgType: #Number). + + outerPhrase submorphs second submorphs last setBalloonText: (ScriptingSystem helpStringForOperator: rel). + ^ outerPhrase! Item was added: + ----- Method: PhraseTileForTest>>mouseDown: (in category 'mouse') ----- + mouseDown: evt + "Handle a mouse-down on the receiver" + + | guyToTake catViewer | + guyToTake _ CompoundTileMorph new. + guyToTake setNamePropertyTo: 'TestTile' translated. + guyToTake position: evt position + (-25@8). + + guyToTake formerPosition: ActiveHand position. + "self startSteppingSelector: #trackDropZones." + (catViewer := self ownerThatIsA: CategoryViewer) ifNotNil: + [guyToTake setProperty: #newPermanentPlayer toValue: catViewer scriptedPlayer. + guyToTake setProperty: #newPermanentScript toValue: true]. + guyToTake justGrabbedFromViewer: true. + + ^ evt hand grabMorph: guyToTake + ! Item was added: + ----- Method: PhraseTileForTest>>initialize (in category 'as yet unclassified') ----- + initialize + + super initialize. + self color: Color orange muchLighter. + self + hResizing: #shrinkWrap; + vResizing: #shrinkWrap; + borderWidth: 1; + borderColor: ScriptingSystem standardTileBorderColor. + self setupCostume. + ! Item was added: + ----- Method: CommandTilesMorph>>initialize (in category 'initialization') ----- + initialize + + super initialize. + self wrapCentering: #center; cellPositioning: #leftCenter. + self hResizing: #shrinkWrap. + borderWidth _ 0. + self layoutInset: 0. + self extent: 5@5. "will grow to fit" + ! Item was added: + ----- Method: TimesRepeatMorph>>storeCodeOn:indent: (in category 'code generation') ----- + storeCodeOn: aStream indent: tabCount + "Store code representing the receiver on the stream, obeying the tab state." + + aStream nextPutAll: '(('. + numberOfTimesToRepeatPart submorphs + ifEmpty: + [aStream nextPutAll: '0'] + ifNotEmpty: + [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 added: + ----- Method: ScriptEditorMorphBuilder>>literal: (in category 'reconstituting scripting tiles ') ----- + literal: sexp + + | type n lit s xComp yComp | + type _ sexp attributeAt: #type ifAbsent: []. + type ifNotNil: [type _ type asSymbol]. + (type == #Player or: [type == #Patch]) ifTrue: [ + n _ sexp attributeAt: #value ifAbsent: []. + n ifNotNil: [ + n = 'self' ifTrue: [^ TileMorph new setToReferTo: playerScripted]. + n = 'nil' ifTrue: [^ TileMorph new setToReferTo: playerScripted presenter standardPlayer]. + ^ TileMorph new setToReferTo: (context at: n asSymbol) + ]. + ^ TileMorph new setToReferTo: World presenter standardPlayer + ]. + type == #String ifTrue: [ + lit _ sexp attributeAt: #value. + ^ (TileMorph new setLiteral: lit). + ]. + type == #Point ifTrue: [ + lit _ sexp attributeAt: #value. + xComp _ lit copyFrom: 1 to: (lit indexOf: $@) - 1. + yComp _ lit copyFrom: (lit indexOf: $@) + 1 to: lit size. + + lit _ xComp asNumber@yComp asNumber. + ^ (TileMorph new setLiteral: lit). + ]. + type == #Color ifTrue: [ + lit _ Color readFrom: (sexp attributeAt: #value). + ^ ColorTileMorph new colorSwatchColor: lit. + ]. + type == #Boolean ifTrue: [ + lit _ (sexp attributeAt: #value) = 'true'. + ^ TileMorph new addArrows; setLiteral: lit + + ]. + type == #Sound ifTrue: [ + lit _ sexp attributeAt: #value. + ^ SoundTile new literal: lit. + ]. + type == #ScriptName ifTrue: [ + lit _ sexp attributeAt: #value. + ^ ScriptNameTile new literal: lit asSymbol. + ]. + (type == #TrailStyle or: [type == #ButtonPhase or: [type == #BorderStyle or: [type == #EdgeMode or: [type == #PatchDisplayMode]]]]) ifTrue: [ + lit _ sexp attributeAt: #value. + s _ SymbolListTile new. + s choices: (Vocabulary allStandardVocabularies at: type) choices dataType: type. + ^ s setLiteral: lit asSymbol; addArrows. + ]. + (type == #Object or: [type == #Number]) ifTrue: [ + lit _ Number readFrom: (sexp attributeAt: #value). + ^ (TileMorph new setLiteral: lit) addArrows. + ]. + (type == #Graphic) ifTrue: [ + lit _ (context at: (sexp attributeAt: #value) asSymbol). + ^ (GraphicTile new setLiteral: lit). + ]. + (type == #Menu) ifTrue: [ + lit _ sexp attributeAt: #value. + ^ (MenuTile new setLiteral: lit). + ]. + ! Item was added: + ----- Method: FunctionTile>>sexpWith: (in category 'code generation') ----- + sexpWith: dictionary + | n elements sel | + sel _ submorphs first operatorOrExpression. + n _ SExpElement keyword: #send. + n attributeAt: #type put: ((owner isMemberOf: TilePadMorph) ifTrue: [owner type] ifFalse: ['Number']). + elements _ Array with: ((SExpElement keyword: #selector) + attributeAt: #selector put: sel; yourself) + with: (argumentPad sexpWith: dictionary). + n elements: elements. + ^ n. + ! Item was added: + ----- Method: ScriptEditorMorphBuilder classSide>>context:playerScripted:topEditor: (in category 'as yet unclassified') ----- + context: c playerScripted: p topEditor: t + + ^ self new context: c playerScripted: p topEditor: t + ! Item was added: + ----- Method: ScriptEditorMorphBuilder>>topEditor (in category 'e-toy support') ----- + topEditor + + ^ topEditor. + ! Item was added: + ----- Method: TimesRow>>initialize (in category 'initialization') ----- + initialize + "object initialization" + + | repeatLabel | + super initialize. + self minCellSize: (2@16). + self setNameTo: 'Times'. + repeatLabel _ StringMorph contents: 'Repeat' translated font: Preferences standardEToysFont. + self addMorphBack: repeatLabel. + self vResizing: #shrinkWrap. + self addTransparentSpacerOfSize: (6@5). + + timesPad := TilePadMorph new setType: #Number. + timesPad hResizing: #shrinkWrap; color: Color transparent. + timesPad addMorphBack: (TileMorph new addArrows; setLiteral: 2; addSuffixArrow; yourself). + timesPad borderWidth: 0; layoutInset: (1@0). + + self addMorphBack: timesPad. + self addMorphBack: (StringMorph contents: (' ', ('times' translated), ' ') font: Preferences standardEToysFont). + self addMorphBack: AlignmentMorph newVariableTransparentSpacer! Item was added: + ----- Method: ViewerEntry>>contentsSelection (in category 'contents') ----- + contentsSelection + "Not well understood why this needs to be here!!" + ^ 1 to: 0! Item was added: + ----- Method: FunctionNameTile>>removeFunction (in category 'menu commands') ----- + removeFunction + "Remove the function-call... this is forwarded to owner." + + ^ owner removeFunction! Item was added: + ----- Method: TimesRepeatTile>>sexpWith: (in category 'code generation') ----- + sexpWith: dictionary + "Answer an SExpElement representing the receiver." + + | n elements e | + n _ SExpElement keyword: #loop. + n attributeAt: #type put: 'repeat'. + elements _ WriteStream on: (Array new: 3). + e _ SExpElement keyword: #initial. + e elements: (Array with: ((SExpElement keyword: #literal) attributeAt: #value put: '1'; yourself)). + elements nextPut: e. + e _ SExpElement keyword: #increment. + e elements: (Array with: ((SExpElement keyword: #literal) attributeAt: #value put: '1'; yourself)). + elements nextPut: e. + + e _ SExpElement keyword: #test. + self numberOfTimesToRepeatPart submorphs + ifEmpty: + [e elements: (Array with: ((SExpElement keyword: #literal) attributeAt: #value put: '0'; yourself))] + ifNotEmpty: + [e elements: (Array with: (self numberOfTimesToRepeatPart sexpWith: dictionary))]. + + elements nextPut: e. + + elements nextPut: (self sexpBlockFor: whatToRepeatPart with: dictionary). + n elements: elements contents. + ^ n. + + ! Item was added: + ----- Method: ViewerEntry>>viewerRow (in category 'access') ----- + viewerRow + "Answer the ViewerRow object, that contains the controls and the phraseTile" + ^ submorphs first! Item was added: + ----- Method: SyntaxTestMethods>>st76LeftArrowTest: (in category 'as yet unclassified') ----- + st76LeftArrowTest: foo + + foo contentsGetz: foo contents asUppercase + + ! Item was added: + ----- Method: ViewerEntry>>slotName (in category 'slot') ----- + slotName + "Assuming the receiver represents a slot, return its name" + + ^ self viewerRow elementSymbol! Item was added: + ----- Method: FunctionTile classSide>>defaultNameStemForInstances (in category 'scripting') ----- + defaultNameStemForInstances + "Answer a good default name stem to use for names of instances" + + ^ 'Function' translatedNoop! Item was added: + ----- Method: FunctionTile classSide>>randomNumberTile (in category 'scripting') ----- + randomNumberTile + "Answer a newly conjured-up random-number tile, suitable for handing to the user." + + | functionPhrase argTile aPad | + functionPhrase _ FunctionTile new. + argTile := (Vocabulary vocabularyNamed: 'Number') defaultArgumentTile. + aPad := TilePadMorph new setType: #Number. + aPad addMorphBack: argTile. + functionPhrase operator: #random pad: aPad. + ^ functionPhrase + + + " + FunctionTile randomNumberTile openInHand + "! Item was added: + ----- Method: FunctionTile>>parseNodeWith: (in category 'code generation') ----- + parseNodeWith: encoder + + | phrase player costume sel | + sel _ submorphs first operatorOrExpression. + sel == #random ifFalse: [^ self basicParseNodeWith: encoder]. + phrase _ self outermostMorphThat: [:m| m isKindOf: PhraseTileMorph]. + phrase ifNil: [^ self basicParseNodeWith: encoder]. + + player _ phrase associatedPlayer. + player ifNil: [^ self basicParseNodeWith: encoder]. + + costume _ player costume. + costume ifNil: [^ self basicParseNodeWith: encoder]. + + (player isKindOf: KedamaExamplerPlayer) ifTrue: [ + ^ self kedamaParseNodeWith: encoder actualObject: player costume renderedMorph kedamaWorld player]. + + (costume renderedMorph isMemberOf: KedamaMorph) ifTrue: [ + ^ self kedamaParseNodeWith: encoder actualObject: self]. + + ^ self basicParseNodeWith: encoder. + ! Item was added: + ----- Method: ViewerEntry>>initialize (in category 'initialization') ----- + initialize + "initialize the state of the receiver" + super initialize. + "" + self layoutInset: 0! Item was added: + PhraseTileMorph subclass: #PhraseTileForTimesRepeat + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Etoys-Scripting Tiles'! + + !PhraseTileForTimesRepeat commentStamp: 'sw 12/19/2006 18:15' prior: 0! + A place-holder for a Times-Repeat complex of etoy tiles. Used in a Viewer; when the user drags one of these, he ends up with a fully-instantiated Times/Repeat complex of tiles in his hand; if he drops such a group on the desktop, a new script is created for the object associated with the Viewer in question, with the Times/Repeat as its initial contents.! Item was added: + ----- Method: FunctionNameTile>>options (in category 'choice of function') ----- + options + "Answer the options of the tile for an arrow" + + | aTable | + aTable := ScriptingSystem tableOfNumericFunctions reversed. + + ^ Array with: + (aTable collect: [:pr | pr first] ), #(grouped) + with: + (aTable collect: [:pr | pr second]), #(grouped)! Item was added: + ----- Method: TimesRepeatTile>>parseNodeWith: (in category 'code generation') ----- + parseNodeWith: encoder + "Answer a MessageNode representing the receiver." + + | rec selector arg timesPart | + rec _ (timesPart := self numberOfTimesToRepeatPart) submorphs + ifEmpty: + [encoder encodeLiteral: 0] + ifNotEmpty: + [timesPart parseNodeWith: encoder]. + selector _ #timesRepeat:. + arg _ self blockNode: whatToRepeatPart with: encoder. + ^ MessageNode new + receiver: rec + selector: selector + arguments: (Array with: arg) + precedence: (selector precedence) + from: encoder + sourceRange: nil + ! Item was added: + ----- Method: TimesRepeatTile>>sissComeFullyUpOnReloadFrom:to: (in category 'code generation') ----- + sissComeFullyUpOnReloadFrom: from to: to + + whatToRepeatPart borderWidth: 0; layoutInset: 0; hResizing: #spaceFill; + vResizing: #shrinkWrap; + color: Color transparent; + setNameTo: 'Script to repeat'.! Item was added: + ----- Method: ViewerRow>>elementSymbol (in category 'access') ----- + elementSymbol + ^ elementSymbol! Item was added: + ----- Method: ScriptEditorMorphBuilder>>sequence: (in category 'reconstituting scripting tiles ') ----- + sequence: sexp + + ^ sexp elements collect: [:elem | + self fromSexp: elem. + ]. + ! Item was added: + ----- Method: ScriptEditorMorphBuilder>>phraseForSpecialKedamaSend: (in category 'reconstituting scripting tiles ') ----- + phraseForSpecialKedamaSend: realSel + + realSel == #getPatchValueIn: ifTrue: [ + ^ PhraseTileMorph new setGetPixelOperator: realSel type: #Number rcvrType: #Player argType: #Patch. + ]. + realSel == #getAngleTo: ifTrue: [ + ^ PhraseTileMorph new setAngleToOperator: realSel type: #Number rcvrType: #Player argType: #Player. + ]. + realSel == #bounceOn: ifTrue: [ + ^ PhraseTileMorph new setBounceOnOperator: realSel type: #Boolean rcvrType: #Player argType: #Player. + ]. + realSel == #getDistanceTo: ifTrue: [ + ^ PhraseTileMorph new setDistanceToOperator: realSel type: #Number rcvrType: #Player argType: #Player + ]. + realSel == #getTurtleOf: ifTrue: [ + ^ PhraseTileMorph new setTurtleOfOperator: realSel type: #Player rcvrType: #Player argType: #Player + ]. + realSel == #getUphillIn: ifTrue: [ + ^ PhraseTileMorph new setUpHillOperator: realSel type: #Number rcvrType: #Player argType: #Player + ]. + realSel == #getRedComponentIn: ifTrue: [ + ^ PhraseTileMorph new setGetColorComponentOperator: realSel componentName: #red type: #Number rcvrType: #Player argType: #Patch + ]. + realSel == #getGreenComponentIn: ifTrue: [ + ^ PhraseTileMorph new setGetColorComponentOperator: realSel componentName: #green type: #Number rcvrType: #Player argType: #Patch + ]. + realSel == #getBlueComponentIn: ifTrue: [ + ^ PhraseTileMorph new setGetColorComponentOperator: realSel componentName: #blue type: #Number rcvrType: #Player argType: #Patch + ]. + + ^ nil. + ! Item was added: + ----- Method: ScriptEditorMorphBuilder>>fromSexp: (in category 'initialization') ----- + fromSexp: sexp + + ^ self perform: (sexp keyword copyWith: $:) asSymbol with: sexp. + ! Item was added: + ----- Method: ViewerRow>>initialize (in category 'initialization') ----- + initialize + super initialize. + self layoutInset: 1! Item was added: + ----- Method: ScriptingTileHolder>>mouseDown: (in category 'mouse handling') ----- + mouseDown: evt + "Handle a mouse-down event." + + | actualTile | + actualTile := submorphs at: 1 ifAbsent: [^ self delete]. "Not expected to happen." + actualTile unlock. + self topRendererOrSelf delete. + evt hand grabMorph: actualTile! Item was added: + ----- Method: ScriptingTileHolder>>initialize (in category 'initialization') ----- + initialize + "initialize the state of the receiver" + + super initialize. + self hResizing: #shrinkWrap; + vResizing: #shrinkWrap; + borderWidth: 3; + borderColor: Color green muchDarker; + cellInset: 0; layoutInset: 0! Item was added: + ----- Method: ScriptingTileHolder>>unhibernate (in category 'initialization') ----- + unhibernate + + self fixLayout. + ! Item was added: + ----- 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 added: + ----- Method: SyntaxTestMethods>>altStyleTester (in category 'as yet unclassified') ----- + altStyleTester + + self doFirstThatWorks + if: [self = 1] do: [self + 1]; + if: [self = 2] do: [self + 2]; + if: [self = 3] do: [self + 3]; + if: [self = 4] do: [self + 4]; + if: [true] do: [self + 5] + + ! Item was added: + ----- Method: FunctionTile>>addCustomMenuItems:hand: (in category 'menu') ----- + addCustomMenuItems: aCustomMenu hand: aHandMorph + "Add custom menu items to the menu" + + super addCustomMenuItems: aCustomMenu hand: aHandMorph. + self topEditor ifNotNil: + [aCustomMenu add: 'remove function' translated action: #removeFunctionWrapper]! Item was added: + ----- Method: ScriptEditorMorphBuilder>>script: (in category 'reconstituting scripting tiles ') ----- + script: sexp + + | scriptName params entry morphs row isTiles code | + scriptName _ (sexp attributeAt: #scriptName) asSymbol. + params _ sexp elements select: [:e | e keyword == #parameter]. + + entry _ playerScripted class permanentUserScriptFor: scriptName asSymbol player: playerScripted. + + params _ params collect: [:e | Variable new name: (e attributeAt: #name) asSymbol type: (e attributeAt: #type) asSymbol]. + entry argumentVariables: params. + topEditor _ entry instantiatedScriptEditorForPlayer: playerScripted. + + isTiles _ (sexp attributeAt: #language ifAbsent: ['Squeak']) = 'Etoys'. + isTiles ifTrue: [ + morphs _ self fromSexp: (sexp elements detect: [:e | e keyword == #sequence] ifNone: []). + morphs do: [:e | + row _ topEditor addNewRow. + row addMorph: e. + ]. + ] ifFalse: [ + code _ (sexp elements detect: [:e | e keyword == #code]) attributeAt: #value. + playerScripted class compileSilently: code classified: 'scripts'. + topEditor userScriptObject becomeTextuallyCoded. + (topEditor submorphs copyFrom: 2 to: topEditor submorphs size) do: [:m | m delete]. + topEditor showSourceInScriptor. + ]. + + ^ entry. + ! Item was added: + PasteUpMorph subclass: #SyntaxTestMethods + instanceVariableNames: 'letterActors wild leftMargin rightMargin switch current jumpSwitch hotIndex' + classVariableNames: 'Goal' + poolDictionaries: '' + category: 'Etoys-Tile Scriptors'! Item was added: + ----- Method: SyntaxTestMethods>>doAndCollect (in category 'as yet unclassified') ----- + doAndCollect + + self do: [ :j | j isEmpty ifFalse: [j size]]. + self collect: [ :each | each asString withBlanksTrimmed]. + ! Item was added: + ----- Method: ViewerEntry>>contents:notifying: (in category 'contents') ----- + contents: c notifying: k + "later, spruce this up so that it can accept input such as new method source" + | info | + (info _ self userSlotInformation) + ifNotNil: + [info documentation: c. + ^ true]. + Beeper beep. + ^ false! Item was added: + ----- Method: FunctionTile>>removeFunction (in category 'menu') ----- + removeFunction + "Unwrap the receiver from its contents." + + self removeFunctionWrapper + + ! Item was added: + TileLikeMorph subclass: #CommandTilesMorph + instanceVariableNames: 'morph playerScripted' + classVariableNames: '' + poolDictionaries: '' + category: 'Etoys-Scripting Tiles'! + + !CommandTilesMorph commentStamp: '<historical>' prior: 0! + An entire Smalltalk statement in tiles. A line of code.! Item was added: + ----- Method: SyntaxTestMethods>>bobsplace2:after:newLine: (in category 'as yet unclassified') ----- + bobsplace2: letter after: before newLine: isNewLine + "Position this letter. Put its left edge where the previous letter's right edge is. Move down to the next line if isNewLine is true. Add some leading for condensed or expanded text." + + (self doFirstThatWorks) + if: [before isNil] + do: [self selfWrittenAsIll march: letter to: leftMargin topRight]; + if: [isNewLine] + do: + [self selfWrittenAsIll march: letter + to: leftMargin right @ (before bottom + 1)]; + if: [true] do: [self selfWrittenAsIll march: letter to: before topRight]! Item was added: + ----- Method: FunctionTile>>initialize (in category 'initialization') ----- + initialize + "initialize the state of the receiver" + + super initialize. + type := #function. + self minHeight: 30; vResizing: #spaceFill; borderWidth: 0! Item was added: + ----- Method: SyntaxTestMethods>>bobsplace:after:newLine: (in category 'as yet unclassified') ----- + bobsplace: letter after: before newLine: isNewLine + "Position this letter. Put its left edge where the previous letter's right edge is. Move down to the next line if isNewLine is true. Add some leading for condensed or expanded text." + + before isNil + ifTrue: [self selfWrittenAsIll march: letter to: leftMargin topRight] + ifFalse: + [isNewLine + ifTrue: + [self selfWrittenAsIll march: letter + to: leftMargin right @ (before bottom + 1)] + ifFalse: [self selfWrittenAsIll march: letter to: before topRight]]. + ^self! Item was added: + ----- Method: ScriptingTileHolder>>fixLayout (in category 'initialization') ----- + fixLayout + + self allMorphsDo: [:m | m fixLayoutOfSubmorphs]. + ! Item was added: + TileMorph subclass: #FunctionNameTile + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Etoys-Scripting Tiles'! + + !FunctionNameTile commentStamp: 'sw 6/9/2007 22:25' prior: 0! + An operator tile holding the name of a function; used in conjunction with a FunctionTile which is always its owner.! Item was changed: SystemOrganization addCategory: #'EToys-Kedama'! - SystemOrganization addCategory: #'Etoys-Scripting Support'! - SystemOrganization addCategory: #'Etoys-Scripting'! - SystemOrganization addCategory: #'Etoys-Scripting Tiles'! SystemOrganization addCategory: #'Etoys-Buttons'! + SystemOrganization addCategory: #'Etoys-CustomEvents'! - SystemOrganization addCategory: #'Etoys-Stacks'! SystemOrganization addCategory: #'Etoys-Experimental'! + SystemOrganization addCategory: #'Etoys-Help'! SystemOrganization addCategory: #'Etoys-Outliner'! SystemOrganization addCategory: #'Etoys-Protocols'! - SystemOrganization addCategory: #'Etoys-Widgets'! - SystemOrganization addCategory: #'Etoys-CustomEvents'! - SystemOrganization addCategory: #'Etoys-StarSqueak'! - SystemOrganization addCategory: #'Etoys-Tile Scriptors'! SystemOrganization addCategory: #'Etoys-Protocols-Type Vocabularies'! - SystemOrganization addCategory: #'Etoys-Help'! SystemOrganization addCategory: #'Etoys-Scratch'! + SystemOrganization addCategory: #'Etoys-Scripting'! + SystemOrganization addCategory: #'Etoys-Scripting Support'! + SystemOrganization addCategory: #'Etoys-Scripting Tiles'! + SystemOrganization addCategory: #'Etoys-Stacks'! + SystemOrganization addCategory: #'Etoys-StarSqueak'! + SystemOrganization addCategory: #'Etoys-Tile Scriptors'! + SystemOrganization addCategory: #'Etoys-Widgets'! Item was added: + ----- Method: TimesRepeatTile>>labelMorphs (in category 'access') ----- + labelMorphs + "Answer a list of the StringMorphs that constitute the user-visible labels in the receiver's interior -- in this case, the StringMorphs showing the words Repeat, times, and Do." + + | w | + w := WriteStream on: (Array new: 3). + w nextPut: self submorphs second submorphs first submorphs first. + w nextPut: self submorphs second submorphs first submorphs fourth. + w nextPut: self submorphs second submorphs third submorphs second. + ^ w contents + + " + TimesRepeatTile new labelMorphs collect: [:m | m contents] + " + ! Item was added: + ----- Method: TimesRepeatMorph>>sexpWith: (in category 'code generation') ----- + sexpWith: dictionary + + | n elements e | + n _ SExpElement keyword: #loop. + n attributeAt: #type put: 'repeat'. + elements _ WriteStream on: (Array new: 3). + e _ SExpElement keyword: #initial. + e elements: (Array with: ((SExpElement keyword: #literal) attributeAt: #value put: '1'; yourself)). + elements nextPut: e. + e _ SExpElement keyword: #increment. + e elements: (Array with: ((SExpElement keyword: #literal) attributeAt: #value put: '1'; yourself)). + elements nextPut: e. + + e _ SExpElement keyword: #test. + numberOfTimesToRepeatPart submorphs + ifEmpty: + [e elements: (Array with: ((SExpElement keyword: #literal) attributeAt: #value put: '0'; yourself))] + ifNotEmpty: + [e elements: (Array with: (numberOfTimesToRepeatPart sexpWith: dictionary))]. + + elements nextPut: e. + + elements nextPut: (self sexpBlockFor: whatToRepeatPart with: dictionary). + n elements: elements contents. + ^ n. + + ! Item was added: + ----- Method: TimesRepeatTile>>initialize (in category 'initialization') ----- + initialize + "Fully initialize the receiver." + + | dummyColumn timesRepeatColumn repeatRow separator placeHolder doLabel ephemerum | + submorphs _ EmptyArray. + bounds _ 0@0 corner: 50@40. + self color: Color orange muchLighter. + + self layoutPolicy: TableLayout new. + self "border, and layout properties in alphabetical order..." + borderColor: self color darker; + borderWidth: 2; + cellSpacing: #none; + cellPositioning: #topLeft; + hResizing: #spaceFill; + layoutInset: 0; + listDirection: #leftToRight; + rubberBandCells: true; + vResizing: #shrinkWrap; + wrapCentering: #none. + + self setNameTo: 'Repeat Complex'. + + dummyColumn _ AlignmentMorph newColumn. + dummyColumn cellInset: 0; layoutInset: 0. + dummyColumn width: 0. + dummyColumn cellPositioning: #leftCenter. + dummyColumn hResizing: #shrinkWrap; vResizing: #spaceFill. + self addMorph: dummyColumn. + + timesRepeatColumn _ AlignmentMorph newColumn. + timesRepeatColumn setNameTo: 'Times Repeat'. + + timesRepeatColumn cellPositioning: #topLeft. + timesRepeatColumn hResizing: #spaceFill. + timesRepeatColumn vResizing: #shrinkWrap. + timesRepeatColumn layoutInset: 0. + timesRepeatColumn borderWidth: 0. + timesRepeatColumn color: Color orange muchLighter. + + timesRow _ TimesRow newRow color: color; layoutInset: 0. + timesRepeatColumn addMorphBack: timesRow. + + separator _ AlignmentMorph newRow color: Color transparent. + separator vResizing: #rigid; hResizing: #spaceFill; height: 2. + separator borderWidth: 0. + timesRepeatColumn addMorphBack: separator. + + repeatRow _ AlignmentMorph newRow color: color; layoutInset: 0. + repeatRow minCellSize: (2@16). + repeatRow setNameTo: 'Repeat '. + placeHolder _ Morph new. + placeHolder beTransparent; extent: (8@0). + repeatRow addMorphBack: placeHolder. + repeatRow vResizing: #shrinkWrap. + doLabel _ StringMorph contents: 'Do' translated font: Preferences standardEToysFont. + repeatRow addMorphBack: doLabel. + repeatRow addMorphBack: (Morph new color: color; extent: 5@5). "spacer" + repeatRow addMorphBack: (whatToRepeatPart _ ScriptEditorMorph new borderWidth: 0; layoutInset: 0). + + whatToRepeatPart hResizing: #spaceFill. + whatToRepeatPart vResizing: #shrinkWrap. + whatToRepeatPart color: Color transparent. + whatToRepeatPart setNameTo: 'Script to repeat' translated. + whatToRepeatPart addMorphBack: (ephemerum := Morph new height: 14) beTransparent. + + timesRepeatColumn addMorphBack: repeatRow. + + self addMorphBack: timesRepeatColumn. + self bounds: self fullBounds. + + ephemerum delete! Item was added: + ----- Method: TimesRow>>timesPad (in category 'accessing') ----- + timesPad + "Answer the TilePadMorph at the top of the tile tree for the times part." + + ^ timesPad! Item was added: + ----- Method: ScriptEditorMorphBuilder>>context:playerScripted: (in category 'initialization') ----- + context: c playerScripted: p + + context _ c. + playerScripted _ p. + ! Item was added: + ----- Method: FunctionNameTile>>grouped (in category 'menu commands') ----- + grouped + "The user chose grouped from the menu. Establish the special-case null function call." + + self setOperator: #grouped! Item was added: + ----- Method: FunctionNameTile>>setOperator: (in category 'choice of function') ----- + setOperator: anOperatorSymbol + "The user chose an entry with the given inherent operator symbol (this may differ from what the user sees in the pop-up or on the tile." + + | aTable | + operatorOrExpression := anOperatorSymbol. + operatorOrExpression = #grouped + ifTrue: + [self line1: ' '. + self setBalloonText: 'parenthesized' translated] + ifFalse: + [aTable := ScriptingSystem tableOfNumericFunctions. + (aTable detect: [:m | m second = anOperatorSymbol] ifNone: [nil]) ifNotNilDo: + [:aTriplet | + self line1: aTriplet first translated. + self setBalloonText: aTriplet third translated]]. + self addArrows. + self scriptEdited. + self layoutChanged! Item was added: + ----- Method: TimesRepeatMorph>>parseNodeWith: (in category 'code generation') ----- + parseNodeWith: encoder + + | rec selector arg | + rec _ numberOfTimesToRepeatPart submorphs + ifEmpty: + [encoder encodeLiteral: 0] + ifNotEmpty: + [numberOfTimesToRepeatPart parseNodeWith: encoder]. + selector _ #timesRepeat:. + arg _ self blockNode: whatToRepeatPart with: encoder. + ^ MessageNode new + receiver: rec + selector: selector + arguments: (Array with: arg) + precedence: (selector precedence) + from: encoder + sourceRange: nil. + ! Item was added: + ----- Method: ScriptEditorMorphBuilder>>specialKedamaSend:with:with: (in category 'reconstituting scripting tiles ') ----- + specialKedamaSend: sexp with: rcvr with: realSel + + | p val | + val _ self fromSexp: sexp elements third. + p _ self phraseForSpecialKedamaSend: realSel. + p justGrabbedFromViewer: false. + p submorphs first addMorph: rcvr. + p submorphs second setArgumentDefaultTo: val actualObject. + ^ p + ! Item was added: + ----- Method: FunctionTile>>removeFunctionWrapper (in category 'menu') ----- + removeFunctionWrapper + "Remove the function wrapper" + + | myPad | + (owner isNil or: [owner owner isNil]) ifTrue: [^ Beeper beep]. "Not in a line of script" + myPad _ submorphs third. + owner owner replaceSubmorph: owner by: myPad. + myPad scriptEdited! Item was added: + ----- Method: CommandTilesMorph>>tileRows (in category 'miscellaneous') ----- + tileRows + + ^ Array with: self submorphs! Item was added: + CompoundTileMorph subclass: #TimesRepeatMorph + instanceVariableNames: 'numberOfTimesToRepeatPart whatToRepeatPart' + classVariableNames: '' + poolDictionaries: '' + category: 'Etoys-Scripting Tiles'! + + !TimesRepeatMorph commentStamp: 'sw 1/11/2006 22:05' prior: 0! + A variant on the CompoundTileMorph that allows a section of code to be executed as many times as a numeric-control-field indicates. For reasons of sharing and history, the CompoundTileMorph continues to be the one for test/yes/no, and this subclass disregards those three areas and adds two of its own.! Item was added: + ----- Method: ScriptEditorMorphBuilder>>specialSend:with:with: (in category 'reconstituting scripting tiles ') ----- + specialSend: sexp with: rcvr with: realSel + + | p val | + sexp elements size > 2 ifTrue: [ + val _ self fromSexp: sexp elements third. + ]. + realSel == #color:sees: ifTrue: [ + p _ PhraseTileMorph new + setOperator: #+ + type: #Boolean + rcvrType: #Player + argType: #Color. "temp dummy" + p justGrabbedFromViewer: false. + p submorphs first addMorph: rcvr. + p submorphs second delete. + p addMorph: (ColorSeerTile new showPalette: false; colorSwatchColor: (val colorSwatch color)) behind: p submorphs first. + p submorphs last setType: (sexp elements fourth attributeAt: #type ifAbsent: ['Number']) asSymbol. + p submorphs last addMorph: (self fromSexp: sexp elements fourth). + ^ p. + ]. + ! Item was added: + ----- Method: ScriptingTileHolder classSide>>around: (in category 'instance creation') ----- + around: aTile + "Answer a new instance of the receiver, surrounding the given tile." + + ^ self new around: aTile! Item was added: + ----- Method: FunctionNameTile>>storeCodeOn:indent: (in category 'code generation') ----- + storeCodeOn: aStream indent: tabCount + "Store the receiver's code on the stream, honoring indentation." + + operatorOrExpression = #grouped + ifTrue: + [aStream nextPutAll: ' yourself'] + ifFalse: + [super storeCodeOn: aStream indent: tabCount]! Item was added: + ----- Method: FunctionTile>>convertPrecedenceOfArgsInParseNode:with: (in category 'code generation') ----- + convertPrecedenceOfArgsInParseNode: message with: encoder + + | e r w list | + message arguments size > 0 ifTrue: [ + w _ WriteStream on: (Array new: 3). + message arguments first eToysExpFlattenOn: w. + list _ w contents. + e _ EToyExpressionTransformer2 new newNodeFromList: list encoder: encoder. + r _ e transform. + message arguments at: 1 put: r. + ^ message. + ] ifFalse: [ + ^ message. + ]. + ! Item was added: + ----- Method: FunctionTile>>convertPrecedenceInParseNode:with: (in category 'code generation') ----- + convertPrecedenceInParseNode: message with: encoder + + | e r w list | + w _ WriteStream on: (Array new: 3). + message receiver eToysExpFlattenOn: w. + list _ w contents. + e _ EToyExpressionTransformer2 new newNodeFromList: list encoder: encoder. + r _ e transform. + message receiver: r. + ^ message. + ! Item was added: + ----- Method: ScriptingTileHolder>>localeChanged (in category 'initialization') ----- + localeChanged + + self fixLayout. + ! Item was added: + AlignmentMorph subclass: #PhraseWrapperMorph + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Etoys-Scripting'! + + !PhraseWrapperMorph commentStamp: '<historical>' prior: 0! + An alignment morph designed for use in scripting Viewers; it wraps a set of phrases in a category viewer, and repels attempts to drop phrases upon it.! Item was added: + AlignmentMorph subclass: #ViewerEntry + instanceVariableNames: 'helpPane' + classVariableNames: '' + poolDictionaries: '' + category: 'Etoys-Scripting Tiles'! Item was added: + ----- Method: FunctionTile>>operator:wording:helpString:pad: (in category 'initialization') ----- + operator: opSymbol wording: aWording helpString: aHelpString pad: aTilePadMorph + "Set the operator and pad. Builds and adds the four submorphs of the receiver -- function-name, left-paren, argument-pad, right-paren." + + argumentPad := aTilePadMorph. + self removeAllMorphs. + self vResizing: #shrinkWrap. + functionNameTile _ FunctionNameTile new. + functionNameTile operator: opSymbol wording: aWording helpString: aHelpString. + self addMorphFront: functionNameTile. + self addMorphBack: (ImageMorph new image: (ScriptingSystem formAtKey: #LeftParenthesis)). + self addMorphBack: aTilePadMorph. + self addMorphBack: (ImageMorph new image: (ScriptingSystem formAtKey: #RightParenthesis))! Item was added: + ----- Method: ViewerEntry>>defaultColor (in category 'initialization') ----- + defaultColor + "answer the default color/fill style for the receiver" + ^ Color + r: 1.0 + g: 0.985 + b: 0.985! Item was added: + ----- Method: PhraseTileForTimesRepeat>>setupCostume (in category 'initialization') ----- + setupCostume + "Set up the details that make up the receiver's appearance." + + | stringMorph | + stringMorph _ StringMorph new contents: 'Repeat' translated. + stringMorph name: 'Repeat' translated. + stringMorph font: Preferences standardEToysFont. + self addMorphBack: stringMorph. + self addMorphBack: (Morph new color: color; + extent: 15 @ 5). + + stringMorph _ StringMorph new contents: 'Times' translated. + stringMorph name: 'Times' translated. + stringMorph font: Preferences standardEToysFont. + self addMorphBack: stringMorph. + self addMorphBack: (Morph new color: color; + extent: 15 @ 5). + ! Item was added: + ----- Method: PhraseWrapperMorph classSide>>includeInNewMorphMenu (in category 'new-morph participation') ----- + includeInNewMorphMenu + "Not to be instantiated from the menu" + ^ false! Item was added: + ----- Method: ViewerEntry>>userSlotInformation (in category 'slot') ----- + userSlotInformation + "If the receiver represents a user-defined slot, then return its info; if not, retun nil" + | aSlotName info | + ((self entryType == #systemSlot) or: [self entryType == #userSlot]) + ifFalse: + [^ nil]. + aSlotName _ self slotName. + ^ ((info _ self playerBearingCode slotInfo) includesKey: aSlotName) + ifTrue: + [info at: aSlotName] + ifFalse: + [nil]! Item was added: + ----- Method: CommandTilesMorph>>setMorph: (in category 'initialization') ----- + setMorph: aMorph + playerScripted _ aMorph playerScripted + ! Item was added: + AlignmentMorph subclass: #ViewerRow + instanceVariableNames: 'elementSymbol' + classVariableNames: '' + poolDictionaries: '' + category: 'Etoys-Scripting Tiles'! Item was added: + ----- Method: ScriptingTileHolder>>handlesMouseDown: (in category 'mouse handling') ----- + handlesMouseDown: evt + "Do I want to receive mouseDown events (mouseDown:, mouseMove:, mouseUp:)?" + + ^ true! Item was added: + ----- Method: TimesRepeatMorph>>targetPartFor: (in category 'initialization') ----- + targetPartFor: aMorph + "Return the row into which the given morph should be inserted." + + | centerY | + centerY _ aMorph fullBounds center y. + {numberOfTimesToRepeatPart, whatToRepeatPart} do: [:m | + (centerY <= m bounds bottom) ifTrue: [^ m]]. + ^ noPart + ! Item was added: + ----- Method: PhraseWrapperMorph>>repelsMorph:event: (in category 'dropping/grabbing') ----- + repelsMorph: aMorph event: ev + ^ (aMorph isKindOf: PhraseTileMorph) or: + [aMorph hasProperty: #newPermanentScript]! Item was added: + ----- Method: ScriptEditorMorphBuilder>>context:playerScripted:topEditor: (in category 'initialization') ----- + context: c playerScripted: p topEditor: t + + context _ c. + playerScripted _ p. + topEditor _ t. + ! Item was added: + ----- Method: FunctionTile>>basicParseNodeWith: (in category 'code generation') ----- + basicParseNodeWith: encoder + "Answer a message node for the receiver." + + | sel rec ret | + sel _ submorphs first operatorOrExpression. + rec _ submorphs third parseNodeWith: encoder. + ret _ MessageNode new + receiver: rec + selector: sel + arguments: #() + precedence: (sel precedence) + from: encoder + sourceRange: nil. + ^ self convertPrecedenceInParseNode: ret with: encoder. + ! Item was added: + ----- Method: ScriptEditorMorphBuilder>>variable: (in category 'reconstituting scripting tiles ') ----- + variable: sexp + + | p | + p _ ParameterTile new. + p scriptEditor: topEditor. + p line1: (sexp attributeAt: #type) translated. + ^ p. + ! Item was added: + ----- Method: FunctionNameTile>>arrowAction: (in category 'arrows') ----- + arrowAction: delta + "Do what is appropriate when an arrow on the tile is pressed; delta will be +1 or -1" + + | index operatorList | + operatorList := self options second. + index _ (operatorList indexOf: self value) + delta. + self setOperator: (operatorList atWrap: index). + self scriptEdited. + self layoutChanged! Item was added: + ----- Method: PhraseWrapperMorph>>isPartsBin (in category 'parts bin') ----- + isPartsBin + ^ true! Item was added: + TileMorph subclass: #FunctionTile + instanceVariableNames: 'functionNameTile argumentPad' + classVariableNames: '' + poolDictionaries: '' + category: 'Etoys-Scripting Tiles'! + + !FunctionTile commentStamp: 'sw 6/10/2007 03:41' prior: 0! + A scripting tile consisting of a function-name and an argument pad, and representing a call to a numeric function of a single argument.! Item was added: + ----- Method: PhraseTileForTest>>setupCostume (in category 'as yet unclassified') ----- + setupCostume + + | stringMorph | + stringMorph _ StringMorph new contents: 'Test' translated. + stringMorph name: 'Test' translated. + stringMorph font: Preferences standardEToysFont. + self addMorphBack: stringMorph. + self addMorphBack: (Morph new color: color; + extent: 15 @ 5). + + stringMorph _ StringMorph new contents: 'Yes' translated. + stringMorph name: 'Yes' translated. + stringMorph font: Preferences standardEToysFont. + self addMorphBack: stringMorph. + self addMorphBack: (Morph new color: color; + extent: 15 @ 5). + + stringMorph _ StringMorph new contents: 'No' translated. + stringMorph name: 'No' translated. + stringMorph font: Preferences standardEToysFont. + self addMorphBack: stringMorph. + self addMorphBack: (Morph new color: color; + extent: 15 @ 5). + ! Item was added: + ----- Method: TimesRow>>replaceSubmorph:by: (in category 'retract-arrow processing') ----- + replaceSubmorph: existingMorph by: newMorph + "Replace a submorph by a different morph. Fix up my inst vars as appropriate." + + super replaceSubmorph: existingMorph by: newMorph. + (newMorph isKindOf: TilePadMorph) + ifTrue: + [timesPad := newMorph] + ! Item was added: + ----- Method: ViewerEntry>>entryType (in category 'access') ----- + entryType + ^ self viewerRow entryType! Item was added: + ----- Method: TimesRepeatMorph>>initialize (in category 'initialization') ----- + initialize + "Fully initialize the receiver." + + | dummyColumn timesRow timesRepeatColumn repeatRow separator repeatLabel placeHolder doLabel ephemerum | + submorphs _ EmptyArray. + bounds _ 0@0 corner: 50@40. + self color: Color orange muchLighter. + + self layoutPolicy: TableLayout new. + self "border, and layout properties in alphabetical order..." + borderColor: self color darker; + borderWidth: 2; + cellSpacing: #none; + cellPositioning: #topLeft; + hResizing: #spaceFill; + layoutInset: 0; + listDirection: #leftToRight; + rubberBandCells: true; + vResizing: #shrinkWrap; + wrapCentering: #none. + + self setNameTo: 'Repeat Complex'. + + dummyColumn _ AlignmentMorph newColumn. + dummyColumn cellInset: 0; layoutInset: 0. + dummyColumn width: 0. + dummyColumn cellPositioning: #leftCenter. + dummyColumn hResizing: #shrinkWrap; vResizing: #spaceFill. + self addMorph: dummyColumn. + + timesRepeatColumn _ AlignmentMorph newColumn. + timesRepeatColumn setNameTo: 'Times Repeat'. + + timesRepeatColumn cellPositioning: #topLeft. + timesRepeatColumn hResizing: #spaceFill. + timesRepeatColumn vResizing: #shrinkWrap. + timesRepeatColumn layoutInset: 0. + timesRepeatColumn borderWidth: 0. + timesRepeatColumn color: Color orange muchLighter. + + timesRow _ AlignmentMorph newRow color: color; layoutInset: 0. + timesRow minCellSize: (2@16). + timesRow setNameTo: 'Times'. + repeatLabel _ StringMorph contents: 'Repeat' translated font: Preferences standardEToysFont. + timesRow addMorphBack: repeatLabel. + timesRow vResizing: #shrinkWrap. + timesRow addMorphBack: (Morph new color: color; extent: 6@5). "spacer" + + numberOfTimesToRepeatPart := TilePadMorph new setType: #Number. + numberOfTimesToRepeatPart hResizing: #shrinkWrap; color: Color transparent. + numberOfTimesToRepeatPart addMorphBack: (TileMorph new addArrows; setLiteral: 2). + numberOfTimesToRepeatPart borderWidth: 0; layoutInset: (1@0). + + timesRow addMorphBack: numberOfTimesToRepeatPart. + timesRow addMorphBack: (StringMorph contents: ' times ' font: Preferences standardEToysFont). + timesRow addMorphBack: AlignmentMorph newVariableTransparentSpacer. + timesRepeatColumn addMorphBack: timesRow. + + separator _ AlignmentMorph newRow color: Color transparent. + separator vResizing: #rigid; hResizing: #spaceFill; height: 2. + separator borderWidth: 0. + timesRepeatColumn addMorphBack: separator. + + repeatRow _ AlignmentMorph newRow color: color; layoutInset: 0. + repeatRow minCellSize: (2@16). + repeatRow setNameTo: 'Repeat '. + placeHolder _ Morph new. + placeHolder beTransparent; extent: (8@0). + repeatRow addMorphBack: placeHolder. + repeatRow vResizing: #shrinkWrap. + doLabel _ StringMorph contents: 'Do' font: Preferences standardEToysFont. + repeatRow addMorphBack: doLabel. + repeatRow addMorphBack: (Morph new color: color; extent: 5@5). "spacer" + repeatRow addMorphBack: (whatToRepeatPart _ ScriptEditorMorph new borderWidth: 0; layoutInset: 0). + + whatToRepeatPart hResizing: #spaceFill. + whatToRepeatPart vResizing: #shrinkWrap. + whatToRepeatPart color: Color transparent. + whatToRepeatPart setNameTo: 'Script to repeat'. + whatToRepeatPart addMorphBack: (ephemerum := Morph new height: 14) beTransparent. + + timesRepeatColumn addMorphBack: repeatRow. + + self addMorphBack: timesRepeatColumn. + self bounds: self fullBounds. + + ephemerum delete! Item was added: + ----- Method: TimesRepeatMorph>>labelMorphs (in category 'access') ----- + labelMorphs + + | w | + w := WriteStream on: (Array new: 3). + w nextPut: self submorphs second submorphs first submorphs first. + w nextPut: self submorphs second submorphs first submorphs fourth. + w nextPut: self submorphs second submorphs third submorphs second. + ^ w contents. + ! Item was added: + PhraseTileMorph subclass: #PhraseTileForTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Etoys-Scripting Tiles'! Item was added: + ----- Method: ViewerEntry>>playerBearingCode (in category 'access') ----- + playerBearingCode + ^ owner owner scriptedPlayer! Item was added: + ----- Method: ViewerEntry>>codePaneMenu:shifted: (in category 'menu') ----- + codePaneMenu: aMenu shifted: shifted + ^ aMenu + labels: 'menu + eventually + will + be + useful' + lines: #(1) + selections: #(beep flash beep flash beep)! Item was added: + ----- Method: FunctionTile>>storeCodeOn:indent: (in category 'code generation') ----- + storeCodeOn: aStream indent: tabCount + "Store the receiver's code on the stream, honoring indentation." + + aStream nextPut: $(. + aStream space. + argumentPad storeCodeOn: aStream indent: tabCount. + aStream nextPut: $). + aStream space. + functionNameTile storeCodeOn: aStream indent: tabCount! Item was added: + ----- Method: FunctionNameTile>>operator:wording:helpString: (in category 'initialization') ----- + operator: anOperator wording: aWording helpString: aHelpString + "Set the operator as per aString, and add up/down arrows" + + type _ #operator. + operatorOrExpression _ anOperator asSymbol. + operatorOrExpression = #grouped + ifTrue: + [self line1: ' '] + ifFalse: + [self line1: aWording]. + self addArrows.. + aHelpString ifNotNil: [submorphs last setBalloonText: aHelpString]! Item was added: + ----- Method: SyntaxTestMethods>>wordyTestMethod (in category 'as yet unclassified') ----- + wordyTestMethod + + self selfWrittenAsMe = 1 ifTrue: [ + self selfWrittenAsMy size. + self selfWrittenAsIll stop. + self selfWrittenAsIm large. + self selfWrittenAsThis helps. + ]. + ! Item was added: + ----- 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 added: + ----- Method: SyntaxTestMethods>>makeRandomString (in category 'as yet unclassified') ----- + makeRandomString + + | newString foo | + + newString _ String new: Goal contents size. + foo _ Goal contents size. + ^newString collect: [ :oldLetter | 'abcdefghijklmnopqrstuvwxyz' atRandom] + !

1 0

Etoys: Morphic-kfr.6.mcz
by commits＠source.squeak.org 13 May '10

13 May '10

Karl Ramberg uploaded a new version of Morphic to project Etoys: http://source.squeak.org/etoys/Morphic-kfr.6.mcz ==================== Summary ==================== Name: Morphic-kfr.6 Author: kfr Time: 13 May 2010, 12:59:15 am UUID: 1e2dab4a-0285-2b45-ba5a-b00c7ac60ccb Ancestors: Morphic-kfr.5 Remove classes from Morphic-Scripting (to Etoys-Scripting) =============== Diff against Morphic-bf.4 =============== Item was changed: + SystemOrganization addCategory: #'Morphic-Balloon'! SystemOrganization addCategory: #'Morphic-Basic'! SystemOrganization addCategory: #'Morphic-Books'! SystemOrganization addCategory: #'Morphic-Borders'! SystemOrganization addCategory: #'Morphic-Buttons'! SystemOrganization addCategory: #'Morphic-Components'! SystemOrganization addCategory: #'Morphic-Demo'! SystemOrganization addCategory: #'Morphic-Events'! SystemOrganization addCategory: #'Morphic-Experimental'! + SystemOrganization addCategory: #'Morphic-Explorer'! SystemOrganization addCategory: #'Morphic-Flaps'! + SystemOrganization addCategory: #'Morphic-Games'! + SystemOrganization addCategory: #'Morphic-Games-Chess'! SystemOrganization addCategory: #'Morphic-GeeMail'! SystemOrganization addCategory: #'Morphic-Kernel'! SystemOrganization addCategory: #'Morphic-Kernel-Tests'! SystemOrganization addCategory: #'Morphic-Layouts'! SystemOrganization addCategory: #'Morphic-Leds'! + SystemOrganization addCategory: #'Morphic-Mentoring'! SystemOrganization addCategory: #'Morphic-Menus'! SystemOrganization addCategory: #'Morphic-Models'! SystemOrganization addCategory: #'Morphic-Navigators'! SystemOrganization addCategory: #'Morphic-Outliner'! - SystemOrganization addCategory: #'Morphic-PDA'! SystemOrganization addCategory: #'Morphic-Palettes'! SystemOrganization addCategory: #'Morphic-PartsBin'! + SystemOrganization addCategory: #'Morphic-PDA'! + SystemOrganization addCategory: #'Morphic-Pluggable Widgets'! SystemOrganization addCategory: #'Morphic-Postscript Canvases'! SystemOrganization addCategory: #'Morphic-Postscript Filters'! SystemOrganization addCategory: #'Morphic-Scripting'! SystemOrganization addCategory: #'Morphic-Scripting Support'! SystemOrganization addCategory: #'Morphic-Scripting Tiles'! SystemOrganization addCategory: #'Morphic-Stacks'! SystemOrganization addCategory: #'Morphic-Support'! SystemOrganization addCategory: #'Morphic-Text Support'! SystemOrganization addCategory: #'Morphic-Tile Scriptors'! + SystemOrganization addCategory: #'Morphic-TrueType'! SystemOrganization addCategory: #'Morphic-Undo'! SystemOrganization addCategory: #'Morphic-Widgets'! SystemOrganization addCategory: #'Morphic-Windows'! SystemOrganization addCategory: #'Morphic-Worlds'! - SystemOrganization addCategory: #'Morphic-Games'! - SystemOrganization addCategory: #'Morphic-Games-Chess'! - SystemOrganization addCategory: #'Morphic-Mentoring'! - SystemOrganization addCategory: #'Morphic-Explorer'! - SystemOrganization addCategory: #'Morphic-Pluggable Widgets'! - SystemOrganization addCategory: #'Morphic-Balloon'! - SystemOrganization addCategory: #'Morphic-TrueType'! Item was removed: - ----- Method: ScriptEditorMorphBuilder>>context:playerScripted:topEditor: (in category 'initialization') ----- - context: c playerScripted: p topEditor: t - - context _ c. - playerScripted _ p. - topEditor _ t. - ! Item was removed: - ----- Method: ScriptEditorMorphBuilder>>literal: (in category 'reconstituting scripting tiles ') ----- - literal: sexp - - | type n lit s xComp yComp | - type _ sexp attributeAt: #type ifAbsent: []. - type ifNotNil: [type _ type asSymbol]. - (type == #Player or: [type == #Patch]) ifTrue: [ - n _ sexp attributeAt: #value ifAbsent: []. - n ifNotNil: [ - n = 'self' ifTrue: [^ TileMorph new setToReferTo: playerScripted]. - n = 'nil' ifTrue: [^ TileMorph new setToReferTo: playerScripted presenter standardPlayer]. - ^ TileMorph new setToReferTo: (context at: n asSymbol) - ]. - ^ TileMorph new setToReferTo: World presenter standardPlayer - ]. - type == #String ifTrue: [ - lit _ sexp attributeAt: #value. - ^ (TileMorph new setLiteral: lit). - ]. - type == #Point ifTrue: [ - lit _ sexp attributeAt: #value. - xComp _ lit copyFrom: 1 to: (lit indexOf: $@) - 1. - yComp _ lit copyFrom: (lit indexOf: $@) + 1 to: lit size. - - lit _ xComp asNumber@yComp asNumber. - ^ (TileMorph new setLiteral: lit). - ]. - type == #Color ifTrue: [ - lit _ Color readFrom: (sexp attributeAt: #value). - ^ ColorTileMorph new colorSwatchColor: lit. - ]. - type == #Boolean ifTrue: [ - lit _ (sexp attributeAt: #value) = 'true'. - ^ TileMorph new addArrows; setLiteral: lit - - ]. - type == #Sound ifTrue: [ - lit _ sexp attributeAt: #value. - ^ SoundTile new literal: lit. - ]. - type == #ScriptName ifTrue: [ - lit _ sexp attributeAt: #value. - ^ ScriptNameTile new literal: lit asSymbol. - ]. - (type == #TrailStyle or: [type == #ButtonPhase or: [type == #BorderStyle or: [type == #EdgeMode or: [type == #PatchDisplayMode]]]]) ifTrue: [ - lit _ sexp attributeAt: #value. - s _ SymbolListTile new. - s choices: (Vocabulary allStandardVocabularies at: type) choices dataType: type. - ^ s setLiteral: lit asSymbol; addArrows. - ]. - (type == #Object or: [type == #Number]) ifTrue: [ - lit _ Number readFrom: (sexp attributeAt: #value). - ^ (TileMorph new setLiteral: lit) addArrows. - ]. - (type == #Graphic) ifTrue: [ - lit _ (context at: (sexp attributeAt: #value) asSymbol). - ^ (GraphicTile new setLiteral: lit). - ]. - (type == #Menu) ifTrue: [ - lit _ sexp attributeAt: #value. - ^ (MenuTile new setLiteral: lit). - ]. - ! Item was removed: - ----- Method: ViewerEntry>>defaultColor (in category 'initialization') ----- - defaultColor - "answer the default color/fill style for the receiver" - ^ Color - r: 1.0 - g: 0.985 - b: 0.985! Item was removed: - CompoundTileMorph subclass: #TimesRepeatMorph - instanceVariableNames: 'numberOfTimesToRepeatPart whatToRepeatPart' - classVariableNames: '' - poolDictionaries: '' - category: 'Morphic-Scripting Tiles'! - - !TimesRepeatMorph commentStamp: 'sw 1/11/2006 22:05' prior: 0! - A variant on the CompoundTileMorph that allows a section of code to be executed as many times as a numeric-control-field indicates. For reasons of sharing and history, the CompoundTileMorph continues to be the one for test/yes/no, and this subclass disregards those three areas and adds two of its own.! Item was removed: - ----- 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 removed: - ----- Method: ScriptEditorMorphBuilder>>functionSend:with:with: (in category 'reconstituting scripting tiles ') ----- - functionSend: sexp with: rcvr with: realSel - - | p | - p _ FunctionTile new. - p operator: realSel pad: rcvr. - ^ p. - ! Item was removed: - ----- Method: FunctionTile classSide>>defaultNameStemForInstances (in category 'scripting') ----- - defaultNameStemForInstances - "Answer a good default name stem to use for names of instances" - - ^ 'Function' translatedNoop! Item was removed: - ----- Method: SyntaxTestMethods>>wordyTestMethod (in category 'as yet unclassified') ----- - wordyTestMethod - - self selfWrittenAsMe = 1 ifTrue: [ - self selfWrittenAsMy size. - self selfWrittenAsIll stop. - self selfWrittenAsIm large. - self selfWrittenAsThis helps. - ]. - ! Item was removed: - ----- Method: ViewerEntry>>entryType (in category 'access') ----- - entryType - ^ self viewerRow entryType! Item was removed: - ----- Method: TimesRepeatMorph>>targetPartFor: (in category 'initialization') ----- - targetPartFor: aMorph - "Return the row into which the given morph should be inserted." - - | centerY | - centerY _ aMorph fullBounds center y. - {numberOfTimesToRepeatPart, whatToRepeatPart} do: [:m | - (centerY <= m bounds bottom) ifTrue: [^ m]]. - ^ noPart - ! Item was removed: - ----- Method: PhraseWrapperMorph>>isPartsBin (in category 'parts bin') ----- - isPartsBin - ^ true! Item was removed: - ----- 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 removed: - ----- Method: FunctionNameTile>>operator:wording:helpString: (in category 'initialization') ----- - operator: anOperator wording: aWording helpString: aHelpString - "Set the operator as per aString, and add up/down arrows" - - type _ #operator. - operatorOrExpression _ anOperator asSymbol. - operatorOrExpression = #grouped - ifTrue: - [self line1: ' '] - ifFalse: - [self line1: aWording]. - self addArrows.. - aHelpString ifNotNil: [submorphs last setBalloonText: aHelpString]! Item was removed: - ----- Method: ScriptingTileHolder>>mouseDown: (in category 'mouse handling') ----- - mouseDown: evt - "Handle a mouse-down event." - - | actualTile | - actualTile := submorphs at: 1 ifAbsent: [^ self delete]. "Not expected to happen." - actualTile unlock. - self topRendererOrSelf delete. - evt hand grabMorph: actualTile! Item was removed: - ----- Method: PhraseTileForTimesRepeat>>mouseDown: (in category 'mouse') ----- - mouseDown: evt - "Handle a mouse-down on the receiver" - - | guyToTake catViewer | - guyToTake _ TimesRepeatTile new. - guyToTake setNamePropertyTo: 'Repeat Tile' translated. - guyToTake position: evt position + (-25@8). - - guyToTake formerPosition: ActiveHand position. - "self startSteppingSelector: #trackDropZones." - (catViewer := self ownerThatIsA: CategoryViewer) ifNotNil: - [guyToTake setProperty: #newPermanentPlayer toValue: catViewer scriptedPlayer. - guyToTake setProperty: #newPermanentScript toValue: true]. - guyToTake justGrabbedFromViewer: true. - - ^ evt hand grabMorph: guyToTake - ! Item was removed: - ----- Method: FunctionTile>>parseNodeWith: (in category 'code generation') ----- - parseNodeWith: encoder - - | phrase player costume sel | - sel _ submorphs first operatorOrExpression. - sel == #random ifFalse: [^ self basicParseNodeWith: encoder]. - phrase _ self outermostMorphThat: [:m| m isKindOf: PhraseTileMorph]. - phrase ifNil: [^ self basicParseNodeWith: encoder]. - - player _ phrase associatedPlayer. - player ifNil: [^ self basicParseNodeWith: encoder]. - - costume _ player costume. - costume ifNil: [^ self basicParseNodeWith: encoder]. - - (player isKindOf: KedamaExamplerPlayer) ifTrue: [ - ^ self kedamaParseNodeWith: encoder actualObject: player costume renderedMorph kedamaWorld player]. - - (costume renderedMorph isMemberOf: KedamaMorph) ifTrue: [ - ^ self kedamaParseNodeWith: encoder actualObject: self]. - - ^ self basicParseNodeWith: encoder. - ! Item was removed: - ----- Method: FunctionTile>>operator:wording:helpString:pad: (in category 'initialization') ----- - operator: opSymbol wording: aWording helpString: aHelpString pad: aTilePadMorph - "Set the operator and pad. Builds and adds the four submorphs of the receiver -- function-name, left-paren, argument-pad, right-paren." - - argumentPad := aTilePadMorph. - self removeAllMorphs. - self vResizing: #shrinkWrap. - functionNameTile _ FunctionNameTile new. - functionNameTile operator: opSymbol wording: aWording helpString: aHelpString. - self addMorphFront: functionNameTile. - self addMorphBack: (ImageMorph new image: (ScriptingSystem formAtKey: #LeftParenthesis)). - self addMorphBack: aTilePadMorph. - self addMorphBack: (ImageMorph new image: (ScriptingSystem formAtKey: #RightParenthesis))! Item was removed: - ----- Method: ScriptingTileHolder>>fixLayout (in category 'initialization') ----- - fixLayout - - self allMorphsDo: [:m | m fixLayoutOfSubmorphs]. - ! Item was removed: - ----- Method: ViewerEntry>>userSlotInformation (in category 'slot') ----- - userSlotInformation - "If the receiver represents a user-defined slot, then return its info; if not, retun nil" - | aSlotName info | - ((self entryType == #systemSlot) or: [self entryType == #userSlot]) - ifFalse: - [^ nil]. - aSlotName _ self slotName. - ^ ((info _ self playerBearingCode slotInfo) includesKey: aSlotName) - ifTrue: - [info at: aSlotName] - ifFalse: - [nil]! Item was removed: - AlignmentMorph subclass: #TimesRow - instanceVariableNames: 'timesPad' - classVariableNames: '' - poolDictionaries: '' - category: 'Morphic-Scripting Tiles'! - - !TimesRow commentStamp: 'sw 6/14/2007 19:15' prior: 0! - A custom alignment morph that holds the "times' portion of a Times/Repeat complex! Item was removed: - ----- Method: ViewerEntry>>playerBearingCode (in category 'access') ----- - playerBearingCode - ^ owner owner scriptedPlayer! Item was removed: - ----- Method: PhraseTileForTest>>mouseDown: (in category 'mouse') ----- - mouseDown: evt - "Handle a mouse-down on the receiver" - - | guyToTake catViewer | - guyToTake _ CompoundTileMorph new. - guyToTake setNamePropertyTo: 'TestTile' translated. - guyToTake position: evt position + (-25@8). - - guyToTake formerPosition: ActiveHand position. - "self startSteppingSelector: #trackDropZones." - (catViewer := self ownerThatIsA: CategoryViewer) ifNotNil: - [guyToTake setProperty: #newPermanentPlayer toValue: catViewer scriptedPlayer. - guyToTake setProperty: #newPermanentScript toValue: true]. - guyToTake justGrabbedFromViewer: true. - - ^ evt hand grabMorph: guyToTake - ! Item was removed: - ----- Method: FunctionNameTile>>removeFunction (in category 'menu commands') ----- - removeFunction - "Remove the function-call... this is forwarded to owner." - - ^ owner removeFunction! Item was removed: - ----- Method: FunctionTile>>replaceSubmorph:by: (in category 'initialization') ----- - replaceSubmorph: existingMorph by: newMorph - "Replace a submorph by a different morph. If it's my pad, fix up my argumentPad inst var." - - super replaceSubmorph: existingMorph by: newMorph. - (newMorph isKindOf: TilePadMorph) ifTrue: [argumentPad := newMorph]. - ! Item was removed: - ----- Method: ScriptEditorMorphBuilder>>context:playerScripted: (in category 'initialization') ----- - context: c playerScripted: p - - context _ c. - playerScripted _ p. - ! Item was removed: - ----- Method: ScriptEditorMorphBuilder>>specialSend:with:with: (in category 'reconstituting scripting tiles ') ----- - specialSend: sexp with: rcvr with: realSel - - | p val | - sexp elements size > 2 ifTrue: [ - val _ self fromSexp: sexp elements third. - ]. - realSel == #color:sees: ifTrue: [ - p _ PhraseTileMorph new - setOperator: #+ - type: #Boolean - rcvrType: #Player - argType: #Color. "temp dummy" - p justGrabbedFromViewer: false. - p submorphs first addMorph: rcvr. - p submorphs second delete. - p addMorph: (ColorSeerTile new showPalette: false; colorSwatchColor: (val colorSwatch color)) behind: p submorphs first. - p submorphs last setType: (sexp elements fourth attributeAt: #type ifAbsent: ['Number']) asSymbol. - p submorphs last addMorph: (self fromSexp: sexp elements fourth). - ^ p. - ]. - ! Item was removed: - ----- Method: CommandTilesMorph>>tileRows (in category 'miscellaneous') ----- - tileRows - - ^ Array with: self submorphs! Item was removed: - ----- Method: ViewerRow>>elementSymbol (in category 'access') ----- - elementSymbol - ^ elementSymbol! Item was removed: - CompoundTileMorph subclass: #TimesRepeatTile - instanceVariableNames: 'timesRow whatToRepeatPart' - classVariableNames: '' - poolDictionaries: '' - category: 'Morphic-Scripting Tiles'! - - !TimesRepeatTile commentStamp: 'sw 6/15/2007 18:39' prior: 0! - A variant on the CompoundTileMorph that allows a section of code to be executed as many times as a numeric-control-field indicates. For reasons of sharing and history, the CompoundTileMorph continues to be the one for test/yes/no, and this subclass disregards those three areas and adds two of its own. An associated class is the TimesRow -- see its class comment.! Item was removed: - ----- Method: FunctionTile>>rowOfRightTypeFor:forActor: (in category 'dropping/grabbing') ----- - rowOfRightTypeFor: aLayoutMorph forActor: aPlayer - "Answer a phrase of the right type for the putative container" - - | aTemporaryViewer aPhrase | - aLayoutMorph demandsBoolean ifTrue: - [aTemporaryViewer _ CategoryViewer new invisiblySetPlayer: aPlayer. - aPhrase _ aTemporaryViewer booleanPhraseFromPhrase: self. - aPhrase justGrabbedFromViewer: false. - ^ aPhrase]. - ^ self! Item was removed: - ----- Method: ScriptingTileHolder>>unhibernate (in category 'initialization') ----- - unhibernate - - self fixLayout. - ! Item was removed: - ----- Method: PhraseWrapperMorph>>repelsMorph:event: (in category 'dropping/grabbing') ----- - repelsMorph: aMorph event: ev - ^ (aMorph isKindOf: PhraseTileMorph) or: - [aMorph hasProperty: #newPermanentScript]! Item was removed: - ----- Method: TimesRow>>timesPad (in category 'accessing') ----- - timesPad - "Answer the TilePadMorph at the top of the tile tree for the times part." - - ^ timesPad! Item was removed: - ----- Method: TimesRepeatMorph>>labelMorphs (in category 'access') ----- - labelMorphs - - | w | - w := WriteStream on: (Array new: 3). - w nextPut: self submorphs second submorphs first submorphs first. - w nextPut: self submorphs second submorphs first submorphs fourth. - w nextPut: self submorphs second submorphs third submorphs second. - ^ w contents. - ! Item was removed: - ----- Method: TimesRepeatTile>>labelMorphs (in category 'access') ----- - labelMorphs - "Answer a list of the StringMorphs that constitute the user-visible labels in the receiver's interior -- in this case, the StringMorphs showing the words Repeat, times, and Do." - - | w | - w := WriteStream on: (Array new: 3). - w nextPut: self submorphs second submorphs first submorphs first. - w nextPut: self submorphs second submorphs first submorphs fourth. - w nextPut: self submorphs second submorphs third submorphs second. - ^ w contents - - " - TimesRepeatTile new labelMorphs collect: [:m | m contents] - " - ! Item was removed: - ----- Method: ScriptEditorMorphBuilder>>send: (in category 'reconstituting scripting tiles ') ----- - send: sexp - - | rcvr type selNode realSel val p argType | - rcvr _ self fromSexp: sexp elements second. - type _ sexp attributeAt: #type ifAbsent: ['#Player']. - selNode _ sexp elements first. - realSel _ selNode attributeAt: #getter ifAbsent: []. - realSel ifNotNil: [ - realSel _ Utilities getterSelectorFor: realSel. - (rcvr isMemberOf: PhraseTileMorph) ifFalse: [rcvr bePossessive]. - ] ifNil: [ - realSel _ (selNode attributeAt: #selector) asSymbol. - "realSel ifNil: [self error: '']." - ]. - (#(getAngleTo: bounceOn: getDistanceTo: getPatchValueIn: getTurtleOf: getUphillIn: getRedComponentIn: getGreenComponentIn: getBlueComponentIn:) includes: realSel) ifTrue: [ - ^ self specialKedamaSend: sexp with: rcvr with: realSel - ]. - (#(color:sees:) includes: realSel) ifTrue: [ - ^ self specialSend: sexp with: rcvr with: realSel - ]. - ((ScriptingSystem tableOfNumericFunctions collect: [:e | e second]) includes: realSel) ifTrue: [ - ^ self functionSend: sexp with: rcvr with: realSel - ]. - - p _ PhraseTileMorph new - setOperator: realSel - type: type asSymbol - rcvrType: #Player - argType: #Number. - p justGrabbedFromViewer: false. - p submorphs first addMorph: rcvr. - p submorphs first setType: (sexp elements second attributeAt: #type ifAbsent: ['Number']) asSymbol. - sexp elements size = 2 ifTrue: [ - (p resultType == #Number and: [p submorphs second isMemberOf: TileMorph]) ifTrue: [ - p submorphs second addSuffixArrow. - ]. - ]. - sexp elements size > 2 ifTrue: [ - val _ self fromSexp: sexp elements third. - argType _ (sexp elements third attributeAt: #type ifAbsent: ['Number']) asSymbol. - p submorphs third setType: argType. - p submorphs third addMorph: val. - (argType == #Number and: [val isMemberOf: TileMorph]) ifTrue: [val addSuffixArrow. - (#(#+ #- #* #/ #'//' #'\\' #max: #min: #< #'<=' #= #'~=' #> #'>=' #isDivisibleBy:) includes: realSel) ifFalse: [p submorphs second addRetractArrowAnyway]. - ]. - ]. - ^ p. - ! Item was removed: - ----- Method: FunctionTile>>initialize (in category 'initialization') ----- - initialize - "initialize the state of the receiver" - - super initialize. - type := #function. - self minHeight: 30; vResizing: #spaceFill; borderWidth: 0! Item was removed: - ----- Method: FunctionTile>>convertPrecedenceInParseNode:with: (in category 'code generation') ----- - convertPrecedenceInParseNode: message with: encoder - - | e r w list | - w _ WriteStream on: (Array new: 3). - message receiver eToysExpFlattenOn: w. - list _ w contents. - e _ EToyExpressionTransformer2 new newNodeFromList: list encoder: encoder. - r _ e transform. - message receiver: r. - ^ message. - ! Item was removed: - ----- Method: FunctionTile classSide>>randomNumberTile (in category 'scripting') ----- - randomNumberTile - "Answer a newly conjured-up random-number tile, suitable for handing to the user." - - | functionPhrase argTile aPad | - functionPhrase _ FunctionTile new. - argTile := (Vocabulary vocabularyNamed: 'Number') defaultArgumentTile. - aPad := TilePadMorph new setType: #Number. - aPad addMorphBack: argTile. - functionPhrase operator: #random pad: aPad. - ^ functionPhrase - - - " - FunctionTile randomNumberTile openInHand - "! Item was removed: - ----- Method: ViewerEntry>>codePaneMenu:shifted: (in category 'menu') ----- - codePaneMenu: aMenu shifted: shifted - ^ aMenu - labels: 'menu - eventually - will - be - useful' - lines: #(1) - selections: #(beep flash beep flash beep)! Item was removed: - ----- Method: FunctionTile>>basicParseNodeWith: (in category 'code generation') ----- - basicParseNodeWith: encoder - "Answer a message node for the receiver." - - | sel rec ret | - sel _ submorphs first operatorOrExpression. - rec _ submorphs third parseNodeWith: encoder. - ret _ MessageNode new - receiver: rec - selector: sel - arguments: #() - precedence: (sel precedence) - from: encoder - sourceRange: nil. - ^ self convertPrecedenceInParseNode: ret with: encoder. - ! Item was removed: - ----- Method: SyntaxTestMethods>>st76LeftArrowTest: (in category 'as yet unclassified') ----- - st76LeftArrowTest: foo - - foo contentsGetz: foo contents asUppercase - - ! Item was removed: - ----- Method: ViewerEntry>>slotName (in category 'slot') ----- - slotName - "Assuming the receiver represents a slot, return its name" - - ^ self viewerRow elementSymbol! Item was removed: - ----- Method: ScriptEditorMorphBuilder>>condition: (in category 'reconstituting scripting tiles ') ----- - condition: sexp - - | p testPart yesPart noPart n | - testPart _ self fromSexp: (sexp elements first). - yesPart _ self fromSexp: (sexp elements second). - noPart _ self fromSexp: (sexp elements third). - - p _ CompoundTileMorph new. - testPart = #() ifFalse: [ - p submorphs first submorphs last addNewRow addMorph: testPart. - ]. - - yesPart do: [:e | - n _ p submorphs second submorphs last addNewRow. - n addMorph: e. - ]. - noPart do: [:e | - n _ p submorphs third submorphs last addNewRow. - n addMorph: e. - ]. - ^ p. - ! Item was removed: - TileMorph subclass: #FunctionTile - instanceVariableNames: 'functionNameTile argumentPad' - classVariableNames: '' - poolDictionaries: '' - category: 'Morphic-Scripting Tiles'! - - !FunctionTile commentStamp: 'sw 6/10/2007 03:41' prior: 0! - A scripting tile consisting of a function-name and an argument pad, and representing a call to a numeric function of a single argument.! Item was removed: - ----- Method: PhraseTileForTimesRepeat>>setupCostume (in category 'initialization') ----- - setupCostume - "Set up the details that make up the receiver's appearance." - - | stringMorph | - stringMorph _ StringMorph new contents: 'Repeat' translated. - stringMorph name: 'Repeat' translated. - stringMorph font: Preferences standardEToysFont. - self addMorphBack: stringMorph. - self addMorphBack: (Morph new color: color; - extent: 15 @ 5). - - stringMorph _ StringMorph new contents: 'Times' translated. - stringMorph name: 'Times' translated. - stringMorph font: Preferences standardEToysFont. - self addMorphBack: stringMorph. - self addMorphBack: (Morph new color: color; - extent: 15 @ 5). - ! Item was removed: - ----- Method: SyntaxTestMethods>>doAndCollect (in category 'as yet unclassified') ----- - doAndCollect - - self do: [ :j | j isEmpty ifFalse: [j size]]. - self collect: [ :each | each asString withBlanksTrimmed]. - ! Item was removed: - ----- Method: FunctionTile>>convertPrecedenceOfArgsInParseNode:with: (in category 'code generation') ----- - convertPrecedenceOfArgsInParseNode: message with: encoder - - | e r w list | - message arguments size > 0 ifTrue: [ - w _ WriteStream on: (Array new: 3). - message arguments first eToysExpFlattenOn: w. - list _ w contents. - e _ EToyExpressionTransformer2 new newNodeFromList: list encoder: encoder. - r _ e transform. - message arguments at: 1 put: r. - ^ message. - ] ifFalse: [ - ^ message. - ]. - ! Item was removed: - ----- Method: TimesRepeatTile>>sissComeFullyUpOnReloadFrom:to: (in category 'code generation') ----- - sissComeFullyUpOnReloadFrom: from to: to - - whatToRepeatPart borderWidth: 0; layoutInset: 0; hResizing: #spaceFill; - vResizing: #shrinkWrap; - color: Color transparent; - setNameTo: 'Script to repeat'.! Item was removed: - ----- 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 removed: - ----- Method: ViewerEntry>>viewerRow (in category 'access') ----- - viewerRow - "Answer the ViewerRow object, that contains the controls and the phraseTile" - ^ submorphs first! Item was removed: - ----- Method: ScriptEditorMorphBuilder>>loop: (in category 'reconstituting scripting tiles ') ----- - loop: sexp - "Answer a TimesRepeatTile derived from the s-expression provided." - - | p test body whatToRepeatPart numberOfTimesToRepeatPart | - "You can think of different loops, but for current Etoys, there is only one kind." - "initial _ sexp elements detect: [:e | e keyword == #initial] ifNone: [nil]. - increment _ sexp elements detect: [:e | e keyword == #increment] ifNone: [nil]." - test _ sexp elements detect: [:e | e keyword == #test] ifNone: [nil]. - body _ sexp elements detect: [:e | e keyword == #sequence] ifNone: [nil]. - - test _ self fromSexp: test elements first. - - body _ self fromSexp: body. - p _ TimesRepeatTile new. - numberOfTimesToRepeatPart _ p numberOfTimesToRepeatPart. - numberOfTimesToRepeatPart removeAllMorphs; addMorph: test. - whatToRepeatPart _ p instVarNamed: 'whatToRepeatPart'. - body do: [:b | - whatToRepeatPart addNewRow addMorph: b. - ]. - ^ p. - ! Item was removed: - ----- Method: FunctionNameTile>>storeCodeOn:indent: (in category 'code generation') ----- - storeCodeOn: aStream indent: tabCount - "Store the receiver's code on the stream, honoring indentation." - - operatorOrExpression = #grouped - ifTrue: - [aStream nextPutAll: ' yourself'] - ifFalse: - [super storeCodeOn: aStream indent: tabCount]! Item was removed: - ----- Method: PhraseTileForTest>>setupCostume (in category 'as yet unclassified') ----- - setupCostume - - | stringMorph | - stringMorph _ StringMorph new contents: 'Test' translated. - stringMorph name: 'Test' translated. - stringMorph font: Preferences standardEToysFont. - self addMorphBack: stringMorph. - self addMorphBack: (Morph new color: color; - extent: 15 @ 5). - - stringMorph _ StringMorph new contents: 'Yes' translated. - stringMorph name: 'Yes' translated. - stringMorph font: Preferences standardEToysFont. - self addMorphBack: stringMorph. - self addMorphBack: (Morph new color: color; - extent: 15 @ 5). - - stringMorph _ StringMorph new contents: 'No' translated. - stringMorph name: 'No' translated. - stringMorph font: Preferences standardEToysFont. - self addMorphBack: stringMorph. - self addMorphBack: (Morph new color: color; - extent: 15 @ 5). - ! Item was removed: - ----- Method: SyntaxTestMethods>>altStyleTester (in category 'as yet unclassified') ----- - altStyleTester - - self doFirstThatWorks - if: [self = 1] do: [self + 1]; - if: [self = 2] do: [self + 2]; - if: [self = 3] do: [self + 3]; - if: [self = 4] do: [self + 4]; - if: [true] do: [self + 5] - - ! Item was removed: - ----- Method: ScriptEditorMorphBuilder>>specialKedamaSend:with:with: (in category 'reconstituting scripting tiles ') ----- - specialKedamaSend: sexp with: rcvr with: realSel - - | p val | - val _ self fromSexp: sexp elements third. - p _ self phraseForSpecialKedamaSend: realSel. - p justGrabbedFromViewer: false. - p submorphs first addMorph: rcvr. - p submorphs second setArgumentDefaultTo: val actualObject. - ^ p - ! Item was removed: - PhraseTileMorph subclass: #PhraseTileForTimesRepeat - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Morphic-Scripting Tiles'! - - !PhraseTileForTimesRepeat commentStamp: 'sw 12/19/2006 18:15' prior: 0! - A place-holder for a Times-Repeat complex of etoy tiles. Used in a Viewer; when the user drags one of these, he ends up with a fully-instantiated Times/Repeat complex of tiles in his hand; if he drops such a group on the desktop, a new script is created for the object associated with the Viewer in question, with the Times/Repeat as its initial contents.! Item was removed: - AlignmentMorph subclass: #PhraseWrapperMorph - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Morphic-Scripting'! - - !PhraseWrapperMorph commentStamp: '<historical>' prior: 0! - An alignment morph designed for use in scripting Viewers; it wraps a set of phrases in a category viewer, and repels attempts to drop phrases upon it.! Item was removed: - PhraseTileMorph subclass: #PhraseTileForTest - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Morphic-Scripting Tiles'! Item was removed: - ----- Method: TimesRow>>replaceSubmorph:by: (in category 'retract-arrow processing') ----- - replaceSubmorph: existingMorph by: newMorph - "Replace a submorph by a different morph. Fix up my inst vars as appropriate." - - super replaceSubmorph: existingMorph by: newMorph. - (newMorph isKindOf: TilePadMorph) - ifTrue: - [timesPad := newMorph] - ! Item was removed: - ----- Method: TimesRepeatMorph>>storeCodeOn:indent: (in category 'code generation') ----- - storeCodeOn: aStream indent: tabCount - "Store code representing the receiver on the stream, obeying the tab state." - - aStream nextPutAll: '(('. - numberOfTimesToRepeatPart submorphs - ifEmpty: - [aStream nextPutAll: '0'] - ifNotEmpty: - [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 removed: - ----- Method: ScriptingTileHolder classSide>>around: (in category 'instance creation') ----- - around: aTile - "Answer a new instance of the receiver, surrounding the given tile." - - ^ self new around: aTile! Item was removed: - ----- Method: ScriptingTileHolder>>initialize (in category 'initialization') ----- - initialize - "initialize the state of the receiver" - - super initialize. - self hResizing: #shrinkWrap; - vResizing: #shrinkWrap; - borderWidth: 3; - borderColor: Color green muchDarker; - cellInset: 0; layoutInset: 0! Item was removed: - ----- Method: PhraseTileForTimesRepeat>>initialize (in category 'initialization') ----- - initialize - "Initialize the receiver." - - super initialize. - self color: Color orange muchLighter. - self - hResizing: #shrinkWrap; - vResizing: #shrinkWrap; - borderWidth: 1; - borderColor: ScriptingSystem standardTileBorderColor. - self setupCostume - ! Item was removed: - ----- Method: ScriptingTileHolder>>localeChanged (in category 'initialization') ----- - localeChanged - - self fixLayout. - ! Item was removed: - ----- Method: TimesRepeatTile>>sexpWith: (in category 'code generation') ----- - sexpWith: dictionary - "Answer an SExpElement representing the receiver." - - | n elements e | - n _ SExpElement keyword: #loop. - n attributeAt: #type put: 'repeat'. - elements _ WriteStream on: (Array new: 3). - e _ SExpElement keyword: #initial. - e elements: (Array with: ((SExpElement keyword: #literal) attributeAt: #value put: '1'; yourself)). - elements nextPut: e. - e _ SExpElement keyword: #increment. - e elements: (Array with: ((SExpElement keyword: #literal) attributeAt: #value put: '1'; yourself)). - elements nextPut: e. - - e _ SExpElement keyword: #test. - self numberOfTimesToRepeatPart submorphs - ifEmpty: - [e elements: (Array with: ((SExpElement keyword: #literal) attributeAt: #value put: '0'; yourself))] - ifNotEmpty: - [e elements: (Array with: (self numberOfTimesToRepeatPart sexpWith: dictionary))]. - - elements nextPut: e. - - elements nextPut: (self sexpBlockFor: whatToRepeatPart with: dictionary). - n elements: elements contents. - ^ n. - - ! Item was removed: - AlignmentMorph subclass: #ViewerEntry - instanceVariableNames: 'helpPane' - classVariableNames: '' - poolDictionaries: '' - category: 'Morphic-Scripting Tiles'! Item was removed: - ----- Method: ScriptEditorMorphBuilder>>script: (in category 'reconstituting scripting tiles ') ----- - script: sexp - - | scriptName params entry morphs row isTiles code | - scriptName _ (sexp attributeAt: #scriptName) asSymbol. - params _ sexp elements select: [:e | e keyword == #parameter]. - - entry _ playerScripted class permanentUserScriptFor: scriptName asSymbol player: playerScripted. - - params _ params collect: [:e | Variable new name: (e attributeAt: #name) asSymbol type: (e attributeAt: #type) asSymbol]. - entry argumentVariables: params. - topEditor _ entry instantiatedScriptEditorForPlayer: playerScripted. - - isTiles _ (sexp attributeAt: #language ifAbsent: ['Squeak']) = 'Etoys'. - isTiles ifTrue: [ - morphs _ self fromSexp: (sexp elements detect: [:e | e keyword == #sequence] ifNone: []). - morphs do: [:e | - row _ topEditor addNewRow. - row addMorph: e. - ]. - ] ifFalse: [ - code _ (sexp elements detect: [:e | e keyword == #code]) attributeAt: #value. - playerScripted class compileSilently: code classified: 'scripts'. - topEditor userScriptObject becomeTextuallyCoded. - (topEditor submorphs copyFrom: 2 to: topEditor submorphs size) do: [:m | m delete]. - topEditor showSourceInScriptor. - ]. - - ^ entry. - ! Item was removed: - ----- Method: PhraseTileForTest>>initialize (in category 'as yet unclassified') ----- - initialize - - super initialize. - self color: Color orange muchLighter. - self - hResizing: #shrinkWrap; - vResizing: #shrinkWrap; - borderWidth: 1; - borderColor: ScriptingSystem standardTileBorderColor. - self setupCostume. - ! Item was removed: - ----- Method: FunctionTile>>tileRows (in category 'dropping/grabbing') ----- - tileRows - "Answer a list of tile rows -- in this case exactly one row -- representing the receiver." - - ^ Array with: (Array with: self)! Item was removed: - ----- Method: TimesRepeatMorph>>sexpWith: (in category 'code generation') ----- - sexpWith: dictionary - - | n elements e | - n _ SExpElement keyword: #loop. - n attributeAt: #type put: 'repeat'. - elements _ WriteStream on: (Array new: 3). - e _ SExpElement keyword: #initial. - e elements: (Array with: ((SExpElement keyword: #literal) attributeAt: #value put: '1'; yourself)). - elements nextPut: e. - e _ SExpElement keyword: #increment. - e elements: (Array with: ((SExpElement keyword: #literal) attributeAt: #value put: '1'; yourself)). - elements nextPut: e. - - e _ SExpElement keyword: #test. - numberOfTimesToRepeatPart submorphs - ifEmpty: - [e elements: (Array with: ((SExpElement keyword: #literal) attributeAt: #value put: '0'; yourself))] - ifNotEmpty: - [e elements: (Array with: (numberOfTimesToRepeatPart sexpWith: dictionary))]. - - elements nextPut: e. - - elements nextPut: (self sexpBlockFor: whatToRepeatPart with: dictionary). - n elements: elements contents. - ^ n. - - ! Item was removed: - ----- Method: ScriptingTileHolder>>handlesMouseDown: (in category 'mouse handling') ----- - handlesMouseDown: evt - "Do I want to receive mouseDown events (mouseDown:, mouseMove:, mouseUp:)?" - - ^ true! Item was removed: - ----- Method: TimesRow>>initialize (in category 'initialization') ----- - initialize - "object initialization" - - | repeatLabel | - super initialize. - self minCellSize: (2@16). - self setNameTo: 'Times'. - repeatLabel _ StringMorph contents: 'Repeat' translated font: Preferences standardEToysFont. - self addMorphBack: repeatLabel. - self vResizing: #shrinkWrap. - self addTransparentSpacerOfSize: (6@5). - - timesPad := TilePadMorph new setType: #Number. - timesPad hResizing: #shrinkWrap; color: Color transparent. - timesPad addMorphBack: (TileMorph new addArrows; setLiteral: 2; addSuffixArrow; yourself). - timesPad borderWidth: 0; layoutInset: (1@0). - - self addMorphBack: timesPad. - self addMorphBack: (StringMorph contents: (' ', ('times' translated), ' ') font: Preferences standardEToysFont). - self addMorphBack: AlignmentMorph newVariableTransparentSpacer! Item was removed: - ----- Method: ScriptingTileHolder>>around: (in category 'initialization') ----- - around: aTileScriptingElement - "Make the receiver surround the given item, either a TileMorph or a PhraseTileMorph or something like a CompoundTIleMorph." - - self removeAllMorphs. - self position: aTileScriptingElement position. - self addMorph: aTileScriptingElement. - aTileScriptingElement lock. - ! Item was removed: - AlignmentMorph subclass: #ScriptingTileHolder - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Morphic-Scripting Tiles'! - - !ScriptingTileHolder commentStamp: 'sw 6/28/2007 17:18' prior: 0! - Serves as a wrapper for a scripting-tile element that otherwise would be bare on the desktop.! Item was removed: - ----- Method: FunctionNameTile>>arrowAction: (in category 'arrows') ----- - arrowAction: delta - "Do what is appropriate when an arrow on the tile is pressed; delta will be +1 or -1" - - | index operatorList | - operatorList := self options second. - index _ (operatorList indexOf: self value) + delta. - self setOperator: (operatorList atWrap: index). - self scriptEdited. - self layoutChanged! Item was removed: - ----- Method: TimesRepeatTile>>parseNodeWith: (in category 'code generation') ----- - parseNodeWith: encoder - "Answer a MessageNode representing the receiver." - - | rec selector arg timesPart | - rec _ (timesPart := self numberOfTimesToRepeatPart) submorphs - ifEmpty: - [encoder encodeLiteral: 0] - ifNotEmpty: - [timesPart parseNodeWith: encoder]. - selector _ #timesRepeat:. - arg _ self blockNode: whatToRepeatPart with: encoder. - ^ MessageNode new - receiver: rec - selector: selector - arguments: (Array with: arg) - precedence: (selector precedence) - from: encoder - sourceRange: nil - ! Item was removed: - ----- Method: FunctionTile>>removeFunction (in category 'menu') ----- - removeFunction - "Unwrap the receiver from its contents." - - self removeFunctionWrapper - - ! Item was removed: - ----- Method: SyntaxTestMethods>>repeatExample (in category 'as yet unclassified') ----- - repeatExample - - self - repeatFor: (1 to: 50) - doing: [ :i | i + 3]! Item was removed: - ----- Method: FunctionTile>>addCustomMenuItems:hand: (in category 'menu') ----- - addCustomMenuItems: aCustomMenu hand: aHandMorph - "Add custom menu items to the menu" - - super addCustomMenuItems: aCustomMenu hand: aHandMorph. - self topEditor ifNotNil: - [aCustomMenu add: 'remove function' translated action: #removeFunctionWrapper]! Item was removed: - ----- Method: TimesRepeatMorph>>parseNodeWith: (in category 'code generation') ----- - parseNodeWith: encoder - - | rec selector arg | - rec _ numberOfTimesToRepeatPart submorphs - ifEmpty: - [encoder encodeLiteral: 0] - ifNotEmpty: - [numberOfTimesToRepeatPart parseNodeWith: encoder]. - selector _ #timesRepeat:. - arg _ self blockNode: whatToRepeatPart with: encoder. - ^ MessageNode new - receiver: rec - selector: selector - arguments: (Array with: arg) - precedence: (selector precedence) - from: encoder - sourceRange: nil. - ! Item was removed: - ----- Method: ViewerRow>>initialize (in category 'initialization') ----- - initialize - super initialize. - self layoutInset: 1! Item was removed: - ----- Method: ViewerEntry>>contentsSelection (in category 'contents') ----- - contentsSelection - "Not well understood why this needs to be here!!" - ^ 1 to: 0! Item was removed: - ----- Method: FunctionTile>>booleanComparatorPhrase (in category 'dropping/grabbing') ----- - booleanComparatorPhrase - "Answer a boolean-valued phrase derived from a retriever (e.g. 'car's heading'); this is in order to assure that tiles laid down in a TEST area will indeed produce a boolean result" - - | outerPhrase rel | - - rel := Vocabulary numberVocabulary comparatorForSampleBoolean. - outerPhrase := PhraseTileMorph new setOperator: rel type: #Boolean rcvrType: #Number argType: #Number. - outerPhrase firstSubmorph addMorph: self. - outerPhrase submorphs last addMorph: (ScriptingSystem tileForArgType: #Number). - - outerPhrase submorphs second submorphs last setBalloonText: (ScriptingSystem helpStringForOperator: rel). - ^ outerPhrase! Item was removed: - ----- Method: SyntaxTestMethods>>bobsplace:after:newLine: (in category 'as yet unclassified') ----- - bobsplace: letter after: before newLine: isNewLine - "Position this letter. Put its left edge where the previous letter's right edge is. Move down to the next line if isNewLine is true. Add some leading for condensed or expanded text." - - before isNil - ifTrue: [self selfWrittenAsIll march: letter to: leftMargin topRight] - ifFalse: - [isNewLine - ifTrue: - [self selfWrittenAsIll march: letter - to: leftMargin right @ (before bottom + 1)] - ifFalse: [self selfWrittenAsIll march: letter to: before topRight]]. - ^self! Item was removed: - ----- Method: FunctionNameTile>>options (in category 'choice of function') ----- - options - "Answer the options of the tile for an arrow" - - | aTable | - aTable := ScriptingSystem tableOfNumericFunctions reversed. - - ^ Array with: - (aTable collect: [:pr | pr first] ), #(grouped) - with: - (aTable collect: [:pr | pr second]), #(grouped)! Item was removed: - ----- Method: SyntaxTestMethods>>bobsplace2:after:newLine: (in category 'as yet unclassified') ----- - bobsplace2: letter after: before newLine: isNewLine - "Position this letter. Put its left edge where the previous letter's right edge is. Move down to the next line if isNewLine is true. Add some leading for condensed or expanded text." - - (self doFirstThatWorks) - if: [before isNil] - do: [self selfWrittenAsIll march: letter to: leftMargin topRight]; - if: [isNewLine] - do: - [self selfWrittenAsIll march: letter - to: leftMargin right @ (before bottom + 1)]; - if: [true] do: [self selfWrittenAsIll march: letter to: before topRight]! Item was removed: - TileLikeMorph subclass: #CommandTilesMorph - instanceVariableNames: 'morph playerScripted' - classVariableNames: '' - poolDictionaries: '' - category: 'Morphic-Scripting Tiles'! - - !CommandTilesMorph commentStamp: '<historical>' prior: 0! - An entire Smalltalk statement in tiles. A line of code.! Item was removed: - ----- Method: ScriptEditorMorphBuilder>>specialAssign:with: (in category 'reconstituting scripting tiles ') ----- - specialAssign: sexp with: rcvr - - | propertyName updating rhs patch p componentName | - propertyName _ (sexp attributeAt: #property) asSymbol. - updating _ sexp attributeAt: #updating ifAbsent: [nil]. - rhs _ self fromSexp: sexp elements last. - (propertyName == #patchValueIn:) ifTrue: [ - patch _ self fromSexp: sexp elements second. - - p _ PhraseTileMorph new - setPixelValueRoot: propertyName asSymbol - type: #command - rcvrType: #Player - argType: #Number - vocabulary: self currentVocabulary. - p justGrabbedFromViewer: false. - updating ifNotNil: [p submorphs second value: updating]. - p submorphs first addMorph: rcvr. - p submorphs third setType: (sexp elements last attributeAt: #type ifAbsent: [#Number]) asSymbol. - p submorphs third addMorph: rhs. - p submorphs second setPatchDefaultTo: patch actualObject. - ^ p. - ]. - (propertyName == #setRedComponentIn:) ifTrue: [componentName _ #red]. - (propertyName == #setGreenComponentIn:) ifTrue: [componentName _ #green]. - (propertyName == #setBlueComponentIn:) ifTrue: [componentName _ #blue]. - - (#(setRedComponentIn: setGreenComponentIn: setBlueComponentIn:) includes: propertyName) ifTrue: [ - patch _ self fromSexp: sexp elements second. - - p _ PhraseTileMorph new - setColorComponentRoot: propertyName - componentName: componentName - type: #command - rcvrType: #Patch - argType: #Number - vocabulary: self currentVocabulary. - p justGrabbedFromViewer: false. - updating ifNotNil: [p submorphs second value: updating]. - p submorphs first addMorph: rcvr. - p submorphs third setType: (sexp elements last attributeAt: #type ifAbsent: [#Number]) asSymbol. - p submorphs third addMorph: rhs. - p submorphs second setPatchDefaultTo: patch actualObject. - ^ p. - ]. - - ! Item was removed: - ----- Method: FunctionTile>>removeFunctionWrapper (in category 'menu') ----- - removeFunctionWrapper - "Remove the function wrapper" - - | myPad | - (owner isNil or: [owner owner isNil]) ifTrue: [^ Beeper beep]. "Not in a line of script" - myPad _ submorphs third. - owner owner replaceSubmorph: owner by: myPad. - myPad scriptEdited! Item was removed: - ----- Method: FunctionTile>>operator:pad: (in category 'initialization') ----- - operator: opSymbol pad: aTilePadMorph - "Set the operator and pad. Builds and adds the four submorphs of the receiver - function-name, left-paren, argument-pad, right-paren." - - | functionTriplet | - functionTriplet := ScriptingSystem tableOfNumericFunctions detect: [:triplet | triplet second = opSymbol]. "If none, error..." - self operator: opSymbol wording: functionTriplet first translated helpString: functionTriplet third translated pad: aTilePadMorph! Item was removed: - AlignmentMorph subclass: #ViewerRow - instanceVariableNames: 'elementSymbol' - classVariableNames: '' - poolDictionaries: '' - category: 'Morphic-Scripting Tiles'! Item was removed: - ----- Method: TimesRepeatTile>>initialize (in category 'initialization') ----- - initialize - "Fully initialize the receiver." - - | dummyColumn timesRepeatColumn repeatRow separator placeHolder doLabel ephemerum | - submorphs _ EmptyArray. - bounds _ 0@0 corner: 50@40. - self color: Color orange muchLighter. - - self layoutPolicy: TableLayout new. - self "border, and layout properties in alphabetical order..." - borderColor: self color darker; - borderWidth: 2; - cellSpacing: #none; - cellPositioning: #topLeft; - hResizing: #spaceFill; - layoutInset: 0; - listDirection: #leftToRight; - rubberBandCells: true; - vResizing: #shrinkWrap; - wrapCentering: #none. - - self setNameTo: 'Repeat Complex'. - - dummyColumn _ AlignmentMorph newColumn. - dummyColumn cellInset: 0; layoutInset: 0. - dummyColumn width: 0. - dummyColumn cellPositioning: #leftCenter. - dummyColumn hResizing: #shrinkWrap; vResizing: #spaceFill. - self addMorph: dummyColumn. - - timesRepeatColumn _ AlignmentMorph newColumn. - timesRepeatColumn setNameTo: 'Times Repeat'. - - timesRepeatColumn cellPositioning: #topLeft. - timesRepeatColumn hResizing: #spaceFill. - timesRepeatColumn vResizing: #shrinkWrap. - timesRepeatColumn layoutInset: 0. - timesRepeatColumn borderWidth: 0. - timesRepeatColumn color: Color orange muchLighter. - - timesRow _ TimesRow newRow color: color; layoutInset: 0. - timesRepeatColumn addMorphBack: timesRow. - - separator _ AlignmentMorph newRow color: Color transparent. - separator vResizing: #rigid; hResizing: #spaceFill; height: 2. - separator borderWidth: 0. - timesRepeatColumn addMorphBack: separator. - - repeatRow _ AlignmentMorph newRow color: color; layoutInset: 0. - repeatRow minCellSize: (2@16). - repeatRow setNameTo: 'Repeat '. - placeHolder _ Morph new. - placeHolder beTransparent; extent: (8@0). - repeatRow addMorphBack: placeHolder. - repeatRow vResizing: #shrinkWrap. - doLabel _ StringMorph contents: 'Do' translated font: Preferences standardEToysFont. - repeatRow addMorphBack: doLabel. - repeatRow addMorphBack: (Morph new color: color; extent: 5@5). "spacer" - repeatRow addMorphBack: (whatToRepeatPart _ ScriptEditorMorph new borderWidth: 0; layoutInset: 0). - - whatToRepeatPart hResizing: #spaceFill. - whatToRepeatPart vResizing: #shrinkWrap. - whatToRepeatPart color: Color transparent. - whatToRepeatPart setNameTo: 'Script to repeat' translated. - whatToRepeatPart addMorphBack: (ephemerum := Morph new height: 14) beTransparent. - - timesRepeatColumn addMorphBack: repeatRow. - - self addMorphBack: timesRepeatColumn. - self bounds: self fullBounds. - - ephemerum delete! Item was removed: - ----- Method: SyntaxTestMethods>>makeRandomString (in category 'as yet unclassified') ----- - makeRandomString - - | newString foo | - - newString _ String new: Goal contents size. - foo _ Goal contents size. - ^newString collect: [ :oldLetter | 'abcdefghijklmnopqrstuvwxyz' atRandom] - ! Item was removed: - ----- Method: ScriptEditorMorphBuilder>>variable: (in category 'reconstituting scripting tiles ') ----- - variable: sexp - - | p | - p _ ParameterTile new. - p scriptEditor: topEditor. - p line1: (sexp attributeAt: #type) translated. - ^ p. - ! Item was removed: - ----- Method: FunctionNameTile>>setOperator: (in category 'choice of function') ----- - setOperator: anOperatorSymbol - "The user chose an entry with the given inherent operator symbol (this may differ from what the user sees in the pop-up or on the tile." - - | aTable | - operatorOrExpression := anOperatorSymbol. - operatorOrExpression = #grouped - ifTrue: - [self line1: ' '. - self setBalloonText: 'parenthesized' translated] - ifFalse: - [aTable := ScriptingSystem tableOfNumericFunctions. - (aTable detect: [:m | m second = anOperatorSymbol] ifNone: [nil]) ifNotNilDo: - [:aTriplet | - self line1: aTriplet first translated. - self setBalloonText: aTriplet third translated]]. - self addArrows. - self scriptEdited. - self layoutChanged! Item was removed: - ----- Method: FunctionNameTile>>grouped (in category 'menu commands') ----- - grouped - "The user chose grouped from the menu. Establish the special-case null function call." - - self setOperator: #grouped! Item was removed: - ----- Method: ViewerRow>>entryType (in category 'access') ----- - entryType - "Answer one of: #systemSlot #userSlot #systemScript #userScript" - - ^ self playerBearingCode elementTypeFor: elementSymbol vocabulary: self currentVocabulary! Item was removed: - ----- 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]. - - 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 - ! Item was removed: - ----- Method: TimesRepeatMorph>>initialize (in category 'initialization') ----- - initialize - "Fully initialize the receiver." - - | dummyColumn timesRow timesRepeatColumn repeatRow separator repeatLabel placeHolder doLabel ephemerum | - submorphs _ EmptyArray. - bounds _ 0@0 corner: 50@40. - self color: Color orange muchLighter. - - self layoutPolicy: TableLayout new. - self "border, and layout properties in alphabetical order..." - borderColor: self color darker; - borderWidth: 2; - cellSpacing: #none; - cellPositioning: #topLeft; - hResizing: #spaceFill; - layoutInset: 0; - listDirection: #leftToRight; - rubberBandCells: true; - vResizing: #shrinkWrap; - wrapCentering: #none. - - self setNameTo: 'Repeat Complex'. - - dummyColumn _ AlignmentMorph newColumn. - dummyColumn cellInset: 0; layoutInset: 0. - dummyColumn width: 0. - dummyColumn cellPositioning: #leftCenter. - dummyColumn hResizing: #shrinkWrap; vResizing: #spaceFill. - self addMorph: dummyColumn. - - timesRepeatColumn _ AlignmentMorph newColumn. - timesRepeatColumn setNameTo: 'Times Repeat'. - - timesRepeatColumn cellPositioning: #topLeft. - timesRepeatColumn hResizing: #spaceFill. - timesRepeatColumn vResizing: #shrinkWrap. - timesRepeatColumn layoutInset: 0. - timesRepeatColumn borderWidth: 0. - timesRepeatColumn color: Color orange muchLighter. - - timesRow _ AlignmentMorph newRow color: color; layoutInset: 0. - timesRow minCellSize: (2@16). - timesRow setNameTo: 'Times'. - repeatLabel _ StringMorph contents: 'Repeat' translated font: Preferences standardEToysFont. - timesRow addMorphBack: repeatLabel. - timesRow vResizing: #shrinkWrap. - timesRow addMorphBack: (Morph new color: color; extent: 6@5). "spacer" - - numberOfTimesToRepeatPart := TilePadMorph new setType: #Number. - numberOfTimesToRepeatPart hResizing: #shrinkWrap; color: Color transparent. - numberOfTimesToRepeatPart addMorphBack: (TileMorph new addArrows; setLiteral: 2). - numberOfTimesToRepeatPart borderWidth: 0; layoutInset: (1@0). - - timesRow addMorphBack: numberOfTimesToRepeatPart. - timesRow addMorphBack: (StringMorph contents: ' times ' font: Preferences standardEToysFont). - timesRow addMorphBack: AlignmentMorph newVariableTransparentSpacer. - timesRepeatColumn addMorphBack: timesRow. - - separator _ AlignmentMorph newRow color: Color transparent. - separator vResizing: #rigid; hResizing: #spaceFill; height: 2. - separator borderWidth: 0. - timesRepeatColumn addMorphBack: separator. - - repeatRow _ AlignmentMorph newRow color: color; layoutInset: 0. - repeatRow minCellSize: (2@16). - repeatRow setNameTo: 'Repeat '. - placeHolder _ Morph new. - placeHolder beTransparent; extent: (8@0). - repeatRow addMorphBack: placeHolder. - repeatRow vResizing: #shrinkWrap. - doLabel _ StringMorph contents: 'Do' font: Preferences standardEToysFont. - repeatRow addMorphBack: doLabel. - repeatRow addMorphBack: (Morph new color: color; extent: 5@5). "spacer" - repeatRow addMorphBack: (whatToRepeatPart _ ScriptEditorMorph new borderWidth: 0; layoutInset: 0). - - whatToRepeatPart hResizing: #spaceFill. - whatToRepeatPart vResizing: #shrinkWrap. - whatToRepeatPart color: Color transparent. - whatToRepeatPart setNameTo: 'Script to repeat'. - whatToRepeatPart addMorphBack: (ephemerum := Morph new height: 14) beTransparent. - - timesRepeatColumn addMorphBack: repeatRow. - - self addMorphBack: timesRepeatColumn. - self bounds: self fullBounds. - - ephemerum delete! Item was removed: - ----- Method: ScriptEditorMorphBuilder>>sequence: (in category 'reconstituting scripting tiles ') ----- - sequence: sexp - - ^ sexp elements collect: [:elem | - self fromSexp: elem. - ]. - ! Item was removed: - ----- Method: PhraseWrapperMorph classSide>>includeInNewMorphMenu (in category 'new-morph participation') ----- - includeInNewMorphMenu - "Not to be instantiated from the menu" - ^ false! Item was removed: - ----- Method: ScriptEditorMorphBuilder classSide>>context:playerScripted:topEditor: (in category 'as yet unclassified') ----- - context: c playerScripted: p topEditor: t - - ^ self new context: c playerScripted: p topEditor: t - ! Item was removed: - ----- Method: ViewerRow>>elementSymbol: (in category 'access') ----- - elementSymbol: aSymbol - elementSymbol _ aSymbol! Item was removed: - ----- Method: ViewerRow>>playerBearingCode (in category 'access') ----- - playerBearingCode - ^ owner playerBearingCode! Item was removed: - ----- Method: ViewerEntry>>contents:notifying: (in category 'contents') ----- - contents: c notifying: k - "later, spruce this up so that it can accept input such as new method source" - | info | - (info _ self userSlotInformation) - ifNotNil: - [info documentation: c. - ^ true]. - Beeper beep. - ^ false! Item was removed: - ----- Method: CommandTilesMorph>>setMorph: (in category 'initialization') ----- - setMorph: aMorph - playerScripted _ aMorph playerScripted - ! Item was removed: - ----- Method: ScriptEditorMorphBuilder>>phraseForSpecialKedamaSend: (in category 'reconstituting scripting tiles ') ----- - phraseForSpecialKedamaSend: realSel - - realSel == #getPatchValueIn: ifTrue: [ - ^ PhraseTileMorph new setGetPixelOperator: realSel type: #Number rcvrType: #Player argType: #Patch. - ]. - realSel == #getAngleTo: ifTrue: [ - ^ PhraseTileMorph new setAngleToOperator: realSel type: #Number rcvrType: #Player argType: #Player. - ]. - realSel == #bounceOn: ifTrue: [ - ^ PhraseTileMorph new setBounceOnOperator: realSel type: #Boolean rcvrType: #Player argType: #Player. - ]. - realSel == #getDistanceTo: ifTrue: [ - ^ PhraseTileMorph new setDistanceToOperator: realSel type: #Number rcvrType: #Player argType: #Player - ]. - realSel == #getTurtleOf: ifTrue: [ - ^ PhraseTileMorph new setTurtleOfOperator: realSel type: #Player rcvrType: #Player argType: #Player - ]. - realSel == #getUphillIn: ifTrue: [ - ^ PhraseTileMorph new setUpHillOperator: realSel type: #Number rcvrType: #Player argType: #Player - ]. - realSel == #getRedComponentIn: ifTrue: [ - ^ PhraseTileMorph new setGetColorComponentOperator: realSel componentName: #red type: #Number rcvrType: #Player argType: #Patch - ]. - realSel == #getGreenComponentIn: ifTrue: [ - ^ PhraseTileMorph new setGetColorComponentOperator: realSel componentName: #green type: #Number rcvrType: #Player argType: #Patch - ]. - realSel == #getBlueComponentIn: ifTrue: [ - ^ PhraseTileMorph new setGetColorComponentOperator: realSel componentName: #blue type: #Number rcvrType: #Player argType: #Patch - ]. - - ^ nil. - ! Item was removed: - ----- Method: ViewerEntry>>initialize (in category 'initialization') ----- - initialize - "initialize the state of the receiver" - super initialize. - "" - self layoutInset: 0! Item was removed: - ----- Method: PhraseTileForTimesRepeat>>addCommandFeedback: (in category 'hilighting') ----- - addCommandFeedback: evt - "Add screen feedback showing what would be torn off in a drag" - - | aMorph rect | - (self owner owner isMemberOf: PhraseTileMorph) ifTrue: [self owner owner addCommandFeedback: evt. ^ self]. - 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 removed: - Object subclass: #ScriptEditorMorphBuilder - instanceVariableNames: 'context playerScripted topEditor' - classVariableNames: '' - poolDictionaries: '' - category: 'Morphic-Scripting'! Item was removed: - ----- Method: ScriptEditorMorphBuilder>>assign: (in category 'reconstituting scripting tiles ') ----- - assign: sexp - - | rcvr propertyName updating rhs p | - rcvr _ self fromSexp: sexp elements first. - - propertyName _ sexp attributeAt: #property ifAbsent: [self error: '']. - propertyName _ propertyName asSymbol. - (#(patchValueIn: setRedComponentIn: setGreenComponentIn: setBlueComponentIn:) includes: propertyName) ifTrue: [ - ^ self specialAssign: sexp with: rcvr. - ]. - - updating _ sexp attributeAt: #updating ifAbsent: [nil]. - rhs _ self fromSexp: sexp elements last. - - p _ PhraseTileMorph new - setAssignmentRoot: propertyName asSymbol - type: #command - rcvrType: #Player - argType: (sexp attributeAt: #type ifAbsent: [#Number]) asSymbol - vocabulary: self currentVocabulary. - p justGrabbedFromViewer: false. - updating ifNotNil: [p submorphs second value: updating]. - p submorphs first addMorph: rcvr. - p submorphs third setType: (sexp elements last attributeAt: #type ifAbsent: [#Number]) asSymbol. - p submorphs third addMorph: rhs. - (rhs resultType == #Number and: [rhs isMemberOf: TileMorph]) ifTrue: [ - rhs addSuffixArrow. - ]. - - ^ p. - ! Item was removed: - ----- Method: ScriptEditorMorphBuilder>>topEditor (in category 'e-toy support') ----- - topEditor - - ^ topEditor. - ! Item was removed: - TileMorph subclass: #FunctionNameTile - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Morphic-Scripting Tiles'! - - !FunctionNameTile commentStamp: 'sw 6/9/2007 22:25' prior: 0! - An operator tile holding the name of a function; used in conjunction with a FunctionTile which is always its owner.! Item was removed: - ----- Method: PhraseTileForTest>>addCommandFeedback: (in category 'as yet unclassified') ----- - addCommandFeedback: evt - "Add screen feedback showing what would be torn off in a drag" - - | aMorph rect | - (self owner owner isMemberOf: PhraseTileMorph) ifTrue: [self owner owner addCommandFeedback: evt. ^ self]. - 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 removed: - PasteUpMorph subclass: #SyntaxTestMethods - instanceVariableNames: 'letterActors wild leftMargin rightMargin switch current jumpSwitch hotIndex' - classVariableNames: 'Goal' - poolDictionaries: '' - category: 'Morphic-Tile Scriptors'! Item was removed: - ----- Method: FunctionTile>>storeCodeOn:indent: (in category 'code generation') ----- - storeCodeOn: aStream indent: tabCount - "Store the receiver's code on the stream, honoring indentation." - - aStream nextPut: $(. - aStream space. - argumentPad storeCodeOn: aStream indent: tabCount. - aStream nextPut: $). - aStream space. - functionNameTile storeCodeOn: aStream indent: tabCount! Item was removed: - ----- Method: ScriptEditorMorphBuilder>>fromSexp: (in category 'initialization') ----- - fromSexp: sexp - - ^ self perform: (sexp keyword copyWith: $:) asSymbol with: sexp. - ! Item was removed: - ----- Method: CommandTilesMorph>>initialize (in category 'initialization') ----- - initialize - - super initialize. - self wrapCentering: #center; cellPositioning: #leftCenter. - self hResizing: #shrinkWrap. - borderWidth _ 0. - self layoutInset: 0. - self extent: 5@5. "will grow to fit" - ! Item was removed: - ----- Method: FunctionTile>>kedamaParseNodeWith:actualObject: (in category 'code generation') ----- - kedamaParseNodeWith: encoder actualObject: obj - - | ret arg | - arg _ submorphs third parseNodeWith: encoder. - ret _ MessageNode new - receiver: (encoder encodePlayer: obj) - selector: #random: - arguments: (Array with: arg) - precedence: (#random: precedence) - from: encoder - sourceRange: nil. - ^ self convertPrecedenceOfArgsInParseNode: ret with: encoder. - ! Item was removed: - ----- Method: FunctionTile>>sexpWith: (in category 'code generation') ----- - sexpWith: dictionary - | n elements sel | - sel _ submorphs first operatorOrExpression. - n _ SExpElement keyword: #send. - n attributeAt: #type put: ((owner isMemberOf: TilePadMorph) ifTrue: [owner type] ifFalse: ['Number']). - elements _ Array with: ((SExpElement keyword: #selector) - attributeAt: #selector put: sel; yourself) - with: (argumentPad sexpWith: dictionary). - n elements: elements. - ^ n. - !

1 0

Waveplace Call For Mentors
by Timothy Falconer 12 May '10

12 May '10

WAVEPLACE CALL FOR MENTORS For three years, Waveplace mentors have taught children and adults throughout Haiti and the Caribbean. This summer, help us reach the world. http://www.youtube.com/watch?v=Cze4ha2ioN8 Space still available for the: Waveplace Mentor Workshop May 24th to June 2nd, 2010 St John, US Virgin Islands Airfare, food, and $500 gets you lodging and training for ten days. Just steps from the beach. (Roundtrip from Newark is still $360) You may also attend the concurrent four day OLPC Realness Summit (May 28-31), with speakers from five continents and the Caribbean with deep experience using OLPC XOs with children. LEARN MORE AND REGISTER AT: http://realness.org -- Timothy Falconer Waveplace Foundation http://waveplace.org + 1 610 624 3760

1 0

Translation support
by Ricardo Moran 12 May '10

12 May '10

Hi guys, I uploaded to the inbox the changes I made to the translation framework. After loading that, you can use the following code to split the text domains using the package criteria and export a template: ================= domains := Dictionary new. "Count tile phrases" GetTextExporter2 new appendVocabularies: domains. "Count tile phrases" GetTextExporter2 new appendStringReceivers: #translated into: domains; appendStringReceivers: #translatedNoop into: domains. phrases := Set new. domains do: [:domain | domain do: [:translations | translations do: [:each | phrases add: each]]]. packages := Set new. phrases do: [:each| | package | package := PackageOrganizer default packageOfMethod: each ifNone: []. package notNil ifTrue: [packages add: package]]. TextDomainManager initialize. packages collect: [:each | each name] thenDo: [: packageName | TextDomainManager registerPackage: packageName domain: packageName]. GetTextExporter2 exportTemplate. ================== I plan to upload this script to the update stream using the config map (as Bert suggested) but since I don't know how to do it yet I'm simply sending it to you for now. Please tell me if what I'm doing is correct. Thanks in advance, Richo

3 4

Special cases to decide translation domain
by Korakurider 11 May '10

11 May '10

Hi there. With Ricardo's great work we are thinking to split translation domains based on package that method belongs to. This seems basically good, but there are cases we should look into carefully: How do you think? (1) sugar activity based on etoys. Old examples are Karl's FreeCell and Bert's DiceWars and Stef's BotInc that I experimented L10n. The code is just a changeset dynamically loaded on startup of the activity. In initialization code register mapping to TextDomain dynamically. (You could review Current DrGeoII that is localized by this scheme) Old legacy TextDomainManager works well for this purpose. I think that stuff will be still needed even if we implement splitting of text domain based on package. (2) #translatedNoop sent and #translated in different place (package) Example: wordings and help message for tiles are declared in each morph's slot definition code. (WsWorldSthethoscopeMorph>>(class)additionsToViewerCategories for instances) Strings for tiles that belongs various package will be translated in some central place. So #translated can't decide correct text domain based on sender's method property. There are about 200-300 instances that we will need to review. /Korakurider

2 3

Etoys Inbox: System-Richo.11.mcz
by commits＠source.squeak.org 11 May '10

11 May '10

A new version of System was added to project Etoys Inbox: http://source.squeak.org/etoysinbox/System-Richo.11.mcz ==================== Summary ==================== Name: System-Richo.11 Author: Richo Time: 11 May 2010, 1:54:09 pm UUID: 1c9c54b3-7638-e440-9f84-e5f87ed38faa Ancestors: System-Richo.10 * Modified TextDomainManager class>>#initialize to use 'Etoys' as the default domain (I changed this before as part of an experiment). I don't know if this is correct, though. AFAIK the only reason to use the default domain would be if a method doesn't belong to any package. In that case, would be desirable to use 'Etoys' as text domain? =============== Diff against System-Richo.10 =============== Item was changed: ----- Method: TextDomainManager classSide>>initialize (in category 'class initialization') ----- initialize " TextDomainManager initialize " ClassCategories _ IdentityDictionary new. Classes _ IdentityDictionary new. Packages := Dictionary new. DomainInfos _ Dictionary new. + self defaultDomain: 'Etoys'. - self defaultDomain: 'others'. "self registerClass: #QuickGuideMorph domain: 'quickguides'. self registerClass: #QuickGuideHolderMorph domain: 'quickguides'."!

1 0

Etoys Inbox: Multilingual-Richo.3.mcz
by commits＠source.squeak.org 11 May '10

11 May '10

A new version of Multilingual was added to project Etoys Inbox: http://source.squeak.org/etoysinbox/Multilingual-Richo.3.mcz ==================== Summary ==================== Name: Multilingual-Richo.3 Author: Richo Time: 11 May 2010, 1:50:33 pm UUID: 3e9d334f-0127-9149-a82b-c9961c684ecc Ancestors: Multilingual-Richo.2 * Modified GetTextExporter2>>#appendStringReceivers:into: to use the default domain if a method that doesn't belong to any package was found. The only case I found is in Player150132>>#setVersion which is a script in the "Home" project that sets the current version in the text inside the "About" flap. =============== Diff against Multilingual-Richo.2 =============== Item was changed: ----- Method: GetTextExporter2>>appendStringReceivers:into: (in category 'private') ----- appendStringReceivers: aSymbol into: domains | literals references domainName methodReference keywords found | found := TranslatedReceiverFinder new stringReceiversWithContext: aSymbol. found do: [ :assoc | methodReference := assoc key. keywords := assoc value. domainName _ self getTextDomainForPackage: + (PackageOrganizer default packageOfMethod: methodReference ifNone: [TextDomainManager defaultDomain]). - (PackageOrganizer default packageOfMethod: methodReference). literals _ domains at: domainName ifAbsentPut: [Dictionary new]. keywords do: [ :literal | references _ literals at: literal ifAbsentPut: [OrderedCollection new]. references add: methodReference. ]. ]. !

1 0

Re: [etoys-dev] Etoys: MorphicExtras-bf.2.mcz
by Ricardo Moran 11 May '10

11 May '10

This was causing the misterious error? A comma instead of a dot? + {#SelectorBrowser. #prototypicalToolWindow. 'Method Finder' translatedNoop. 'A tool for discovering methods by providing sample values for arguments and results' translatedNoop}. - {#SelectorBrowser, #prototypicalToolWindow. 'Method Finder' translatedNoop. 'A tool for discovering methods by providing sample values for arguments and results' translatedNoop}. Anyway, I'm glad this is fixed now. :) Thanks. Richo On Tue, May 11, 2010 at 3:39 AM, <commits(a)source.squeak.org> wrote: > Bert Freudenberg uploaded a new version of MorphicExtras to project Etoys: > http://source.squeak.org/etoys/MorphicExtras-bf.2.mcz > > ==================== Summary ==================== > > Name: MorphicExtras-bf.2 > Author: bf > Time: 10 May 2010, 11:39:07 pm > UUID: 427f8af3-9118-4a7b-a75f-b811d5a16cdd > Ancestors: MorphicExtras-bf.1 > > - remove Celeste and Scamper from Tools flap > > =============== Diff against MorphicExtras-bf.1 =============== > > Item was changed: > ----- Method: Flaps class>>defaultsQuadsDefiningToolsFlap (in category > 'flaps registry') ----- > defaultsQuadsDefiningToolsFlap > "Answer a structure defining the default Tools flap. > previously in quadsDefiningToolsFlap" > > ^ OrderedCollection new > addAll: { > {#Browser. #prototypicalToolWindow. 'Browser' > translatedNoop. 'A Browser is a tool that allows you to view all the > code of all the classes in the system' translatedNoop}. > {#TranscriptStream. #openMorphicTranscript. > 'Transcript' translatedNoop. 'A Transcript is a window usable for > logging and debugging; browse references to #Transcript for examples of how > to write to it.' translatedNoop}. > {#Workspace. #prototypicalToolWindow . 'Workspace' > translatedNoop. 'A Workspace is a simple window for editing > text. You can later save the contents to a file if you desire.' > translatedNoop}}; > add: { Preferences useFileList2 ifTrue: [ #FileList2 ] > ifFalse: [ #FileList ]. > #prototypicalToolWindow. > 'File List' translatedNoop. > 'A File List is a tool for browsing folders > and files on disks and FTP servers.' translatedNoop }; > addAll: { > {#DualChangeSorter. #prototypicalToolWindow. > 'Change Sorter' translatedNoop. 'Shows two change sets side by side' > translatedNoop}. > + {#SelectorBrowser. #prototypicalToolWindow. > 'Method Finder' translatedNoop. 'A tool for discovering methods by > providing sample values for arguments and results' translatedNoop}. > - {#SelectorBrowser, #prototypicalToolWindow. > 'Method Finder' translatedNoop. 'A tool for discovering methods by > providing sample values for arguments and results' translatedNoop}. > {#MessageNames . #prototypicalToolWindow . 'Message > Names' translatedNoop. 'A tool for finding, viewing, and editing all > methods whose names contain a given character sequence.' translatedNoop}. > {#Preferences. #preferencesControlPanel. > 'Preferences' translatedNoop. 'Allows you to control numerous > options' translatedNoop}. > {#Utilities. #recentSubmissionsWindow. > 'Recent' translatedNoop. 'A message browser > that tracks the most recently-submitted methods' translatedNoop}. > {#ProcessBrowser. #prototypicalToolWindow. 'Processes' > translatedNoop. 'A Process Browser shows you all the running > processes' translatedNoop}. > {#Preferences. #annotationEditingWindow. > 'Annotations' translatedNoop. 'Allows you to specify the annotations to be > shown in the annotation panes of browsers, etc.' translatedNoop}. > - {#Scamper. #newOpenableMorph. 'Scamper' > translatedNoop. 'A web browser' translatedNoop}. > - {#Celeste. #newOpenableMorph. 'Celeste' > translatedNoop. 'Celeste -- an EMail reader' > translatedNoop}. > {#PackagePaneBrowser. #prototypicalToolWindow . 'Packages' > translatedNoop. 'Package Browser: like a System Browser, except that > if has extra level of categorization in the top-left pane, such that > class-categories are further organized into groups called "packages"' > translatedNoop}. > {#ChangeSorter. #prototypicalToolWindow. 'Change Set' > translatedNoop. 'A tool that allows you to view and manipulate > all the code changes in a single change set' translatedNoop}}; > yourself! > > _______________________________________________ > etoys-dev mailing list > etoys-dev(a)squeakland.org > http://lists.squeakland.org/mailman/listinfo/etoys-dev >

2 2

Etoys: MorphicExtras-bf.2.mcz
by commits＠source.squeak.org 11 May '10

11 May '10

Bert Freudenberg uploaded a new version of MorphicExtras to project Etoys: http://source.squeak.org/etoys/MorphicExtras-bf.2.mcz ==================== Summary ==================== Name: MorphicExtras-bf.2 Author: bf Time: 10 May 2010, 11:39:07 pm UUID: 427f8af3-9118-4a7b-a75f-b811d5a16cdd Ancestors: MorphicExtras-bf.1 - remove Celeste and Scamper from Tools flap =============== Diff against MorphicExtras-bf.1 =============== Item was changed: ----- Method: Flaps class>>defaultsQuadsDefiningToolsFlap (in category 'flaps registry') ----- defaultsQuadsDefiningToolsFlap "Answer a structure defining the default Tools flap. previously in quadsDefiningToolsFlap" ^ OrderedCollection new addAll: { {#Browser. #prototypicalToolWindow. 'Browser' translatedNoop. 'A Browser is a tool that allows you to view all the code of all the classes in the system' translatedNoop}. {#TranscriptStream. #openMorphicTranscript. 'Transcript' translatedNoop. 'A Transcript is a window usable for logging and debugging; browse references to #Transcript for examples of how to write to it.' translatedNoop}. {#Workspace. #prototypicalToolWindow . 'Workspace' translatedNoop. 'A Workspace is a simple window for editing text. You can later save the contents to a file if you desire.' translatedNoop}}; add: { Preferences useFileList2 ifTrue: [ #FileList2 ] ifFalse: [ #FileList ]. #prototypicalToolWindow. 'File List' translatedNoop. 'A File List is a tool for browsing folders and files on disks and FTP servers.' translatedNoop }; addAll: { {#DualChangeSorter. #prototypicalToolWindow. 'Change Sorter' translatedNoop. 'Shows two change sets side by side' translatedNoop}. + {#SelectorBrowser. #prototypicalToolWindow. 'Method Finder' translatedNoop. 'A tool for discovering methods by providing sample values for arguments and results' translatedNoop}. - {#SelectorBrowser, #prototypicalToolWindow. 'Method Finder' translatedNoop. 'A tool for discovering methods by providing sample values for arguments and results' translatedNoop}. {#MessageNames . #prototypicalToolWindow . 'Message Names' translatedNoop. 'A tool for finding, viewing, and editing all methods whose names contain a given character sequence.' translatedNoop}. {#Preferences. #preferencesControlPanel. 'Preferences' translatedNoop. 'Allows you to control numerous options' translatedNoop}. {#Utilities. #recentSubmissionsWindow. 'Recent' translatedNoop. 'A message browser that tracks the most recently-submitted methods' translatedNoop}. {#ProcessBrowser. #prototypicalToolWindow. 'Processes' translatedNoop. 'A Process Browser shows you all the running processes' translatedNoop}. {#Preferences. #annotationEditingWindow. 'Annotations' translatedNoop. 'Allows you to specify the annotations to be shown in the annotation panes of browsers, etc.' translatedNoop}. - {#Scamper. #newOpenableMorph. 'Scamper' translatedNoop. 'A web browser' translatedNoop}. - {#Celeste. #newOpenableMorph. 'Celeste' translatedNoop. 'Celeste -- an EMail reader' translatedNoop}. {#PackagePaneBrowser. #prototypicalToolWindow . 'Packages' translatedNoop. 'Package Browser: like a System Browser, except that if has extra level of categorization in the top-left pane, such that class-categories are further organized into groups called "packages"' translatedNoop}. {#ChangeSorter. #prototypicalToolWindow. 'Change Set' translatedNoop. 'A tool that allows you to view and manipulate all the code changes in a single change set' translatedNoop}}; yourself!

1 0

← Newer
1
...
12
13
14
15
16
17
18
19
20
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

etoys-dev May 2010