Squeak-dev November 2012

squeak-dev@lists.squeakfoundation.org

56 participants
115 discussions

Squeak Board minutes - 11/5/12
by Chris Cunnington 06 Nov '12

06 Nov '12

All members were present - Colin is reviving the Squeak G+ page as a hub for Squeak Community Meetings [1] - The Board explored the monthly financial report provided by the Software Freedom Conservancy. With a free server and a single server costing money things look well in hand. - SqueakSource [2] was down at the time of the meeting, which prompted a discussion of how to move packages to SqS3 [3]. It was observed that there is a Chilean mirror to SqueakSource [4]. Colin is planning to talk to Dale about how packages could be moved. Chris Muller is investigating the process also. - The number of tests outstanding for the release of Squeak 4.4 is quite low and it is likely that Squeak4.4 will be released soon [1] https://plus.google.com/u/0/102330490592489316443/posts [2] http://www.squeaksource.com [3] http://ss3.gemstone.com/ss [4] http://www.dsal.cl/squeaksource/

1 0

Daily Commit Log
by commits＠source.squeak.org 06 Nov '12

06 Nov '12

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2012-November/005549.h… Name: Kernel-eem.715 Ancestors: Kernel-cwp.714 Faster less wasteful sendsSelector: ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-November/005550.h… Name: Kernel-nice.716 Ancestors: Kernel-eem.715 Let (0.0 printShowingDecimalPlaces: 2) = '0.00' ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-November/005551.h… Name: Compiler-eem.239 Ancestors: Compiler-eem.238 Eliminate horrible side-effect in printing whileTrue/whileFalse nodes that undid the tranformation to whileTrue:/whileFalse:. =============================================

1 0

The Trunk: Compiler-eem.239.mcz
by commits＠source.squeak.org 06 Nov '12

06 Nov '12

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.239.mcz ==================== Summary ==================== Name: Compiler-eem.239 Author: eem Time: 5 November 2012, 3:09:13.298 pm UUID: 074c58f2-bc92-4c3f-adff-56c47d3884ef Ancestors: Compiler-eem.238 Eliminate horrible side-effect in printing whileTrue/whileFalse nodes that undid the tranformation to whileTrue:/whileFalse:. =============== Diff against Compiler-eem.238 =============== Item was changed: ----- Method: MessageNode>>printWhileOn:indent: (in category 'printing') ----- printWhileOn: aStream indent: level - self printReceiver: receiver on: aStream indent: level. + self + printKeywords: originalSelector + arguments: originalArguments - (arguments isEmpty not - and: [arguments first isJust: NodeNil]) ifTrue: - [selector := SelectorNode new - key: - (selector key == #whileTrue: - ifTrue: [#whileTrue] - ifFalse: [#whileFalse]) - code: #macro. - arguments := Array new]. - self printKeywords: selector key arguments: arguments on: aStream indent: level!

1 0

The Trunk: Kernel-nice.716.mcz
by commits＠source.squeak.org 05 Nov '12

05 Nov '12

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.716.mcz ==================== Summary ==================== Name: Kernel-nice.716 Author: nice Time: 5 November 2012, 9:44:23.181 pm UUID: 2d5c476b-182b-4c53-a260-ed0da80e0bff Ancestors: Kernel-eem.715 Let (0.0 printShowingDecimalPlaces: 2) = '0.00' =============== Diff against Kernel-eem.715 =============== Item was changed: ----- Method: Float>>printOn:showingDecimalPlaces: (in category 'printing') ----- printOn: aStream showingDecimalPlaces: placesDesired "Refine super implementation in order to avoid any rounding error caused by rounded or roundTo:" self isFinite ifFalse: [^self printOn: aStream]. self > 0.0 ifTrue: [self absPrintExactlyOn: aStream base: 10 decimalPlaces: placesDesired showTrailingFractionalZeros: true] ifFalse: [self sign = -1 ifTrue: [aStream nextPutAll: '-']. self = 0.0 + ifTrue: + [aStream nextPut: $0. + placesDesired > 0 ifTrue: [aStream nextPut: $.; next: placesDesired put: $0]] - ifTrue: [aStream nextPutAll: '0.0'] ifFalse: [self absPrintExactlyOn: aStream base: 10 decimalPlaces: placesDesired showTrailingFractionalZeros: true]]!

1 0

Re: [squeak-dev] The Inbox: Tools-eem.426.mcz
by Nicolas Cellier 05 Nov '12

05 Nov '12

Good, except FakeClassPool is kind of obsolete (or I wish it were). http://forum.world.st/FakeClassPool-adopt-Pouah-td3249925.html http://forum.world.st/Killing-FakeClassPool-and-failedDoit-references-td341… http://source.squeak.org/trunk/Tools-nice.304.mcz http://source.squeak.org/trunk/Morphic-nice.527.mcz http://source.squeak.org/trunk/ST80-nice.127.mcz and for joke: http://source.squeak.org/inbox/System-nice.423.mcz 2012/11/5 <commits(a)source.squeak.org>: > A new version of Tools was added to project The Inbox: > http://source.squeak.org/inbox/Tools-eem.426.mcz > > ==================== Summary ==================== > > Name: Tools-eem.426 > Author: eem > Time: 5 November 2012, 10:39:18.848 am > UUID: d2507ad6-1423-4b1a-9922-41894ea2174a > Ancestors: Tools-ul.425 > > A serviceable "run until expression" for the debugger. > Would be nice if the UI updated. > WOuld be nice if there was some solution for temporaries > that are undefined rather than writing explicit guards in the > expressions. > Hence publishing to inbox for now. > > =============== Diff against Tools-ul.425 =============== > > Item was changed: > CodeHolder subclass: #Debugger > + instanceVariableNames: 'interruptedProcess interruptedController contextStack contextStackIndex contextStackList receiverInspector contextVariablesInspector externalInterrupt proceedValue selectingPC savedCursor isolationHead failedProject errorWasInUIProcess labelString message untilExpression' > - instanceVariableNames: 'interruptedProcess interruptedController contextStack contextStackIndex contextStackList receiverInspector contextVariablesInspector externalInterrupt proceedValue selectingPC savedCursor isolationHead failedProject errorWasInUIProcess labelString message' > classVariableNames: 'ContextStackKeystrokes ErrorRecursion InterruptUIProcessIfBlockedOnErrorInBackgroundProcess' > poolDictionaries: '' > category: 'Tools-Debugger'! > > !Debugger commentStamp: '<historical>' prior: 0! > I represent the machine state at the time of an interrupted process. I also represent a query path into the state of the process. The debugger is typically viewed through a window that views the stack of suspended contexts, the code for, and execution point in, the currently selected message, and inspectors on both the receiver of the currently selected message, and the variables in the current context. > > Special note on recursive errors: > Some errors affect Squeak's ability to present a debugger. This is normally an unrecoverable situation. However, if such an error occurs in an isolation layer, Squeak will attempt to exit from the isolation layer and then present a debugger. Here is the chain of events in such a recovery. > > * A recursive error is detected. > * The current project is queried for an isolationHead > * Changes in the isolationHead are revoked > * The parent project of isolated project is returned to > * The debugger is opened there and execution resumes. > > If the user closes that debugger, execution continues in the outer project and layer. If, after repairing some damage, the user proceeds from the debugger, then the isolationHead is re-invoked, the failed project is re-entered, and execution resumes in that world. ! > > Item was changed: > ----- Method: Debugger>>codePaneMenu:shifted: (in category 'code pane menu') ----- > codePaneMenu: aMenu shifted: shifted > + aMenu > + add: 'run to here' target: self selector: #runToSelection: argument: thisContext sender receiver selectionInterval; > + add: 'run until...' target: self selector: #runUntil; > + addLine. > - aMenu add: 'run to here' target: self selector: #runToSelection: argument: thisContext sender receiver selectionInterval. > - aMenu addLine. > super codePaneMenu: aMenu shifted: shifted. > ^aMenu.! > > Item was added: > + ----- Method: Debugger>>runUntil (in category 'code pane menu') ----- > + runUntil > + | expression receiver context method value | > + expression := UIManager default > + request: 'run until expression is true' > + initialAnswer: (untilExpression ifNil: 'boolean expression'). > + (expression isNil or: [expression isEmpty]) ifTrue: > + [^self]. > + untilExpression := expression. > + context := self selectedContext. > + receiver := context receiver. > + FakeClassPool adopt: receiver class. > + method := receiver class evaluatorClass new > + compiledMethodFor: untilExpression > + in: context > + to: receiver > + notifying: nil > + ifFail: [FakeClassPool adopt: nil. ^ #failedDoit] > + logged: false. > + > + FakeClassPool adopt: nil. > + [self selectedContext == context > + and: [(value := receiver with: context executeMethod: method) == false]] whileTrue: > + [self doStep]. > + (value ~~ false and: [value ~~ true]) ifTrue: > + [UIManager default inform: 'expression ', (untilExpression contractTo: 40), ' answered ', (value printString contractTo: 20), '!!!!'] > + ! > >

1 0

The Inbox: Tools-eem.426.mcz
by commits＠source.squeak.org 05 Nov '12

05 Nov '12

A new version of Tools was added to project The Inbox: http://source.squeak.org/inbox/Tools-eem.426.mcz ==================== Summary ==================== Name: Tools-eem.426 Author: eem Time: 5 November 2012, 10:39:18.848 am UUID: d2507ad6-1423-4b1a-9922-41894ea2174a Ancestors: Tools-ul.425 A serviceable "run until expression" for the debugger. Would be nice if the UI updated. WOuld be nice if there was some solution for temporaries that are undefined rather than writing explicit guards in the expressions. Hence publishing to inbox for now. =============== Diff against Tools-ul.425 =============== Item was changed: CodeHolder subclass: #Debugger + instanceVariableNames: 'interruptedProcess interruptedController contextStack contextStackIndex contextStackList receiverInspector contextVariablesInspector externalInterrupt proceedValue selectingPC savedCursor isolationHead failedProject errorWasInUIProcess labelString message untilExpression' - instanceVariableNames: 'interruptedProcess interruptedController contextStack contextStackIndex contextStackList receiverInspector contextVariablesInspector externalInterrupt proceedValue selectingPC savedCursor isolationHead failedProject errorWasInUIProcess labelString message' classVariableNames: 'ContextStackKeystrokes ErrorRecursion InterruptUIProcessIfBlockedOnErrorInBackgroundProcess' poolDictionaries: '' category: 'Tools-Debugger'! !Debugger commentStamp: '<historical>' prior: 0! I represent the machine state at the time of an interrupted process. I also represent a query path into the state of the process. The debugger is typically viewed through a window that views the stack of suspended contexts, the code for, and execution point in, the currently selected message, and inspectors on both the receiver of the currently selected message, and the variables in the current context. Special note on recursive errors: Some errors affect Squeak's ability to present a debugger. This is normally an unrecoverable situation. However, if such an error occurs in an isolation layer, Squeak will attempt to exit from the isolation layer and then present a debugger. Here is the chain of events in such a recovery. * A recursive error is detected. * The current project is queried for an isolationHead * Changes in the isolationHead are revoked * The parent project of isolated project is returned to * The debugger is opened there and execution resumes. If the user closes that debugger, execution continues in the outer project and layer. If, after repairing some damage, the user proceeds from the debugger, then the isolationHead is re-invoked, the failed project is re-entered, and execution resumes in that world. ! Item was changed: ----- Method: Debugger>>codePaneMenu:shifted: (in category 'code pane menu') ----- codePaneMenu: aMenu shifted: shifted + aMenu + add: 'run to here' target: self selector: #runToSelection: argument: thisContext sender receiver selectionInterval; + add: 'run until...' target: self selector: #runUntil; + addLine. - aMenu add: 'run to here' target: self selector: #runToSelection: argument: thisContext sender receiver selectionInterval. - aMenu addLine. super codePaneMenu: aMenu shifted: shifted. ^aMenu.! Item was added: + ----- Method: Debugger>>runUntil (in category 'code pane menu') ----- + runUntil + | expression receiver context method value | + expression := UIManager default + request: 'run until expression is true' + initialAnswer: (untilExpression ifNil: 'boolean expression'). + (expression isNil or: [expression isEmpty]) ifTrue: + [^self]. + untilExpression := expression. + context := self selectedContext. + receiver := context receiver. + FakeClassPool adopt: receiver class. + method := receiver class evaluatorClass new + compiledMethodFor: untilExpression + in: context + to: receiver + notifying: nil + ifFail: [FakeClassPool adopt: nil. ^ #failedDoit] + logged: false. + + FakeClassPool adopt: nil. + [self selectedContext == context + and: [(value := receiver with: context executeMethod: method) == false]] whileTrue: + [self doStep]. + (value ~~ false and: [value ~~ true]) ifTrue: + [UIManager default inform: 'expression ', (untilExpression contractTo: 40), ' answered ', (value printString contractTo: 20), '!!!!'] + !

1 0

The Trunk: Kernel-eem.715.mcz
by commits＠source.squeak.org 05 Nov '12

05 Nov '12

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.715.mcz ==================== Summary ==================== Name: Kernel-eem.715 Author: eem Time: 5 November 2012, 9:52:55.755 am UUID: 902c113e-b1bc-47ec-b969-6642fd930104 Ancestors: Kernel-cwp.714 Faster less wasteful sendsSelector: =============== Diff against Kernel-cwp.714 =============== Item was changed: ----- Method: CompiledMethod>>sendsSelector: (in category 'literals') ----- + sendsSelector: aSelector + | scanner | + scanner := InstructionStream on: self. + scanner scanFor: + [:x | + scanner selectorToSendOrSelf == aSelector ifTrue: + [^true]. + false "keep scanning"]. + ^false! - sendsSelector: aSymbol - - ^ self messages includes: aSymbol!

1 0

Aida with Realtime (WebSockets) support released
by Janko Mivšek 05 Nov '12

05 Nov '12

Dear Smalltalkers, I think it can be safely claimed that Aida/Web is a first Smalltalk web framework, even more, one of the first frameworks at all to integrate HTML5 WebSockets for so called realtime web apps. Realtime in sense that values on the page are updated immediately when value changes on the server, without needing to manually reload a page. You can see that in action from WebSocket-capable browsers (latest Firefox and Chrome) if you open in two browsers the online Aida realtime counter demo, click buttons on one and observe changes instantly in both browsers: http://demo.aidaweb.si/demos?view=realtime And how easy is using real-time in your code? See the simplified code of above demo: WebDemoApp>>viewRealtime | e counterElement | self enableRealtime. counterElement := e add: self counterElement. (e addButtonText: ' Decrement ') noSubmit; onClickDo: [self observee decCounter]. (e addButtonText: ' Increment ') noSubmit; onClickDo: [self observee incCounter]. self observee onChangeDo: [counterElement update] on: counterElement app: self. self add: e. WebDemoApp>>counterElement | e | e := WebElement newSpan. e style: 'font-size: 40px'. e addText: self observee counter printString. ^e To describe this code a bit: you first enable realtime for this view of demo App. Element on the webpage to update in realtime must be created in a separate method (#counterElement). After buttons for increment and decrement we come to the main part - registering the block to execute on every change of domain object. Calling simply #update to the counter element is enough to be updated on all browsers which currently observe that counter demo. How this works? Behind the scenes a so called realtime channel is open between browser and Aida server. This WebSocket based channel is bidirectional and full-duplex, meaning that Aida can send back to the browser a message at any time. In above case a command to update the counter element is sent back to all browsers immediately after counter is changed. New Aida 6.5 Interim release is released for Squeak, Pharo and VisualWorks and available from usual places. See http://www.aidaweb.si for more. Everyone is welcome to try it and come with suggestions how to use this new feature, how to improve it, .... Further read: http://www.aidaweb.si/websocket%20support http://www.swazoo.org/websocket Best regards Janko -- Janko Mivšek Aida/Web Smalltalk Web Application Server http://www.aidaweb.si

3 5

Bug in printShowingDecimalPlaces: ??
by Herbert König 05 Nov '12

05 Nov '12

Hi Folks, is there a reason why Float>>printOn: aStream showingDecimalPlaces: placesDesired always prints '0.0' or was it just forgotten to deal with the desired decimal places in this case? Nicolas? Cheers Herbert ****

4 5

Re: [squeak-dev] The Inbox: Tools-jmg.426.mcz
by Bert Freudenberg 05 Nov '12

05 Nov '12

To me it's generally more useful to see the protocols separated by lines according to their inheritance. As you say, you can easily type a few characters to narrow it down ... - Bert - On 2012-11-03, at 02:29, commits(a)source.squeak.org wrote: > A new version of Tools was added to project The Inbox: > http://source.squeak.org/inbox/Tools-jmg.426.mcz > > ==================== Summary ==================== > > Name: Tools-jmg.426 > Author: jmg > Time: 2 November 2012, 8:29:30.822 pm > UUID: daaf005c-5185-49b4-ba46-b6b9e68ecbc3 > Ancestors: Tools-ul.425 > > When changing or adding categories I was frustrated by the fact that the categories shown in the list weren't sorted alphabetically, which made it hard for me to quickly scan the list to see if there was a category similar to the one I was thinking of (ie: I am drawing in a morph, so I want a category related to drawing). I could use the search bar but sometimes I just wanted to scan the list. I changed the methods presenting the list so that the categories were shown alphabetically, while preserving the special convenience categories at the start of the list (ie: new..., and the categories in the current morph). > > =============== Diff against Tools-ul.425 =============== > > Item was changed: > ----- Method: Browser>>addCategory (in category 'message category functions') ----- > addCategory > + "Present a choice of categories or prompt for a new category name > + and add it before the current selection, or at the end if no current > + selection" > - "Present a choice of categories or prompt for a new category name and add it before the current selection, or at the end if no current selection" > | labels reject lines menuIndex newName oldCategory | > + self okToChange > + ifFalse: [^ self]. > + self hasClassSelected > + ifFalse: [^ self]. > + labels := OrderedCollection new. > - self okToChange ifFalse: [^ self]. > - self hasClassSelected ifFalse: [^ self]. > - labels := OrderedCollection with: 'new...'. > reject := Set new. > + reject addAll: self selectedClassOrMetaClass organization categories; > + add: ClassOrganizer nullCategory; > + add: ClassOrganizer default. > - reject > - addAll: self selectedClassOrMetaClass organization categories; > - add: ClassOrganizer nullCategory; > - add: ClassOrganizer default. > lines := OrderedCollection new. > + self selectedClassOrMetaClass allSuperclasses > + do: [:cls | | cats | cls = Object > + ifFalse: [cats := cls organization categories > + reject: [:cat | reject includes: cat]. > + cats isEmpty > + ifFalse: [lines add: labels size. > + labels addAll: cats. > + reject addAll: cats]]]. > + labels sort. > + labels addFirst: 'new...'. > + newName := (labels size = 1 > + or: [menuIndex := UIManager default > + chooseFrom: labels > + lines: lines > + title: 'Add Category'. > + menuIndex = 0 > + ifTrue: [^ self]. > + menuIndex = 1]) > + ifTrue: [self request: 'Please type new category name' initialAnswer: 'category name'] > + ifFalse: [labels at: menuIndex]. > - self selectedClassOrMetaClass allSuperclasses do: [:cls | | cats | > - cls = Object ifFalse: [ > - cats := cls organization categories reject: > - [:cat | reject includes: cat]. > - cats isEmpty ifFalse: [ > - lines add: labels size. > - labels addAll: cats asSortedCollection. > - reject addAll: cats]]]. > - newName := (labels size = 1 or: [ > - menuIndex := (UIManager default chooseFrom: labels lines: lines title: 'Add Category'). > - menuIndex = 0 ifTrue: [^ self]. > - menuIndex = 1]) > - ifTrue: [ > - self request: 'Please type new category name' > - initialAnswer: 'category name'] > - ifFalse: [ > - labels at: menuIndex]. > oldCategory := self selectedMessageCategoryName. > newName isEmpty > ifTrue: [^ self] > ifFalse: [newName := newName asSymbol]. > self classOrMetaClassOrganizer > addCategory: newName > before: (self hasMessageCategorySelected > - ifFalse: [nil] > ifTrue: [self selectedMessageCategoryName]). > self changed: #messageCategoryList. > + self > + selectMessageCategoryNamed: (oldCategory isNil > + ifTrue: [self classOrMetaClassOrganizer categories last] > + ifFalse: [oldCategory]). > + self changed: #messageCategoryList! > - self selectMessageCategoryNamed: > - (oldCategory isNil > - ifTrue: [self classOrMetaClassOrganizer categories last] > - ifFalse: [oldCategory]). > - self changed: #messageCategoryList. > - ! > > Item was changed: > ----- Method: CodeHolder>>categoryFromUserWithPrompt:for: (in category 'categories') ----- > categoryFromUserWithPrompt: aPrompt for: aClass > "self new categoryFromUserWithPrompt: 'testing' for: SystemDictionary" > > | labels myCategories reject lines newName menuIndex | > + labels := OrderedCollection new. > + myCategories := aClass organization categories asSortedCollection: > + [:a :b | a asLowercase < b asLowercase]. > - labels := OrderedCollection with: 'new...'. > - labels addAll: (myCategories := aClass organization categories asSortedCollection: > - [:a :b | a asLowercase < b asLowercase]). > reject := myCategories asSet. > reject > add: ClassOrganizer nullCategory; > add: ClassOrganizer default. > lines := OrderedCollection with: 1 with: (myCategories size + 1). > > aClass allSuperclasses do: > [:cls | > | cats | > cats := cls organization categories reject: > [:cat | reject includes: cat]. > cats isEmpty ifFalse: > [lines add: labels size. > labels addAll: (cats asSortedCollection: > [:a :b | a asLowercase < b asLowercase]). > reject addAll: cats]]. > + labels sort. > + labels addAllFirst: (myCategories). > + labels addFirst: 'new...'. > - > newName := (labels size = 1 or: > [menuIndex := (UIManager default chooseFrom: labels lines: lines title: aPrompt). > menuIndex = 0 ifTrue: [^ nil]. > menuIndex = 1]) > ifTrue: > [UIManager default request: 'Please type new category name' > initialAnswer: 'category name'] > ifFalse: > [labels at: menuIndex]. > ^ newName ifNotNil: [newName asSymbol]! > >

2 4