Squeak-dev December 2017

squeak-dev@lists.squeakfoundation.org

34 participants
159 discussions

The Trunk: ST80-nice.232.mcz
by commits＠source.squeak.org 02 Dec '17

02 Dec '17

Nicolas Cellier uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-nice.232.mcz ==================== Summary ==================== Name: ST80-nice.232 Author: nice Time: 2 December 2017, 10:05:36.568131 pm UUID: 8575119e-3256-4a18-add5-d4a5f5e1b526 Ancestors: ST80-dtl.231 MailComposition has been tool-builder-ized, remove obsolete mvcOpen extension. =============== Diff against ST80-dtl.231 =============== Item was removed: - ----- Method: MailComposition>>mvcOpen (in category '*ST80-Support') ----- - mvcOpen - | textView sendButton | - - mvcWindow := StandardSystemView new - label: 'Mister Postman'; - minimumSize: 400@250; - model: self. - - textView := PluggableTextView - on: self - text: #messageText - accept: #messageText:. - textEditor := textView controller. - - sendButton := PluggableButtonView - on: self - getState: nil - action: #submit. - sendButton label: 'Send'. - sendButton borderWidth: 1. - - sendButton window: (1@1 extent: 398@38). - mvcWindow addSubView: sendButton. - - textView window: (0@40 corner: 400@250). - mvcWindow addSubView: textView below: sendButton. - - mvcWindow controller open. - - - !

1 0

The Trunk: Morphic-nice.1375.mcz
by commits＠source.squeak.org 02 Dec '17

02 Dec '17

Nicolas Cellier uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-nice.1375.mcz ==================== Summary ==================== Name: Morphic-nice.1375 Author: nice Time: 2 December 2017, 10:03:56.795281 pm UUID: 1df9a37f-a311-46a9-b4c9-c6879f03eea2 Ancestors: Morphic-dtl.1374 MailComposition has been tool-builder-ized, remove obsolete morphicOpen extension. =============== Diff against Morphic-dtl.1374 =============== Item was removed: - ----- Method: MailComposition>>morphicOpen (in category '*Morphic-Support') ----- - morphicOpen - "open an interface for sending a mail message with the given initial - text " - | textMorph buttonsList sendButton attachmentButton | - morphicWindow := SystemWindow labelled: 'Mister Postman'. - morphicWindow model: self. - textEditor := textMorph := PluggableTextMorph - on: self - text: #messageText - accept: #messageText: - readSelection: nil - menu: #menuGet:shifted:. - morphicWindow addMorph: textMorph frame: (0 @ 0.1 corner: 1 @ 1). - buttonsList := AlignmentMorph newRow. - sendButton := PluggableButtonMorph - on: self - getState: nil - action: #submit. - sendButton - hResizing: #spaceFill; - vResizing: #spaceFill; - label: 'send message'; - setBalloonText: 'Accept any unaccepted edits and add this to the queue of messages to be sent'; - onColor: Color white offColor: Color white. - buttonsList addMorphBack: sendButton. - - attachmentButton := PluggableButtonMorph - on: self - getState: nil - action: #addAttachment. - attachmentButton - hResizing: #spaceFill; - vResizing: #spaceFill; - label: 'add attachment'; - setBalloonText: 'Send a file with the message'; - onColor: Color white offColor: Color white. - buttonsList addMorphBack: attachmentButton. - - morphicWindow addMorph: buttonsList frame: (0 @ 0 extent: 1 @ 0.1). - morphicWindow openInWorld!

1 0

The Trunk: EToys-dtl.317.mcz
by commits＠source.squeak.org 02 Dec '17

02 Dec '17

David T. Lewis uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-dtl.317.mcz ==================== Summary ==================== Name: EToys-dtl.317 Author: dtl Time: 2 December 2017, 11:37:37.119731 am UUID: 78f5f756-890e-4be3-88d0-09496afc5dff Ancestors: EToys-dtl.316, EToys-rjh.76 Merge EToys-rjh.76 submitted by Robert Hawley in 2010 =============== Diff against EToys-dtl.316 =============== Item was added: + ----- Method: Morph>>forward: (in category '*Etoys') ----- + forward: distance + self assuredPlayer forward: distance! Item was added: + ----- Method: Morph>>turn: (in category '*Etoys') ----- + turn: angle + self assuredPlayer turn: angle!

2 1

The Trunk: EToys-rjh.76.mcz
by commits＠source.squeak.org 02 Dec '17

02 Dec '17

David T. Lewis uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-rjh.76.mcz ==================== Summary ==================== Name: EToys-rjh.76 Author: rjh Time: 28 September 2010, 7:49:07.394 pm UUID: 12db789e-0c08-40a0-a7d4-bc5636a4ad19 Ancestors: EToys-ar.75 Please see the existing squeak-dev thread: "forward: and turn: in Morph - are we missing immediacy?" Currently, immediacy is lost because the following gives an error: x:=EllipseMorph new openInHand. x forward: 100 This proposed change makes good sense for the initial teaching of Smalltalk by hiding a very quirky and state based behaviour. =============== Diff against EToys-ar.75 =============== Item was added: + ----- Method: Morph>>forward: (in category '*Etoys') ----- + forward: distance + self assuredPlayer forward: distance! Item was added: + ----- Method: Morph>>turn: (in category '*Etoys') ----- + turn: angle + self assuredPlayer turn: angle!

1 0

The Trunk: EToys-dtl.316.mcz
by commits＠source.squeak.org 02 Dec '17

02 Dec '17

David T. Lewis uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-dtl.316.mcz ==================== Summary ==================== Name: EToys-dtl.316 Author: dtl Time: 30 November 2017, 8:01:53.317128 pm UUID: 1f54a00d-e84f-4edc-be26-c47b4c341103 Ancestors: EToys-dtl.315 Remove references to global World from WiWPasteUpMorph. In places where the World is assigned, instead call MorphicProject>>setWorld: which will set the world for Project current, and also set the global World if present in the image. This is expected to be consistent with current Squeak behavior, for which the value of World is Project current world. This requires testing (not done) to verify if this behavior is consistent with the original design intent of WiWPasteUpMorph. In the common case of transitioning from one project to another, the global World is set as the new project becomes current (and active). This update is a best effort to achieve similar behavior for becomeTheActiveWorldWith: and revertToPartentWorldWithEvent: in WiWPasteUpMorph. =============== Diff against EToys-dtl.315 =============== Item was changed: ----- Method: WiWPasteUpMorph>>becomeTheActiveWorldWith: (in category 'activation') ----- becomeTheActiveWorldWith: evt "Make the receiver become the active world, and give its hand the event provided, if not nil" | outerWorld | + Project current world == self ifTrue: [^ self]. - World == self ifTrue: [^ self]. worldState resetDamageRecorder. "since we may have moved, old data no longer valid" hostWindow setStripeColorsFrom: Color green. worldState canvas: nil. "safer to start from scratch" displayChangeSignatureOnEntry := Display displayChangeSignature. "Messy stuff to clear flaps from outer world" Flaps globalFlapTabsIfAny do: [:f | f changed]. + outerWorld := Project current world. + Project current setWorld: self. - outerWorld := World. - World := self. self installFlaps. + Project current setWorld: outerWorld. - World := outerWorld. outerWorld displayWorld. + Project current setWorld: self. - World := self. self viewBox: hostWindow panelRect. self startSteppingSubmorphsOf: self. self changed. pendingEvent := nil. evt ifNotNil: [self primaryHand handleEvent: (evt setHand: self primaryHand)]. ! Item was changed: ----- Method: WiWPasteUpMorph>>displayWorld (in category 'world state') ----- displayWorld "RAA 27 Nov 99 - if we are not active, then the parent should do the drawing" self flag: #bob. "probably not needed" + Project current world == self ifTrue: [^super displayWorld]. - World == self ifTrue: [^super displayWorld]. parentWorld ifNotNil: [^parentWorld displayWorld]. ^super displayWorld "in case MVC needs it"! Item was changed: ----- Method: WiWPasteUpMorph>>initialize (in category 'initialization') ----- initialize super initialize. + parentWorld := Project current world. - parentWorld := World. ! Item was changed: ----- Method: WiWPasteUpMorph>>mouseDown: (in category 'event handling') ----- mouseDown: evt + | world | + world := Project current world. + (world == self or: [world isNil]) ifTrue: [^ super mouseDown: evt]. - (World == self or: [World isNil]) ifTrue: [^ super mouseDown: evt]. (self bounds containsPoint: evt cursorPoint) ifFalse: [^ self]. self becomeTheActiveWorldWith: evt. ! Item was changed: ----- Method: WiWPasteUpMorph>>restoreDisplay (in category 'world state') ----- restoreDisplay + Project current world ifNotNil: [ :w | w restoreMorphicDisplay]. + "Comment from original method ar 3/18/2001: I don't actually expect this to be called"! - World ifNotNil:[World restoreMorphicDisplay]. "I don't actually expect this to be called"! Item was changed: ----- Method: WiWPasteUpMorph>>revertToParentWorldWithEvent: (in category 'activation') ----- revertToParentWorldWithEvent: evt "RAA 27 Nov 99 - if the display changed while we were in charge, parent may need to redraw" worldState resetDamageRecorder. "Terminate local display" + Project current setWorld: parentWorld. + parentWorld assuredCanvas. + parentWorld installFlaps. - World := parentWorld. - World assuredCanvas. - World installFlaps. hostWindow setStripeColorsFrom: Color red. (displayChangeSignatureOnEntry = Display displayChangeSignature) ifFalse: [ + parentWorld fullRepaintNeeded; displayWorld - World fullRepaintNeeded; displayWorld ]. + evt ifNotNil: [parentWorld restartWorldCycleWithEvent: evt]. - evt ifNotNil: [World restartWorldCycleWithEvent: evt]. !

1 0

interrupting a critical: block
by Nicolas Cellier 02 Dec '17

02 Dec '17

I just had a great success in interrupting a critical: block... Is this possibility expected? Too bad, the UI is now completely blocked...

6 8

Squeak trunk updates fail
by Fabio Niephaus 02 Dec '17

02 Dec '17

Hi all, A recent change causes trunk updates to freeze for some reason. I don't know which change is causing the problem, but I would appreciate if someone could like into this. Error log is below and indicates that there's at least an MNU. Thanks, Fabio == SqueakDebug.log == MessageNotUnderstood: TextMorph>>currentHand 1 December 2017 9:08:58.796499 am VM: Mac OS - Smalltalk Image: Squeak6.0alpha [latest update: #17412] SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir ... Trusted Dir /foobar/tooBar/forSqueak/bogus/ Untrusted Dir ... TextMorph(Object)>>doesNotUnderstand: #currentHand Receiver: a TextMorph(3649326) Arguments and temporary variables: aMessage: currentHand exception: MessageNotUnderstood: TextMorph>>currentHand resumeValue: nil Receiver's instance variables: bounds: 0@0 corner: 50@40 owner: nil submorphs: #() fullBounds: nil color: Color black extension: a MorphExtension (1948157) [other: (CreatingParagraph -> true)] borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for '***System error handling failed*** MessageNotUnderstood: Morp...etc... wrapFlag: false paragraph: a NewParagraph editor: nil container: nil predecessor: nil successor: nil backgroundColor: nil margins: nil editHistory: nil readOnly: nil autoFit: nil [] in TextMorph>>createParagraph Receiver: a TextMorph(3649326) Arguments and temporary variables: Receiver's instance variables: bounds: 0@0 corner: 50@40 owner: nil submorphs: #() fullBounds: nil color: Color black extension: a MorphExtension (1948157) [other: (CreatingParagraph -> true)] borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for '***System error handling failed*** MessageNotUnderstood: Morp...etc... wrapFlag: false paragraph: a NewParagraph editor: nil container: nil predecessor: nil successor: nil backgroundColor: nil margins: nil editHistory: nil readOnly: nil autoFit: nil BlockClosure>>ensure: Receiver: [closure] in TextMorph>>createParagraph Arguments and temporary variables: aBlock: [closure] in TextMorph>>createParagraph complete: nil returnValue: nil Receiver's instance variables: outerContext: TextMorph>>createParagraph startpc: 102 numArgs: 0 TextMorph>>createParagraph Receiver: a TextMorph(3649326) Arguments and temporary variables: Receiver's instance variables: bounds: 0@0 corner: 50@40 owner: nil submorphs: #() fullBounds: nil color: Color black extension: a MorphExtension (1948157) [other: (CreatingParagraph -> true)] borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for '***System error handling failed*** MessageNotUnderstood: Morp...etc... wrapFlag: false paragraph: a NewParagraph editor: nil container: nil predecessor: nil successor: nil backgroundColor: nil margins: nil editHistory: nil readOnly: nil autoFit: nil TextMorph>>paragraph Receiver: a TextMorph(3649326) Arguments and temporary variables: Receiver's instance variables: bounds: 0@0 corner: 50@40 owner: nil submorphs: #() fullBounds: nil color: Color black extension: a MorphExtension (1948157) [other: (CreatingParagraph -> true)] borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for '***System error handling failed*** MessageNotUnderstood: Morp...etc... wrapFlag: false paragraph: a NewParagraph editor: nil container: nil predecessor: nil successor: nil backgroundColor: nil margins: nil editHistory: nil readOnly: nil autoFit: nil TextMorph>>newContents: Receiver: a TextMorph(3649326) Arguments and temporary variables: stringOrText: a Text for '***System error handling failed*** MessageNotUndersto...etc... newText: a Text for '***System error handling failed*** MessageNotUnderstood: M...etc... embeddedMorphs: nil oldSelection: nil ed: nil sel: nil Receiver's instance variables: bounds: 0@0 corner: 50@40 owner: nil submorphs: #() fullBounds: nil color: Color black extension: a MorphExtension (1948157) [other: (CreatingParagraph -> true)] borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for '***System error handling failed*** MessageNotUnderstood: Morp...etc... wrapFlag: false paragraph: a NewParagraph editor: nil container: nil predecessor: nil successor: nil backgroundColor: nil margins: nil editHistory: nil readOnly: nil autoFit: nil TextMorph>>contentsAsIs: Receiver: a TextMorph(3649326) Arguments and temporary variables: stringOrText: a Text for '***System error handling failed*** MessageNotUndersto...etc... Receiver's instance variables: bounds: 0@0 corner: 50@40 owner: nil submorphs: #() fullBounds: nil color: Color black extension: a MorphExtension (1948157) [other: (CreatingParagraph -> true)] borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for '***System error handling failed*** MessageNotUnderstood: Morp...etc... wrapFlag: false paragraph: a NewParagraph editor: nil container: nil predecessor: nil successor: nil backgroundColor: nil margins: nil editHistory: nil readOnly: nil autoFit: nil MorphicProject>>composeDisplayTextIntoForm: Receiver: a MorphicProject (Kernel-nice.1127) in a PasteUpMorph(2434915) [world] Arguments and temporary variables: displayText: a DisplayText tmpText: nil canvas: nil color: nil Receiver's instance variables: dependents: nil world: a PasteUpMorph(2434915) [world] uiManager: a MorphicUIManager changeSet: a ChangeSet named Kernel-nice.1127 transcript: a TranscriptStream parentProject: a MorphicProject (Kernel-nice.1127) in a PasteUpMorph(2434915) [...etc... previousProject: nil displayDepth: 32 viewSize: 151@132 thumbnail: Form(151x132x32) nextProject: nil projectParameters: an IdentityDictionary(#PrevailingProjectFlags->an IdentityDictionary...etc... version: nil urlList: nil environment: nil lastDirectory: nil lastSavedAtSeconds: nil projectPreferenceFlagDictionary: an IdentityDictionary(#showSharedFlaps->true #showWorldMainDockingBar...etc... resourceManager: a ResourceManager uiProcess: a Process in nil DisplayText>>composeForm Receiver: a DisplayText Arguments and temporary variables: Receiver's instance variables: text: a Text for '***System error handling failed*** MessageNotUnderstood: Morp...etc... textStyle: a TextStyle Bitmap DejaVu Sans 9 offset: 0@0 form: nil foreColor: Color black backColor: Color white DisplayText>>form Receiver: a DisplayText Arguments and temporary variables: Receiver's instance variables: text: a Text for '***System error handling failed*** MessageNotUnderstood: Morp...etc... textStyle: a TextStyle Bitmap DejaVu Sans 9 offset: 0@0 form: nil foreColor: Color black backColor: Color white DisplayText>>displayOn:at:clippingBox:rule:fillColor: Receiver: a DisplayText Arguments and temporary variables: aDisplayMedium: DisplayScreen(1024x664x32) aDisplayPoint: 0@0 clipRectangle: 0@0 corner: 1024@664 ruleInteger: 3 aForm: nil form1: nil rule: nil Receiver's instance variables: text: a Text for '***System error handling failed*** MessageNotUnderstood: Morp...etc... textStyle: a TextStyle Bitmap DejaVu Sans 9 offset: 0@0 form: nil foreColor: Color black backColor: Color white DisplayText(DisplayObject)>>displayOn:at: Receiver: a DisplayText Arguments and temporary variables: aDisplayMedium: DisplayScreen(1024x664x32) aDisplayPoint: 0@0 Receiver's instance variables: text: a Text for '***System error handling failed*** MessageNotUnderstood: Morp...etc... textStyle: a TextStyle Bitmap DejaVu Sans 9 offset: 0@0 form: nil foreColor: Color black backColor: Color white ByteString(String)>>displayOn:at:textColor: Receiver: '***System error handling failed*** MessageNotUnderstood: MorphicToolBuilder>>currentWorld...etc... Arguments and temporary variables: aDisplayMedium: DisplayScreen(1024x664x32) aPoint: 0@0 aColor: Color black Receiver's instance variables: '***System error handling failed*** MessageNotUnderstood: MorphicToolBuilder>>currentWorld...etc... ByteString(String)>>displayOn:at: Receiver: '***System error handling failed*** MessageNotUnderstood: MorphicToolBuilder>>currentWorld...etc... Arguments and temporary variables: aDisplayMedium: DisplayScreen(1024x664x32) aPoint: 0@0 Receiver's instance variables: '***System error handling failed*** MessageNotUnderstood: MorphicToolBuilder>>currentWorld...etc... ByteString(String)>>displayAt: Receiver: '***System error handling failed*** MessageNotUnderstood: MorphicToolBuilder>>currentWorld...etc... Arguments and temporary variables: aPoint: 0@0 Receiver's instance variables: '***System error handling failed*** MessageNotUnderstood: MorphicToolBuilder>>currentWorld...etc... Project class>>tryEmergencyEvaluatorForRecovery: Receiver: Project Arguments and temporary variables: errorMessage: 'MessageNotUnderstood: MorphicToolBuilder>>currentWorld' hasTranscripter: true transcripter: Transcripter t: Transcripter Receiver's instance variables: superclass: Model methodDict: a MethodDictionary(size 245) format: 65555 instanceVariables: #('world' 'uiManager' 'changeSet' 'transcript' 'parentProjec...etc... organization: ('accessing' changeSet color displayDepth: findProjectView: forgetExistingURL...etc... subclasses: {MVCProject . MorphicProject} name: #Project classPool: a Dictionary(#AllProjects->an OrderedCollection(a MorphicProject (Ke...etc... sharedPools: nil environment: Smalltalk category: #'System-Support' Project class>>handlePrimitiveError: Receiver: Project Arguments and temporary variables: errorMessage: 'MessageNotUnderstood: MorphicToolBuilder>>currentWorld' Receiver's instance variables: superclass: Model methodDict: a MethodDictionary(size 245) format: 65555 instanceVariables: #('world' 'uiManager' 'changeSet' 'transcript' 'parentProjec...etc... organization: ('accessing' changeSet color displayDepth: findProjectView: forgetExistingURL...etc... subclasses: {MVCProject . MorphicProject} name: #Project classPool: a Dictionary(#AllProjects->an OrderedCollection(a MorphicProject (Ke...etc... sharedPools: nil environment: Smalltalk category: #'System-Support' MorphicProject(Object)>>primitiveError: Receiver: a MorphicProject (Kernel-nice.1127) in a PasteUpMorph(2434915) [world] Arguments and temporary variables: aString: 'MessageNotUnderstood: MorphicToolBuilder>>currentWorld' Receiver's instance variables: dependents: nil world: a PasteUpMorph(2434915) [world] uiManager: a MorphicUIManager changeSet: a ChangeSet named Kernel-nice.1127 transcript: a TranscriptStream parentProject: a MorphicProject (Kernel-nice.1127) in a PasteUpMorph(2434915) [...etc... previousProject: nil displayDepth: 32 viewSize: 151@132 thumbnail: Form(151x132x32) nextProject: nil projectParameters: an IdentityDictionary(#PrevailingProjectFlags->an IdentityDictionary...etc... version: nil urlList: nil environment: nil lastDirectory: nil lastSavedAtSeconds: nil projectPreferenceFlagDictionary: an IdentityDictionary(#showSharedFlaps->true #showWorldMainDockingBar...etc... resourceManager: a ResourceManager uiProcess: a Process in nil MorphicProject(Project)>>handleFatalDrawingError: Receiver: a MorphicProject (Kernel-nice.1127) in a PasteUpMorph(2434915) [world] Arguments and temporary variables: errMsg: 'MessageNotUnderstood: MorphicToolBuilder>>currentWorld' Receiver's instance variables: dependents: nil world: a PasteUpMorph(2434915) [world] uiManager: a MorphicUIManager changeSet: a ChangeSet named Kernel-nice.1127 transcript: a TranscriptStream parentProject: a MorphicProject (Kernel-nice.1127) in a PasteUpMorph(2434915) [...etc... previousProject: nil displayDepth: 32 viewSize: 151@132 thumbnail: Form(151x132x32) nextProject: nil projectParameters: an IdentityDictionary(#PrevailingProjectFlags->an IdentityDictionary...etc... version: nil urlList: nil environment: nil lastDirectory: nil lastSavedAtSeconds: nil projectPreferenceFlagDictionary: an IdentityDictionary(#showSharedFlaps->true #showWorldMainDockingBar...etc... resourceManager: a ResourceManager uiProcess: a Process in nil --- The full stack --- TextMorph(Object)>>doesNotUnderstand: #currentHand [] in TextMorph>>createParagraph BlockClosure>>ensure: TextMorph>>createParagraph TextMorph>>paragraph TextMorph>>newContents: TextMorph>>contentsAsIs: MorphicProject>>composeDisplayTextIntoForm: DisplayText>>composeForm DisplayText>>form DisplayText>>displayOn:at:clippingBox:rule:fillColor: DisplayText(DisplayObject)>>displayOn:at: ByteString(String)>>displayOn:at:textColor: ByteString(String)>>displayOn:at: ByteString(String)>>displayAt: Project class>>tryEmergencyEvaluatorForRecovery: Project class>>handlePrimitiveError: MorphicProject(Object)>>primitiveError: MorphicProject(Project)>>handleFatalDrawingError: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - [] in Debugger class>>morphicOpenOn:context:label:contents:fullView: BlockClosure>>ensure: Mutex>>critical: Debugger class>>morphicOpenOn:context:label:contents:fullView: MorphicProject(Project)>>dispatchTo:addPrefixAndSend:withArguments: Debugger class>>openOn:context:label:contents:fullView: StandardToolSet class>>debug:context:label:contents:fullView: ToolSet class>>debug:context:label:contents:fullView: Process>>debug:title:full: Process>>debug:title: StandardToolSet class>>debugError: ToolSet class>>debugError: UnhandledError>>defaultAction UndefinedObject>>handleSignal: UnhandledError(Exception)>>signal UnhandledError class>>signalForException: MessageNotUnderstood(Error)>>defaultAction MessageNotUnderstood>>defaultAction UndefinedObject>>handleSignal: MessageNotUnderstood(Exception)>>signal MorphicToolBuilder(Object)>>doesNotUnderstand: #currentWorld MorphicToolBuilder>>buildPluggableWindow: PluggableWindowSpec>>buildWith: MorphicToolBuilder(ToolBuilder)>>build: MorphicToolBuilder>>openDebugger: [] in Debugger>>openNotifierContents:label: BlockClosure>>ensure: Debugger>>openNotifierContents:label: [] in [] in Debugger class>>morphicOpenOn:context:label:contents:fullView: WorldState>>runStepMethodsIn: PasteUpMorph>>runStepMethods WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [] in MorphicProject>>spawnNewProcess [] in BlockClosure>>newProcess

5 11

The Trunk: System-mt.980.mcz
by commits＠source.squeak.org 01 Dec '17

01 Dec '17

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.980.mcz ==================== Summary ==================== Name: System-mt.980 Author: mt Time: 1 December 2017, 3:03:31.540778 pm UUID: c3f1a214-80ad-de46-b8dc-84579cadeda0 Ancestors: System-dtl.979 Let the result of "self userInterfaceTheme" actually respond to the messages understood by UserInterfaceTheme if those are no properties. Why? Make the existing use of "self userInterfaceTheme apply" work again. =============== Diff against System-dtl.979 =============== Item was changed: ----- Method: UserInterfaceThemeRequest>>doesNotUnderstand: (in category 'lookup') ----- doesNotUnderstand: aMessage "Look up the visual-attribute specified by aMessage's #selector in the current theme for the current target object." + aMessage numArgs = 0 ifTrue: [ + ^ (self theme get: self target class -> aMessage selector) + ifNil: [(self theme respondsTo: aMessage selector) + ifTrue: [self theme perform: aMessage selector] + ifFalse: [nil "means unset property"]]]. + + ^ self theme + perform: aMessage selector + withArguments: aMessage arguments.! - ^ aMessage numArgs = 0 - ifTrue: [self theme get: self target class -> aMessage selector] - ifFalse: [super doesNotUnderstand: aMessage]! Item was removed: - ----- Method: UserInterfaceThemeRequest>>set:for:to: (in category 'accessing') ----- - set: propertySymbol for: aClassOrSymbol to: valueObject - "Where aClass asks its userInterfaceTheme for propertySymbol, provide valueObject. Pass this on to the actual theme" - - ^self theme set: propertySymbol for: aClassOrSymbol to: valueObject - - !

1 0

The Trunk: Kernel-nice.1128.mcz
by commits＠source.squeak.org 01 Dec '17

01 Dec '17

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.1128.mcz ==================== Summary ==================== Name: Kernel-nice.1128 Author: nice Time: 1 December 2017, 9:20:34.354626 am UUID: f96b05ed-2a28-49f1-bbad-ef0d4b37b557 Ancestors: Kernel-nice.1127 Fix CompiledMethod appearing twice in ByteArray hierarchy =============== Diff against Kernel-nice.1127 =============== Item was changed: + (PackageInfo named: 'Kernel') postscript: '((ByteArray subclasses includes: CompiledMethod) and: [CompiledMethod superclass ~= ByteArray]) ifTrue: [ByteArray removeSubclass: CompiledMethod]'! - (PackageInfo named: 'Kernel') postscript: '"below, add code to be run after the loading of this package" - (Smalltalk globals includesKey: #MethodContext) ifTrue: - [Undeclared declare: #MethodContext from: Smalltalk globals]'!

3 2

The Trunk: CollectionsTests-nice.285.mcz
by commits＠source.squeak.org 01 Dec '17

01 Dec '17

Nicolas Cellier uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-nice.285.mcz ==================== Summary ==================== Name: CollectionsTests-nice.285 Author: nice Time: 30 November 2017, 9:25:14.59936 pm UUID: e50f181d-41a8-428f-ba63-b370998aac7d Ancestors: CollectionsTests-nice.284 Tests for (Wide)CharacterSet(Complement) - add tests for intersection: and union: - don't (ab)use should: when assert: could do it - add tests for awfully broken complement select:/reject: =============== Diff against CollectionsTests-nice.284 =============== Item was added: + ----- Method: CharacterSetComplementTest>>testIncludes (in category 'testing') ----- + testIncludes + | set complement | + set := 'abc' as: CharacterSet. + complement := set complement. + self assert: (set noneSatisfy: [:e | complement includes: e]). + self assert: (($d to: $z) allSatisfy: [:e | complement includes: e]).! Item was added: + ----- Method: CharacterSetComplementTest>>testReject (in category 'testing') ----- + testReject + | set complement subset | + set := 'abc' as: CharacterSet. + complement := set complement. + subset := complement reject: [:c | c isVowel]. + self assert: (subset includes: $z). "Not a vowel, it is in the subset" + self deny: (subset includes: $e). "a vowel should be rejected" + self deny: (subset includes: $b). "Not a vowel, but not in the original set"! Item was added: + ----- Method: CharacterSetComplementTest>>testSelect (in category 'testing') ----- + testSelect + | set complement digits | + set := 'abc012' as: CharacterSet. + complement := set complement. + digits := complement select: [:c | c isDigit]. + self assert: (digits includes: $9). + self deny: (digits includes: $1). + self deny: (digits includes: $z).! Item was added: + ----- Method: CharacterSetTest>>testComplement (in category 'testing') ----- + testComplement + | set complement | + set := 'abc' as: CharacterSet. + complement := set complement. + self assert: (set noneSatisfy: [:e | complement includes: e]). + self assert: (($d to: $z) allSatisfy: [:e | complement includes: e]).! Item was changed: ----- Method: CharacterSetTest>>testCopy (in category 'testing') ----- testCopy | theOriginal theCopy | theOriginal := CharacterSet newFrom: 'abc'. theCopy := theOriginal copy. theCopy remove: $a. + ^self assert: (theOriginal includes: $a) description: 'Changing the copy should not change the original'.! - ^self should: [theOriginal includes: $a] description: 'Changing the copy should not change the original'.! Item was added: + ----- Method: CharacterSetTest>>testIncludes (in category 'testing') ----- + testIncludes + | set | + set := 'abc' as: CharacterSet. + self assert: (($a to: $c) allSatisfy: [:e | set includes: e]). + self assert: (($d to: $z) noneSatisfy: [:e | set includes: e]).! Item was added: + ----- Method: CharacterSetTest>>testIntersection (in category 'testing') ----- + testIntersection + | intersection | + intersection := ('abc' as: CharacterSet) intersection: ('bcde' as: CharacterSet). + self assert: intersection = ('bc' as: CharacterSet)! Item was added: + ----- Method: CharacterSetTest>>testIntersectionWithComplement (in category 'testing') ----- + testIntersectionWithComplement + | intersection intersection2 | + intersection := ('abcd' as: CharacterSet) intersection: ('cdef' as: CharacterSet) complement. + self assert: intersection = ('ab' as: CharacterSet). + intersection2 := ('cdef' as: CharacterSet) complement intersection: ('abcd' as: CharacterSet). + self assert: intersection2 = intersection. "Intersection is symmetric"! Item was added: + ----- Method: CharacterSetTest>>testUnion (in category 'testing') ----- + testUnion + | union | + union := ('abc' as: CharacterSet) union: ('bcde' as: CharacterSet). + self assert: union = ('abcde' as: CharacterSet)! Item was added: + ----- Method: CharacterSetTest>>testUnionWithComplement (in category 'testing') ----- + testUnionWithComplement + | union union2 | + union := ('abc' as: CharacterSet) union: ('bcde' as: CharacterSet) complement. + self assert: union = ('de' as: CharacterSet) complement. + union2 := ('bcde' as: CharacterSet) complement union: ('abc' as: CharacterSet). + self assert: union2 = union. "union is symmetric"! Item was changed: ----- Method: WideCharacterSetTest>>testAddingToCharacterSet (in category 'testing') ----- testAddingToCharacterSet | cs wcs wc | cs := CharacterSet newFrom: 'aeiouy'. wcs := cs copy. wc := 4452 asCharacter. self shouldnt: [wcs add: wc] raise: Error description: 'adding a WideCharacter to an ordinary CharacterSet should turn it into a WideCharacterSet'. + self assert: (wcs size = (cs size + 1)) description: 'We just added a Character, size should be increased by one'. + self deny: (wcs = cs) description: 'We just added a Character, sets should not be equal'. + self deny: (cs = wcs) description: 'We just added a Character, sets should not be equal'. + self assert: (cs allSatisfy: [:char | wcs includes: char]) description: 'Each character of the original CharacterSet should be included in the WideCharacterSet'. + self assert: (wcs hasWideCharacters) description: 'We just added a WideCharacter, so this WideCharacterSet definitely has one'. + self assert: (wcs includes: wc) description: 'We just added this WideCharacter, so this WideCharacterSet should include it'. - self should: [wcs size = (cs size + 1)] description: 'We just added a Character, size should be increased by one'. - self shouldnt: [wcs = cs] description: 'We just added a Character, sets should not be equal'. - self shouldnt: [cs = wcs] description: 'We just added a Character, sets should not be equal'. - self should: [cs allSatisfy: [:char | wcs includes: char]] description: 'Each character of the original CharacterSet should be included in the WideCharacterSet'. - self should: [wcs hasWideCharacters] description: 'We just added a WideCharacter, so this WideCharacterSet definitely has one'. - self should: [wcs includes: wc] description: 'We just added this WideCharacter, so this WideCharacterSet should include it'. wcs add: wc. + self assert: (wcs size = (cs size + 1)) description: 'We just added a Character already included in the set, size should be unchanged'. - self should: [wcs size = (cs size + 1)] description: 'We just added a Character already included in the set, size should be unchanged'. wcs remove: wc. + self assert: (wcs size = cs size) description: 'We added then removed a Character, now size should be equal to original'. + self deny: (wcs hasWideCharacters) description: 'We just removed the only WideCharacter, so this WideCharacterSet definitely has no WideCharacter'. - self should: [wcs size = cs size] description: 'We added then removed a Character, now size should be equal to original'. - self shouldnt: [wcs hasWideCharacters] description: 'We just removed the only WideCharacter, so this WideCharacterSet definitely has no WideCharacter'. + self assert: (wcs = cs) description: 'A WideCharacterSet can be equal to an Ordinary CharacterSet'. + self assert: (cs = wcs) description: 'An ordinary CharacterSet can be equal to a WideCharacterSet'. + self assert: (cs hash = wcs hash) description: 'If some objects are equal, then they should have same hash code'. - self should: [wcs = cs] description: 'A WideCharacterSet can be equal to an Ordinary CharacterSet'. - self should: [cs = wcs] description: 'An ordinary CharacterSet can be equal to a WideCharacterSet'. - self should: [cs hash = wcs hash] description: 'If some objects are equal, then they should have same hash code'. ! Item was changed: ----- Method: WideCharacterSetTest>>testCreation (in category 'testing') ----- testCreation "By now, only creation method is newFrom:" | cs1 wcs1 cs2 wcs2 byteString wideString | byteString := 'aeiouy'. wideString := 'aeiouy' copyWith: 340 asCharacter. cs1 := CharacterSet newFrom: byteString. wcs1 := WideCharacterSet newFrom: byteString. + self assert: (wcs1 = cs1). + self assert: (wcs1 size = byteString "asSet" size). - self should: [wcs1 = cs1]. - self should: [wcs1 size = byteString "asSet" size]. cs2 := CharacterSet newFrom: wideString. wcs2 := WideCharacterSet newFrom: wideString. + self assert: (wcs2 = cs2). + self assert: (wcs2 size = wideString "asSet" size). - self should: [wcs2 = cs2]. - self should: [wcs2 size = wideString "asSet" size]. + self assert: ((byteString indexOfAnyOf: wcs1) = 1) description: 'This should used optimized byteArrayMap method'. + self assert: ((byteString indexOfAnyOf: wcs2) = 1) description: 'This should used optimized byteArrayMap method'. - self should: [(byteString indexOfAnyOf: wcs1) = 1] description: 'This should used optimized byteArrayMap method'. - self should: [(byteString indexOfAnyOf: wcs2) = 1] description: 'This should used optimized byteArrayMap method'. + self assert: (('bcd' indexOfAnyOf: wcs1) = 0) description: 'This should used optimized byteArrayMap method'. + self assert: (('bcd' indexOfAnyOf: wcs2) = 0) description: 'This should used optimized byteArrayMap method'.! - self should: [('bcd' indexOfAnyOf: wcs1) = 0] description: 'This should used optimized byteArrayMap method'. - self should: [('bcd' indexOfAnyOf: wcs2) = 0] description: 'This should used optimized byteArrayMap method'.!

3 3

Jump to page: