Squeak-dev January 2010

squeak-dev@lists.squeakfoundation.org

91 participants
425 discussions

The Trunk: Tools-ar.156.mcz
by commits＠source.squeak.org 02 Jan '10

02 Jan '10

Andreas Raab uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ar.156.mcz ==================== Summary ==================== Name: Tools-ar.156 Author: ar Time: 2 January 2010, 3:26:41 am UUID: c7489e4c-9282-0b43-a26f-b097fcf2e129 Ancestors: Tools-ar.155 Make services unloadable: Provide a menu hook which ServiceGUI can utilize to modify various menus in browsers instead of hacking those methods directly. =============== Diff against Tools-ar.155 =============== Item was changed: ----- Method: Browser>>classListMenu:shifted: (in category 'class functions') ----- classListMenu: aMenu shifted: shifted "Set up the menu to apply to the receiver's class list, honoring the #shifted boolean" + (self menuHook: aMenu named: #classListMenu shifted: shifted) ifTrue:[^aMenu]. + shifted ifTrue:[^ self shiftedClassListMenu: aMenu]. - - ServiceGui browser: self classMenu: aMenu. - ServiceGui onlyServices ifTrue: [^aMenu]. - shifted - ifTrue: - [^ self shiftedClassListMenu: aMenu]. aMenu addList: #( - ('browse full (b)' browseMethodFull) ('browse hierarchy (h)' spawnHierarchy) ('browse protocol (p)' browseFullProtocol) - ('printOut' printOutClass) ('fileOut' fileOutClass) - ('show hierarchy' hierarchy) ('show definition' editClass) ('show comment' editComment) - ('inst var refs...' browseInstVarRefs) ('inst var defs...' browseInstVarDefs) - ('class var refs...' browseClassVarRefs) ('class vars' browseClassVariables) ('class refs (N)' browseClassRefs) - ('rename class ...' renameClass) ('copy class' copyClass) ('remove class (x)' removeClass) - ('find method...' findMethod) ('find method wildcard...' findMethodWithWildcard) - ('more...' offerShiftedClassListMenu)). ^ aMenu ! Item was changed: ----- Method: Browser>>codePaneMenu:shifted: (in category 'code pane') ----- codePaneMenu: aMenu shifted: shifted + (self menuHook: aMenu named: #codePaneMenu shifted: shifted) ifTrue:[^aMenu]. + ^super codePaneMenu: aMenu shifted: shifted.! - ServiceGui browser: self codePaneMenu: aMenu. - ServiceGui onlyServices ifTrue: [^ aMenu]. - super codePaneMenu: aMenu shifted: shifted. - ^ aMenu! Item was changed: ----- Method: Browser>>systemCategoryMenu: (in category 'system category functions') ----- systemCategoryMenu: aMenu + + (self menuHook: aMenu named: #systemCategoryMenu shifted: false) ifTrue:[^aMenu]. + - - ServiceGui browser: self classCategoryMenu: aMenu. - ServiceGui onlyServices ifTrue: [^aMenu]. ^ aMenu labels: 'find class... (f) recent classes... (r) browse all browse printOut fileOut reorganize alphabetize update add item... rename... remove' lines: #(2 4 6 8) selections: #(findClass recent browseAllClasses buildSystemCategoryBrowser printOutSystemCategory fileOutSystemCategory editSystemCategories alphabetizeSystemCategories updateSystemCategories addSystemCategory renameSystemCategory removeSystemCategory )! Item was changed: ----- Method: Browser>>messageListMenu:shifted: (in category 'message functions') ----- messageListMenu: aMenu shifted: shifted "Answer the message-list menu" + (self menuHook: aMenu named: #messageListMenu shifted: shifted) ifTrue:[^aMenu]. + shifted ifTrue: [^ self shiftedMessageListMenu: aMenu]. - ServiceGui browser: self messageListMenu: aMenu. - ServiceGui onlyServices ifTrue: [^ aMenu]. - shifted - ifTrue: [^ self shiftedMessageListMenu: aMenu]. aMenu addList: #( ('what to show...' offerWhatToShowMenu) ('toggle break on entry' toggleBreakOnEntry) - ('browse full (b)' browseMethodFull) ('browse hierarchy (h)' classHierarchy) ('browse method (O)' openSingleMessageBrowser) ('browse protocol (p)' browseFullProtocol) - ('fileOut' fileOutMessage) ('printOut' printOutMessage) - ('senders of... (n)' browseSendersOfMessages) ('implementors of... (m)' browseMessages) ('inheritance (i)' methodHierarchy) ('tile scriptor' openSyntaxView) ('versions (v)' browseVersions) - ('inst var refs...' browseInstVarRefs) ('inst var defs...' browseInstVarDefs) ('class var refs...' browseClassVarRefs) ('class variables' browseClassVariables) ('class refs (N)' browseClassRefs) - ('remove method (x)' removeMessage) - ('more...' shiftedYellowButtonActivity)). ^ aMenu! Item was changed: ----- Method: Browser>>messageCategoryMenu: (in category 'message category functions') ----- messageCategoryMenu: aMenu + (self menuHook: aMenu named: #messageCategoryMenu shifted: false) ifTrue:[^aMenu]. - ServiceGui browser: self messageCategoryMenu: aMenu. - ServiceGui onlyServices ifTrue: [^aMenu]. ^ aMenu labels: 'browse printOut fileOut reorganize alphabetize remove empty categories categorize all uncategorized new category... rename... remove' lines: #(3 8) selections: #(buildMessageCategoryBrowser printOutMessageCategories fileOutMessageCategories editMessageCategories alphabetizeMessageCategories removeEmptyCategories categorizeAllUncategorizedMethods addCategory renameCategory removeMessageCategory) ! Item was added: + ----- Method: CodeHolder>>menuHook:named:shifted: (in category 'misc') ----- + menuHook: aMenu named: aSymbol shifted: aBool + "Provide a hook for supplemental menu items. The return value indicates + whether to only use the supplemental menu or wether to add the regular + menu items to the menu. The only known user is ServiceGUI." + ^false!

1 0

The Trunk: Morphic-ar.280.mcz
by commits＠source.squeak.org 02 Jan '10

02 Jan '10

Andreas Raab uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ar.280.mcz ==================== Summary ==================== Name: Morphic-ar.280 Author: ar Time: 2 January 2010, 2:55:39 am UUID: 7a46adae-0f5d-0b40-9ff4-c0e33a410cb8 Ancestors: Morphic-dtl.279 Time to take the plunge: The Cuis editors have been working great for a long time now, so switch to using them exclusively and remove the preference allowing to switch back (one can still switch back by changing the defaultEditorClass manually). Also, fixes one annoying incompatibility with Cuis editors namely that the default was not to allow selection shrinking. =============== Diff against Morphic-dtl.279 =============== Item was added: + ----- Method: Editor class>>selectionsMayShrink (in category 'preferences') ----- + selectionsMayShrink + <preference: 'Selections may shrink' + category: 'Morphic' + description: 'When true, allows selection to shrink when using shift+cursor keys' + type: #Boolean> + ^SelectionsMayShrink ifNil:[true]! Item was changed: Object subclass: #Editor instanceVariableNames: 'sensor morph selectionShowing' + classVariableNames: 'SelectionsMayShrink' - classVariableNames: '' poolDictionaries: '' category: 'Morphic-Text Support'! !Editor commentStamp: '<historical>' prior: 0! New text editors. TextEditor provides most of the functionality that used to be in TextMorphEditor. This class is no longer a Controller!! SmalltalkEditor is has Smalltalk code specific features. SimpleEditor provides basic functionality for single line text editing. It does not handle fonts and styles, aligning and Smalltalk utilities. It handles one single line. CellStyleEditor allows entering alphabetic characters using only number keys, like most cell phones do.! Item was changed: ----- Method: Editor>>setIndices:forward: (in category 'private') ----- setIndices: shiftPressed forward: forward "Little helper method that sets the moving and fixed indices according to some flags." | indices | indices _ Dictionary new. + (shiftPressed and:[self class selectionsMayShrink]) - (shiftPressed and:[Preferences selectionsMayShrink]) ifTrue: [ indices at: #moving put: self pointIndex. indices at: #fixed put: self markIndex ] ifFalse: [ forward ifTrue:[ indices at: #moving put: self stopIndex. indices at: #fixed put: self startIndex. ] ifFalse: [ indices at: #moving put: self startIndex. indices at: #fixed put: self stopIndex. ] ]. ^indices! Item was added: + ----- Method: Editor class>>selectionsMayShrink: (in category 'preferences') ----- + selectionsMayShrink: aBool + SelectionsMayShrink := aBool.! Item was changed: ----- Method: TextMorph class>>initialize (in category 'class initialization') ----- initialize "TextMorph initialize" "Initialize the default text editor class to use" + DefaultEditorClass := SmalltalkEditor. - DefaultEditorClass := TextMorphEditor. "Initialize constants shared by classes associated with text display." CaretForm := (ColorForm extent: 16@5 fromArray: #(2r001100e26 2r001100e26 2r011110e26 2r111111e26 2r110011e26) offset: -2@0) colors: (Array with: Color transparent with: Preferences textHighlightColor). self registerInFlapsRegistry. ! Item was removed: - ----- Method: TextMorph class>>useNewEditors: (in category 'preferences') ----- - useNewEditors: aBool - "Enable/disable the new text editors" - self defaultEditorClass: (aBool ifTrue:[SmalltalkEditor] ifFalse:[TextMorphEditor])! Item was removed: - ----- Method: TextMorph class>>useNewEditors (in category 'preferences') ----- - useNewEditors - "Enable/disable the new text editors" - <preference: 'Use New Editors' - category: 'Morphic' - description: 'When true, use the new (Cuis-based) editors' - type: #Boolean> - ^DefaultEditorClass == SmalltalkEditor!

1 0

and:and:and:...
by Nicolas Cellier 02 Jan '10

02 Jan '10

Happy new year squeakers! A question of style to start: I know, nested conditions c1 and: [c2 and: [c3]] are sometimes harder to read than separated c1 and: [c2] and: [c3] I personally don't feel the former as a problem, especially with good indentations and shout. The main difference is that the later won't be inlined and will thus be slower - unless Cog change the deal? There is another difference in favor of the later: it produces shorter jump and thus can compile longer methods. But that is a bad argument... Methods should better be short. IMO these squeakisms have too low a value and should be deprecated. Thoughts? Nicolas

3 3

The Trunk: Tools-ar.155.mcz
by commits＠source.squeak.org 02 Jan '10

02 Jan '10

Andreas Raab uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ar.155.mcz ==================== Summary ==================== Name: Tools-ar.155 Author: ar Time: 2 January 2010, 3:59:59 am UUID: d9ba8dcc-6e58-3e40-bffb-e756c3ddab77 Ancestors: Tools-dtl.154 Don't use definitionST80. =============== Diff against Tools-dtl.154 =============== Item was changed: ----- Method: MessageSet>>selectedMessage (in category 'contents') ----- selectedMessage "Answer the source method for the currently selected message." self setClassAndSelectorIn: [:class :selector | | source | class ifNil: [^ 'Class vanished']. selector first isUppercase ifTrue: [selector == #Comment ifTrue: [currentCompiledMethod := class organization commentRemoteStr. ^ class comment]. selector == #Definition ifTrue: + [^ class definition]. - [^ class definitionST80]. selector == #Hierarchy ifTrue: [^ class printHierarchy]]. source := class sourceMethodAt: selector ifAbsent: [currentCompiledMethod := nil. ^ 'Missing']. self showingDecompile ifTrue: [^ self decompiledSourceIntoContents]. currentCompiledMethod := class compiledMethodAt: selector ifAbsent: [nil]. self showingDocumentation ifTrue: [^ self commentContents]. source := self sourceStringPrettifiedAndDiffed. ^ source asText makeSelectorBoldIn: class]!

1 0

The Trunk: TraitsTests-ar.2.mcz
by commits＠source.squeak.org 02 Jan '10

02 Jan '10

Andreas Raab uploaded a new version of TraitsTests to project The Trunk: http://source.squeak.org/trunk/TraitsTests-ar.2.mcz ==================== Summary ==================== Name: TraitsTests-ar.2 Author: ar Time: 2 January 2010, 3:58:43 am UUID: 93ee48a2-6523-6249-9116-e7bbca9672a6 Ancestors: TraitsTests-ar.1 Don't use definitionST80. =============== Diff against TraitsTests-ar.1 =============== Item was changed: ----- Method: TraitTest>>testPrintingClassSide (in category 'testing') ----- testPrintingClassSide "self run: #testPrintingClassSide" + self assertPrints: self t6 classSide definition - self assertPrints: self t6 classSide definitionST80 like: 'T6 classTrait uses: T1 classTrait + T2 classTrait'! Item was changed: ----- Method: TraitTest>>testPrinting (in category 'testing') ----- testPrinting + self assertPrints: self t6 definition - self assertPrints: self t6 definitionST80 like: 'Trait named: #T6 uses: T1 + T2 @ {#m22Alias->#m22} category: ''TraitsTests-Kernel'''!

1 0

The Trunk: Traits-ar.275.mcz
by commits＠source.squeak.org 02 Jan '10

02 Jan '10

Andreas Raab uploaded a new version of Traits to project The Trunk: http://source.squeak.org/trunk/Traits-ar.275.mcz ==================== Summary ==================== Name: Traits-ar.275 Author: ar Time: 2 January 2010, 3:57:10 am UUID: 3a07fcd6-afdc-b048-bb5b-889a4655c403 Ancestors: Traits-ar.274 A bit of refactoring. Break up ClassDescription>>installTraitsFrom: since it had gotten too long. Remove the obsolete definitionST80 protocol. Move updateTraitsFrom: up into ClassDescription. =============== Diff against Traits-ar.274 =============== Item was changed: ----- Method: ClassDescription>>installTraitsFrom: (in category '*Traits-NanoKernel') ----- installTraitsFrom: aTraitComposition "Install the traits from the given composition. This method implements the core composition method - all others are just optimizations for particular cases. Consequently, the optimized versions can always fall back to this method when things get too hairy." + | allTraits methods | - | allTraits methods oldMethod removals oldCategories | (self traitComposition isEmpty and: [aTraitComposition isEmpty]) ifTrue: [^self]. "Check for cycles" allTraits := aTraitComposition gather: [:t | t allTraits copyWith: t]. (allTraits includes: self) ifTrue:[^self error: 'Cyclic trait definition detected']. - "XXXX: addUser/removeUser should be part of setter, but subclass - override prevents it until we've got rid of Traits mess." - self traitComposition do:[:tc| tc removeTraitUser: self]. self traitComposition: aTraitComposition. + methods := self assembleTraitMethodsFrom: aTraitComposition. + self installTraitMethodDict: methods. + self isMeta ifFalse:[self classSide updateTraitsFrom: aTraitComposition]. + ! - aTraitComposition do:[:tc| tc addTraitUser: self]. - - "Assemble the methods in a new dictionary first. - Uses a Dictionary instead of a MethodDictionary for speed (MDs grow by #become:)" - methods := Dictionary new. - - "Stick in the local methods first, since this avoids generating conflict methods unnecessarily" - self selectorsAndMethodsDo:[:sel :newMethod| - (self isLocalMethod: newMethod) - ifTrue:[methods at: sel put:newMethod]]. - - "Now assemble the traits methods" - aTraitComposition do:[:trait| - trait selectorsAndMethodsDo:[:sel :newMethod| - oldMethod := methods at: sel ifAbsentPut:[newMethod]. - newMethod == oldMethod ifFalse:["a conflict" - (self isLocalMethod: oldMethod) ifFalse:[ - methods at: sel put: (self resolveTraitsConflict: sel from: oldMethod to: newMethod). - ]. - ]. - ]. - ]. - - "Apply the changes. We first add the new or changed methods." - oldCategories := Set new. - methods keysAndValuesDo:[:sel :newMethod| - oldMethod := self compiledMethodAt: sel ifAbsent:[nil]. - oldMethod == newMethod ifFalse:[ - self traitAddSelector: sel withMethod: newMethod. - (self organization categoryOfElement: sel) ifNotNil:[:cat| oldCategories add: cat]. - self organization classify: sel under: - (newMethod methodHome organization categoryOfElement: newMethod selector). - ]]. - - "Now remove the old or obsoleted ones" - removals := OrderedCollection new. - self selectorsDo:[:sel| (methods includesKey: sel) ifFalse:[removals add: sel]]. - removals do:[:sel| self traitRemoveSelector: sel]. - - "Clean out empty categories" - oldCategories do:[:cat| - (self organization isEmptyCategoryNamed: cat) - ifTrue:[self organization removeCategory: cat]]. - - self isMeta ifFalse:[self classSide updateTraitsFrom: aTraitComposition].! Item was added: + ----- Method: ClassDescription>>assembleTraitMethodsFrom: (in category '*Traits-NanoKernel') ----- + assembleTraitMethodsFrom: aTraitComposition + "Assemble the resulting methods for installing the given trait composition. + Returns a Dictionary instead of a MethodDictionary for speed (MDs grow by #become:)" + | methods oldMethod | + methods := Dictionary new. + "Stick in the local methods first, since this avoids generating conflict methods unnecessarily" + self selectorsAndMethodsDo:[:sel :newMethod| + (self isLocalMethod: newMethod) + ifTrue:[methods at: sel put:newMethod]]. + "Now assemble the traits methods" + aTraitComposition do:[:trait| + trait selectorsAndMethodsDo:[:sel :newMethod| + oldMethod := methods at: sel ifAbsentPut:[newMethod]. + newMethod == oldMethod ifFalse:["a conflict" + (self isLocalMethod: oldMethod) ifFalse:[ + methods at: sel put: (self resolveTraitsConflict: sel from: oldMethod to: newMethod)]]]]. + ^methods! Item was added: + ----- Method: ClassDescription>>installTraitMethodDict: (in category '*Traits-NanoKernel') ----- + installTraitMethodDict: methods + "After having assembled the trait composition, install its methods." + | oldCategories oldMethod removals | + "Apply the changes. We first add the new or changed methods." + oldCategories := Set new. + methods keysAndValuesDo:[:sel :newMethod| + oldMethod := self compiledMethodAt: sel ifAbsent:[nil]. + oldMethod == newMethod ifFalse:[ + self traitAddSelector: sel withMethod: newMethod. + (self organization categoryOfElement: sel) ifNotNil:[:cat| oldCategories add: cat]. + self organization classify: sel under: + (newMethod methodHome organization categoryOfElement: newMethod selector)]]. + + "Now remove the old or obsoleted ones" + removals := OrderedCollection new. + self selectorsDo:[:sel| (methods includesKey: sel) ifFalse:[removals add: sel]]. + removals do:[:sel| self traitRemoveSelector: sel]. + + "Clean out empty categories" + oldCategories do:[:cat| + (self organization isEmptyCategoryNamed: cat) + ifTrue:[self organization removeCategory: cat]]. + + ! Item was added: + ----- Method: ClassDescription>>updateTraitsFrom: (in category '*Traits-NanoKernel') ----- + updateTraitsFrom: instanceTraits + "ClassTrait/Metaclass only. Update me from the given instance traits" + | map newTraits trait | + self isMeta ifFalse:[self error: 'This is a metaclass operation']. + map := Dictionary new. + self traitComposition do:[:composed| map at: composed trait put: composed]. + newTraits := (instanceTraits collect:[:composed| + trait := composed trait classTrait. + map at: trait ifAbsent:[trait]] + ), (self traitComposition select:[:comp| comp trait isBaseTrait]). + + self installTraitsFrom: newTraits! Item was changed: ----- Method: ClassDescription>>traitComposition: (in category '*Traits-NanoKernel') ----- traitComposition: aTraitComposition "Install my trait composition" + self traitComposition do:[:tc| tc removeTraitUser: self]. aTraitComposition isEmptyOrNil ifTrue:[ self organization isTraitOrganizer ifTrue:[self organization: (ClassOrganizer newFrom: self organization)]. ] ifFalse:[ self organization isTraitOrganizer ifFalse:[self organization: (TraitOrganizer newFrom: self organization)]. self organization traitComposition: aTraitComposition. + aTraitComposition do:[:tc| tc addTraitUser: self]. ]. ! Item was removed: - ----- Method: Metaclass>>updateTraitsFrom: (in category '*Traits-NanoKernel') ----- - updateTraitsFrom: instanceTraits - "Update me from the given instance traits" - | map newTraits trait | - - map := Dictionary new. - self traitComposition isEmpty ifFalse:[ - self traitComposition do:[:composed| map at: composed trait put: composed]. - ]. - - newTraits := (instanceTraits collect:[:composed| - trait := composed trait classTrait. - map at: trait ifAbsent:[trait]]). - - self traitComposition isEmpty ifFalse:[ - newTraits := newTraits, (self traitComposition select:[:comp| comp trait isBaseTrait]). - ]. - self installTraitsFrom: newTraits! Item was removed: - ----- Method: ClassTrait>>updateTraitsFrom: (in category 'initialize') ----- - updateTraitsFrom: instanceTraits - "Update me from the given instance traits" - | map newTraits trait | - map := Dictionary new. - self traitComposition do:[:composed| map at: composed trait put: composed]. - newTraits := (instanceTraits collect:[:composed| - trait := composed trait classTrait. - map at: trait ifAbsent:[trait]] - ), (self traitComposition select:[:comp| comp trait isBaseTrait]). - - self installTraitsFrom: newTraits! Item was removed: - ----- Method: Trait>>definitionST80 (in category 'initialize') ----- - definitionST80 - ^String streamContents: [:stream | - stream nextPutAll: 'Trait named: '; - store: self name. - stream cr; tab; nextPutAll: 'uses: '; - nextPutAll: self traitComposition asString. - stream cr; tab; nextPutAll: 'category: '; - store: self category asString].! Item was removed: - ----- Method: ClassTrait>>definitionST80 (in category 'accessing') ----- - definitionST80 - ^String streamContents: [:stream | - stream nextPutAll: self name. - stream cr; tab; nextPutAll: 'uses: '; - nextPutAll: self traitComposition asString. - ].!

1 0

Daily Commit Log
by commits＠source.squeak.org 02 Jan '10

02 Jan '10

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2010-January/002259.ht… Name: Collections-nice.270 Ancestors: Collections-ar.269 Don't assign block argument with nil, with closure that is not necessary. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-January/002260.ht… Name: EToys-nice.43 Ancestors: EToys-nice.42 Don't assign block argument with nil, with closure that is not necessary. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-January/002261.ht… Name: System-nice.213 Ancestors: System-ul.212 Don't assign block argument with nil, with closure that is not necessary. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-January/002262.ht… Name: Monticello-nice.349 Ancestors: Monticello-ar.348 Remove an assigment to a block argument ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-January/002263.ht… Name: Kernel-ar.363 Ancestors: Kernel-ul.362 Making traits unloadable: We need three backstop methods in Behavior. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-January/002264.ht… Name: KernelTests-ar.128 Ancestors: KernelTests-ar.127 Making traits unloadable: Slight change to BasicBehaviorClassMetaclassTest to function correctly in the absence of traits. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-January/002265.ht… Name: Monticello-ar.350 Ancestors: Monticello-nice.349 Making traits unloadable: Slight change to Monticello class creation to function correctly in the absence of traits. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-January/002266.ht… Name: Traits-ar.272 Ancestors: Traits-ar.271 Making traits unloadable: Three new operations on class trait to support loading and unloading. - Trait removeAllTraits flattens all classes and traits, converting traits to classes and storing supplemental information to support traits recovery. - Trait restoreAllTraits restores traits from previously flattened classes based on the supplemental information stored via removeAllTraits. - Trait unloadTraits first removes all traits and then unloads the traits package via Monticello. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-January/002267.ht… Name: 311Deprecated-ar.1 Ancestors: Deprecate the no longer used kernel traits. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-January/002268.ht… Name: Traits-ar.273 Ancestors: Traits-ar.272 Deprecated the no longer used kernel traits. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-January/002269.ht… Name: Traits-ar.274 Ancestors: Traits-ar.273 Add post-load initialization for reloading traits. =============================================

1 0

Squeak on Nokia N900
by Bert Freudenberg 02 Jan '10

02 Jan '10

http://www.orient-lodge.com/node/3888 > Running Squeak, Etoys, Scratch or maybe even OpenCroquet or OpenCobalt on a Nokia N900 > > > Recently, I’ve been writing a lot about the Nokia N900. This is Nokia’s latest cellphone or Internet Table, which is actually a pretty nice little computer. I’ve been testing out what works and what doesn’t, and one of the most interesting projects has been trying to get Squeak running on it. > [...] > Are there others out there interested in exploring Smalltalk, Squeak, and the many different images available to see what can be done with it on the N900? Drop me a note if you’re interested. FYI ... - Bert -

5 8

MNU MorphicProject #messageListMenu:shifted:
by Nicolas Cellier 01 Jan '10

01 Jan '10

This is triggered by selecting more... item in a MessageSet yellow menu Nicolas

1 0

basicType
by Nicolas Cellier 01 Jan '10

01 Jan '10

#basicType is a message used by eToys Scripting Tiles and should be categorized accordingly (current categories are testing/printing/queries/attributes) I suggest using *eToys-tiles as it already exists Nicolas

1 0

Jump to page: