Squeak-dev November 2019

squeak-dev@lists.squeakfoundation.org

23 participants
232 discussions

The Inbox: ST80-jr.245.mcz
by commits＠source.squeak.org 24 Nov '19

24 Nov '19

A new version of ST80 was added to project The Inbox: http://source.squeak.org/inbox/ST80-jr.245.mcz ==================== Summary ==================== Name: ST80-jr.245 Author: jr Time: 24 November 2019, 4:13:20.610968 pm UUID: c21afa71-82ce-c94a-a0fd-dfcd010d49c9 Ancestors: ST80-mt.244 Make class list in "explain" output easier to consume. "... in these classes: an OrderedCollection(...)" is not really human-friendly. Now it prints Squeak array syntax {A . B . C}, which is still technical, but handy to copy&paste to methods or workspaces if needed. =============== Diff against ST80-mt.244 =============== Item was changed: ----- Method: ParagraphEditor>>explainAnySel: (in category 'explain') ----- explainAnySel: symbol "Is this any message selector?" | list reply | list := self systemNavigation allClassesImplementing: symbol. list size = 0 ifTrue: [^nil]. list size < 12 + ifTrue: [reply := ' is a message selector which is defined in these classes: ' , list asArray printString] - ifTrue: [reply := ' is a message selector which is defined in these classes ' , list printString] ifFalse: [reply := ' is a message selector which is defined in many classes']. ^'"' , symbol , reply , '."' , '\' withCRs, 'SystemNavigation new browseAllImplementorsOf: #' , symbol!

1 0

The Inbox: Morphic-jr.1593.mcz
by commits＠source.squeak.org 24 Nov '19

24 Nov '19

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-jr.1593.mcz ==================== Summary ==================== Name: Morphic-jr.1593 Author: jr Time: 24 November 2019, 4:09:46.350968 pm UUID: a31f6451-b4c4-8549-b955-db51806e2477 Ancestors: Morphic-mt.1592 Backported From: Morphic-jr.1593 Make class list in "explain" output easier to consume. "... in these classes: an OrderedCollection(...)" is not really human-friendly. Now it prints Squeak array syntax {A . B . C}, which is still technical, but handy to copy&paste to methods or workspaces if needed. =============== Diff against Morphic-mt.1592 =============== Item was changed: ----- Method: TextEditor>>explainAnySel: (in category 'explain') ----- explainAnySel: symbol "Is this any message selector?" | list reply | list := self systemNavigation allClassesImplementing: symbol. list size = 0 ifTrue: [^nil]. list size < 12 + ifTrue: [reply := ' is a message selector which is defined in these classes: ' , list asArray printString] - ifTrue: [reply := ' is a message selector which is defined in these classes ' , list printString] ifFalse: [reply := ' is a message selector which is defined in many classes']. ^'"' , symbol , reply , '."' , '\' withCRs, 'SystemNavigation new browseAllImplementorsOf: #' , symbol!

1 0

The Trunk: EToys-mt.368.mcz
by commits＠source.squeak.org 24 Nov '19

24 Nov '19

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.368.mcz ==================== Summary ==================== Name: EToys-mt.368 Author: mt Time: 13 November 2019, 12:15:07.673043 pm UUID: 3f6873fa-5111-ac4a-a108-9031e19e5f40 Ancestors: EToys-kfr.363, EToys-ct.354, EToys-ct.355, EToys-ct.356, EToys-ct.357, EToys-ct.358, EToys-ct.359, EToys-ct.360, EToys-ct.364, EToys-ct.365, EToys-ct.367 Merge! Merge! Merge! Various fixes in Etoys-related places. =============== Diff against EToys-kfr.363 =============== Item was added: + ----- Method: Form>>scaledToWidth: (in category '*Etoys-Squeakland-scaling, rotation') ----- + scaledToWidth: newWidth + "Answer the receiver, scaled such that it has the desired width." + + newWidth = self width ifTrue: [^ self]. + ^self magnify: self boundingBox by: (newWidth / self width) smoothing: 2. + ! Item was changed: ----- Method: FreeCell>>help (in category 'actions') ----- help + + self helpText editWithLabel: 'FreeCell Help'.! - | window helpMorph | - window := SystemWindow labelled: 'FreeCell Help' translated. - window model: self. - helpMorph := (PluggableTextMorph new editString: self helpText) lock. - window - addMorph: helpMorph - frame: (0 @ 0 extent: 1 @ 1). - window openInWorld! Item was added: + ----- Method: MovingEyeMorph>>color: (in category 'accessing') ----- + color: aColor + + super color: aColor. + + "Migrate old instances." + inner color: Color transparent. + + "Keep iris visible." + aColor = iris color + ifTrue: [iris borderWidth: 1; borderColor: aColor negated] + ifFalse: [iris borderWidth: 0].! Item was changed: ----- Method: MovingEyeMorph>>initialize (in category 'initialization') ----- initialize "initialize the state of the receiver" super initialize. "" inner := EllipseMorph new. + inner color: Color transparent. - inner color: self color. inner extent: (self extent * (1.0 @ 1.0 - IrisSize)) asIntegerPoint. - inner borderColor: self color. inner borderWidth: 0. "" iris := EllipseMorph new. iris color: Color white. iris extent: (self extent * IrisSize) asIntegerPoint. "" self addMorphCentered: inner. inner addMorphCentered: iris. "" self extent: 26 @ 33! Item was added: + ----- Method: MovingEyeMorph>>irisColor (in category 'accessing') ----- + irisColor + + ^ iris color! Item was added: + ----- Method: MovingEyeMorph>>irisColor: (in category 'accessing') ----- + irisColor: aColor + + iris color: aColor. + + "Keep iris visible." + aColor = self color + ifTrue: [iris borderWidth: 1; borderColor: aColor negated] + ifFalse: [iris borderWidth: 0].! Item was added: + ----- Method: MovingEyeMorph>>irisPos (in category 'accessing') ----- + irisPos + + ^ iris position! Item was changed: + ----- Method: MovingEyeMorph>>irisPos: (in category 'accessing') ----- - ----- Method: MovingEyeMorph>>irisPos: (in category 'as yet unclassified') ----- irisPos: cp | a b theta x y | theta := (cp - self center) theta. a := inner width // 2. b := inner height // 2. x := a * (theta cos). y := b * (theta sin). iris position: ((x@y) asIntegerPoint) + self center - (iris extent // 2).! Item was changed: ----- Method: MovingEyeMorph>>step (in category 'stepping and presenter') ----- step | cp | cp := self globalPointToLocal: self world primaryHand position. (inner containsPoint: cp) ifTrue: [iris position: (cp - (iris extent // 2))] + ifFalse: [self irisPos: cp].! - ifFalse: [self irisPos: cp]. - self changed "cover up gribblies if embedded in Flash"! Item was changed: ----- Method: NewVariableDialogMorph>>decimalPlaces (in category 'accessing') ----- decimalPlaces ^ decimalPlacesButton ifNil: [Utilities decimalPlacesForFloatPrecision: (self targetPlayer + defaultFloatPrecisionFor: self varAcceptableName asSetterSelector)] - defaultFloatPrecisionFor: (Utilities getterSelectorFor: self varAcceptableName))] ifNotNil: [:button| button label asNumber]! Item was changed: ----- Method: Player>>newScriptorAround: (in category 'viewer') ----- newScriptorAround: aPhrase "Sprout a scriptor around aPhrase, thus making a new script. aPhrase may either be a PhraseTileMorph (classic tiles 1997-2001) or a SyntaxMorph (2001 onward)" | aScriptEditor aUniclassScript tw blk | Cursor wait showWhile: [ aUniclassScript := self class permanentUserScriptFor: self unusedScriptName player: self. aScriptEditor := aUniclassScript instantiatedScriptEditorForPlayer: self. Preferences universalTiles ifTrue: [ aScriptEditor install. "aScriptEditor hResizing: #shrinkWrap; vResizing: #shrinkWrap; cellPositioning: #topLeft; setProperty: #autoFitContents toValue: true." aScriptEditor insertUniversalTiles. "Gets an empty SyntaxMorph for a MethodNode" + tw := aScriptEditor findA: ScrollPane. - tw := aScriptEditor findA: TwoWayScrollPane. aPhrase ifNotNil: [blk := (tw scroller findA: SyntaxMorph "MethodNode") findA: BlockNode. blk addMorphFront: aPhrase. aPhrase accept. ]. SyntaxMorph setSize: nil andMakeResizable: aScriptEditor. ] ifFalse: [ aPhrase ifNotNil: [aScriptEditor phrase: aPhrase] "does an install" ifNil: [aScriptEditor install] ]. self class allSubInstancesDo: [:anInst | anInst scriptInstantiationForSelector: aUniclassScript selector]. "The above assures the presence of a ScriptInstantiation for the new selector in all siblings" self updateScriptsCategoryOfViewers. ]. ^ aScriptEditor! Item was changed: ----- Method: Preferences class>>initializePreferencePanel:in: (in category '*Etoys-Squeakland-preferences panel') ----- initializePreferencePanel: aPanel in: aPasteUpMorph "Initialize the given Preferences panel. in the given pasteup, which is the top-level panel installed in the container window. Also used to reset it after some change requires reformulation" | tabbedPalette controlPage aColor aFont maxEntriesPerCategory tabsMorph anExtent prefObjects | aPasteUpMorph removeAllMorphs. aFont := Preferences standardListFont. + aColor := aPanel windowColorToUse. - aColor := aPanel defaultBackgroundColor. tabbedPalette := TabbedPalette newSticky. tabbedPalette dropEnabled: false. (tabsMorph := tabbedPalette tabsMorph) color: aColor darker; highlightColor: Color red regularColor: Color brown darker darker. tabbedPalette on: #mouseDown send: #yourself to: #(). maxEntriesPerCategory := 0. self listOfCategories do: [:aCat | controlPage := AlignmentMorph newColumn beSticky color: aColor. controlPage on: #mouseDown send: #yourself to: #(). controlPage dropEnabled: false. controlPage borderColor: aColor; layoutInset: 4. (prefObjects := self preferenceObjectsInCategory: aCat) do: [:aPreference | | button | button := aPreference representativeButtonWithColor: Color white inPanel: aPanel. button ifNotNil: [controlPage addMorphBack: button]]. controlPage setNameTo: aCat asString. aCat = #? ifTrue: [aPanel addHelpItemsTo: controlPage]. tabbedPalette addTabFor: controlPage font: aFont. aCat = 'search results' ifTrue: [(tabbedPalette tabNamed: aCat) setBalloonText: 'Use the ? category to find preferences by keyword; the results of your search will show up here' translated]. maxEntriesPerCategory := maxEntriesPerCategory max: prefObjects size]. tabbedPalette selectTabNamed: '?'. tabsMorph rowsNoWiderThan: aPasteUpMorph width. aPasteUpMorph on: #mouseDown send: #yourself to: #(). anExtent := aPasteUpMorph width @ (490 max: (25 + tabsMorph height + (24 * maxEntriesPerCategory))). aPasteUpMorph extent: anExtent. aPasteUpMorph color: aColor. aPasteUpMorph addMorphBack: tabbedPalette.! Item was changed: ----- Method: ScriptEditorMorph>>autoFitOnOff (in category 'menu') ----- autoFitOnOff "Toggle between auto fit to size of code and manual resize with scrolling" | tw | + (tw := self findA: ScrollPane) ifNil: [^ self]. - (tw := self findA: TwoWayScrollPane) ifNil: [^ self]. (self hasProperty: #autoFitContents) ifTrue: [self removeProperty: #autoFitContents. self hResizing: #rigid; vResizing: #rigid] ifFalse: [self setProperty: #autoFitContents toValue: true. self hResizing: #shrinkWrap; vResizing: #shrinkWrap]. tw layoutChanged! Item was changed: ----- Method: ScriptEditorMorph>>extent: (in category 'other') ----- extent: x | newExtent tw menu | newExtent := x max: self minWidth @ self minHeight. + (tw := self findA: ScrollPane) ifNil: - (tw := self findA: TwoWayScrollPane) ifNil: ["This was the old behavior" ^ super extent: newExtent]. (self hasProperty: #autoFitContents) ifTrue: [ menu := MenuMorph new defaultTarget: self. menu addUpdating: #autoFitString target: self action: #autoFitOnOff. menu addTitle: 'To resize the script, uncheck the box below' translated. menu popUpEvent: nil in: self world . ^ self]. "Allow the user to resize to any size" tw extent: ((newExtent x max: self firstSubmorph width) @ (newExtent y - self firstSubmorph height)) - (self borderWidth * 2) + (-4 @ -4). "inset?" ^ super extent: newExtent! Item was changed: ----- Method: ScriptEditorMorph>>hibernate (in category 'other') ----- hibernate "Possibly delete the tiles, but only if using universal tiles." | tw | Preferences universalTiles ifFalse: [^self]. + (tw := self findA: ScrollPane) isNil - (tw := self findA: TwoWayScrollPane) isNil ifFalse: [self setProperty: #sizeAtHibernate toValue: self extent. "+ tw xScrollerHeight" submorphs size > 1 ifTrue: [tw delete]]! Item was added: + ----- Method: SpectrumAnalyzerMorph>>fftSize: (in category 'accessing') ----- + fftSize: aSize + + | on | + on := soundInput isRecording. + self stop. + fft := FFT new: aSize. + self resetDisplay. + on ifTrue: [self start].! Item was changed: ----- Method: SpectrumAnalyzerMorph>>setFFTSize (in category 'menu and buttons') ----- setFFTSize "Set the size of the FFT used for frequency analysis." + | aMenu sz | - | aMenu sz on | aMenu := CustomMenu new title: ('FFT size (currently {1})' translated format:{fft n}). ((7 to: 10) collect: [:n | 2 raisedTo: n]) do:[:r | aMenu add: r printString action: r]. sz := aMenu startUp. sz ifNil: [^ self]. + self fftSize: sz.! - on := soundInput isRecording. - self stop. - fft := FFT new: sz. - self resetDisplay. - on ifTrue: [self start]. - ! Item was changed: ----- Method: SyntaxMorph class>>setSize:andMakeResizable: (in category 'as yet unclassified') ----- setSize: oldExtent andMakeResizable: outerMorph | tw | + (tw := outerMorph findA: ScrollPane) ifNil: [^self]. - (tw := outerMorph findA: TwoWayScrollPane) ifNil: [^self]. tw hResizing: #spaceFill; vResizing: #spaceFill; color: Color transparent; setProperty: #hideUnneededScrollbars toValue: true. outerMorph hResizing: #shrinkWrap; vResizing: #shrinkWrap; cellPositioning: #topLeft. outerMorph fullBounds. ! Item was changed: ----- Method: SyntaxMorph>>enclosingPane (in category 'accessing') ----- enclosingPane "The object that owns this script layout" | oo higher | oo := self owner. [higher := oo isSyntaxMorph. higher := higher or: [oo class == TransformMorph]. + higher := higher or: [oo class == ScrollPane]. - higher := higher or: [oo class == TwoWayScrollPane]. higher ifFalse: [^ oo]. higher] whileTrue: [oo := oo owner]. ! Item was removed: - ----- Method: SyntaxMorph>>inAScrollPane (in category 'initialization') ----- - inAScrollPane - "Answer a scroll pane in which the receiver is scrollable" - - ^ self inATwoWayScrollPane! Item was changed: ----- Method: SyntaxMorph>>openInWindow (in category 'initialization') ----- openInWindow + | sel | - | window widget sel | sel := ''. self firstSubmorph allMorphs do: [:rr | + (rr isKindOf: StringMorph) ifTrue: [sel := sel, rr contents]]. - (rr isKindOf: StringMorph) ifTrue: [sel := sel, rr contents]]. - window := (SystemWindow labelled: 'Tiles for ', self parsedInClass printString, '>>',sel). - widget := self inAScrollPane. - widget color: Color paleOrange. - window - addMorph: widget - frame: (0@0 extent: 1.0(a)1.0). - window openInWorldExtent: ( - self extent + (20@40) min: (Display boundingBox extent * 0.8) rounded - ) + ^ self inAScrollPane + color: Color paleOrange; + openInWindowLabeled: 'Tiles for ', self parsedInClass printString, '>>', sel! - ! Item was added: + ----- Method: SyntaxMorph>>parseNodeWith:asStatement: (in category '*Etoys-Squeakland-code generation') ----- + parseNodeWith: encoder asStatement: aBoolean + + ^ self parseNode! Item was changed: ----- Method: SyntaxMorph>>unhighlightBorder (in category 'highlighting') ----- unhighlightBorder self currentSelectionDo: [:innerMorph :mouseDownLoc :outerMorph | + (self == outerMorph or: [owner notNil and: [owner isSyntaxMorph not]]) + ifFalse: [self borderColor: self stdBorderColor] + ifTrue: [ + (self hasProperty: #deselectedBorderColor) + ifTrue: [self borderColor: (self valueOfProperty: #deselectedBorderColor)] + ifFalse: [self borderStyle: (BorderStyle raised width: self borderWidth)]] ].! - self borderColor: ( - (self == outerMorph or: [owner notNil and: [owner isSyntaxMorph not]]) - ifFalse: [self borderColor: self stdBorderColor] - ifTrue: [ - (self hasProperty: #deselectedBorderColor) - ifTrue: [self borderColor: (self valueOfProperty: #deselectedBorderColor)] - ifFalse: [self borderStyle: (BorderStyle raised width: self borderWidth)]] )].! Item was changed: ----- Method: TileMorph>>wrapPhraseInFunction (in category '*Etoys-Squeakland-arrows') ----- wrapPhraseInFunction "The user made a gesture requesting that the phrase for which the receiver bears the widget hit be wrapped in a function. This applies for the moment only to numeric functions" | pad newPad functionPhrase | pad := self ownerThatIsA: TilePadMorph. "Or something higher than that???" (pad isNil or: [pad type ~= #Number]) ifTrue: [^ Beeper beep]. newPad := TilePadMorph new setType: #Number. + newPad hResizing: #shrinkWrap; vResizing: #spaceFill. - newPad hResizing: #shrinkWrap; vResizing: #spacefill. functionPhrase := FunctionTile new. newPad addMorphBack: functionPhrase. pad owner replaceSubmorph: pad by: newPad. functionPhrase operator: #abs pad: pad. functionPhrase addSuffixArrow. self scriptEdited ! Item was changed: ----- Method: TilePadMorph>>wrapInFunction (in category '*Etoys-Squeakland-miscellaneous') ----- wrapInFunction "The user made a gesture requesting that the receiver be wrapped in a (numeric) function." | newPad functionPhrase | newPad := TilePadMorph new setType: #Number. + newPad hResizing: #shrinkWrap; vResizing: #spaceFill. - newPad hResizing: #shrinkWrap; vResizing: #spacefill. functionPhrase := FunctionTile new. newPad addMorphBack: functionPhrase. owner replaceSubmorph: self by: newPad. functionPhrase operator: #abs pad: self. self scriptEdited! Item was changed: ----- Method: VariableNode>>asMorphicSyntaxIn: (in category '*Etoys-tiles') ----- asMorphicSyntaxIn: parent ^ parent addToken: self name type: #variable + on: self shallowCopy "don't hand out the prototype!! See VariableNode>>initialize" - on: self clone "don't hand out the prototype!! See VariableNode>>initialize" ! Item was changed: + ----- Method: WatchMorph class>>fontName:bgColor:centerColor: (in category 'instance creation') ----- - ----- Method: WatchMorph class>>fontName:bgColor:centerColor: (in category 'as yet unclassified') ----- fontName: aString bgColor: aColor centerColor: otherColor ^ self new fontName: aString; color: aColor; centerColor: otherColor! Item was changed: ----- Method: WorldWindow class>>test2 (in category 'as yet unclassified') ----- test2 "WorldWindow test2." | window world scrollPane | world := WiWPasteUpMorph newWorldForProject: nil. window := (WorldWindow labelled: 'Scrollable World') model: world. + window addMorph: (scrollPane := ScrollPane new model: world) - window addMorph: (scrollPane := TwoWayScrollPane new model: world) frame: (0@0 extent: 1.0(a)1.0). scrollPane scroller addMorph: world. world hostWindow: window. window openInWorld !

11 20

The Trunk: Kernel-nice.1282.mcz
by commits＠source.squeak.org 22 Nov '19

22 Nov '19

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.1282.mcz ==================== Summary ==================== Name: Kernel-nice.1282 Author: nice Time: 22 November 2019, 5:54:28.478745 pm UUID: 70d4bc61-04e8-4cfd-befb-1b23f3f13953 Ancestors: Kernel-mt.1281 Let complex print the correct signBit of its imaginary part in case of negativeZero. Note: the signBit are not preserved upon reinterpretation. That's a problem of representation via arithmetic operation 1 + 2 i because we have this 0.0 - 0.0 -> 0.0 0.0 + (-0.0) -> 0.0 (-0.0) + (-0.0) -> -0.0 (-0.0) - 0.0 -> -0.0 =============== Diff against Kernel-mt.1281 =============== Item was changed: ----- Method: Complex>>printOn: (in category 'printing') ----- printOn: aStream real printOn: aStream. aStream nextPut: Character space. + imaginary signBit = 0 - 0 <= imaginary ifTrue: [aStream nextPut: $+] ifFalse: [aStream nextPut: $-]. aStream nextPut: Character space. imaginary abs printOn: aStream. aStream nextPut: Character space. aStream nextPut: $i ! Item was changed: ----- Method: Complex>>printOn:showingDecimalPlaces: (in category 'printing') ----- printOn: aStream showingDecimalPlaces: placesDesired real printOn: aStream showingDecimalPlaces: placesDesired. aStream nextPut: Character space. + imaginary signBit = 0 - 0 <= imaginary ifTrue: [aStream nextPut: $+] ifFalse: [aStream nextPut: $-]. aStream nextPut: Character space. imaginary abs printOn: aStream showingDecimalPlaces: placesDesired. aStream nextPut: Character space. aStream nextPut: $i !

2 1

The Trunk: 60Deprecated-mt.65.mcz
by commits＠source.squeak.org 22 Nov '19

22 Nov '19

Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-mt.65.mcz ==================== Summary ==================== Name: 60Deprecated-mt.65 Author: mt Time: 22 November 2019, 5:40:29.797669 pm UUID: a3c00db3-c543-314b-9daf-0d1d540e2d9e Ancestors: 60Deprecated-mt.64 Complements Morphic-mt.1592 =============== Diff against 60Deprecated-mt.64 =============== Item was added: + ----- Method: Morph>>degreesOfFlex (in category '*60Deprecated-rotate scale and flex') ----- + degreesOfFlex + + self deprecated: 'Use #rotationDegrees.'. + ^ self rotationDegrees!

1 0

The Trunk: EToys-mt.371.mcz
by commits＠source.squeak.org 22 Nov '19

22 Nov '19

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.371.mcz ==================== Summary ==================== Name: EToys-mt.371 Author: mt Time: 22 November 2019, 5:39:38.633669 pm UUID: db7b1ef9-f86e-594c-a25c-fd0628f81baf Ancestors: EToys-mt.370 Complements Morphic-mt.1592. =============== Diff against EToys-mt.370 =============== Item was removed: - ----- Method: MatrixTransformMorph>>heading: (in category '*Etoys-geometry') ----- - heading: newHeading - "Set the receiver's heading (in eToy terms)" - self rotateBy: ((newHeading - self forwardDirection) - self innerAngle).! Item was removed: - ----- Method: Morph>>degreesOfFlex (in category '*Etoys-geometry') ----- - degreesOfFlex - "Return any rotation due to flexing" - "NOTE: because renderedMorph, which is used by the halo to set heading, goes down through dropShadows as well as transformations, we need this method (and its other implems) to come back up through such a chain." - ^ 0.0! Item was removed: - ----- Method: Morph>>forwardDirection: (in category '*Etoys-geometry') ----- - forwardDirection: newDirection - "Set the receiver's forward direction (in eToy terms)" - self setProperty: #forwardDirection toValue: newDirection.! Item was removed: - ----- Method: Morph>>heading (in category '*Etoys-geometry') ----- - heading - "Return the receiver's heading (in eToy terms)" - owner ifNil: [^ self forwardDirection]. - ^ self forwardDirection + owner degreesOfFlex! Item was removed: - ----- Method: Morph>>heading: (in category '*Etoys-geometry') ----- - heading: newHeading - "Set the receiver's heading (in eToy terms)" - self isFlexed ifFalse:[self addFlexShell]. - owner rotationDegrees: (newHeading - self forwardDirection).! Item was removed: - ----- Method: Morph>>rotationDegrees: (in category '*Etoys-Squeakland-geometry eToy') ----- - rotationDegrees: aFloat - ^ self heading: aFloat! Item was removed: - ----- Method: Morph>>setDirectionFrom: (in category '*Etoys-geometry') ----- - setDirectionFrom: aPoint - | delta degrees | - delta := (self transformFromWorld globalPointToLocal: aPoint) - self referencePosition. - degrees := delta degrees + 90.0. - self forwardDirection: (degrees \\ 360) rounded. - ! Item was removed: - ----- Method: PolygonMorph>>heading: (in category '*Etoys-geometry') ----- - heading: newHeading - "Set the receiver's heading (in eToy terms). - Note that polygons never use flex shells." - self rotationDegrees: newHeading.! Item was removed: - ----- Method: SketchMorph>>heading: (in category '*Etoys-geometry eToy') ----- - heading: newHeading - "If not rotating normally, change forward direction rather than heading" - rotationStyle == #normal ifTrue:[^super heading: newHeading]. - self isFlexed - ifTrue:[self forwardDirection: newHeading - owner rotationDegrees] - ifFalse:[self forwardDirection: newHeading]. - self layoutChanged!

