Squeak-dev July 2012

squeak-dev@lists.squeakfoundation.org

55 participants
189 discussions

Daily Commit Log
by commits＠source.squeak.org 10 Jul '12

10 Jul '12

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2012-July/005416.html Name: System-bf.488 Ancestors: System-eem.487 Format floats using print:maxDecimalPlaces: instead of roundTo:. =============================================

1 0

All MVC image ( was Looking for Squeak-80)
by Chris Cunnington 09 Jul '12

09 Jul '12

Thanks for the answers, Sungjin. It's a cool image. I like how KomHttpServer is built right in. As you say, you use it for Seaside. At 5.7M with Kom built in, it's a sweet image for web development. I look forward to using it for my own projects. And as it's all MVC, I think it would be a good place to learn about graphics. The Blue Book is closer to this image than to Morphic, I'd bet. The NeXT class categories are also intriguing. Thanks for sharing it. Chris

4 4

All MVC image ( was Looking for Squeak-80)
by Chris Cunnington 09 Jul '12

09 Jul '12

Sungjin Chun, This is an amazing image. And that I've never seen or heard about it before is shocking to me. The Google code page says nothing. Not even what it is. I mean, I've never seen an MVC only image before. I see a blog post from 2009, but nothing else ... Really, dude, you need to writ something down about this: Why did you make this? What do you do use it for? How did you get rid of Morphic? And why? Chris

6 5

The Trunk: System-bf.488.mcz
by commits＠source.squeak.org 09 Jul '12

09 Jul '12

Bert Freudenberg uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-bf.488.mcz ==================== Summary ==================== Name: System-bf.488 Author: bf Time: 9 July 2012, 2:55:32.107 pm UUID: 1f332f03-ee04-4f81-8e73-c2e3b203a85d Ancestors: System-eem.487 Format floats using print:maxDecimalPlaces: instead of roundTo:. =============== Diff against System-eem.487 =============== Item was changed: ----- Method: MessageTally>>reportGCStatsOn: (in category 'reporting') ----- reportGCStatsOn: str | oldSpaceEnd youngSpaceEnd memoryEnd fullGCs fullGCTime incrGCs incrGCTime tenureCount upTime rootOverflows | upTime := time. oldSpaceEnd := gcStats at: 1. youngSpaceEnd := gcStats at: 2. memoryEnd := gcStats at: 3. fullGCs := gcStats at: 7. fullGCTime := gcStats at: 8. incrGCs := gcStats at: 9. incrGCTime := gcStats at: 10. tenureCount := gcStats at: 11. rootOverflows := gcStats at: 22. str cr. str nextPutAll: '**Memory**'; cr. str nextPutAll: ' old '; nextPutAll: oldSpaceEnd asStringWithCommasSigned; nextPutAll: ' bytes'; cr. str nextPutAll: ' young '; nextPutAll: (youngSpaceEnd - oldSpaceEnd) asStringWithCommasSigned; nextPutAll: ' bytes'; cr. str nextPutAll: ' used '; nextPutAll: youngSpaceEnd asStringWithCommasSigned; nextPutAll: ' bytes'; cr. str nextPutAll: ' free '; nextPutAll: (memoryEnd - youngSpaceEnd) asStringWithCommasSigned; nextPutAll: ' bytes'; cr. str cr. str nextPutAll: '**GCs**'; cr. str nextPutAll: ' full '; + print: fullGCs; nextPutAll: ' totalling '; nextPutAll: fullGCTime asStringWithCommas; nextPutAll: ' ms ('; + print: (fullGCTime / upTime * 100) maxDecimalPlaces: 2; - print: fullGCs; nextPutAll: ' totalling '; nextPutAll: fullGCTime asStringWithCommas; nextPutAll: 'ms ('; - print: ((fullGCTime / upTime * 100) roundTo: 1.0); nextPutAll: '% uptime)'. fullGCs = 0 ifFalse: + [str nextPutAll: ', avg '; print: (fullGCTime / fullGCs) maxDecimalPlaces: 1; nextPutAll: ' ms']. - [str nextPutAll: ', avg '; print: ((fullGCTime / fullGCs) roundTo: 1.0); nextPutAll: 'ms']. str cr. + str nextPutAll: ' incr '; + print: incrGCs; nextPutAll: ' totalling '; nextPutAll: incrGCTime asStringWithCommas; nextPutAll: ' ms ('; + print: (incrGCTime / upTime * 100) maxDecimalPlaces: 1; - str nextPutAll: ' incr '; - print: incrGCs; nextPutAll: ' totalling '; nextPutAll: incrGCTime asStringWithCommas; nextPutAll: 'ms ('; - print: ((incrGCTime / upTime * 100) roundTo: 1.0); nextPutAll: '% uptime)'. incrGCs = 0 ifFalse: + [str nextPutAll: ', avg '; print: (incrGCTime / incrGCs) maxDecimalPlaces: 1; nextPutAll: ' ms']. - [str nextPutAll:', avg '; print: ((incrGCTime / incrGCs) roundTo: 1.0); nextPutAll: 'ms']. str cr. str nextPutAll: ' tenures '; nextPutAll: tenureCount asStringWithCommas. tenureCount = 0 ifFalse: + [str nextPutAll: ' (avg '; print: incrGCs // tenureCount; nextPutAll: ' GCs/tenure)']. - [str nextPutAll: ' (avg '; print: (incrGCs / tenureCount) asInteger; nextPutAll: ' GCs/tenure)']. str cr. str nextPutAll: ' root table '; + nextPutAll: rootOverflows asStringWithCommas; nextPutAll: ' overflows'. - nextPutAll: rootOverflows asStringWithCommas; nextPutAll:' overflows'. str cr. ! Item was changed: ----- Method: SmalltalkImage>>vmStatisticsReportString (in category 'vm statistics') ----- vmStatisticsReportString "StringHolderView open: (StringHolder new contents: SmalltalkImage current vmStatisticsReportString) label: 'VM Statistics'" | params oldSpaceEnd youngSpaceEnd memoryEnd fullGCs fullGCTime incrGCs incrGCTime tenureCount upTime upTime2 fullGCs2 fullGCTime2 incrGCs2 incrGCTime2 tenureCount2 str | params := self getVMParameters. oldSpaceEnd := params at: 1. youngSpaceEnd := params at: 2. memoryEnd := params at: 3. fullGCs := params at: 7. fullGCTime := params at: 8. incrGCs := params at: 9. incrGCTime := params at: 10. tenureCount := params at: 11. upTime := Time millisecondClockValue. str := WriteStream on: (String new: 1000). str nextPutAll: 'uptime '; print: (upTime / 1000 / 60 // 60); nextPut: $h; print: (upTime / 1000 / 60 \\ 60) asInteger; nextPut: $m; print: (upTime / 1000 \\ 60) asInteger; nextPut: $s; cr. + str nextPutAll: 'memory '; - str nextPutAll: 'memory '; nextPutAll: memoryEnd asStringWithCommas; nextPutAll: ' bytes'; cr. str nextPutAll: ' old '; nextPutAll: oldSpaceEnd asStringWithCommas; nextPutAll: ' bytes ('; + print: (oldSpaceEnd / memoryEnd * 100) maxDecimalPlaces: 1; nextPutAll: '%)'; cr. - print: ((oldSpaceEnd / memoryEnd * 100) roundTo: 0.1); nextPutAll: '%)'; cr. str nextPutAll: ' young '; nextPutAll: (youngSpaceEnd - oldSpaceEnd) asStringWithCommas; nextPutAll: ' bytes ('; + print: (youngSpaceEnd - oldSpaceEnd / memoryEnd * 100) maxDecimalPlaces: 1; nextPutAll: '%)'; cr. - print: ((youngSpaceEnd - oldSpaceEnd / memoryEnd * 100) roundTo: 0.1); nextPutAll: '%)'; cr. str nextPutAll: ' used '; nextPutAll: youngSpaceEnd asStringWithCommas; nextPutAll: ' bytes ('; + print: (youngSpaceEnd / memoryEnd * 100) maxDecimalPlaces: 1; nextPutAll: '%)'; cr. - print: ((youngSpaceEnd / memoryEnd * 100) roundTo: 0.1); nextPutAll: '%)'; cr. str nextPutAll: ' free '; nextPutAll: (memoryEnd - youngSpaceEnd) asStringWithCommas; nextPutAll: ' bytes ('; + print: (memoryEnd - youngSpaceEnd / memoryEnd * 100) maxDecimalPlaces: 1; nextPutAll: '%)'; cr. - print: ((memoryEnd - youngSpaceEnd / memoryEnd * 100) roundTo: 0.1); nextPutAll: '%)'; cr. + str nextPutAll: 'GCs '; - str nextPutAll: 'GCs '; nextPutAll: (fullGCs + incrGCs) asStringWithCommas. fullGCs + incrGCs > 0 ifTrue: [ str nextPutAll: ' ('; + print: (upTime / (fullGCs + incrGCs)) maxDecimalPlaces: 1; + nextPutAll: ' ms between GCs)' - print: ((upTime / (fullGCs + incrGCs)) roundTo: 1); - nextPutAll: 'ms between GCs)' ]. str cr. str nextPutAll: ' full '; + nextPutAll: fullGCs asStringWithCommas; nextPutAll: ' totalling '; nextPutAll: fullGCTime asStringWithCommas; nextPutAll: ' ms ('; + print: (fullGCTime / upTime * 100) maxDecimalPlaces: 1; - print: fullGCs; nextPutAll: ' totalling '; nextPutAll: fullGCTime asStringWithCommas; nextPutAll: 'ms ('; - print: ((fullGCTime / upTime * 100) roundTo: 1.0); nextPutAll: '% uptime)'. fullGCs = 0 ifFalse: + [str nextPutAll: ', avg '; print: (fullGCTime / fullGCs) maxDecimalPlaces: 1; nextPutAll: ' ms']. - [str nextPutAll: ', avg '; print: ((fullGCTime / fullGCs) roundTo: 1.0); nextPutAll: 'ms']. str cr. + str nextPutAll: ' incr '; + nextPutAll: incrGCs asStringWithCommas; nextPutAll: ' totalling '; nextPutAll: incrGCTime asStringWithCommas; nextPutAll: ' ms ('; + print: (incrGCTime / upTime * 100) maxDecimalPlaces: 1; + nextPutAll: '% uptime), avg '; print: (incrGCTime / incrGCs) maxDecimalPlaces: 1; nextPutAll: ' ms'; cr. - str nextPutAll: ' incr '; - print: incrGCs; nextPutAll: ' totalling '; nextPutAll: incrGCTime asStringWithCommas; nextPutAll: 'ms ('; - print: ((incrGCTime / upTime * 100) roundTo: 1.0); - nextPutAll: '% uptime), avg '; print: ((incrGCTime / incrGCs) roundTo: 1.0); nextPutAll: 'ms'; cr. str nextPutAll: ' tenures '; nextPutAll: tenureCount asStringWithCommas. tenureCount = 0 ifFalse: + [str nextPutAll: ' (avg '; print: incrGCs // tenureCount; nextPutAll: ' GCs/tenure)']. - [str nextPutAll: ' (avg '; print: (incrGCs / tenureCount) asInteger; nextPutAll: ' GCs/tenure)']. str cr. LastStats ifNil: [LastStats := Array new: 6] ifNotNil: [ upTime2 := upTime - (LastStats at: 1). fullGCs2 := fullGCs - (LastStats at: 2). fullGCTime2 := fullGCTime - (LastStats at: 3). incrGCs2 := incrGCs - (LastStats at: 4). incrGCTime2 := incrGCTime - (LastStats at: 5). tenureCount2 := tenureCount - (LastStats at: 6). str nextPutAll: self textMarkerForShortReport ; nextPutAll: (fullGCs2 + incrGCs2) asStringWithCommas. fullGCs2 + incrGCs2 > 0 ifTrue: [ str nextPutAll: ' ('; + print: upTime2 // (fullGCs2 + incrGCs2); + nextPutAll: ' ms between GCs)'. - print: ((upTime2 / (fullGCs2 + incrGCs2)) roundTo: 1); - nextPutAll: 'ms between GCs)'. ]. str cr. + str nextPutAll: ' uptime '; print: (upTime2 / 1000.0) maxDecimalPlaces: 1; nextPutAll: ' s'; cr. - str nextPutAll: ' uptime '; print: ((upTime2 / 1000.0) roundTo: 0.1); nextPutAll: 's'; cr. str nextPutAll: ' full '; + nextPutAll: fullGCs2 asStringWithCommas; nextPutAll: ' totalling '; nextPutAll: fullGCTime2 asStringWithCommas; nextPutAll: ' ms ('; + print: (fullGCTime2 / upTime2 * 100) maxDecimalPlaces: 1; - print: fullGCs2; nextPutAll: ' totalling '; nextPutAll: fullGCTime2 asStringWithCommas; nextPutAll: 'ms ('; - print: ((fullGCTime2 / upTime2 * 100) roundTo: 1.0); nextPutAll: '% uptime)'. fullGCs2 = 0 ifFalse: + [str nextPutAll: ', avg '; print: (fullGCTime2 / fullGCs2) maxDecimalPlaces: 1; nextPutAll: ' ms']. - [str nextPutAll: ', avg '; print: ((fullGCTime2 / fullGCs2) roundTo: 1.0); nextPutAll: 'ms']. str cr. + str nextPutAll: ' incr '; + nextPutAll: incrGCs2 asStringWithCommas; nextPutAll: ' totalling '; nextPutAll: incrGCTime2 asStringWithCommas; nextPutAll: ' ms ('; + print: (incrGCTime2 / upTime2 * 100) maxDecimalPlaces: 1; - str nextPutAll: ' incr '; - print: incrGCs2; nextPutAll: ' totalling '; nextPutAll: incrGCTime2 asStringWithCommas; nextPutAll: 'ms ('; - print: ((incrGCTime2 / upTime2 * 100) roundTo: 1.0); nextPutAll: '% uptime), avg '. incrGCs2 > 0 ifTrue: [ + str print: (incrGCTime2 / incrGCs2) maxDecimalPlaces: 1; nextPutAll: ' ms' - str print: ((incrGCTime2 / incrGCs2) roundTo: 1.0); nextPutAll: 'ms' ]. str cr. str nextPutAll: ' tenures '; nextPutAll: tenureCount2 asStringWithCommas. tenureCount2 = 0 ifFalse: + [str nextPutAll: ' (avg '; print: incrGCs2 // tenureCount2; nextPutAll: ' GCs/tenure)']. - [str nextPutAll: ' (avg '; print: (incrGCs2 / tenureCount2) asInteger; nextPutAll: ' GCs/tenure)']. str cr. ]. LastStats at: 1 put: upTime. LastStats at: 2 put: fullGCs. LastStats at: 3 put: fullGCTime. LastStats at: 4 put: incrGCs. LastStats at: 5 put: incrGCTime. LastStats at: 6 put: tenureCount. ^ str contents !

1 0

Controller|release and View|model:controller: methods
by Peter Michaux 09 Jul '12

09 Jul '12

Hi, My first time posting here. Hopefully I've found the right list for my question. I've created a JavaScript MVC framework for browser applications. The popular JavaScript "MVC frameworks" are not really MVC so I decided to build one that actually is. (https://github.com/petermichaux/maria) Although I'm not a Smalltalk programmer, I've used the Squeak View and Controller classes as my primary implementation inspiration. There are many places in my JavaScript code that are line-by-line ports from Squeak. I've found that the few times I've experimented and deviated from the principles of the Squeak View class, I've usually ended up in hot water and reverted. I've been considering one deviation for a long time in my versions of the Controller|release and View|model:controller: methods because I just cannot grasp the motivation for why the Squeak code works as it does. The Squeak code for Controller|release is release "Breaks the cycle between the receiver and its view. It is usually not necessary to send release provided the receiver's view has been properly released independently." model := nil. view ~~ nil ifTrue: [view controller: nil. view := nil] and the View|model:controller: method model: aModel controller: aController "Set the receiver's model to aModel, add the receiver to aModel's list of dependents, and set the receiver's controller to aController. Subsequent changes to aModel (see Model|change) will result in View|update: messages being sent to the receiver. #NoControllerAllowed for the value of aController indicates that no default controller is available; nil for the value of aController indicates that the default controller is to be used when needed. If aController is neither #NoControllerAllowed nor nil, its view is set to the receiver and its model is set to aModel." model ~~ nil & (model ~~ aModel) ifTrue: [model removeDependent: self]. aModel ~~ nil & (aModel ~~ model) ifTrue: [aModel addDependent: self]. model := aModel. aController ~~ nil ifTrue: [aController view: self. aController model: aModel]. controller := aController By the nature of the strategy pattern, controller objects are intended to be swapped in and out of view objects to modify the behavior of a view. The problem that I see is that when changing the controller of a view, the View|model:controller: method does not nil the view of the previous controller which is being replaced. This means that several controller objects can exist pointing to the same view (but the view will only point to one controller.) If the release message is sent to a controller that is not the view's current controller, then the view still looses it current controller! I'm not very good at writing Smalltalk but to illustrate the point, I'll give it a try... alphaController := Controller new. betaController := Controller new. view := View new. view setController alphaController. view setController betaController. alphaController release. That last line will actually remove betaController from view which seems like bad behaviour to me. One solution is to modify View|model:controller: to nil the previous controller's view. Another solution would be to modify Controller|release so that the controller checks that it is the view's current controller before the line "view controller: nil." Both of these could be done together. I'm very curious to know why the Squeak Controller|release and View|model:controller: methods seem to leave this seemingly trouble spot open. Thanks for any thoughts you can share on this issue. Peter

4 6

An exception when installing GetText
by 강진오 08 Jul '12

08 Jul '12

You told me that I should use GetText instead of NaturalLanguageTranslator. But when I try to install (Load) GetText (nice.25), an exception occured and even in debugger: > ***System error handling failed*** > Original error: MessageNotUnderstood: NaturalLanguageTranslator > class>>translate:toLocaleID:inDomain:. > Debugger error: MessageNotUnderstood: NaturalLanguageTranslator > class>>translate:toLocaleID:inDomain: > ...... > > and below is full call stack: > 117160928 EventSensor>fetchMoreEvents > 117159376 EventSensor>primKbdPeek > 117159284 InputSensor>keyboardPressed > 117016252 Object>primitiveError: > 117016160 Debugger class>morphicOpenOn:context:label:contents:fullView: > 117016024 BlockClosure>cull: > 117015932 ContextPart>handleSignal: > 117015840 BlockClosure>ensure: > 117015640 ContextPart>handleSignal: > 117015548 Exception>signal > 117015456 Object>doesNotUnderstand: translate:toLocaleID:inDomain: > 117015364 String>translatedTo:inDomain: > 117015272 String>translated > 117014924 Debugger>preDebugButtonQuads > 117014832 Debugger>buildNotifierWith:label:message: > 117014644 Debugger>openNotifierContents:label: > 117014368 Debugger class>morphicOpenOn:context:label:contents:fullView: > 117014276 BlockClosure>on:do: > 117014112 Debugger class>morphicOpenOn:context:label:contents:fullView: > 117014020 WorldState>runStepMethodsIn: > 117013928 PasteUpMorph>runStepMethods > 117013576 WorldState>doOneCycleNowFor: > 117013484 WorldState>doOneCycleFor: > 117013392 PasteUpMorph>doOneCycle > 117013300 Project class>spawnNewProcess > 117011264 BlockClosure>newProcess > > Is it because I'm using NaturalLanguageTranslator? My Squeak has been set to Korean and I translated them.

2 1

Looking for Squeak-80
by Blake McBride 06 Jul '12

06 Jul '12

Greetings, I have been following Squeak for years but have been intimidated by its complexity (projects, worlds, morphic, etc.). I'd love to see a scaled down Squeak that simply attempts to provide Smalltalk-80 as originally defined in the original books. It doesn't have to be utterly exact but much simpler than what is provided in full-blown squeak. I was just wondering if there is any stripped down version like this. (Not just stripped down but very similar to the original smalltalk-80) On another note, in the past I spent a small amount of time trying to figure out how to write a business application (data entry dialogs, etc.) with squeak. I purchased the available squeak books but had no luck. They all show how to do a bunch of fancy graphic maneuvers but none showed how to create a dialog with controls. (Granted, I didn't spend too much time with it.) Having a number of business-like examples like modeless and modal dialogs, controls, grids, etc. would be really great. This way people could easily start using Squeak at work. A book, "Business applications with Squeak" is needed. Thanks. Blake McBride

10 10

Not the answer you wanted Re: [squeak-dev] Looking for Squeak-80
by David Corking 06 Jul '12

06 Jul '12

Blake McBride wrote: > Having a number of business-like examples like modeless and modal > dialogs, controls, grids, etc. would be really great. This way people could > easily start using Squeak at work. A book, "Business applications with > Squeak" is needed. I am sure you are right. However it seems the pointy-haired bosses (like me) seem to want to give users web applications for this purpose(*), which suggests to me that the publishing community might not follow your suggestion. Have you looked for out-of-print books on the other Smalltalk-80 / ANSI Smalltalk dialects? David p.s. * For business apps for the web, see the documentation for your choice of a combination of AIDA/Web, Seaside, jQuery/MooTools/Prototype ... (The proliferation of books on Javascript UI libraries seems to suggest that in the minds of bosses and publishers, novelty is more important than usefulness or originality, though V8, SpiderMonkey, WebKit and IE9 have their role to play.)

1 0

[OT] Scratch in Debian
by Torsten Bergmann 06 Jul '12

06 Jul '12

good news: http://www.miriamruiz.es/weblog/?p=678

6 10

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

06 Jul '12

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2012-July/005413.html Name: MonticelloConfigurations-bf.105 Ancestors: MonticelloConfigurations-bf.104 Ignore errors when asking server for fast diffs. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-July/005414.html Name: Kernel-ul.704 Ancestors: Kernel-eem.703, Kernel-cmm.701 Merged. Every package should have one head version in the Trunk. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-July/005415.html Name: Monticello-bf.516 Ancestors: Monticello-bf.515 Fix a problem with very short MCVersionNames (e.g. 'MC1' as used by the test suite) =============================================

1 0

Jump to page: