Squeak-dev April 2013

squeak-dev@lists.squeakfoundation.org

66 participants
225 discussions

Reading and using data from external file in Etoys
by Luis Valente 01 May '13

01 May '13

Hi all, I have a project where I need to read data that is in an external file, that file will be in CSV or XML format. I don't know how to do this nor if it is possible in Etoys? Who can give ma a hand with a detailed explanation? Thank you, All the best, Luís Valente www.valente.org.pt

5 6

Re: [squeak-dev] The Inbox: Tools-fbs.461.mcz
by Frank Shearar 30 Apr '13

30 Apr '13

On 30 April 2013 09:46, <commits(a)source.squeak.org> wrote: > Frank Shearar uploaded a new version of Tools to project The Inbox: > http://source.squeak.org/inbox/Tools-fbs.461.mcz > > ==================== Summary ==================== > > Name: Tools-fbs.461 > Author: fbs > Time: 30 April 2013, 9:46:27.007 am > UUID: 6b338c44-87ea-4b4a-9059-833bcd2545ed > Ancestors: Tools-fbs.460 > > Clean up the "JIT development" flow. On hitting the "create" button in response to a MessageNotUnderstood, NotYetImplemented or SubclassResponsibility, > * a MNU prompts the user for a class and category, pushes a stub method onto the call stack and debugs it; > * a NYI debugs the context with the #notYetImplemented/#shouldBeImplemented; > * a SR prompts the user for a class (between and including the receiver class and the superclass whose method has the #subclassResponsibility), categorises the new method the same as the superclass's, pushes a stub onto the call stack and debugs that stub. > > In all cases, resumption lets methods _return_ values down the stack. > > =============== Diff against Tools-fbs.460 =============== This addresses http://bugs.squeak.org/view.php?id=7761, among other things. It's in Inbox because it's quite a large commit, and it touches the Debugger. I'd like a second pair of eyes on it. Note that there's a #populateImplementInMenu: touched above. It has no senders, I can't find any methods whose source contains the selector. Removing it is outside the scope of _this_ commit. Perhaps it can just be moved to 45Deprecated, and we can GC it at some point. frank

1 0

The Inbox: Tools-fbs.461.mcz
by commits＠source.squeak.org 30 Apr '13

30 Apr '13

Frank Shearar uploaded a new version of Tools to project The Inbox: http://source.squeak.org/inbox/Tools-fbs.461.mcz ==================== Summary ==================== Name: Tools-fbs.461 Author: fbs Time: 30 April 2013, 9:46:27.007 am UUID: 6b338c44-87ea-4b4a-9059-833bcd2545ed Ancestors: Tools-fbs.460 Clean up the "JIT development" flow. On hitting the "create" button in response to a MessageNotUnderstood, NotYetImplemented or SubclassResponsibility, * a MNU prompts the user for a class and category, pushes a stub method onto the call stack and debugs it; * a NYI debugs the context with the #notYetImplemented/#shouldBeImplemented; * a SR prompts the user for a class (between and including the receiver class and the superclass whose method has the #subclassResponsibility), categorises the new method the same as the superclass's, pushes a stub onto the call stack and debugs that stub. In all cases, resumption lets methods _return_ values down the stack. =============== Diff against Tools-fbs.460 =============== Item was added: + ----- Method: Debugger>>askForSuperclassOf:upTo:toImplement:ifCancel: (in category 'private') ----- + askForSuperclassOf: aClass upTo: superclass toImplement: aSelector ifCancel: cancelBlock + | classes chosenClassIndex | + classes := aClass withAllSuperclasses reject: [:cls | aClass isKindOf: cls]. + chosenClassIndex := UIManager default + chooseFrom: (classes collect: [:c | c name]) + title: 'Define #', aSelector, ' in which class?'. + chosenClassIndex = 0 ifTrue: [^ cancelBlock value]. + ^ classes at: chosenClassIndex! Item was changed: ----- Method: Debugger>>buildNotifierWith:label:message: (in category 'toolbuilder') ----- buildNotifierWith: builder label: label message: messageString | windowSpec listSpec textSpec panelSpec quads | windowSpec := builder pluggableWindowSpec new. windowSpec model: self. windowSpec extent: 450 @ 156. "nice and wide to show plenty of the error msg" windowSpec label: label. windowSpec children: OrderedCollection new. panelSpec := builder pluggablePanelSpec new. panelSpec children: OrderedCollection new. quads := self preDebugButtonQuads. + (self interruptedContext selector == #doesNotUnderstand:) ifTrue: [ - (#(#notYetImplemented #shouldBeImplemented #doesNotUnderstand:) includes: self interruptedContext selector) ifTrue: [ quads := quads copyWith: { 'Create'. #createMethod. #magenta. 'create the missing method' } ]. + (#(#notYetImplemented #shouldBeImplemented) includes: self interruptedContext selector) ifTrue: [ + quads := quads copyWith: + { 'Create'. #createImplementingMethod. #magenta. 'implement the marked method' } + ]. (self interruptedContext selector == #subclassResponsibility) ifTrue: [ quads := quads copyWith: { 'Create'. #createOverridingMethod. #magenta. 'create the missing overriding method' } ]. quads do:[:spec| | buttonSpec | buttonSpec := builder pluggableButtonSpec new. buttonSpec model: self. buttonSpec label: spec first. buttonSpec action: spec second. buttonSpec help: spec fourth. buttonSpec frame: self preDebugButtonQuadFrame. panelSpec children add: buttonSpec. ]. panelSpec layout: #horizontal. "buttons" panelSpec frame: self preDebugButtonQuadFrame. windowSpec children add: panelSpec. Preferences eToyFriendly | messageString notNil ifFalse:[ listSpec := builder pluggableListSpec new. listSpec model: self; list: #contextStackList; getIndex: #contextStackIndex; setIndex: #debugAt:; frame: self contextStackFrame. windowSpec children add: listSpec. ] ifTrue:[ message := messageString. textSpec := builder pluggableTextSpec new. textSpec model: self; getText: #preDebugMessageString; setText: nil; selection: nil; menu: #debugProceedMenu:; frame: self contextStackFrame. windowSpec children add: textSpec. ]. ^windowSpec! Item was changed: ----- Method: Debugger>>contents:notifying: (in category 'accessing') ----- contents: aText notifying: aController "The retrieved information has changed and its source must now be updated. In this case, the retrieved information is the method of the selected context." | result selector classOfMethod category h ctxt newMethod | contextStackIndex = 0 ifTrue: [^false]. self selectedContext isExecutingBlock ifTrue: [h := self selectedContext activeHome. h ifNil: [self inform: 'Method for block not found on stack, can''t edit and continue'. ^false]. (self confirm: 'I will have to revert to the method from\which this block originated. Is that OK?' withCRs) ifFalse: [^false]. self resetContext: h changeContents: false. "N.B. Only reset the contents if the compilation succeeds. If contents are reset when compilation fails both compiler error message and modifications are lost." (result := self contents: aText notifying: aController) ifTrue: [self contentsChanged]. ^result]. classOfMethod := self selectedClass. category := self selectedMessageCategoryName. selector := self selectedClass newParser parseSelector: aText. (selector == self selectedMessageName or: [(self selectedMessageName beginsWith: 'DoIt') and: [selector numArgs = self selectedMessageName numArgs]]) ifFalse: [self inform: 'can''t change selector'. ^false]. selector := classOfMethod compile: aText classified: category notifying: aController. selector ifNil: [^false]. "compile cancelled" contents := aText. newMethod := classOfMethod compiledMethodAt: selector. newMethod isQuick ifTrue: [self down. self selectedContext jump: (self selectedContext previousPc - self selectedContext pc)]. ctxt := interruptedProcess popTo: self selectedContext. ctxt == self selectedContext ifFalse: [self inform: 'Method saved, but current context unchanged\because of unwind error. Click OK to see error' withCRs] ifTrue: [newMethod isQuick ifFalse: [interruptedProcess restartTopWith: newMethod; stepToSendOrReturn]. contextVariablesInspector object: nil]. self resetContext: ctxt. Smalltalk isMorphic ifTrue: [World addAlarm: #changed: withArguments: #(contentsSelection) for: self at: (Time millisecondClockValue + 200)]. ^true! Item was added: + ----- Method: Debugger>>createImplementingMethod (in category 'private') ----- + createImplementingMethod + "Should only be called when this Debugger was created in response to a + NotYetImplemented exception. All we need to do is pop the signalling context off the stack and open the #notYetImplemented method." + | signallingContext | + signallingContext := self selectedContext sender. + "Pop the signalling context off the stack" + self resetContext: signallingContext. + self debug.! Item was changed: ----- Method: Debugger>>createMethod (in category 'private') ----- createMethod "Should only be called when this Debugger was created in response to a MessageNotUnderstood exception. Create a stub for the method that was missing and proceed into it." | msg chosenClass | msg := self contextStackTop exceptionMessage. chosenClass := self askForSuperclassOf: self contextStackTop receiver class toImplement: msg selector ifCancel: [^self]. + self implementMissingMethod: msg inClass: chosenClass.! - self implement: msg inClass: chosenClass.! Item was changed: ----- Method: Debugger>>createOverridingMethod (in category 'private') ----- createOverridingMethod "Should only be called when this Debugger was created in response to a + SubclassResponsibility exception. Create a stub for the method that needs + overriding and proceed into it. Let the user only select a class in the + inheritance chain between the actual class and the class declaring the + subclassResponsibility." + | chosenClass msg category | - SubclassResponsibility exception. Create a stub for the method that was - missing and proceed into it." - | msg | msg := self contextStackTop exceptionMessage. + chosenClass := self + askForSuperclassOf: self contextStackTop receiver class + upTo: self contextStackTop sender method methodClass + toImplement: msg selector + ifCancel: [^self]. + "Use the same category as the marker method." + category := self contextStackTop sender selectorCategory. + self implementOverridingMethod: msg inClass: chosenClass inCategory: category.! - self implement: msg inClass: self contextStackTop receiver class inCategory: self contextStackTop selectorCategory.! Item was removed: - ----- Method: Debugger>>implement:inClass: (in category 'context stack menu') ----- - implement: aMessage inClass: aClass - ^ self - implement: aMessage - inClass: aClass - inCategory: (self askForCategoryIn: aClass default: 'as yet unclassified').! Item was removed: - ----- Method: Debugger>>implement:inClass:inCategory: (in category 'context stack menu') ----- - implement: aMessage inClass: aClass inCategory: aSymbol - aClass - compile: aMessage createStubMethod - classified: aSymbol. - self setContentsToForceRefetch. - self selectedContext privRefreshWith: (aClass lookupSelector: aMessage selector). - aMessage numArgs > 0 ifTrue: - [aMessage arguments withIndexDo: - [:arg :index| - self selectedContext tempAt: index put: arg]]. - - "Snip out of the call stack the context that raised the debugger. - the #notYetImplemented send, for example." - self selectedContext privSender: self selectedContext sender sender. - self resetContext: self selectedContext. - self debug.! Item was added: + ----- Method: Debugger>>implementMissingMethod:inClass: (in category 'context stack menu') ----- + implementMissingMethod: aMessage inClass: aClass + ^ self + implementMissingMethod: aMessage + inClass: aClass + inCategory: (self askForCategoryIn: aClass default: 'as yet unclassified').! Item was added: + ----- Method: Debugger>>implementMissingMethod:inClass:inCategory: (in category 'context stack menu') ----- + implementMissingMethod: aMessage inClass: aClass inCategory: aSymbol + "Create a stub implementation of the missing message and sew it onto the top of the stack, ensuring the context's arguments are set correctly. Debug the new context." + self pushStubMethodOnStack: aMessage inClass: aClass inCategory: aSymbol. + + "Cut out the sender context. This is the context that signalled the MessageNotUnderstood." + self selectedContext privSender: self selectedContext sender. + self resetContext: self selectedContext. + self debug.! Item was added: + ----- Method: Debugger>>implementOverridingMethod:inClass:inCategory: (in category 'context stack menu') ----- + implementOverridingMethod: aMessage inClass: aClass inCategory: aSymbol + "Create a stub implementation of the overriding message and sew it onto the top of the stack, ensuring the context's arguments are set correctly. Debug the new context." + self pushStubMethodOnStack: aMessage inClass: aClass inCategory: aSymbol. + + "Cut out the sender context. This is the context that signalled the SubclassResponsibility." + self selectedContext privSender: self selectedContext sender sender. + self resetContext: self selectedContext. + self debug.! Item was changed: ----- Method: Debugger>>populateImplementInMenu: (in category 'context stack menu') ----- populateImplementInMenu: aMenu | msg | msg := self selectedContext at: 1. self selectedContext receiver class withAllSuperclasses do: [:each | + aMenu add: each name target: self selector: #implementMissingMethod:inClass: argumentList: (Array with: msg with: each)]. - aMenu add: each name target: self selector: #implement:inClass: argumentList: (Array with: msg with: each)]. ^ aMenu ! Item was added: + ----- Method: Debugger>>pushStubMethodOnStack:inClass:inCategory: (in category 'private') ----- + pushStubMethodOnStack: aMessage inClass: aClass inCategory: aSymbol + "Create a stub implementation of the message and sew it onto the top of the stack, ensuring the context's arguments are set correctly." + aClass + compile: aMessage createStubMethod + classified: aSymbol. + self setContentsToForceRefetch. + self selectedContext privRefreshWith: (aClass lookupSelector: aMessage selector). + aMessage numArgs > 0 ifTrue: + [aMessage arguments withIndexDo: + [:arg :index| + self selectedContext tempAt: index put: arg]].! Item was added: + ----- Method: PreDebugWindow>>createImplementingMethod (in category '*Tools-Debugger') ----- + createImplementingMethod + model createImplementingMethod.! Item was added: + ----- Method: PreDebugWindow>>createMethod (in category '*Tools-Debugger') ----- + createMethod + model createMethod! Item was added: + ----- Method: PreDebugWindow>>createOverridingMethod (in category '*Tools-Debugger') ----- + createOverridingMethod + model createOverridingMethod!

1 0

Can we please fix the IDE?
by Chris Muller 30 Apr '13

30 Apr '13

Hey Colin, something with Environments has had a basic IDE function broken for some time now. Trunk broken for long time can affect the community, could you help me get this fixed? First, the problem can be observed simply by browsing references to the class Error, first from workspace text then from a class list. The root cause is that these use different ways to find the list of referencing methods. One uses: (SystemNavigation default allCallsOn: (Smalltalk globals associationAt: #Error)) while the other uses: (SystemNavigation default allCallsOn: (Smalltalk globals bindingOf: #Error)) The two expressions (bindingOf: vs. associationAt:) produce equivalent, but not identical ClassBindings. But since CompiledMethod>>#indexOfLiteral: is doing an identity-check on the ClassBinding #Error=>Error, it comes back false for the #associationAt: case. So, what is the proper fix here? 1) make bindingOf: and associationAt: point to the same object? 2) change CompiledMethod>>#indexOfLiteral: to do an equality rather than identity check? 3) change the IDE code to use #bindingOf: instead of #associationAt:? I've already been affected by this and would like to get it fixed, please advise. Thanks, Chris

3 3

Daily Commit Log
by commits＠source.squeak.org 30 Apr '13

30 Apr '13

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2013-April/005882.html Name: Environments-cwp.24 Ancestors: Environments-bf.23 Make #asBinding: preserve binding identity whenever possible. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-April/005883.html Name: Environments-cwp.25 Ancestors: Environments-cwp.24 Use aliases for classes imported with a different name, rather than copying the class binding. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-April/005884.html Name: Tests-cwp.201 Ancestors: Tests-ul.200 Updated binding tests to ensure that binding identity is preserved whenever possible. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-April/005885.html Name: Tests-cwp.202 Ancestors: Tests-cwp.201 Use aliases for classes imported with a different name, rather than copying the class binding. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-April/005886.html Name: Compiler-nice.263 Ancestors: Compiler-eem.262 Revert the halt in Encoder>>litIndex: ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-April/005887.html Name: Installer-Core-fbs.366 Ancestors: Installer-Core-fbs.365 versionNames is a Set nowadays, but we want to sort it. Hence, convert to an Array. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-April/005888.html Name: Traits-cwp.293 Ancestors: Traits-cwp.292 When registering a Trait, catch and resume AttemptToWriteReadOnlyGlobal, since there may already be a class binding. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-April/005889.html Name: Installer-Core-fbs.367 Ancestors: Installer-Core-fbs.366 Use #sorted:. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-April/005890.html Name: Installer-Core-fbs.368 Ancestors: Installer-Core-fbs.367 #sorted: returns a sorted copy of the collection, so don't just throw the copy away. =============================================

1 0

The Trunk: Installer-Core-fbs.368.mcz
by commits＠source.squeak.org 29 Apr '13

29 Apr '13

Frank Shearar uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-fbs.368.mcz ==================== Summary ==================== Name: Installer-Core-fbs.368 Author: fbs Time: 29 April 2013, 10:27:50.682 pm UUID: f9e8d0c8-bdd3-4130-a3a4-aa96f6567af4 Ancestors: Installer-Core-fbs.367 #sorted: returns a sorted copy of the collection, so don't just throw the copy away. =============== Diff against Installer-Core-fbs.367 =============== Item was changed: ----- Method: InstallerMonticello>>mcThing (in category 'monticello') ----- mcThing | loader | loader := self classMCVersionLoader new. "several attempts to read files - repository readableFileNames sometimes fails" self packages do: [:pkg | | versionNames fileToLoad version | versionNames := mc versionNamesForPackageNamed: (pkg asMCVersionName versionNumber = 0 ifTrue: [ "Just a package name specified, use it whole." pkg ] ifFalse: [pkg asMCVersionName packageName]). + fileToLoad := (versionNames sorted: self mcSortFileBlock) - versionNames sorted: self mcSortFileBlock. - fileToLoad := versionNames detect: (self mcDetectFileBlock: pkg) ifNone: [ nil ]. fileToLoad ifNotNil: [version := mc versionNamed: fileToLoad. (version isKindOf: MCConfiguration) ifTrue: [^ version] ifFalse: [self normalizedRepositories do: [:repo | MCRepositoryGroup default addRepository: repo]. self normalizedRepositories do: [:repo | version workingCopy repositoryGroup addRepository: repo]. loader addVersion: version]. self logCR: ' found ' , version fileName , '...']]. ^ loader!

1 0

Re: [squeak-dev] The Trunk: Installer-Core-fbs.367.mcz
by Bob Arning 29 Apr '13

29 Apr '13

My original question stands - what does this accomplish? On 4/29/13 6:32 PM, commits(a)source.squeak.org wrote: > + versionNames sorted: self mcSortFileBlock. Cheers, Bob

2 1

using reflections in squeak
by Dvir Faivel 29 Apr '13

29 Apr '13

hi there, i have a question about squeak object model. how can i check whether a method contains a certain piece of code? i.e if the method "isKindOf:" has the code "class inheritsFrom" - return true, otherwise - return false (in this case, isKindOf indeed has that code, so i expect to get true). obviously if i know the class+method, than i can check the code in the Browser, but how can i perform this check at runtime when the class+methods are given as an input? if the class is represented as aClass, the method is represented as aMethod, and the code to check is: 'check if this code exist', than i guess the start would be: checkClass: aClass andMethod: aMethod aClass respondsTo: aMethod ifTrue: [ ^ hmmmmm hasCode: 'check if this code exist' ] ifFalse: [ ^ false ] but what should i actually check in the ifTrue block? i need to be able to check this by code, and not with the refactoring browser. sorry for the (very) long question. thanks, dvir.

3 6

SMPTE Timecode
by Udo Schneider 29 Apr '13

29 Apr '13

All, is anybody aware of an SMPTE Timecode implementation for Squeak? Maybe as part of a bigger package? Thanks, Udo

2 2

Re: [squeak-dev] The Trunk: Installer-Core-fbs.366.mcz
by Levente Uzonyi 29 Apr '13

29 Apr '13

On Mon, 29 Apr 2013, commits(a)source.squeak.org wrote: > Frank Shearar uploaded a new version of Installer-Core to project The Trunk: > http://source.squeak.org/trunk/Installer-Core-fbs.366.mcz > > ==================== Summary ==================== > > Name: Installer-Core-fbs.366 > Author: fbs > Time: 29 April 2013, 12:13:46.368 pm > UUID: a93fa0fc-2a93-405a-86df-7aa334ee214b > Ancestors: Installer-Core-fbs.365 > > versionNames is a Set nowadays, but we want to sort it. Hence, convert to an Array. If your goal is to sort something non-sortable, or you don't want to change the existing object, then use #sorted:. So in this case: versionNames sorted: self mcSortFileBlock #sort: intentionally only works if the receiver is sortable, and it modifies the receiver. Levente > > =============== Diff against Installer-Core-fbs.365 =============== > > Item was changed: > ----- Method: InstallerMonticello>>mcThing (in category 'monticello') ----- > mcThing > | loader | > loader := self classMCVersionLoader new. > > "several attempts to read files - repository readableFileNames > sometimes fails" > self packages > do: [:pkg | > | versionNames fileToLoad version | > versionNames := mc versionNamesForPackageNamed: > (pkg asMCVersionName versionNumber = 0 > ifTrue: [ "Just a package name specified, use it whole." pkg ] > ifFalse: [pkg asMCVersionName packageName]). > + versionNames asArray sort: self mcSortFileBlock. > - versionNames sort: self mcSortFileBlock. > fileToLoad := versionNames > detect: (self mcDetectFileBlock: pkg) > ifNone: [ nil ]. > fileToLoad > ifNotNil: [version := mc versionNamed: fileToLoad. > (version isKindOf: MCConfiguration) > ifTrue: [^ version] > ifFalse: [self normalizedRepositories do: [:repo | > MCRepositoryGroup default addRepository: repo]. > self normalizedRepositories do: [:repo | > version workingCopy repositoryGroup addRepository: repo]. > loader addVersion: version]. > self logCR: ' found ' , version fileName , '...']]. > ^ loader! > > >

2 1

Jump to page: