Squeak-dev July 2011

squeak-dev@lists.squeakfoundation.org

61 participants
145 discussions

Lazy evaluation?
by Casey Ransberger 09 Jul '11

09 Jul '11

I fully realize that this is probably not the smartest question. Seemed a bit advanced for the beginners list though. I've been studying procedural/fractal terrain. It would seem that much of it hinges on "lazy evaluation," which is a term some Haskell hackers I knew threw around. The gist I got was that lazy evaluation involved two things, referential transparency and evaluation avoidance. Since Smalltalk is late bound, I think I can avoid evaluating expressions as long as I like with closures... but since it's mutable state all the way down, I wonder about the referential transparency part. I mean, Turing completeness suggests that it's doable, I'm just wondering how painful it would be. Guessing someone here will have a better understanding of the whole lazy eval business, and I'm particularly interested in seeing implementations that use it.

4 6

The Trunk: System-ul.445.mcz
by commits＠source.squeak.org 09 Jul '11

09 Jul '11

Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.445.mcz ==================== Summary ==================== Name: System-ul.445 Author: ul Time: 9 July 2011, 4:28:49.996 pm UUID: f245e950-b6d1-6c49-ae78-bb092ba2d9e2 Ancestors: System-cmm.444 MethodReference was the only implementor of #asStringOrText (besides Object, String and Text). Implementing #asString instead of #asStringOrText makes the system a bit more cleaner and fixes the behavior of PluggableListMorphs with MethodReferences (e.g. implementors/senders browsers vs searching with the keyboard). There's a very slight chance, that this causes problems for some images, but no tests are broken because of this change in the Trunk image. =============== Diff against System-cmm.444 =============== Item was added: + ----- Method: MethodReference>>asString (in category 'converting') ----- + asString + + ^stringVersion ifNil: [ self stringVersionDefault ]! Item was removed: - ----- Method: MethodReference>>asStringOrText (in category 'accessing') ----- - asStringOrText - - - ^stringVersion ifNil: [ self stringVersionDefault ]!

1 0

The Trunk: Morphic-ul.555.mcz
by commits＠source.squeak.org 09 Jul '11

09 Jul '11

Levente Uzonyi uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ul.555.mcz ==================== Summary ==================== Name: Morphic-ul.555 Author: ul Time: 9 July 2011, 4:22:56.282 pm UUID: ba403dfa-f93e-8449-8441-16d3fcc2f254 Ancestors: Morphic-ael.554 A bit faster and cleaner PluggableListMorph >> #basicKeyPressed:. =============== Diff against Morphic-ael.554 =============== Item was changed: ----- Method: PluggableListMorph>>basicKeyPressed: (in category 'model access') ----- basicKeyPressed: aChar + + | milliseconds slowKeyStroke listSize newSelectionIndex oldSelectionIndex startIndex | + oldSelectionIndex := newSelectionIndex := self getCurrentSelectionIndex. + listSize := self getListSize. + milliseconds := Time millisecondClockValue. + slowKeyStroke := (Time milliseconds: milliseconds since: lastKeystrokeTime) > 300. + lastKeystrokeTime := milliseconds. - | oldSelection nextSelection max milliSeconds slowKeyStroke nextSelectionList nextSelectionText | - nextSelection := oldSelection := self getCurrentSelectionIndex. - max := self maximumSelection. - milliSeconds := Time millisecondClockValue. - slowKeyStroke := milliSeconds - lastKeystrokeTime > 300. - lastKeystrokeTime := milliSeconds. - nextSelectionList := OrderedCollection newFrom: (self getList copyFrom: oldSelection + 1 to: max). - nextSelectionList addAll: (self getList copyFrom: 1 to: ((oldSelection - 1) max: 0)). slowKeyStroke ifTrue: ["forget previous keystrokes and search in following elements" lastKeystrokes := aChar asLowercase asString. + newSelectionIndex := newSelectionIndex \\ listSize + 1 ] - oldSelection > 0 ifTrue: [nextSelectionList addLast: (self getList at: oldSelection)]] ifFalse: ["append quick keystrokes but don't move selection if it still matches" + lastKeystrokes := lastKeystrokes , aChar asLowercase asString ]. - lastKeystrokes := lastKeystrokes , aChar asLowercase asString. - oldSelection > 0 ifTrue: [nextSelectionList addFirst: (self getList at: oldSelection)]]. - "Get rid of blanks and style used in some lists" - nextSelectionText := nextSelectionList - detect: [:a | a asString withBlanksTrimmed asLowercase beginsWith: lastKeystrokes] - ifNone: [^ self flash "match not found"]. "No change if model is locked" + model okToChange ifFalse: [ ^self ]. + "Get rid of blanks and style used in some lists" + startIndex := newSelectionIndex. + [ + (self getListItem: newSelectionIndex) asString + withBlanksTrimmed asLowercase beginsWith: lastKeystrokes ] + whileFalse: [ + (newSelectionIndex := newSelectionIndex \\ listSize + 1) = startIndex ifTrue: [ + ^self flash. "Not in list." ] ]. + newSelectionIndex = oldSelectionIndex ifTrue: [ ^self flash ]. "Same selection." + ^self changeModelSelection: newSelectionIndex! - model okToChange ifFalse: [^ self]. - nextSelection := self getList findFirst: [:a | a = nextSelectionText]. - oldSelection == nextSelection ifTrue: [^ self flash]. - ^ self changeModelSelection: nextSelection!

1 0

The Trunk: Tools-ul.365.mcz
by commits＠source.squeak.org 09 Jul '11

09 Jul '11

Levente Uzonyi uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ul.365.mcz ==================== Summary ==================== Name: Tools-ul.365 Author: ul Time: 9 July 2011, 4:20:52.211 pm UUID: 624e76fc-7a58-c94c-b93a-d33754c3371e Ancestors: Tools-fbs.364 A bit faster and cleaner MessageNames >> #computeSelectorListFromSearchString. =============== Diff against Tools-fbs.364 =============== Item was changed: ----- Method: MessageNames>>computeSelectorListFromSearchString (in category 'search') ----- computeSelectorListFromSearchString + "Compute selector list from search string. The searchString is a list of expressions separated by ;. Each expression is matched individually. An expression can be a simple string (same as *expression*), a string with double quotes (exact match) or a match expression (see String >> #match:)." + - "Compute selector list from search string" searchString := searchString asString copyWithout: $ . "?dubious?" + ^selectorList := Cursor wait showWhile: [ + (Array streamContents: [ :stream | + (searchString findBetweenSubStrs: ';') do: [ :selPat | + (selPat first = $" and: [ selPat last = $" and: [ selPat size > 2 ] ]) + ifTrue: [ + Symbol + hasInterned: (selPat copyFrom: 2 to: selPat size - 1) + ifTrue: [ :sym | stream nextPut: sym ] ] + ifFalse: [ + | raw n m | + n := selPat occurrencesOf: $*. + m := selPat occurrencesOf: $#. + raw := ((n > 0 or: [ m > 0 ]) and: [ selPat size > (n + m) ]) + ifTrue: [ Symbol selectorsMatching: selPat ] + ifFalse: [ Symbol selectorsContaining: selPat ]. + stream nextPutAll: raw ] ] ]) + sort: [ :x :y | x caseInsensitiveLessOrEqual: y ] ]! - selectorList := Cursor wait showWhile: - [| sorted | - sorted := SortedCollection sortBlock: [:x :y | x asLowercase <= y asLowercase]. - (searchString findBetweenSubStrs: ';') do: - [:selPat| | raw n m | - selPat size > 0 ifTrue: - [(selPat first = $" and: [selPat last = $" and: [selPat size > 2]]) - ifTrue: - [Symbol hasInterned: (selPat copyFrom: 2 to: selPat size - 1) ifTrue: [:sym| sorted add: sym]] - ifFalse: - [raw := (((n := selPat occurrencesOf: $*) > 0) - | ((m := selPat occurrencesOf: $#) > 0) - and: [selPat size > (n + m)]) - ifTrue: [Symbol selectorsMatching: selPat] - ifFalse: [Symbol selectorsContaining: selPat]. - sorted addAll: raw]]]. - sorted asArray]. - ^selectorList!

1 0

Call for papers: SMALLTALKS 2011
by jannik.laval 09 Jul '11

09 Jul '11

CALL FOR PAPERS SMALLTALKS 2011 5th International Conference on Smalltalk Technologies Research Track: Call for Papers November 3th - 5th, 2011 Important dates: Submission (Hard Deadline): August 22th, 2011 (Argentinian time: UTC/GMT -3 hours). Notification of acceptance: September 23th, 2011. Camera Ready Submission: October 7th, 2011. --------------------------------------------------------------------------------- Conference Location: Universidad Nacional de Quilmes (Argentina) The Smalltalks series of conferences (www.fast.org.ar) is a lively forum on Smalltalk-based software technologies that brings together more than 200 people from both academia and industry for a period of three days. Past editions of Smalltalks have included many high-quality presentations from industry and research. These contributions have shown interesting applications of Smalltalk, advances in the Smalltalk language, didactic uses of Smalltalk and so on. Similar to last year, Smalltalks 2011 will include a dedicated research track. We welcome submissions to this research track presenting original scientific contributions to, or using, Smalltalk in general. Topics of interest include, but are not restricted to: - Aspects, Aspect Languages and Applications. - Ambient Intelligence, Ubiquitous / Pervasive Computing and Embedded Systems. - Compilation Technology, Optimization, Virtual Machines. - Educational Material. - Language Engineering, Extensions. - Model Driven Engineering / Development. - Meta-Modeling, Reflection and Meta-programming. - Programming in the Large, Design, Architectures and Components. - Programming Environments, Browsers, User Interfaces, UI Frameworks. - Source-code analysis and manipulation (Static analysis, refactoring, type inference, metrics). - Team Management. - Testing, Extreme Programming / Practices. - Web Services, Internet Applications, Event-driven Programming. - Experience Reports. Important dates: Submission (Hard Deadline): August 22th, 2011 (Argentinian time: UTC/GMT -3 hours). Notification of acceptance: September 23th, 2011. Camera Ready Submission: October 7th, 2011. Papers: Papers should be written in English, in PDF-format and should not exceed 15 pages (including references and figures), using the Elsevier journal format. Templates for LaTeX formats can be found at http://www.elsevier.com/wps/find/authorsview.authors/elsart Papers must be submitted through the EasyChair submission web site at https://www.easychair.org/conferences/?conf=smalltalks2011 The accepted papers will be digitally available on the conference website. We are currently negotiating a special edition of a journal for which the best papers will get invited. Papers submitted must not have been previously published and must not be under review for publication elsewhere. Papers must strictly adhere to submission guidelines. If you have questions, please send an e-mail to Jannik Laval and Andy Kellens to smalltalks2011-chair(a)fast.org.ar. Program Committee -------------------------- - Gonzalo Zabala (Universidad Abierta Interamericana, Argentina) - Hernan Wilkinson (Universidad de Buenos Aires, Argentina) - Serge Stinckwich (Institut de recherche pour le developppement, France) - Mircea Lungu (University of Bern, Switzerland) - Tudor Girba (Sw-eng. Software Engineering GmbH, Switzerland) - Johan Fabry (DCC, Universidad de Chile, Chile) - Luc Fabresse (Ecole des Mines Douai, France) - Marcus Denker (INRIA Lille, France) - Coen De Roover (Vrije Universiteit Brussel, Belgium) - Damien Cassou (Hasso-Plattner-Institut, Potsdam, Germany) - Gilad Bracha (SAP Labs, Palo Alto, USA) - Noury Bouraqadi (Ecole des Mines Douai, France) - Alexandre Bergel (DCC, Universidad de Chile, Chile) - Gabriela Arevalo (Universidad Nacional de Quilmes, Argentina) Program Chairs -------------------- Andy Kellens (Vrije Universiteit Brussel, Belgium) Jannik Laval (INRIA Lille/LABRI Bordeaux, France) --- Jannik Laval PhD Student - Rmod Team - INRIA Certified Project Management Associate (IPMA) http://www.jannik-laval.eu http://rmod.lille.inria.fr ---

2 2

Daily Commit Log
by commits＠source.squeak.org 09 Jul '11

09 Jul '11

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2011-July/004840.html Name: ToolsTests-fbs.48 Ancestors: ToolsTests-eem.47 Broken test: the commonSelector was not common within the commonCategory! ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-July/004841.html Name: Tools-fbs.364 Ancestors: Tools-fbs.363 Mantis #7648: when deselecting a class after a class-side method's been viewed, the selectedMessageName must be nil: you can't be viewing a method at this point! ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-July/004842.html Name: Compiler-eem.211 Ancestors: Compiler-ul.210 Parse error: keyword in FFI pragmas/method tags. Requires FFI-Kernel-eem.24/FFI-Pools-eem.3. Fix BlockLocalTempCounter for all-return case statements. Make sure define class uses the non-meta-class. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-July/004843.html Name: ShoutCore-eem.33 Ancestors: ShoutCore-nice.32 Parse error: keywords in FFI method tags/pragmas. =============================================

1 0

problem with mouse button on Ubuntu 11.04
by Ralph Boland 08 Jul '11

08 Jul '11

I recently upgraded to Ubuntu 11.04 (Gnome Classic) from Ubuntu 10.10. Now when I run Squeak 10.2 My mouse functions have changed. For example, if I have selected a method in a Browser, then: Right clicking is the same. But while left clicking (or left/right together clinking, I forget which) used to bring up the menu it now brings up the set of halos around the window but just around the method window, not the entire browser. In order to get the menu, I have to clink on the wheel on the front of the mouse. Why did this change and how do I set it back again? I did check the Ubuntu System/Preferences/Mouse but didn't see what settings to change. I would expect that an upgrade wouldn't change these settings anyway. Regards, Ralph Boland

1 0

The Trunk: ShoutCore-eem.33.mcz
by commits＠source.squeak.org 08 Jul '11

08 Jul '11

Eliot Miranda uploaded a new version of ShoutCore to project The Trunk: http://source.squeak.org/trunk/ShoutCore-eem.33.mcz ==================== Summary ==================== Name: ShoutCore-eem.33 Author: eem Time: 8 July 2011, 1:37:59.893 pm UUID: fa382d6a-fb9c-441d-a078-56bf14069baf Ancestors: ShoutCore-nice.32 Parse error: keywords in FFI method tags/pragmas. =============== Diff against ShoutCore-nice.32 =============== Item was changed: ----- Method: SHParserST80>>parseExternalCall (in category 'parse') ----- parseExternalCall + [self scanNext. + ((Smalltalk at: #ExternalFunction) callingConventionModifierFor: currentToken) notNil] + whileTrue. - self scanNext. - self failUnless: currentToken notNil. self scanPast: #externalCallType. currentToken = '*' ifTrue: [self scanPast: #externalCallTypePointerIndicator]. currentTokenFirst isDigit ifTrue: [self scanPast: #integer] ifFalse: [ self failUnless: currentTokenFirst == $'. self parseString]. self failUnless: currentTokenFirst == $(. self scanPast: #leftParenthesis. + [currentTokenFirst ~= $)] - [currentTokenFirst ~~ $)] whileTrue: [ - self failUnless: currentToken notNil. self scanPast: #externalCallType. currentToken = '*' ifTrue: [self scanPast: #externalCallTypePointerIndicator]]. self scanPast: #rightParenthesis. currentToken = 'module:' ifTrue: [ self scanPast: #module. self failUnless: currentTokenFirst == $'. self parseString]. + currentToken = 'error:' + ifTrue: [ + self scanPast: #module. + currentTokenFirst == $' + ifTrue: [self parseString] + ifFalse: [self scanPast: #patternTempVar]]. self failUnless: currentToken = '>'. self scanPast: #primitiveOrExternalCallEnd!

1 0

The Trunk: Compiler-eem.211.mcz
by commits＠source.squeak.org 08 Jul '11

08 Jul '11

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.211.mcz ==================== Summary ==================== Name: Compiler-eem.211 Author: eem Time: 8 July 2011, 1:30:12.579 pm UUID: 500dbdbf-02ba-4414-a482-34f50dafbd38 Ancestors: Compiler-ul.210 Parse error: keyword in FFI pragmas/method tags. Requires FFI-Kernel-eem.24/FFI-Pools-eem.3. Fix BlockLocalTempCounter for all-return case statements. Make sure define class uses the non-meta-class. =============== Diff against Compiler-ul.210 =============== Item was changed: ----- Method: BlockLocalTempCounter>>doJoin (in category 'private') ----- doJoin scanner pc < blockEnd ifTrue: + [stackPointer := joinOffsets at: scanner pc ifAbsent: [scanner followingPc]] + + "the ifAbsent: handles a caseOf:otherwise: where all cases return, which results + in the branch around the otherwise being unreached. e.g. in the following + jumpTo: L2 + is unreached. + + | t | + t caseOf: { [nil] -> [^thisContext method abstractSymbolic] } + otherwise: ['Oh no Mr Bill!!'] + + pushTemp: 0 + pushConstant: nil + send: #= (1 arg) + jumpFalseTo: L1 + pushThisContext: + send: #method (0 args) + send: #abstractSymbolic (0 args) + returnTop + jumpTo: L2 + L1: + pushConstant: 'Oh no Mr Bill!!' + L2: + returnTop"! - [stackPointer := joinOffsets at: scanner pc]! Item was changed: ----- Method: Parser>>defineClass: (in category 'error correction') ----- defineClass: className "prompts the user to define a new class, asks for it's category, and lets the users edit further the definition" | sym cat def d2 | sym := className asSymbol. + cat := UIManager default request: 'Enter class category : ' initialAnswer: self encoder classEncoding theNonMetaClass category. - cat := UIManager default request: 'Enter class category : ' initialAnswer: self encoder classEncoding category. cat ifEmpty: [cat := 'Unknown']. def := 'Object subclass: #' , sym , ' instanceVariableNames: '''' classVariableNames: '''' poolDictionaries: '''' category: ''' , cat , ''''. d2 := UIManager default request: 'Edit class definition : ' initialAnswer: def. d2 ifEmpty: [d2 := def]. Compiler evaluate: d2. ^ encoder global: (Smalltalk globals associationAt: sym) name: sym! Item was changed: ----- Method: Parser>>externalFunctionDeclaration (in category 'primitives') ----- externalFunctionDeclaration "Parse the function declaration for a call to an external library." + | descriptorClass callType modifier retType externalName args argType module fn | - | descriptorClass callType retType externalName args argType module | descriptorClass := Smalltalk at: #ExternalFunction ifAbsent:[nil]. descriptorClass == nil ifTrue:[^false]. callType := descriptorClass callingConventionFor: here. callType == nil ifTrue:[^false]. + [modifier := descriptorClass callingConventionModifierFor: token. + modifier notNil] whileTrue: + [self advance. + callType := callType bitOr: modifier]. "Parse return type" self advance. retType := self externalType: descriptorClass. retType == nil ifTrue:[^self expected:'return type']. "Parse function name or index" externalName := here. (self match: #string) ifTrue:[externalName := externalName asSymbol] ifFalse:[(self match:#number) ifFalse:[^self expected:'function name or index']]. (self matchToken: #'(') ifFalse:[^self expected:'argument list']. args := WriteStream on: Array new. [here == #')'] whileFalse:[ argType := self externalType: descriptorClass. argType == nil ifTrue:[^self expected:'argument']. argType isVoid & argType isPointerType not ifFalse:[args nextPut: argType]. ]. + (self matchToken: #')') ifFalse:[^self expected:')']. - (args position = self properties selector numArgs) ifFalse:[ - ^self expected: 'Matching number of arguments' - ]. - (self matchToken:#')') ifFalse:[^self expected:')']. (self matchToken: 'module:') ifTrue:[ module := here. (self match: #string) ifFalse:[^self expected: 'String']. module := module asSymbol]. + Smalltalk at: #ExternalLibraryFunction ifPresent:[:xfn| - Smalltalk at: #ExternalLibraryFunction ifPresent:[:xfn| | fn | fn := xfn name: externalName module: module callType: callType returnType: retType argumentTypes: args contents. self allocateLiteral: fn. ]. + (self matchToken: 'error:') + ifTrue: + [| errorCodeVariable | + errorCodeVariable := here. + (hereType == #string + or: [hereType == #word]) ifFalse:[^self expected: 'error code (a variable or string)']. + self advance. + self addPragma: (Pragma keyword: #primitive:error: arguments: (Array with: 120 with: errorCodeVariable)). + fn ifNotNil: [fn setErrorCodeName: errorCodeVariable]] + ifFalse: + [self addPragma: (Pragma keyword: #primitive: arguments: #(120))]. + ^true + ! - self addPragma: (Pragma keyword: #primitive: arguments: #(120)). - ^true!

1 0

Re: [squeak-dev] The Trunk: Tools-fbs.364.mcz
by Frank Shearar 08 Jul '11

08 Jul '11

On 8 July 2011 18:44, <commits(a)source.squeak.org> wrote: > Levente Uzonyi uploaded a new version of Tools to project The Trunk: > http://source.squeak.org/trunk/Tools-fbs.364.mcz > > ==================== Summary ==================== > > Name: Tools-fbs.364 > Author: fbs > Time: 27 June 2011, 12:56:26.402 pm > UUID: c881a91c-eaac-4a40-acfb-79fbe119558f > Ancestors: Tools-fbs.363 > > Mantis #7648: when deselecting a class after a class-side method's been viewed, the selectedMessageName must be nil: you can't be viewing a method at this point! > > =============== Diff against Tools-fbs.363 =============== Fantastic! That bug's been annoying me a lot; I constantly run into it. frank

1 0

← Newer
1
...
9
10
11
12
13
14
15
Older →

Jump to page: