Squeak-dev November 2009

squeak-dev@lists.squeakfoundation.org

89 participants
351 discussions

Scholarship for doing a master in Santiago, Chile
by Bergel, Alexandre 30 Nov '09

30 Nov '09

Dear Smalltalker, I just learn that the some scholarship are offered by the Chilean government for foreigners to do a master in Chile. The website is http://www.agci.cl/becas/conv/?tipo=2&id=24 Apparently, only Latino Americanos may apply. Feel free to contact me for more info. Cheers, Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.

1 0

Scholarship for doing a master in Santiago, Chile
by Alexandre Bergel 30 Nov '09

30 Nov '09

1 0

Problem installing Alien
by Casimiro de Almeida Barreto 30 Nov '09

30 Nov '09

When installing Alien (after last upgrades in trunk) I have the following error: MessageNotUnderstood: TempVariableNode>>doesNotUnderstand: #code It happens in AlienInstaller>>install MessageNotUnderstood: TempVariableNode>>code: TempVariableNode(Object)>>doesNotUnderstand: #code: EncoderForV3PlusClosures(Encoder)>>fixTemp: BytecodeAgnosticMethodNode>>generate: Alien class(Behavior)>>recompile:from: Alien class(Behavior)>>recompile: [] in AlienInstaller class>>install [] in [] in Array(SequenceableCollection)>>do:displayingProgress: Array(SequenceableCollection)>>withIndexDo: [] in Array(SequenceableCollection)>>do:displayingProgress: [] in [] in ProgressInitiationException>>defaultMorphicAction BlockClosure>>on:do: [] in ProgressInitiationException>>defaultMorphicAction BlockClosure>>ensure: ProgressInitiationException>>defaultMorphicAction ProgressInitiationException>>defaultAction UndefinedObject>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: ProgressInitiationException(Exception)>>signal ProgressInitiationException>>display:at:from:to:during: install | repository | repository := (Installer repository: 'http://www.squeaksource.com/') project: 'Alien'. #( 'Alien-Core-First' 'Alien-Core' 'Alien-Examples' 'Alien-LibC' 'Alien-CoreTest' 'Alien-Last-Class-Initialize' ) do: [ :p | repository install: p ] displayingProgress: 'Installing Alien packages ...'. (PackageInfo named: 'Alien') methods do: [:ea | ea actualClass recompile: ea methodSymbol] displayingProgress: 'Recompiling...'

2 4

The Trunk: ShoutCore-nice.5.mcz
by commits＠source.squeak.org 30 Nov '09

30 Nov '09

Nicolas Cellier uploaded a new version of ShoutCore to project The Trunk: http://source.squeak.org/trunk/ShoutCore-nice.5.mcz ==================== Summary ==================== Name: ShoutCore-nice.5 Author: nice Time: 30 November 2009, 11:42:19 am UUID: 21b868bc-bc05-8b4f-b0d5-6571aa05242e Ancestors: ShoutCore-rss.4 Make Shout literal ByteArray aware #[1 2 3] =============== Diff against ShoutCore-rss.4 =============== Item was added: + ----- Method: SHParserST80>>parseByteArray (in category 'parse') ----- + parseByteArray + [currentTokenFirst == $]] whileFalse: [ + currentTokenFirst isDigit + ifTrue: [ + "do not parse the number, can be time consuming" + self scanPast: #number] + ifFalse: [ + self failWhen: currentTokenFirst == $. . + self error]]. + self scanPast: #arrayEnd! Item was changed: ----- Method: SHParserST80>>parseSymbol (in category 'parse') ----- parseSymbol | c | currentToken = '#' ifTrue: [ "if token is just the #, then scan whitespace and comments and then process the next character. Squeak allows space between the # and the start of the symbol e.g. # (), # a, # 'sym' " self rangeType: #symbol. self scanWhitespace]. c := self currentChar. self failWhen: (c isNil or: [c isSeparator]). c == $( ifTrue: [ self nextChar. self scanPast: #arrayStart start: currentTokenSourcePosition end: currentTokenSourcePosition + 1. ^self parseArray]. c == $' ifTrue: [^self parseSymbolString]. + c == $[ ifTrue: [ + self nextChar. + self scanPast: #arrayStart start: currentTokenSourcePosition end: currentTokenSourcePosition + 1. + ^self parseByteArray]. ((self isSelectorCharacter: c) or: [c == $-]) ifTrue: [^self parseSymbolSelector]. (c isLetter or: [c == $:]) ifTrue: [^self parseSymbolIdentifier]. ^self parseCharSymbol!

1 0

String/TextMorph/Editor --why so complex?
by Ross Boylan 30 Nov '09

30 Nov '09

I'm trying to make an autocompletion widget that can complete words or phrases. The e/ocompletion frameworks are very oriented to smalltalk syntax, which is not what I want; also, they work on TextMorph's, whereas StringMorph seemed more natural for what I want since there's only a single line. I've been trying to understand how editing goes, and it seems pretty convoluted. Just for StringMorph: * when you want to edit, a new morph, StringMorphEditor, pops up in front of the StringMorph. * the StringMorphEditor uses the TextMorphEditor, with does all the paragraph composition. StringMorphEditor must undo that. TextMorphEditor includes a reference (morph instance variable) back to the StringMorphEditor. * StringMorphEditor is a subclass of TextMorph. * TextMorphEditor is a subclass of ParagraphEditor, an ST80 remnant. * Both the MorphEditors have paragraph objects, which give the layout of the text on the screen. I think the 2 editors have 2 different objects, but I'm not sure. TextMorph's have many of the same features: there is a separate editor object, and they end up using ST80 code. This was in a 3.10 image. So, are there reasons for this division of labor, or did they simply evolve trying to build new functionality on top of old functionality? My understanding of the morphic spirit led me to expect that the basic objects, StringMorph and TextMorph, would be handling the user interaction much more directly. What I see has more of an MVC flavor, though it's more complicated than that. I can imagine that the distinction between the Morph's and MorphEditors arose out of desire to keep display only widgets light-weight, but other than that I'm puzzled. I thought I was going to make the completion widget by subclassing StringMorph and then implementing logic directly in the morphic event handler methods. I see that the existing widgets do not implement "vanilla" editing that way, and that the best developed completion frameworks also do not take this approach (they also use ParagraphEditor or subclasses). All of which makes me wonder what the best strategy is. I appreciate any guidance or insights you can offer. Ross Boylan P.S. StringMorphEditor>>keyStroke: has this introductory comment: "This is hugely inefficient, but it seems to work, and it's unlikely it will ever need to be any more efficient -- it's only intended to edit single-line strings." My concern is with human comprehensibillity and design elegance and integrity rather than run-time efficiency.

2 2

The Trunk: 39Deprecated-dtl.18.mcz
by commits＠source.squeak.org 30 Nov '09

30 Nov '09

David T. Lewis uploaded a new version of 39Deprecated to project The Trunk: http://source.squeak.org/trunk/39Deprecated-dtl.18.mcz ==================== Summary ==================== Name: 39Deprecated-dtl.18 Author: dtl Time: 29 November 2009, 11:00:18 am UUID: 690fd4f2-4bb2-4abc-9a86-eb97adbc64a4 Ancestors: 39Deprecated-dtl.17 Restore original #scopeFor:from:envtAndPathIfFound: method (from a Squeak 3.6 image), eliminating deprecation marker and removing it from package "39Deprecated". =============== Diff against 39Deprecated-dtl.17 =============== Item was removed: - ----- Method: SystemDictionary>>scopeFor:from:envtAndPathIfFound: (in category '*39Deprecated') ----- - scopeFor: varName from: lower envtAndPathIfFound: envtAndPathBlock - "Null compatibility with partitioning into environments." - - self deprecated: 'deprecated'. - - (self includesKey: varName) - ifTrue: [^ envtAndPathBlock value: self value: String new] - ifFalse: [^ nil]!

1 0

The Trunk: System-dtl.184.mcz
by commits＠source.squeak.org 30 Nov '09

30 Nov '09

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.184.mcz ==================== Summary ==================== Name: System-dtl.184 Author: dtl Time: 29 November 2009, 10:58:42 am UUID: 9d58676e-c70e-4afc-99f4-87d5876b3e79 Ancestors: System-dtl.183 Restore original #scopeFor:from:envtAndPathIfFound: method (from a Squeak 3.6 image), eliminating deprecation marker and removing it from package "39Deprecated". =============== Diff against System-dtl.183 =============== Item was added: + ----- Method: SystemDictionary>>scopeFor:from:envtAndPathIfFound: (in category 'dictionary access') ----- + scopeFor: varName from: lower envtAndPathIfFound: envtAndPathBlock + "Null compatibility with partitioning into environments." + + (self includesKey: varName) + ifTrue: [^ envtAndPathBlock value: self value: String new] + ifFalse: [^ nil]!

1 0

The Trunk: 39Deprecated-dtl.17.mcz
by commits＠source.squeak.org 30 Nov '09

30 Nov '09

David T. Lewis uploaded a new version of 39Deprecated to project The Trunk: http://source.squeak.org/trunk/39Deprecated-dtl.17.mcz ==================== Summary ==================== Name: 39Deprecated-dtl.17 Author: dtl Time: 29 November 2009, 10:33:38 am UUID: 503bc267-1a61-45a2-b1c6-4939c624ea7f Ancestors: 39Deprecated-dtl.16 Move SharedQueue2>>removeAll and SharedQueue2>>removeAllSuchThat: from category "*39Deprecated" back to "accessing". These had been put in the 39Deprecated package, but have never been marked deprecated (and should not be). =============== Diff against 39Deprecated-dtl.16 =============== Item was removed: - ----- Method: SharedQueue2>>removeAllSuchThat: (in category '*39Deprecated') ----- - removeAllSuchThat: aBlock - "Remove from the queue all objects that satisfy aBlock." - monitor critical: [ - items removeAllSuchThat: aBlock ]! Item was removed: - ----- Method: SharedQueue2>>removeAll (in category '*39Deprecated') ----- - removeAll - monitor critical: [ - items next: (items size) ].!

1 0

The Trunk: Collections-dtl.214.mcz
by commits＠source.squeak.org 30 Nov '09

30 Nov '09

David T. Lewis uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-dtl.214.mcz ==================== Summary ==================== Name: Collections-dtl.214 Author: dtl Time: 29 November 2009, 10:32:29 am UUID: 357d781b-6b29-47ba-a2f2-74faf72585ed Ancestors: Collections-nice.213 Use "Project current" idiom in TestSqkProjectLink>>actOnClickFor: Move SharedQueue2>>removeAll and SharedQueue2>>removeAllSuchThat: from category "*39Deprecated" back to "accessing". These had been put in the 39Deprecated package, but have never been marked deprecated (and should not be). =============== Diff against Collections-nice.213 =============== Item was added: + ----- Method: SharedQueue2>>removeAll (in category 'accessing') ----- + removeAll + monitor critical: [ + items next: (items size) ].! Item was added: + ----- Method: SharedQueue2>>removeAllSuchThat: (in category 'accessing') ----- + removeAllSuchThat: aBlock + "Remove from the queue all objects that satisfy aBlock." + monitor critical: [ + items removeAllSuchThat: aBlock ]! Item was changed: ----- Method: TextSqkProjectLink>>actOnClickFor: (in category 'as yet unclassified') ----- actOnClickFor: textMorph + Project current enterIfThereOrFind: url. - Project enterIfThereOrFind: url. ^ true!

1 0

The Trunk: 39Deprecated-dtl.16.mcz
by commits＠source.squeak.org 30 Nov '09

30 Nov '09

David T. Lewis uploaded a new version of 39Deprecated to project The Trunk: http://source.squeak.org/trunk/39Deprecated-dtl.16.mcz ==================== Summary ==================== Name: 39Deprecated-dtl.16 Author: dtl Time: 29 November 2009, 10:14:57 am UUID: a2c71720-f30a-4daa-ad96-f74cc9678e3a Ancestors: 39Deprecated-dtl.15 Remove deprecated methods. All but eight have been removed, these are: ContextPart>>methodSelector "Is this is really unused?" SharedQueue2>>flush "Compatibility with SharedQueue protocol" SharedQueue2>>flushAllSuchThat: "Compatibility with SharedQueue protocol" SharedQueue2>>removeAll "Compatibility with SharedQueue protocol" SharedQueue2>>removeAllSuchThat: "Compatibility with SharedQueue protocol" SystemDictionary>>getFileNameFromUser "SmalltalkImage current is proposed replacement" SystemDictionary>>scopeFor:from:envtAndPathIfFound: "Sent by ClassDescription>>definition" SystemDictionary>>vmParameterAt: "SmalltalkImage current is proposed replacement" =============== Diff against 39Deprecated-dtl.15 =============== Item was removed: - ----- Method: ClassDescription>>letUserReclassify: (in category '*39Deprecated') ----- - letUserReclassify: anElement - "Put up a list of categories and solicit one from the user. - Answer true if user indeed made a change, else false" - - self deprecated: 'Use CodeHolder>>letUserReclassify: anElement in: aClass'. - CodeHolder new letUserReclassify: anElement in: self.! Item was removed: - ----- Method: ClassDescription>>methods (in category '*39Deprecated') ----- - methods - "Answer a ClassCategoryReader for compiling messages that are not classified, as in fileouts made with Smalltalk/V" - self deprecated: 'Is this used?'. - ^ ClassCategoryReader new setClass: self category: ClassOrganizer default! Item was removed: - ----- Method: SystemDictionary>>atOrAbove:ifAbsent: (in category '*39Deprecated') ----- - atOrAbove: key ifAbsent: absentBlock - "Compatibility with environment protocol." - - self deprecated: 'use at:ifAbsent:'. - ^ self at: key ifAbsent: absentBlock! Item was removed: - ----- Method: SystemDictionary>>associationAtOrAbove:ifAbsent: (in category '*39Deprecated') ----- - associationAtOrAbove: varName ifAbsent: absentBlock - "Compatibility with environment protocol." - - self deprecated: 'use associationAt:ifAbsent:'. - ^ self associationAt: varName ifAbsent: absentBlock! Item was removed: - ----- Method: CompiledMethod>>decompileTree (in category '*39Deprecated') ----- - decompileTree - self deprecated: 'just use #decompile'. - ^self decompile.! Item was removed: - ----- Method: Object>>beep: (in category '*39Deprecated') ----- - beep: soundName - "Make the given sound, unless the making of sound is disabled in Preferences." - - self deprecated: 'Use SampledSound>>playSoundNamed: instead.'. - Preferences soundsEnabled - ifTrue: [self playSoundNamed: soundName] - ! Item was removed: - ----- Method: Utilities class>>browseVersionsForClass:selector: (in category '*39Deprecated') ----- - browseVersionsForClass: aClass selector: aSelector - self deprecated: 'Use VersionsBrowser browseVersionsForClass: aClass selector: aSelector instead'. - VersionsBrowser browseVersionsForClass: aClass selector: aSelector! Item was removed: - ----- Method: Object>>beep (in category '*39Deprecated') ----- - beep - "Deprecated." - - self deprecated: 'Use Beeper class>>beep instead.'. - Beeper beep! Item was removed: - ----- Method: Object>>ifKindOf:thenDo: (in category '*39Deprecated') ----- - ifKindOf: aClass thenDo: aBlock - self deprecated: 'Deprecated. Just use #isKindOf:'. - ^ (self isKindOf: aClass) ifTrue: [aBlock value: self]! Item was removed: - ----- Method: Object>>contentsGetz: (in category '*39Deprecated') ----- - contentsGetz: x - self deprecated: 'there is no method named contents in object and in addition only one sender in a method not called'. - self contents: x! Item was removed: - ----- Method: Utilities class>>fileOutChangeSetsNamed: (in category '*39Deprecated') ----- - fileOutChangeSetsNamed: nameList - "File out the list of change sets whose names are provided" - self deprecated: 'Use ChangeSet fileOutChangeSetsNamed: nameList'. - ChangeSet fileOutChangeSetsNamed: nameList! Item was removed: - ----- Method: PasteUpMorph>>bringFlapTabsToFront (in category '*39Deprecated') ----- - bringFlapTabsToFront - self deprecated: 'Replaced by #bringTopmostsToFront'. - (submorphs select:[:m| m wantsToBeTopmost]) do:[:m| self addMorphInLayer: m].! Item was removed: - ----- Method: ClassDescription>>categoryFromUserWithPrompt: (in category '*39Deprecated') ----- - categoryFromUserWithPrompt: aPrompt - "SystemDictionary categoryFromUserWithPrompt: 'testing'" - - self deprecated: 'Use CodeHolder>>categoryFromUserWithPrompt: aPrompt for: aClass instead'. - "this deprecation helps to remove UI dependency from the core of Squeak. - Normally only CodeHolder was calling this method" - CodeHolder new categoryFromUserWithPrompt: aPrompt for: self! Item was removed: - ----- Method: SystemDictionary>>atOrBelow:ifAbsent: (in category '*39Deprecated') ----- - atOrBelow: key ifAbsent: absentBlock - "Compatibility with environment protocol." - - self deprecated: 'use at:ifAbsent:'. - ^ self at: key ifAbsent: absentBlock! Item was removed: - ----- Method: SystemDictionary>>includesKeyOrAbove: (in category '*39Deprecated') ----- - includesKeyOrAbove: key - "Compatibility with environment protocol." - - self deprecated: 'use includesKey:'. - self at: key ifAbsent: [^ false]. - ^ true! Item was removed: - ----- Method: Object>>deprecated:explanation: (in category '*39Deprecated') ----- - deprecated: aBlock explanation: aString - "This method is OBSOLETE. Use #deprecated:block: instead." - self deprecated: 'Use Object>>deprecated:block: instead of deprecated:explanation:.'. - - Preferences showDeprecationWarnings ifTrue: - [Deprecation - signal: ('{1} has been deprecated. {2}' translated format: {thisContext sender printString. aString})]. - ^ aBlock value. - ! Item was removed: - ----- Method: Object>>beepPrimitive (in category '*39Deprecated') ----- - beepPrimitive - "Deprecated. Beep in the absence of sound support." - - self deprecated: 'Use Beeper class>>beep or Beeper class>>beepPrimitive instead.'. - Beeper beepPrimitive! Item was removed: - ----- Method: SystemDictionary>>environmentForCategory: (in category '*39Deprecated') ----- - environmentForCategory: catName - "Default response for non-partitioned systems" - self deprecated: 'deprecated'. - ^ self! Item was removed: - ----- Method: Object>>deprecatedExplanation: (in category '*39Deprecated') ----- - deprecatedExplanation: aString - "This method is OBSOLETE. Use #deprecated: instead." - self deprecated: 'Use Object>>deprecated: instead of deprecatedExplanation:.'. - - Preferences showDeprecationWarnings ifTrue: - [Deprecation signal: ('{1} has been deprecated. {2}' translated format: {thisContext sender printString. aString})]! Item was removed: - ----- Method: Object>>doIfNotNil: (in category '*39Deprecated') ----- - doIfNotNil: aBlock - self deprecated: 'use ifNotNilDo:'. - ^ self ifNotNilDo: aBlock - ! Item was removed: - ----- Method: MethodContext>>who (in category '*39Deprecated') ----- - who - self deprecated: 'please use #methodClass and #selector'. - - self method ifNil: [^ #(unknown unkown)]. - ^ {self methodClass . self selector}. - ! Item was removed: - ----- Method: Object>>playSoundNamed: (in category '*39Deprecated') ----- - playSoundNamed: soundName - "Deprecated. - Play the sound with the given name." - - self deprecated: 'Use "SoundService default playSoundNamed: aName" instead.'. - SoundService default playSoundNamed: soundName!

1 0

Jump to page: