Packages September 2016

packages@lists.squeakfoundation.org

1 participants
72 discussions

The Trunk: EToys-tfel.246.mcz
by commits＠source.squeak.org 23 Sep '16

23 Sep '16

Tim Felgentreff uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-tfel.246.mcz ==================== Summary ==================== Name: EToys-tfel.246 Author: tfel Time: 23 September 2016, 1:43:43.492418 pm UUID: 4adda244-96f0-8d44-a558-de9db4c3bc22 Ancestors: EToys-tfel.245 - hide uniclasses from the system, so they are collected when their players go away - fix editing and saving player scripts that refer to other players by name =============== Diff against EToys-tfel.245 =============== Item was changed: ----- Method: KedamaExamplerPlayer>>copyAllMethodsAgain2 (in category '*Etoys-Squeakland-debug support') ----- copyAllMethodsAgain2 | c result | c := turtles class. result := (ClassBuilder new) name: c name inEnvironment: c environment subclassOf: c superclass type: c typeOfClass instanceVariableNames: KedamaTurtleVectorPlayer2 instanceVariablesString classVariableNames: KedamaTurtleVectorPlayer2 classVariablesString poolDictionaries: KedamaTurtleVectorPlayer2 sharedPoolsString category: Object categoryForUniclasses. turtles class copyAllCategoriesUnobtrusivelyFrom: KedamaTurtleVectorPlayer2. sequentialStub ifNotNil: [sequentialStub class copyAllCategoriesUnobtrusivelyFrom: KedamaSequenceExecutionStub]. + self flag: #todo. self flag: #uniclasses. "Discuss if we really want to hide uniclasses again" + result environment forgetClass: result logged: false. + c superclass removeSubclass: result. ! Item was changed: ----- Method: Player class>>setNewInstVarNames: (in category 'user-defined inst vars') ----- setNewInstVarNames: listOfStrings "Make listOfStrings be the new list of instance variable names for the receiver" | disappearing firstAppearing instVarString instVarList | instVarList := self instVarNames asOrderedCollection. disappearing := instVarList copy. disappearing removeAllFoundIn: listOfStrings. disappearing do: [:oldName | self removeAccessorsFor: oldName]. firstAppearing := listOfStrings copy. firstAppearing removeAllFoundIn: instVarList. instVarString := String streamContents: [:aStream | listOfStrings do: [:aString | aStream nextPutAll: aString; nextPut: $ ]]. superclass subclass: self name instanceVariableNames: instVarString classVariableNames: '' poolDictionaries: '' category: self categoryForUniclasses. + self flag: #todo. self flag: #uniclasses. "Discuss if we really want to hide uniclasses again" + self environment forgetClass: self logged: false. + superclass removeSubclass: self. firstAppearing do: [:newName | self compileAccessorsFor: newName]. ! Item was added: + ----- Method: ScriptEncoder>>init:notifying: (in category 'as yet unclassified') ----- + init: class notifying: parser + + super init: class notifying: parser. + self referenceObject: ActiveWorld referenceWorld.! Item was added: + ----- Method: ScriptParser>>encoder (in category 'public access') ----- + encoder + ^encoder ifNil: + [encoder := ScriptEncoder new]!

1 0

The Trunk: EToys-tfel.245.mcz
by commits＠source.squeak.org 23 Sep '16

23 Sep '16

Tim Felgentreff uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-tfel.245.mcz ==================== Summary ==================== Name: EToys-tfel.245 Author: tfel Time: 23 September 2016, 11:19:04.516418 am UUID: fb4ca44e-d52b-f74f-ac74-e136cc4f9bb9 Ancestors: EToys-tfel.244 remove haltOnce. I should check for slips before committing =============== Diff against EToys-tfel.244 =============== Item was changed: ----- Method: TileMorph>>showPopArrows (in category '*Etoys-Squeakland-arrows popup') ----- showPopArrows | vpanel hpanel | Preferences usePopUpArrows ifFalse: [^ self]. self hidePopArrows. self isPopArrowNeeded ifFalse: [^ self]. - 1 haltOnce. vpanel := self buildVPopArrows. hpanel := self buildHPopArrows. self activeHand setProperty: #popArrows toValue: {self. vpanel. hpanel}. self layoutChanged!

1 0

The Trunk: EToys-tfel.244.mcz
by commits＠source.squeak.org 23 Sep '16

23 Sep '16

Tim Felgentreff uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-tfel.244.mcz ==================== Summary ==================== Name: EToys-tfel.244 Author: tfel Time: 23 September 2016, 11:14:39.343418 am UUID: 92cd544d-1e83-614e-a7e5-62b8d4215044 Ancestors: EToys-tfel.243 - move the BookMorph>>storeAsDataStream methods to SISS - when editing the Kedama drawing, don't include the patch in the painting, only the turtles (this way we can now e.g. pause the forest fire, erase some trees to create a firebreak, and then continue running the fire :)) - re-add the code from Squeakland to draw large arrows on mouse over =============== Diff against EToys-tfel.243 =============== Item was removed: - ----- Method: BookMorph>>storeAsDataStream (in category '*Etoys-Squeakland-fileIn/out') ----- - storeAsDataStream - - self storeAsDataStreamNamed: Project current name, '.sexp.data.gz'.! Item was removed: - ----- Method: BookMorph>>storeAsDataStreamNamed: (in category '*Etoys-Squeakland-fileIn/out') ----- - storeAsDataStreamNamed: zippedFileName - - | f d bytes zipped | - bytes := WriteStream on: ByteArray new. - d := DataStream on: bytes. - d nextPut: self pagesAndColorInSISSFormat. - d close. - f := FileStream newFileNamed: zippedFileName. - f binary; setFileTypeToObject. - zipped := GZipWriteStream on: f. - zipped nextPutAll: bytes contents. - zipped close. - f close - ! Item was changed: ----- Method: KedamaMorph>>editDrawing (in category 'menu') ----- editDrawing + | bnds sketchEditor delBlock myForm mySketch canvas | - | bnds sketchEditor delBlock myForm mySketch | self world assureNotPaintingElse: [^self]. self world prepareToPaint; displayWorld. bnds := self boundsInWorld. sketchEditor := SketchEditorMorph new. self comeToFront. + canvas := Display defaultCanvasClass extent: self fullBounds extent depth: 32. + canvas fillRectangle: (self bounds) color: self color. + patchVarDisplayForm fillColor: self color. + self drawTurtlesOnForm: patchVarDisplayForm. + pixelsPerPatch = 1 + ifTrue: [canvas drawImage: patchVarDisplayForm at: 0@0] + ifFalse: [canvas warpImage: patchVarDisplayForm transform: (MatrixTransform2x3 withScale: pixelsPerPatch) at: 0@0]. + myForm := canvas form. - myForm := self imageForm clippedToSize: (bnds extent - 2). myForm mapColor: self color to: Color transparent. mySketch := SketchMorph withForm: myForm. mySketch position: self position. self world addMorphFront: sketchEditor. sketchEditor initializeFor: mySketch inBounds: bnds pasteUpMorph: self world. delBlock := [self world paintingFlapTab ifNotNil: [:pt | pt hideFlap] ifNil: [self world paintBox ifNotNil: [:pb | pb delete]]]. sketchEditor afterNewPicDo: [:aForm :aRect | aForm offset: aRect topLeft - self topLeft. self acceptFormFromDrawing: aForm. delBlock value] ifNoBits: [delBlock value]! Item was changed: + ----- Method: TileMorph>>fixLayoutOfSubmorphsNotIn: (in category 'layout') ----- - ----- Method: TileMorph>>fixLayoutOfSubmorphsNotIn: (in category 'as yet unclassified') ----- fixLayoutOfSubmorphsNotIn: aCollection self allMorphsDo: [:m | (aCollection includes: m) ifFalse: [(m respondsTo: #fixLayoutOfSubmorphsNotIn:) ifTrue: [m ~~ self ifTrue: [m fixLayoutOfSubmorphsNotIn: aCollection]] ifFalse: [m layoutChanged]. aCollection add: m]]. self layoutChanged; fullBounds! Item was added: + ----- Method: TileMorph>>handlesMouseOver: (in category 'event handling') ----- + handlesMouseOver: evt + ^ self isPopArrowNeeded + or: [^super handlesMouseOver: evt]! Item was added: + ----- Method: TileMorph>>layoutChanged (in category 'layout') ----- + layoutChanged + | vpanel hpanel popArrows | + super layoutChanged. + self labelMorph + ifNil: [^ self]. + popArrows := self activeHand ifNil: [^ self] ifNotNilDo: [:ac | + ac valueOfProperty: #popArrows + ifAbsent: [^ self]]. + popArrows first == self + ifFalse: [^ self]. + vpanel := popArrows second. + hpanel := popArrows third. + vpanel + ifNotNil: [vpanel openInWorld. + vpanel center: self labelMorph center. + vpanel right: self labelMorph left - 2]. + hpanel + ifNotNil: [hpanel openInWorld. + hpanel center: self labelMorph center. + hpanel left: self labelMorph right + 2]! Item was added: + ----- Method: TileMorph>>morphToDropInPasteUp: (in category 'event handling') ----- + morphToDropInPasteUp: aPasteUp + "Answer the morph to drop in aPasteUp, given that the receiver is the putative droppee" + + ^ ScriptingTileHolder around: self! Item was added: + ----- Method: TileMorph>>mouseEnter: (in category 'event handling') ----- + mouseEnter: evt + + super mouseEnter:evt. + ^self showPopArrows! Item was added: + ----- Method: TileMorph>>mouseLeave: (in category 'event handling') ----- + mouseLeave: evt + "When the mouse is leaving and next object is not a pop arrow, remove + pop arrows." + | popArrows vpanel hpanel | + popArrows := evt hand + valueOfProperty: #popArrows + ifAbsent: [^super mouseLeave: evt]. + vpanel := popArrows second. + hpanel := popArrows third. + (vpanel notNil + and: [vpanel containsPoint: evt position]) + ifTrue: [^super mouseLeave: evt]. + (hpanel notNil + and: [hpanel containsPoint: evt position]) + ifTrue: [^super mouseLeave: evt]. + self hidePopArrows. + ^super mouseLeave: evt! Item was changed: ----- Method: TileMorph>>showPopArrows (in category '*Etoys-Squeakland-arrows popup') ----- showPopArrows | vpanel hpanel | Preferences usePopUpArrows ifFalse: [^ self]. self hidePopArrows. self isPopArrowNeeded ifFalse: [^ self]. + 1 haltOnce. vpanel := self buildVPopArrows. hpanel := self buildHPopArrows. self activeHand setProperty: #popArrows toValue: {self. vpanel. hpanel}. self layoutChanged!

1 0

The Trunk: EToys-tfel.243.mcz
by commits＠source.squeak.org 22 Sep '16

22 Sep '16

Tim Felgentreff uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-tfel.243.mcz ==================== Summary ==================== Name: EToys-tfel.243 Author: tfel Time: 22 September 2016, 5:37:19.089089 pm UUID: 5d05775b-7045-8c40-a02b-c8598754751b Ancestors: EToys-jl.242 - improve the kedama morph accepting a drawing to be more stable - don't show the step-button for kedama scripts, because it doesn't work - allowEtoyUserCustomEvents preference was removed =============== Diff against EToys-jl.242 =============== Item was added: + ----- Method: KedamaMorph>>acceptFormFromDrawing: (in category 'event handling') ----- + acceptFormFromDrawing: largeForm + + | aForm c xArray yArray colorArray newX newY turtlesByColor colorArrays thisPlayer xArrays yArrays | + turtlesDict keysAndValuesDo: [:player :vector | + player setTurtleCount: 0]. + turtlesByColor := Dictionary new. + turtlesDict keysAndValuesDo: [:player :vector | + turtlesByColor at: player color put: player]. + xArrays := Dictionary new. + yArrays := Dictionary new. + colorArrays := Dictionary new. + aForm := largeForm scaledToSize: (largeForm extent / pixelsPerPatch) rounded smoothing: 1. + aForm offset: (largeForm offset / self pixelsPerPatch) rounded. + 0 to: aForm height do: [:y | + 0 to: aForm width do: [:x | + c := aForm colorAt: (x@y). + c isTransparent ifFalse: [ + newX := x + aForm offset x. + newY := y + aForm offset y. + ((newX >= 0 and: [newX < self dimensions x]) and: [newY >= 0 and: [newY < self dimensions y]]) ifTrue: [ + thisPlayer := turtlesByColor at: c ifAbsentPut: [ + turtlesByColor keys + detect: [:thisColor | (thisColor diff: c) < 0.2] + ifFound: [:thisColor | turtlesByColor at: thisColor] + ifNone: [ + turtlesDict associations first key. "all non-matching go to be the first turtle" + "(self player newTurtleSilently color: c; player)"]]. + xArray := xArrays at: thisPlayer ifAbsentPut: [OrderedCollection new: aForm width * aForm height]. + yArray := yArrays at: thisPlayer ifAbsentPut: [OrderedCollection new: aForm width * aForm height]. + colorArray := colorArrays at: thisPlayer ifAbsentPut: [OrderedCollection new: aForm width * aForm height]. + + xArray add: newX asFloat. + yArray add: newY asFloat. + colorArray add: (c pixelValueForDepth: 32). + ]. + ]. + ]. + ]. + xArrays keysAndValuesDo: [:player :xArry | + self makeTurtlesAtPositionsIn: {xArry asArray. (yArrays at: player) asArray. (colorArrays at: player) asArray} examplerPlayer: player ofPrototype: nil. + player costume privateTurtleCount: (self turtlesCountOf: player)].! Item was changed: ----- Method: KedamaMorph>>editDrawing (in category 'menu') ----- editDrawing | bnds sketchEditor delBlock myForm mySketch | self world assureNotPaintingElse: [^self]. self world prepareToPaint; displayWorld. bnds := self boundsInWorld. sketchEditor := SketchEditorMorph new. self comeToFront. myForm := self imageForm clippedToSize: (bnds extent - 2). myForm mapColor: self color to: Color transparent. mySketch := SketchMorph withForm: myForm. mySketch position: self position. self world addMorphFront: sketchEditor. sketchEditor initializeFor: mySketch inBounds: bnds pasteUpMorph: self world. delBlock := [self world paintingFlapTab ifNotNil: [:pt | pt hideFlap] ifNil: [self world paintBox ifNotNil: [:pb | pb delete]]]. sketchEditor afterNewPicDo: [:aForm :aRect | aForm offset: aRect topLeft - self topLeft. + self acceptFormFromDrawing: aForm. - self acceptForm: aForm. delBlock value] ifNoBits: [delBlock value]! Item was added: + ----- Method: ReleaseBuilderSqueakland class>>updateProjects (in category 'scripts') ----- + updateProjects + "self updateProjects" + "Use this script to load store the gallery projects in the expected format into the repository" + ! Item was changed: ----- Method: ScriptEditorMorph>>buttonRowForEditor (in category 'buttons') ----- buttonRowForEditor "Answer a row of buttons that comprise the header at the top of the Scriptor" | aRow aString aStatusMorph aButton aTile aMorph goldBoxButton aBox | aRow := AlignmentMorph newRow color: ScriptingSystem baseColor; layoutInset: 1. aRow hResizing: #spaceFill. aRow vResizing: #shrinkWrap. self addDismissButtonTo: aRow. aRow addTransparentSpacerOfSize: 9. "Player's name" aString := playerScripted externalName. aMorph := StringMorph contents: aString font: ScriptingSystem fontForTiles. aMorph setNameTo: 'title'. aRow addMorphBack: aMorph. aRow addTransparentSpacerOfSize: 6. "Script's name" aBox := AlignmentMorph newRow. aBox hResizing: #shrinkWrap; vResizing: #shrinkWrap. aBox color: (Color r: 0.839 g: 1.0 b: 0.806). aBox borderWidth: 1. aBox borderColor: (Color r: 0.645 g: 0.774 b: 0.613). aButton := UpdatingStringMorph new. aButton useStringFormat; target: self; getSelector: #scriptTitle; setNameTo: 'script name'; font: ScriptingSystem fontForNameEditingInScriptor; putSelector: #setScriptNameTo:; setProperty: #okToTextEdit toValue: true; step; yourself. aBox addMorph: aButton. aRow addMorphBack: aBox. aBox setBalloonText: 'Click here to edit the name of the script.' translated. "aRow addTransparentSpacerOfSize: 9." aRow addVariableTransparentSpacer. "Try It button" self hasParameter ifFalse: [aRow addMorphBack: ((ThreePhaseButtonMorph labelSymbol: #TryIt target: self actionSelector: #tryMe arguments: #()) actWhen: #whilePressed; balloonTextSelector: #tryMe). aRow addTransparentSpacerOfSize: 3]. + "Step button, only for non-Kedama" + (self playerScripted isPrototypeTurtlePlayer or: [self hasParameter]) ifFalse: - "Step button" - self hasParameter ifFalse: [aRow addMorphBack: (aButton := ThreePhaseButtonMorph labelSymbol: #StepMe target: self actionSelector: #stepMe arguments: #()). aButton balloonTextSelector: #stepMe. aRow addTransparentSpacerOfSize: 3]. "Status controller" self hasParameter ifTrue: [aTile := TypeListTile new choices: Vocabulary typeChoicesForUserVariables dataType: nil. aTile addArrows. aTile setLiteral: self typeForParameter. aRow addMorphBack: aTile. aTile borderColor: Color red. aTile color: ScriptingSystem uniformTileInteriorColor. aTile setBalloonText: 'Drag from here to get a parameter tile' translated. aTile addCaretsAsAppropriate: true] ifFalse: [aRow addMorphBack: (aStatusMorph := self scriptInstantiation statusControlMorph)]. "aRow addTransparentSpacerOfSize: 3." aRow addVariableTransparentSpacer. "Gold-box" aRow addMorphBack: (goldBoxButton := IconicButton new). goldBoxButton borderWidth: 0; labelGraphic: (ScriptingSystem formAtKey: 'RoundGoldBox'); color: Color transparent; actWhen: #buttonDown; target: self; actionSelector: #offerGoldBoxMenu; shedSelvedge; setBalloonText: 'click here to get a palette of useful tiles to use in your script.' translated. aRow addTransparentSpacerOfSize: 6@1. "Menu Button" aButton := self menuButton. aButton actionSelector: #offerScriptorMenu. aRow addMorphBack: aButton. (playerScripted existingScriptInstantiationForSelector: scriptName) ifNotNilDo: [:inst | inst updateStatusMorph: aStatusMorph]. ^ aRow! Item was changed: ----- Method: Vocabulary class>>typeChoicesForUserVariables (in category '*Etoys-Squeakland-type vocabularies') ----- typeChoicesForUserVariables "Answer a list of all user-choosable value types for variables." | aList | aList := #(Boolean Color CustomEvents Graphic Number Patch Player Point ScriptName Sound String) asOrderedCollection. (ActiveWorld notNil and: [ActiveWorld isKedamaPresent not]) ifTrue: [aList remove: #Patch ifAbsent: []]. - Preferences allowEtoyUserCustomEvents ifFalse: [aList remove: #CustomEvents ifAbsent: []]. ^ aList asSortedArray " Vocabulary typeChoicesForUserVariables "!

1 0

The Trunk: Morphic-jl.1308.mcz
by commits＠source.squeak.org 21 Sep '16

21 Sep '16

Jens Lincke uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-jl.1308.mcz ==================== Summary ==================== Name: Morphic-jl.1308 Author: jl Time: 21 September 2016, 5:09:23.877628 pm UUID: 9e56c715-6e6d-d447-85fb-cf1869058d6b Ancestors: Morphic-jl.1307 Make magic halos great again. =============== Diff against Morphic-jl.1307 =============== Item was changed: ----- Method: HaloMorph>>addHandle:on:send:to: (in category 'private') ----- addHandle: handleSpec on: eventName send: selector to: recipient "Add a handle within the halo box as per the haloSpec, and set it up to respond to the given event by sending the given selector to the given recipient. Return the handle." | handle aPoint | aPoint := self positionIn: haloBox horizontalPlacement: handleSpec horizontalPlacement verticalPlacement: handleSpec verticalPlacement. handle := self addHandleAt: aPoint color: (Color colorFrom: handleSpec color) icon: handleSpec iconSymbol on: eventName send: selector to: recipient. - self isMagicHalo - ifTrue: [ - handle on: #mouseEnter send: #handleEntered to: self. - handle on: #mouseLeave send: #handleLeft to: self]. - ^ handle! Item was changed: ----- Method: HaloMorph>>isMagicHalo: (in category 'accessing') ----- isMagicHalo: aBool self setProperty: #isMagicHalo toValue: aBool. + aBool + ifTrue: [ + self on: #mouseEnter send: #handleEntered to: self. + self on: #mouseLeave send: #handleLeft to: self] + ifFalse:[ + "Reset everything" + self eventHandler ifNotNil: [:eh | + eh forgetDispatchesTo: #handleEntered; + forgetDispatchesTo: #handleLeft]. + self stopStepping. "get rid of all" + self startStepping. "only those of interest"].! - aBool ifFalse:[ - "Reset everything" - self stopStepping. "get rid of all" - self startStepping. "only those of interest" - ].!

1 0

The Trunk: EToys-jl.242.mcz
by commits＠source.squeak.org 21 Sep '16

21 Sep '16

Jens Lincke uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-jl.242.mcz ==================== Summary ==================== Name: EToys-jl.242 Author: jl Time: 21 September 2016, 4:50:30.595628 pm UUID: a01c6a14-2b59-244f-a945-3efd07a67bed Ancestors: EToys-tfel.241 fix drawing glitch in zoomed Kedama =============== Diff against EToys-tfel.241 =============== Item was changed: ----- Method: KedamaMorph>>drawOn: (in category 'drawing') ----- drawOn: aCanvas | result | drawRequested ifFalse: [^ self]. drawRequested := false. changePending := false. "Time millisecondClockValue printString displayAt: 0@0." + aCanvas fillRectangle: (self bounds) color: self color. + self player ifNil: [^ self]. - self player ifNil: [^ aCanvas fillRectangle: (self bounds) color: self color]. patchVarDisplayForm fillColor: self color. patchesToDisplay do: [:p | p displayPatchVariableOn: patchVarDisplayForm. ]. self drawTurtlesOnForm: patchVarDisplayForm. pixelsPerPatch = 1 ifTrue: [ aCanvas drawImage: patchVarDisplayForm at: bounds origin. ] ifFalse: [ result := self zoom: patchVarDisplayForm into: magnifiedDisplayForm factor: pixelsPerPatch. result ifNil: [ aCanvas warpImage: patchVarDisplayForm transform: (MatrixTransform2x3 withScale: pixelsPerPatch) at: self innerBounds origin. ] ifNotNil: [ aCanvas drawImage: magnifiedDisplayForm at: bounds origin. ] ]. !

1 0

The Trunk: MorphicExtras-jl.197.mcz
by commits＠source.squeak.org 21 Sep '16

21 Sep '16

Jens Lincke uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-jl.197.mcz ==================== Summary ==================== Name: MorphicExtras-jl.197 Author: jl Time: 21 September 2016, 4:39:08.769628 pm UUID: fe309652-c36d-374f-8d22-4813f83c7d60 Ancestors: MorphicExtras-jl.196 - update the default parts for the supplies flaps - make the viewer flaps avoid each other and the global flaps on the top (like in Squeakland) =============== Diff against MorphicExtras-tfel.195 =============== Item was changed: ----- Method: Flaps class>>defaultsQuadsDefiningPlugInSuppliesFlap (in category 'predefined flaps') ----- defaultsQuadsDefiningPlugInSuppliesFlap "Answer a list of quads which define the objects to appear in the default Supplies flap used in the Plug-in image" + "PartsBin reconstructAllPartsIcons" + ^ #( (ObjectsTool newStandAlone 'Object Catalog' 'A tool that lets you browse the catalog of available objects') + (AllScriptsTool allScriptsToolForActiveWorld 'All Scripts' 'Stop, Step, and Go buttons for controlling all your scripts at once. The tool can also be "opened up" to control each script in your project individually.') - "(AllScriptsTool allScriptsToolForActiveWorld 'All Scripts' 'Stop, Step, and Go buttons for controlling all your scripts at once. The tool can also be "opened up" to control each script in your project individually.')" (TrashCanMorph new 'Trash' 'A tool for discarding objects') (GrabPatchMorph new 'Grab Patch' 'Allows you to create a new Sketch by grabbing a rectangular patch from the screen') (LassoPatchMorph new 'Lasso' 'Allows you to create a new Sketch by lassoing an area from the screen') (StickyPadMorph newStandAlone 'Sticky Pad' 'Each time you obtain one of these pastel, translucent, borderless rectangles, it will be a different color from the previous time.') "(PaintInvokingMorph new 'Paint' 'Drop this into an area to start making a fresh painting there')" (TextMorph boldAuthoringPrototype 'Text' 'Text that you can edit into anything you desire.') (RecordingControlsMorph authoringPrototype 'Sound' 'A device for making sound recordings.') (RectangleMorph authoringPrototype 'Rectangle' 'A rectangle') (RectangleMorph roundRectPrototype 'RoundRect' 'A rectangle with rounded corners') (EllipseMorph authoringPrototype 'Ellipse' 'An ellipse or circle') (StarMorph authoringPrototype 'Star' 'A star') (CurveMorph authoringPrototype 'Curve' 'A curve') (PolygonMorph authoringPrototype 'Polygon' 'A straight-sided figure with any number of sides') (ScriptableButton authoringPrototype 'Button' 'A Scriptable button') + "(BookMorph nextPageButton 'NextPage' 'A button that takes you to the next page') + (BookMorph previousPageButton 'PreviousPage' 'A button that takes you to the previous page')" - (BookMorph nextPageButton 'NextPage' 'A button that takes you to the next page') - (BookMorph previousPageButton 'PreviousPage' 'A button that takes you to the previous page') "(ScriptingSystem prototypicalHolder 'Holder' 'A place for storing alternative pictures in an animation, etc.')" (PasteUpMorph authoringPrototype 'Playfield' 'A place for assembling parts or for staging animations') (SimpleSliderMorph authoringPrototype 'Slider' 'A slider for showing and setting numeric values.') (JoystickMorph authoringPrototype 'Joystick' 'A joystick-like control') (BookMorph authoringPrototype 'Book' 'A multi-paged structure') "(ClockMorph authoringPrototype 'Clock' 'A simple digital clock')" + (KedamaMorph newSet 'Particles' 'A Kedama World with pre-made components') + "(RandomNumberTile new 'Random' 'A random-number tile for use with tile scripting')") asOrderedCollection! - (RandomNumberTile new 'Random' 'A random-number tile for use with tile scripting')) asOrderedCollection! Item was added: + ----- Method: ViewerFlapTab>>adjustPositionAfterHidingFlap (in category 'show & hide') ----- + adjustPositionAfterHidingFlap + "we add the width of flap itself to our referent, to reflect the actual width from the edge of the screen, including the space we leave for other flaps. see also ViewerFlapTab>>fitOnScreen" + self referent width: self referent width + self width. + super adjustPositionAfterHidingFlap.! Item was added: + ----- Method: ViewerFlapTab>>fitOnScreen (in category 'positioning') ----- + fitOnScreen + | constrainer | + super fitOnScreen. + "We want to leave a margin for the flaps on the side and for the global flaps at the top (like the Sugar navbar) so we reduce the referents top and its width. We undo this before hiding the flap in ViewerFlapTab>>adjustPositionAfterHidingFlap" + constrainer := (owner ifNil: [self]) clearArea. + self flapShowing ifTrue: [ + Flaps globalFlapTabsIfAny + do: [:each | + (each edgeToAdhereTo = #top and: [each bottom > self referent top]) + ifTrue: [self referent top: each bottom]. + (each edgeToAdhereTo = #top and: [each bottom > self top]) + ifTrue: [self top: each bottom]]. + self referent width: constrainer right - self width - self right].!

1 0

The Trunk: Morphic-jl.1307.mcz
by commits＠source.squeak.org 21 Sep '16

21 Sep '16

Jens Lincke uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-jl.1307.mcz ==================== Summary ==================== Name: Morphic-jl.1307 Author: jl Time: 21 September 2016, 1:36:40.108628 pm UUID: 2360f2a4-21ac-e141-8dde-f5769c1f285a Ancestors: Morphic-cmm.1306 deleting a view morph deletes morph and project again =============== Diff against Morphic-cmm.1306 =============== Item was changed: ----- Method: ProjectViewMorph>>expungeProject (in category 'as yet unclassified') ----- expungeProject (self confirm: ('Do you really want to delete {1} and all its content?' translated format: {project name})) ifFalse: [^ self]. owner isSystemWindow ifTrue: [owner model: nil; delete]. + project delete. + self delete.! - project delete.!

1 0

The Trunk: EToys-tfel.241.mcz
by commits＠source.squeak.org 21 Sep '16

21 Sep '16

Tim Felgentreff uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-tfel.241.mcz ==================== Summary ==================== Name: EToys-tfel.241 Author: tfel Time: 21 September 2016, 1:32:27.270674 pm UUID: 5004a379-3d39-e341-b206-ddf0aee13899 Ancestors: EToys-jl.240 - fix prepareEnvironment script =============== Diff against EToys-jl.240 =============== Item was changed: ----- Method: ReleaseBuilderSqueakland class>>prepareEnvironment (in category 'preparing') ----- prepareEnvironment | directory entries projectNames | super prepareEnvironment. projectNames := #('Gallery' 'Tutorials' 'Home'). directory := FileDirectory on: Smalltalk imagePath. entries := FileList2 projectOnlySelectionMethod: directory entries. projectNames do: [:projectName | (entries + anySatisfy: [:each | (Project parseProjectFileName: each name) first = projectName]) - anySatisfy: [:each | (Project parseProjectFileName: each first) first = projectName]) ifFalse: [self inform: projectName , ' is not found']]. self installExtraPackages. DeferredTask := [ProjectLoading openFromImagePath: 'Home'].!

1 0

The Trunk: EToys-jl.240.mcz
by commits＠source.squeak.org 20 Sep '16

20 Sep '16

Jens Lincke uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-jl.240.mcz ==================== Summary ==================== Name: EToys-jl.240 Author: jl Time: 20 September 2016, 6:20:07.114902 pm UUID: 794a0157-9eed-c94b-a895-bdcb32650c0d Ancestors: EToys-jl.239 something went wrong =============== Diff against EToys-jl.238 =============== Item was changed: ----- Method: KedamaTurtleVectorPlayer2 class>>primGetAngleToX:toY:xArray:yArray:resultInto: (in category 'as yet unclassified') ----- primGetAngleToX: pX toY: pY xArray: xArray yArray: yArray resultInto: result + | ppx ppy x y ret currentDist minDist nearestNeighbour | - | ppx ppy x y ret | <primitive: 'vectorGetAngleTo' module:'KedamaPlugin2'> "^ KedamaPlugin doPrimitive: #vectorGetAngleTo." ppx := pX. ppy := pY. 1 to: result size do: [:index | pX isCollection ifTrue: [ + minDist := SmallInteger maxVal. + 1 to: pX size do: [:index2 | + ppx := pX at: index2. + ppy := pY at: index2. + currentDist := ((ppx - (xArray at: index)) squared + (ppy - (yArray at: index)) squared) sqrt. + currentDist < minDist ifTrue: [ + minDist := currentDist. + nearestNeighbour := index2]]. + ppx := pX at: nearestNeighbour. + ppy := pY at: nearestNeighbour. - ppx := pX at: index. - ppy := pY at: index. ]. x := ppx - (xArray at: index). y := ppy - (yArray at: index). ret := (x@y) theta radiansToDegrees + 90.0. ret > 360.0 ifTrue: [ret := ret - 360.0]. result at: index put: ret. ]. ^ result. ! Item was changed: ----- Method: KedamaTurtleVectorPlayer2>>getAngleTo: (in category 'player commands') ----- getAngleTo: players | p xArray yArray result pX pY xy | players isCollection ifFalse: [ p := players ]. xArray := arrays at: 2. yArray := arrays at: 3. result := KedamaFloatArray new: self size. players isCollection ifTrue: [ pX := KedamaFloatArray new: players size. pY := KedamaFloatArray new: players size. 1 to: players size do: [:i | xy := (players at: i) getXAndY. pX at: i put: xy x. pY at: i put: xy y. ]. ] ifFalse: [ + pX := p turtles getX. + pY := p turtles getY. - xy := p getXAndY. - pX := xy x. - pY := xy y. ]. ^ KedamaTurtleVectorPlayer2 primGetAngleToX: pX toY: pY xArray: xArray yArray: yArray resultInto: result. ! Item was changed: ----- Method: MessageAsTempNode>>determineStatementType:fromDict:primaryBreedPair:messageType:isStatement:receiverObject: (in category '*Etoys-Tweak-Kedama-Generated') ----- determineStatementType: t1 fromDict: t2 primaryBreedPair: t3 messageType: t4 isStatement: t5 receiverObject: t6 | t7 t8 t9 t10 t11 t13 | t5 ifFalse: [^ t1]. t9 := t2 at: self. (t9 select: [:t14 | t14 first notNil and: [t14 first isPrototypeTurtlePlayer]]) size = 0 ifTrue: [^ #none]. t4 = #sequential ifTrue: [^ #sequential]. t1 = #sequential ifTrue: [^ #sequential]. t3 ifNil: [^ #none]. t7 := t3 first. t4 = #condition ifTrue: [t11 := IdentitySet new. t13 := IdentitySet new. t9 do: [:t14 | (((t14 at: 5) = #testBody or: [(t14 at: 5) = #testCond]) and: [(t14 at: 4) ~= #read]) ifTrue: [t14 first ifNotNil: [t13 add: t14 first]]. (((t14 at: 5) = #testBody or: [(t14 at: 5) = #testCond]) and: [(t14 at: 4) = #read]) ifTrue: [t14 first ifNotNil: [t11 add: t14 first]]]. ((t13 intersection: t11) copyWithout: t7) ifNotEmpty: [^ #sequential]. ^ #parallel]. t11 := IdentitySet new. t13 := IdentitySet new. t8 := OrderedCollection new. t10 := OrderedCollection new. t9 do: [:t14 | t14 first = t7 ifTrue: [((t7 isBreedSelector: t14 second) or: [t7 isUserDefinedSelector: t14 second]) ifFalse: [t8 add: t14 second]]. t14 first ifNil: [t10 add: t14 second] ifNotNil: [(t14 at: 4) == #read ifTrue: [t11 add: t14 first]. (t14 at: 4) == #read ifFalse: [t13 add: t14 first]]. (t7 containsSequentialSelector: t14 second) ifTrue: [^ #sequential]]. (t8 includes: #die) ifTrue: [^ #die]. (((self isKindOf: AssignmentNode) and: [t6 = t7]) and: [t7 isBreedSelector: self property property]) ifTrue: [^ #none]. (t7 areOkaySelectors: t10) ifFalse: [^ #sequential]. (t7 vectorizableTheseSelectors: t8) ifFalse: [^ #sequential]. ((t11 intersection: t13) copyWithout: t7) ifNotEmpty: [^ #sequential]. self + nodesDo: [:t14 | (t14 isMessageNode + and: [t7 containsSequentialSelector: t14 selector]) - nodesDo: [:t14 | (t14 isLeaf - and: [t7 containsSequentialSelector: t14 key]) ifTrue: [^ #sequential]]. ^ #parallel! Item was changed: ----- Method: MessageNode>>determineStatementType:fromDict:primaryBreedPair:messageType:isStatement:receiverObject: (in category '*Etoys-Tweak-Kedama-Generated') ----- determineStatementType: t1 fromDict: t2 primaryBreedPair: t3 messageType: t4 isStatement: t5 receiverObject: t6 | t7 t8 t9 t10 t11 t13 | t5 ifFalse: [^ t1]. t9 := t2 at: self. (t9 select: [:t14 | t14 first notNil and: [t14 first isPrototypeTurtlePlayer]]) size = 0 ifTrue: [^ #none]. t4 = #sequential ifTrue: [^ #sequential]. t1 = #sequential ifTrue: [^ #sequential]. t3 ifNil: [^ #none]. t7 := t3 first. t4 = #condition ifTrue: [t11 := IdentitySet new. t13 := IdentitySet new. t9 do: [:t14 | (((t14 at: 5) = #testBody or: [(t14 at: 5) = #testCond]) and: [(t14 at: 4) ~= #read]) ifTrue: [t14 first ifNotNil: [t13 add: t14 first]]. (((t14 at: 5) = #testBody or: [(t14 at: 5) = #testCond]) and: [(t14 at: 4) = #read]) ifTrue: [t14 first ifNotNil: [t11 add: t14 first]]]. ((t13 intersection: t11) copyWithout: t7) ifNotEmpty: [^ #sequential]. ^ #parallel]. t11 := IdentitySet new. t13 := IdentitySet new. t8 := OrderedCollection new. t10 := OrderedCollection new. t9 do: [:t14 | t14 first = t7 ifTrue: [((t7 isBreedSelector: t14 second) or: [t7 isUserDefinedSelector: t14 second]) ifFalse: [t8 add: t14 second]]. t14 first ifNil: [t10 add: t14 second] ifNotNil: [(t14 at: 4) == #read ifTrue: [t11 add: t14 first]. (t14 at: 4) == #read ifFalse: [t13 add: t14 first]]. (t7 containsSequentialSelector: t14 second) ifTrue: [^ #sequential]]. (t8 includes: #die) ifTrue: [^ #die]. (((self isKindOf: AssignmentNode) and: [t6 = t7]) and: [t7 isBreedSelector: self property property]) ifTrue: [^ #none]. (t7 areOkaySelectors: t10) ifFalse: [^ #sequential]. (t7 vectorizableTheseSelectors: t8) ifFalse: [^ #sequential]. ((t11 intersection: t13) copyWithout: t7) ifNotEmpty: [^ #sequential]. self + nodesDo: [:t14 | (t14 isMessageNode + and: [t7 containsSequentialSelector: t14 selector]) - nodesDo: [:t14 | (t14 isLeaf - and: [t7 containsSequentialSelector: t14 key]) ifTrue: [^ #sequential]]. ^ #parallel!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages September 2016