1 0

The Trunk: Tools-mt.917.mcz
by commits＠source.squeak.org 22 Nov '19

22 Nov '19

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.917.mcz ==================== Summary ==================== Name: Tools-mt.917 Author: mt Time: 22 November 2019, 2:11:23.895303 pm UUID: 7a9645dc-bdfb-f949-b322-05f1162c7f9a Ancestors: Tools-ct.916, Tools-ct.902, Tools-ct.904 Merges Tools-ct.916, Tools-ct.902, Tools-ct.904. Changes #handleWarning: text to a different style and to use the new #suppressWarnings interface in Warning. =============== Diff against Tools-ct.916 =============== Item was changed: ----- Method: Inspector class>>openOn: (in category 'instance creation') ----- openOn: anObject "Create and schedule an instance of me on the model, anInspector. " + ^ self openOn: anObject withLabel: anObject defaultLabelForInspector! - ^ self openOn: anObject withEvalPane: true! Item was removed: - ----- Method: Inspector class>>openOn:withEvalPane: (in category 'instance creation') ----- - openOn: anObject withEvalPane: withEval - "Create and schedule an instance of me on the model, anInspector. " - - ^ self openOn: anObject withEvalPane: withEval withLabel: anObject defaultLabelForInspector! Item was removed: - ----- Method: Inspector class>>openOn:withEvalPane:withLabel: (in category 'instance creation') ----- - openOn: anObject withEvalPane: withEval withLabel: label - ^ToolBuilder open: (self inspect: anObject) label: label! Item was added: + ----- Method: Inspector class>>openOn:withLabel: (in category 'instance creation') ----- + openOn: anObject withLabel: label + + ^ ToolBuilder open: (self inspect: anObject) label: label! Item was changed: ----- Method: ProcessBrowser>>browseContext (in category 'stack list') ----- browseContext + ToolSet browseMethod: selectedContext method! - selectedContext - ifNil: [^ self]. - ToolSet browse: self selectedClass selector: self selectedSelector! Item was changed: ----- Method: ProcessBrowser>>changePriority (in category 'process actions') ----- changePriority | str newPriority nameAndRules | - selectedProcess ifNil: [^ self]. nameAndRules := self nameAndRulesForSelectedProcess. nameAndRules third ifFalse: [self inform: 'Nope, won''t change priority of ' , nameAndRules first. ^ self]. str := UIManager default request: 'New priority' initialAnswer: selectedProcess priority asString. newPriority := str asNumber asInteger. newPriority ifNil: [^ self]. (newPriority < 1 or: [newPriority > Processor highestPriority]) ifTrue: [self inform: 'Bad priority'. ^ self]. self class setProcess: selectedProcess toPriority: newPriority. self updateProcessList! Item was changed: ----- Method: ProcessBrowser>>chasePointers (in category 'process actions') ----- chasePointers | saved | - selectedProcess ifNil: [^ self]. saved := selectedProcess. [selectedProcess := nil. (Smalltalk includesKey: #PointerFinder) ifTrue: [PointerFinder on: saved] ifFalse: [self inspectPointers]] ensure: [selectedProcess := saved]! Item was changed: ----- Method: ProcessBrowser>>debugProcess (in category 'process actions') ----- debugProcess | nameAndRules | - selectedProcess ifNil: [^ self]. nameAndRules := self nameAndRulesForSelectedProcess. nameAndRules third ifFalse: [self inform: 'Nope, won''t debug ' , nameAndRules first. ^ self]. self class debugProcess: selectedProcess.! Item was changed: ----- Method: ProcessBrowser>>exploreContext (in category 'stack list') ----- exploreContext + selectedContext explore! - selectedContext ifNotNil: #explore! Item was changed: ----- Method: ProcessBrowser>>exploreProcess (in category 'process list') ----- exploreProcess + selectedProcess explore! - selectedProcess ifNotNil: #explore! Item was changed: ----- Method: ProcessBrowser>>exploreReceiver (in category 'stack list') ----- exploreReceiver + selectedContext receiver explore! - selectedContext ifNotNil: [ - selectedContext receiver explore]! Item was changed: ----- Method: ProcessBrowser>>inspectContext (in category 'stack list') ----- inspectContext + selectedContext inspect! - selectedContext ifNotNil: #inspect! Item was changed: ----- Method: ProcessBrowser>>inspectPointers (in category 'process actions') ----- inspectPointers | tc pointers | - selectedProcess ifNil: [^ self]. tc := thisContext. pointers := PointerFinder pointersTo: selectedProcess except: { self processList. tc. self}. pointers isEmpty ifTrue: [^ self]. OrderedCollectionInspector openOn: pointers - withEvalPane: false withLabel: 'Objects pointing to ' , selectedProcess browserPrintString! Item was changed: ----- Method: ProcessBrowser>>inspectProcess (in category 'process list') ----- inspectProcess + selectedProcess inspect! - selectedProcess ifNotNil: #inspect! Item was changed: ----- Method: ProcessBrowser>>inspectReceiver (in category 'stack list') ----- inspectReceiver + selectedContext receiver inspect! - selectedContext ifNotNil: [ - selectedContext receiver inspect]! Item was changed: ----- Method: ProcessBrowser>>messageTally (in category 'stack list') ----- messageTally | secString secs | - selectedProcess ifNil: [^ self]. secString := UIManager default request: 'Profile for how many seconds?' initialAnswer: '4'. secString isEmptyOrNil ifTrue: [^ self]. secs := secString asNumber asInteger. (secs isNil or: [secs isZero]) ifTrue: [^ self]. [ TimeProfileBrowser spyOnProcess: selectedProcess forMilliseconds: secs * 1000 ] forkAt: selectedProcess priority + 1.! Item was changed: ----- Method: ProcessBrowser>>processListKey:from: (in category 'process list') ----- + processListKey: aKey from: aView + + aKey + caseOf: { + [$f] -> [^ self findContext]. + [$g] -> [^ self nextContext]. + [$a] -> [^ self toggleAutoUpdate]. + [$u] -> [^ self updateProcessList] } + otherwise: []. + selectedProcess ifNil: [^ self changed: #flash]. + ^ aKey + caseOf: { + [$i] -> [self inspectProcess]. + [$I] -> [self exploreProcess]. + [$c] -> [self chasePointers]. + [$P] -> [self inspectPointers]. + [$t] -> [self terminateProcess]. + [$r] -> [self resumeProcess]. + [$s] -> [self suspendProcess]. + [$d] -> [self debugProcess]. + [$p] -> [self changePriority]. + [$m] -> [self messageTally]. + [$S] -> [self signalSemaphore]. + [$k] -> [self moreStack]} + otherwise: [self arrowKey: aKey from: aView]! - processListKey: aKey from: aView - ^ aKey caseOf: { - [$i] -> [self inspectProcess]. - [$I] -> [self exploreProcess]. - [$c] -> [self chasePointers]. - [$P] -> [self inspectPointers]. - [$t] -> [self terminateProcess]. - [$r] -> [self resumeProcess]. - [$s] -> [self suspendProcess]. - [$d] -> [self debugProcess]. - [$p] -> [self changePriority]. - [$m] -> [self messageTally]. - [$f] -> [self findContext]. - [$g] -> [self nextContext]. - [$a] -> [self toggleAutoUpdate]. - [$u] -> [self updateProcessList]. - [$S] -> [self signalSemaphore]. - [$k] -> [self moreStack]} - otherwise: [self arrowKey: aKey from: aView]! Item was changed: ----- Method: ProcessBrowser>>resumeProcess (in category 'process actions') ----- resumeProcess - selectedProcess ifNil: [^ self]. self class resumeProcess: selectedProcess. self updateProcessList! Item was changed: ----- Method: ProcessBrowser>>signalSemaphore (in category 'process actions') ----- signalSemaphore - selectedProcess ifNil: [^ self]. (selectedProcess suspendingList isKindOf: Semaphore) ifFalse: [^ self]. [selectedProcess suspendingList signal] fork. (Delay forMilliseconds: 300) wait. "Hate to make the UI wait, but it's convenient..." self updateProcessList! Item was changed: ----- Method: ProcessBrowser>>stackListKey:from: (in category 'views') ----- + stackListKey: aKey from: aView + + selectedContext ifNil: [^ self changed: #flash]. + ^ aKey + caseOf: { + [$c] -> [self inspectContext]. + [$C] -> [self exploreContext]. + [$i] -> [self inspectReceiver]. + [$I] -> [self exploreReceiver]. + [$b] -> [self browseContext]} + otherwise: [self arrowKey: aKey from: aView]! - stackListKey: aKey from: aView - ^ aKey caseOf: { - [$c] -> [self inspectContext]. - [$C] -> [self exploreContext]. - [$i] -> [self inspectReceiver]. - [$I] -> [self exploreReceiver]. - [$b] -> [self browseContext]} - otherwise: [self arrowKey: aKey from: aView]! Item was changed: ----- Method: ProcessBrowser>>suspendProcess (in category 'process actions') ----- suspendProcess | nameAndRules | - selectedProcess ifNil: [^ self]. selectedProcess isSuspended ifTrue: [^ self]. nameAndRules := self nameAndRulesForSelectedProcess. nameAndRules second ifFalse: [self inform: 'Nope, won''t suspend ' , nameAndRules first. ^ self]. self class suspendProcess: selectedProcess. self updateProcessList! Item was changed: ----- Method: ProcessBrowser>>terminateProcess (in category 'process actions') ----- terminateProcess | nameAndRules | - selectedProcess ifNil: [^ self]. nameAndRules := self nameAndRulesForSelectedProcess. nameAndRules second ifFalse: [self inform: 'Nope, won''t kill ' , nameAndRules first. ^ self]. self class terminateProcess: selectedProcess. self updateProcessList! Item was changed: ----- Method: StandardToolSet class>>handleWarning: (in category 'debugging - handlers') ----- handleWarning: aWarning "Double dispatch. Let the active process take care of that warning, which usually calls back here to #debugProcess:..." + | message | + message := '{1}\\{2}' withCRs asText format: { + "First, show the actual text of this warning." + aWarning messageText. + "Second, append some helpful information that apply to all kinds of warnings." + ('{1} {2}' asText format: { + 'Select "Proceed" to continue or close this window to cancel the operation.' translated. + 'If you do not want to be interrupted anymore, you can {1} this kind of warning. You can also {2}, which resets such warnings on the next image startup.' translated asText format: { + "Provide clickable text links so that the user can directly suppress warnings." + 'always suppress' asText + addAttribute: (PluggableTextAttribute evalBlock: [ + aWarning class suppressWarnings. + self inform: ('All ''{1}'' warnings will be suppressed.' translated format: {aWarning class name})]). + 'suppress temporarily' asText + addAttribute: (PluggableTextAttribute evalBlock: [ + aWarning class suppressAndResetOnStartUp. + self inform: ('All ''{1}'' warnings will be suppressed\and reset on the next image startup.' withCRs translated format: {aWarning class name})])}. + }) addAttribute: ( + "Show this helpful information in a smaller font." + TextFontReference toFont: Preferences standardButtonFont)}. + ^ Processor activeProcess debug: aWarning signalerContext title: 'Warning' translated full: false + contents: message! - contents: aWarning messageText , '\\Select Proceed to continue, or close this window to cancel the operation.' withCRs translated! Item was changed: ----- Method: StandardToolSet class>>inspect:label: (in category 'inspecting') ----- inspect: anObject label: aString "Open an inspector on the given object. The tool set must know which inspector type to use for which object - the object cannot possibly know what kind of inspectors the toolset provides." + ^ anObject inspectorClass openOn: anObject withLabel: aString! - ^ anObject inspectorClass openOn: anObject withEvalPane: true withLabel: aString!

2 2

The Trunk: Kernel-ct.1270.mcz
by commits＠source.squeak.org 22 Nov '19

22 Nov '19

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ct.1270.mcz ==================== Summary ==================== Name: Kernel-ct.1270 Author: ct Time: 20 September 2019, 8:08:13.335726 pm UUID: 52e94fc9-2445-7a42-8ec8-12542fa2e549 Ancestors: Kernel-mt.1269 Add some printing functions for Complex Not yet an equal concept to that one in Number, but still better than nothing :) Try this: Float pi i exp stringForReadout =============== Diff against Kernel-mt.1269 =============== Item was added: + ----- Method: Complex>>printOn:showingDecimalPlaces: (in category 'printing') ----- + printOn: aStream showingDecimalPlaces: placesDesired + real printOn: aStream showingDecimalPlaces: placesDesired. + aStream nextPut: Character space. + 0 <= imaginary + ifTrue: [aStream nextPut: $+] + ifFalse: [aStream nextPut: $-]. + aStream nextPut: Character space. + imaginary abs printOn: aStream showingDecimalPlaces: placesDesired. + aStream nextPut: Character space. + aStream nextPut: $i + ! Item was added: + ----- Method: Complex>>stringForReadout (in category 'printing') ----- + stringForReadout + + ^ String streamContents: [:stream | + self printOn: stream showingDecimalPlaces: 0]!

1 0

The Trunk: Kernel-ct.1278.mcz
by commits＠source.squeak.org 22 Nov '19

22 Nov '19

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ct.1278.mcz ==================== Summary ==================== Name: Kernel-ct.1278 Author: ct Time: 1 November 2019, 7:18:08.038562 pm UUID: 1b93aa78-abca-b441-b409-9b58f1b2d2bf Ancestors: Kernel-nice.1277 Fix a bug in #valueSupplyingAnswers:. If the pattern is not a regex, a RegexSyntaxError may be raised. "Now works:" [self inform: 'Hello world'] valueSupplyingAnswers: #(('*foo*' nil)) =============== Diff against Kernel-nice.1277 =============== Item was changed: ----- Method: BlockClosure>>valueSupplyingAnswers: (in category 'evaluating') ----- valueSupplyingAnswers: aListOfPairs "evaluate the block using a list of questions / answers that might be called upon to automatically respond to Object>>confirm: or FillInTheBlank requests" ^self on: ProvideAnswerNotification do: [ :notification | | caption | caption := notification messageText withSeparatorsCompacted. "to remove new lines" aListOfPairs detect: [ :each | caption = each first or: [ (caption includesSubstring: each first caseSensitive: false) or: [ (each first match: caption) or: [ (caption respondsTo: #matchesRegex:) + and: [ [caption matchesRegex: each first] on: RegexSyntaxError do: [false] ] ] ] ] ] - and: [ caption matchesRegex: each first ] ] ] ] ] ifFound: [ :answer | notification resume: answer second ] ifNone: [ (ProvideAnswerNotification signal: notification messageText) ifNil: [ notification resume ] ifNotNil: [ :outerAnswer | notification resume: outerAnswer ] ] ]!

1 0

The Trunk: Kernel-mt.1281.mcz
by commits＠source.squeak.org 22 Nov '19

22 Nov '19

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1281.mcz ==================== Summary ==================== Name: Kernel-mt.1281 Author: mt Time: 22 November 2019, 3:39:45.714669 pm UUID: 08eab339-2d37-7d41-ab09-6776ddbb09b0 Ancestors: Kernel-mt.1280, Kernel-ct.1270, Kernel-ct.1278 Merges Kernel-ct.1270, Kernel-ct.1278: - better print-string for Complex - bugfix in #valueSupplyingAnswers: for bad regex expressions =============== Diff against Kernel-mt.1280 =============== Item was changed: ----- Method: BlockClosure>>valueSupplyingAnswers: (in category 'evaluating') ----- valueSupplyingAnswers: aListOfPairs "evaluate the block using a list of questions / answers that might be called upon to automatically respond to Object>>confirm: or FillInTheBlank requests" ^self on: ProvideAnswerNotification do: [ :notification | | caption | caption := notification messageText withSeparatorsCompacted. "to remove new lines" aListOfPairs detect: [ :each | caption = each first or: [ (caption includesSubstring: each first caseSensitive: false) or: [ (each first match: caption) or: [ (caption respondsTo: #matchesRegex:) + and: [ [caption matchesRegex: each first] on: RegexSyntaxError do: [false] ] ] ] ] ] - and: [ caption matchesRegex: each first ] ] ] ] ] ifFound: [ :answer | notification resume: answer second ] ifNone: [ (ProvideAnswerNotification signal: notification messageText) ifNil: [ notification resume ] ifNotNil: [ :outerAnswer | notification resume: outerAnswer ] ] ]! Item was added: + ----- Method: Complex>>printOn:showingDecimalPlaces: (in category 'printing') ----- + printOn: aStream showingDecimalPlaces: placesDesired + real printOn: aStream showingDecimalPlaces: placesDesired. + aStream nextPut: Character space. + 0 <= imaginary + ifTrue: [aStream nextPut: $+] + ifFalse: [aStream nextPut: $-]. + aStream nextPut: Character space. + imaginary abs printOn: aStream showingDecimalPlaces: placesDesired. + aStream nextPut: Character space. + aStream nextPut: $i + ! Item was added: + ----- Method: Complex>>stringForReadout (in category 'printing') ----- + stringForReadout + + ^ String streamContents: [:stream | + self printOn: stream showingDecimalPlaces: 0]!

1 0

← Newer
1
...
5
6
7
8
9
10
11
...
24
Older →

Jump to page: