Squeak-dev May 2013

squeak-dev@lists.squeakfoundation.org

59 participants
334 discussions

The Trunk: CollectionsTests-fbs.203.mcz
by commits＠source.squeak.org 02 May '13

02 May '13

Frank Shearar uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-fbs.203.mcz ==================== Summary ==================== Name: CollectionsTests-fbs.203 Author: fbs Time: 1 May 2013, 10:12:50.228 pm UUID: 7ecc6719-b357-4438-8c6d-eb0aa8b742f1 Ancestors: CollectionsTests-fbs.202 Tests for Collections-fbs.516, showing that an Association can round-trip through #storeString. =============== Diff against CollectionsTests-fbs.202 =============== Item was added: + ----- Method: AssociationTest>>testStoreStringEvaluatesToEqualValue (in category 'as yet unclassified') ----- + testStoreStringEvaluatesToEqualValue + self assert: 1 -> 2 equals: (Compiler evaluate: (1 -> 2) storeString). + self assert: false -> true equals: (Compiler evaluate: (false -> true) storeString). + self assert: #foo -> #bar equals: (Compiler evaluate: (#foo -> #bar) storeString). + self assert: #foo -> #+ equals: (Compiler evaluate: (#foo -> #+) storeString). + self assert: #+ -> #bar equals: (Compiler evaluate: (#+ -> #bar) storeString).!

1 0

The Trunk: Collections-fbs.516.mcz
by commits＠source.squeak.org 02 May '13

02 May '13

Frank Shearar uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-fbs.516.mcz ==================== Summary ==================== Name: Collections-fbs.516 Author: fbs Time: 1 May 2013, 10:14:23.588 pm UUID: e787006a-d096-47f3-93da-c4681285fae2 Ancestors: Collections-ul.515 Surrounding the -> in an Assocation in printed form allows the left side to be a binary selector without things breaking: #* -> #+ otherwise prints as '#*->#+', which is the Symbol #*-> followed by garbage. =============== Diff against Collections-ul.515 =============== Item was changed: ----- Method: Association>>printOn: (in category 'printing') ----- printOn: aStream super printOn: aStream. + "If the key is a binary selector and we don't use whitespace, we will stream (key, '->') asSymbol." + aStream nextPutAll: ' -> '. - aStream nextPutAll: '->'. value printOn: aStream! Item was changed: ----- Method: Association>>storeOn: (in category 'printing') ----- storeOn: aStream "Store in the format (key->value)" aStream nextPut: $(. key storeOn: aStream. + "If key is a binary selector and we don't use whitespace, we will stream (key, '->') asSymbol." + aStream nextPutAll: ' -> '. - aStream nextPutAll: '->'. value storeOn: aStream. aStream nextPut: $)!

1 0

The Trunk: System-fbs.527.mcz
by commits＠source.squeak.org 02 May '13

02 May '13

Frank Shearar uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-fbs.527.mcz ==================== Summary ==================== Name: System-fbs.527 Author: fbs Time: 2 May 2013, 8:40:31.395 am UUID: 74e034c0-22c8-4a90-b2fa-2ef759608d77 Ancestors: System-cwp.526 Move the SmallLand themes/preferences to the SmallLand-ColorTheme package. =============== Diff against System-cwp.526 =============== Item was removed: - ----- Method: Preferences class>>smallLand (in category 'themes') ----- - smallLand - "Small-Land theme. It install the complete Small-Land theme - (Preferences, Fonts, Colors, etc)" - " - Preferences smallLand. - " - self smallLandPreferences. - self smallLandFonts. - SmallLandColorTheme current apply! Item was removed: - ----- Method: Preferences class>>smallLandBigFonts (in category 'themes - small-land') ----- - smallLandBigFonts - "private - change the fonts to small-land's choices" - - " - Preferences smallLandBigFonts. - " - - #( - (setButtonFontTo: #BitstreamVeraSansMono 15) - - (setListFontTo: #BitstreamVeraSans 15) - (setMenuFontTo: #BitstreamVeraSans 15) - (setSystemFontTo: #BitstreamVeraSans 15) - - (setWindowTitleFontTo: #BitstreamVeraSans 15) - - (setCodeFontTo: #BitstreamVeraSerif 15) - - (setFlapsFontTo: #KomikaText 24) - (setEToysFontTo: #KomikaText 24) - (setHaloLabelFontTo: #KomikaText 24) - (setEToysTitleFontTo: #KomikaText 36) - ) - do: [:triplet | - Preferences - perform: triplet first - with: (StrikeFont familyName: triplet second pointSize: triplet third) - ]. - - BalloonMorph setBalloonFontTo: (StrikeFont familyName: #BitstreamVeraSans pointSize: 15). - ! Item was removed: - ----- Method: Preferences class>>smallLandFonts (in category 'themes - small-land') ----- - smallLandFonts - "private - change the fonts to small-land's - choices" - " - Preferences smallLandFonts. - " - Preferences bigDisplay - ifTrue: [^ self smallLandBigFonts]. - Preferences tinyDisplay - ifTrue: [^ self smallLandTinyFonts]. - self smallLandSmallFonts! Item was removed: - ----- Method: Preferences class>>smallLandPreferences (in category 'themes - small-land') ----- - smallLandPreferences - "Private - change the preferences according to small-land taste" - - self setPreferencesFrom: #( - (haloEnclosesFullBounds true) - (showBoundsInHalo true) - (cmdGesturesEnabled false) - (easySelection true) - (abbreviatedBrowserButtons true) - (alternativeBrowseIt true) - (alwaysShowVScrollbar false) - (annotationPanes true) - (balloonHelpInMessageLists true) - (browseWithDragNDrop true) - (browseWithPrettyPrint true) - (classicNewMorphMenu true) - (collapseWindowsInPlace true) - (diffsWithPrettyPrint true) - (dragNDropWithAnimation true) - (duplicateControlAndAltKeys true) - (eToyFriendly true) - (extraDebuggerButtons true) - (extractFlashInHighestQuality true) - (fastDragWindowForMorphic false) - (includeSoundControlInNavigator true) - (menuKeyboardControl true) - (menuAppearance3d false) - (gradientMenu false) - (mouseOverForKeyboardFocus true) - (optionalButtons true) - (preserveTrash true) - (projectViewsInWindows true) - (propertySheetFromHalo true) - (scrollBarsNarrow true) - (scrollBarsOnRight true) - (selectiveHalos true) - (showDirectionForSketches true) - (showDirectionHandles true) - (slideDismissalsToTrash true) - (translationWithBabel true) - (unlimitedPaintArea true) - (unlimitedPaintArea true) - - (menuColorFromWorld false) - (noviceMode true) - (uniqueNamesInHalos true) - (infiniteUndo true) - (useUndo true) - (soundStopWhenDone true) - ). - - self setParameter: #balloonHelpDelayTime to: 100. - ! Item was removed: - ----- Method: Preferences class>>smallLandSmallFonts (in category 'themes - small-land') ----- - smallLandSmallFonts - "private - change the fonts to small-land's choices" - - " - Preferences smallLandFonts. - " - - #( - (setButtonFontTo: #BitstreamVeraSansMono 12) - - (setListFontTo: #BitstreamVeraSans 12) - (setMenuFontTo: #BitstreamVeraSans 12) - (setSystemFontTo: #BitstreamVeraSans 12) - - (setWindowTitleFontTo: #BitstreamVeraSans 15) - - (setCodeFontTo: #BitstreamVeraSerif 12) - - (setFlapsFontTo: #KomikaText 15) - (setEToysFontTo: #KomikaText 15) - (setHaloLabelFontTo: #KomikaText 15) - (setEToysTitleFontTo: #KomikaText 24) - ) - do: [:triplet | - Preferences - perform: triplet first - with: (StrikeFont familyName: triplet second pointSize: triplet third) - ]. - - BalloonMorph setBalloonFontTo: (StrikeFont familyName: #BitstreamVeraSans pointSize: 12). - ! Item was removed: - ----- Method: Preferences class>>smallLandTinyFonts (in category 'themes - small-land') ----- - smallLandTinyFonts - "private - change the fonts to small-land's choices" - - " - Preferences smallLandTinyFonts. - " - - #( - (setButtonFontTo: #AccujenMono 9) - - (setListFontTo: #Accujen 9) - (setMenuFontTo: #Accujen 9) - (setSystemFontTo: #Accujen 9) - - (setWindowTitleFontTo: #Accujen 10) - - (setCodeFontTo: #Accuny 9) - - (setFlapsFontTo: #Atlanta 11) - (setEToysFontTo: #Atlanta 11) - (setHaloLabelFontTo: #Atlanta 11) - (setEToysTitleFontTo: #Atlanta 11) - ) - do: [:triplet | - Preferences - perform: triplet first - with: (StrikeFont familyName: triplet second pointSize: triplet third) - ]. - - BalloonMorph setBalloonFontTo: (StrikeFont familyName: #Accujen pointSize: 9). - !

1 0

The Trunk: SmallLand-ColorTheme-fbs.2.mcz
by commits＠source.squeak.org 02 May '13

02 May '13

Frank Shearar uploaded a new version of SmallLand-ColorTheme to project The Trunk: http://source.squeak.org/trunk/SmallLand-ColorTheme-fbs.2.mcz ==================== Summary ==================== Name: SmallLand-ColorTheme-fbs.2 Author: fbs Time: 2 May 2013, 8:40:47.295 am UUID: 2ea9706f-9267-497f-9886-1b932794bfc7 Ancestors: SmallLand-ColorTheme-fbs.1 Move the SmallLand themes/preferences to the SmallLand-ColorTheme package. =============== Diff against SmallLand-ColorTheme-fbs.1 =============== Item was added: + ----- Method: Preferences class>>smallLand (in category '*SmallLand-ColorTheme') ----- + smallLand + "Small-Land theme. It install the complete Small-Land theme + (Preferences, Fonts, Colors, etc)" + " + Preferences smallLand. + " + self smallLandPreferences. + self smallLandFonts. + SmallLandColorTheme current apply! Item was added: + ----- Method: Preferences class>>smallLandBigFonts (in category '*SmallLand-ColorTheme') ----- + smallLandBigFonts + "private - change the fonts to small-land's choices" + + " + Preferences smallLandBigFonts. + " + + #( + (setButtonFontTo: #BitstreamVeraSansMono 15) + + (setListFontTo: #BitstreamVeraSans 15) + (setMenuFontTo: #BitstreamVeraSans 15) + (setSystemFontTo: #BitstreamVeraSans 15) + + (setWindowTitleFontTo: #BitstreamVeraSans 15) + + (setCodeFontTo: #BitstreamVeraSerif 15) + + (setFlapsFontTo: #KomikaText 24) + (setEToysFontTo: #KomikaText 24) + (setHaloLabelFontTo: #KomikaText 24) + (setEToysTitleFontTo: #KomikaText 36) + ) + do: [:triplet | + Preferences + perform: triplet first + with: (StrikeFont familyName: triplet second pointSize: triplet third) + ]. + + BalloonMorph setBalloonFontTo: (StrikeFont familyName: #BitstreamVeraSans pointSize: 15). + ! Item was added: + ----- Method: Preferences class>>smallLandFonts (in category '*SmallLand-ColorTheme') ----- + smallLandFonts + "private - change the fonts to small-land's + choices" + " + Preferences smallLandFonts. + " + Preferences bigDisplay + ifTrue: [^ self smallLandBigFonts]. + Preferences tinyDisplay + ifTrue: [^ self smallLandTinyFonts]. + self smallLandSmallFonts! Item was added: + ----- Method: Preferences class>>smallLandPreferences (in category '*SmallLand-ColorTheme') ----- + smallLandPreferences + "Private - change the preferences according to small-land taste" + + self setPreferencesFrom: #( + (haloEnclosesFullBounds true) + (showBoundsInHalo true) + (cmdGesturesEnabled false) + (easySelection true) + (abbreviatedBrowserButtons true) + (alternativeBrowseIt true) + (alwaysShowVScrollbar false) + (annotationPanes true) + (balloonHelpInMessageLists true) + (browseWithDragNDrop true) + (browseWithPrettyPrint true) + (classicNewMorphMenu true) + (collapseWindowsInPlace true) + (diffsWithPrettyPrint true) + (dragNDropWithAnimation true) + (duplicateControlAndAltKeys true) + (eToyFriendly true) + (extraDebuggerButtons true) + (extractFlashInHighestQuality true) + (fastDragWindowForMorphic false) + (includeSoundControlInNavigator true) + (menuKeyboardControl true) + (menuAppearance3d false) + (gradientMenu false) + (mouseOverForKeyboardFocus true) + (optionalButtons true) + (preserveTrash true) + (projectViewsInWindows true) + (propertySheetFromHalo true) + (scrollBarsNarrow true) + (scrollBarsOnRight true) + (selectiveHalos true) + (showDirectionForSketches true) + (showDirectionHandles true) + (slideDismissalsToTrash true) + (translationWithBabel true) + (unlimitedPaintArea true) + (unlimitedPaintArea true) + + (menuColorFromWorld false) + (noviceMode true) + (uniqueNamesInHalos true) + (infiniteUndo true) + (useUndo true) + (soundStopWhenDone true) + ). + + self setParameter: #balloonHelpDelayTime to: 100. + ! Item was added: + ----- Method: Preferences class>>smallLandSmallFonts (in category '*SmallLand-ColorTheme') ----- + smallLandSmallFonts + "private - change the fonts to small-land's choices" + + " + Preferences smallLandFonts. + " + + #( + (setButtonFontTo: #BitstreamVeraSansMono 12) + + (setListFontTo: #BitstreamVeraSans 12) + (setMenuFontTo: #BitstreamVeraSans 12) + (setSystemFontTo: #BitstreamVeraSans 12) + + (setWindowTitleFontTo: #BitstreamVeraSans 15) + + (setCodeFontTo: #BitstreamVeraSerif 12) + + (setFlapsFontTo: #KomikaText 15) + (setEToysFontTo: #KomikaText 15) + (setHaloLabelFontTo: #KomikaText 15) + (setEToysTitleFontTo: #KomikaText 24) + ) + do: [:triplet | + Preferences + perform: triplet first + with: (StrikeFont familyName: triplet second pointSize: triplet third) + ]. + + BalloonMorph setBalloonFontTo: (StrikeFont familyName: #BitstreamVeraSans pointSize: 12). + ! Item was added: + ----- Method: Preferences class>>smallLandTinyFonts (in category '*SmallLand-ColorTheme') ----- + smallLandTinyFonts + "private - change the fonts to small-land's choices" + + " + Preferences smallLandTinyFonts. + " + + #( + (setButtonFontTo: #AccujenMono 9) + + (setListFontTo: #Accujen 9) + (setMenuFontTo: #Accujen 9) + (setSystemFontTo: #Accujen 9) + + (setWindowTitleFontTo: #Accujen 10) + + (setCodeFontTo: #Accuny 9) + + (setFlapsFontTo: #Atlanta 11) + (setEToysFontTo: #Atlanta 11) + (setHaloLabelFontTo: #Atlanta 11) + (setEToysTitleFontTo: #Atlanta 11) + ) + do: [:triplet | + Preferences + perform: triplet first + with: (StrikeFont familyName: triplet second pointSize: triplet third) + ]. + + BalloonMorph setBalloonFontTo: (StrikeFont familyName: #Accujen pointSize: 9). + !

1 0

The Trunk: Protocols-fbs.40.mcz
by commits＠source.squeak.org 02 May '13

02 May '13

Frank Shearar uploaded a new version of Protocols to project The Trunk: http://source.squeak.org/trunk/Protocols-fbs.40.mcz ==================== Summary ==================== Name: Protocols-fbs.40 Author: fbs Time: 2 May 2013, 8:30:20.846 am UUID: 717eceda-e6aa-44ff-b454-c6ede020ad2c Ancestors: Protocols-ael.39 "a the list" -> "the list". =============== Diff against Protocols-ael.39 =============== Item was changed: ProtocolBrowser subclass: #Lexicon instanceVariableNames: 'currentVocabulary categoryList categoryListIndex targetClass limitClass currentQuery currentQueryParameter selectorsVisited' classVariableNames: '' poolDictionaries: '' category: 'Protocols-Tools'! + !Lexicon commentStamp: 'fbs 5/2/2013 08:29' prior: 0! + An instance of Lexicon shows the list of all the method categories known to an object or any of its superclasses, as a "flattened" list, and, within any selected category, shows all methods understood by the class's instances which are associated with that category, again as a "flattened" list. A variant with a search pane rather than a category list is also implemented. - !Lexicon commentStamp: '<historical>' prior: 0! - An instance of Lexicon shows the a list of all the method categories known to an object or any of its superclasses, as a "flattened" list, and, within any selected category, shows all methods understood by the class's instances which are associated with that category, again as a "flattened" list. A variant with a search pane rather than a category list is also implemented. categoryList the list of categories categoryListIndex index of currently-selected category targetObject optional -- an instance being viewed targetClass the class being viewed lastSearchString the last string searched for lastSendersSearchSelector the last senders search selector limitClass optional -- the limit class to search for selectorsVisited list of selectors visited selectorsActive not presently in use, subsumed by selectorsVisited currentVocabulary the vocabulary currently installed currentQuery what the query category relates to: #senders #selectorName #currentChangeSet!

1 0

Our ancient ancestor
by tim Rowledge 02 May '13

02 May '13

http://www.wadlow.org/xerox-alto.html tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim A bug in the hand is better than one as yet undetected.

5 6

Daily Commit Log
by commits＠source.squeak.org 02 May '13

02 May '13

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2013-May/005891.html Name: Kernel-dtl.756 Ancestors: Kernel-ul.755 Remove Integer>>hex8. This is used only in VMMaker for printing hex representations of 32-bit values. It should be maintained as a VMMaker extension, along with whatever extension may be required for formatted printing of 64-bit values. Add Time class>>primPosixMicrosecondClockWithOffset in addition to primUTCMicrosecondClock and primLocalMicrosecondClock. There are three microsecond primitives that are (or will be) supported on all Cog and interpreter VMs that may be accessed as: { Time primUTCMicrosecondClock . Time primLocalMicrosecondClock . Time primPosixMicrosecondClockWithOffset } =============================================

1 0

The Inbox: Collections-fbs.516.mcz
by commits＠source.squeak.org 01 May '13

01 May '13

Frank Shearar uploaded a new version of Collections to project The Inbox: http://source.squeak.org/inbox/Collections-fbs.516.mcz ==================== Summary ==================== Name: Collections-fbs.516 Author: fbs Time: 1 May 2013, 10:14:23.588 pm UUID: e787006a-d096-47f3-93da-c4681285fae2 Ancestors: Collections-ul.515 Surrounding the -> in an Assocation in printed form allows the left side to be a binary selector without things breaking: #* -> #+ otherwise prints as '#*->#+', which is the Symbol #*-> followed by garbage. =============== Diff against Collections-ul.515 =============== Item was changed: ----- Method: Association>>printOn: (in category 'printing') ----- printOn: aStream super printOn: aStream. + "If the key is a binary selector and we don't use whitespace, we will stream (key, '->') asSymbol." + aStream nextPutAll: ' -> '. - aStream nextPutAll: '->'. value printOn: aStream! Item was changed: ----- Method: Association>>storeOn: (in category 'printing') ----- storeOn: aStream "Store in the format (key->value)" aStream nextPut: $(. key storeOn: aStream. + "If key is a binary selector and we don't use whitespace, we will stream (key, '->') asSymbol." + aStream nextPutAll: ' -> '. - aStream nextPutAll: '->'. value storeOn: aStream. aStream nextPut: $)!

1 0

The Inbox: CollectionsTests-fbs.203.mcz
by commits＠source.squeak.org 01 May '13

01 May '13

Frank Shearar uploaded a new version of CollectionsTests to project The Inbox: http://source.squeak.org/inbox/CollectionsTests-fbs.203.mcz ==================== Summary ==================== Name: CollectionsTests-fbs.203 Author: fbs Time: 1 May 2013, 10:12:50.228 pm UUID: 7ecc6719-b357-4438-8c6d-eb0aa8b742f1 Ancestors: CollectionsTests-fbs.202 Tests for Collections-fbs.516, showing that an Association can round-trip through #storeString. =============== Diff against CollectionsTests-fbs.202 =============== Item was added: + ----- Method: AssociationTest>>testStoreStringEvaluatesToEqualValue (in category 'as yet unclassified') ----- + testStoreStringEvaluatesToEqualValue + self assert: 1 -> 2 equals: (Compiler evaluate: (1 -> 2) storeString). + self assert: false -> true equals: (Compiler evaluate: (false -> true) storeString). + self assert: #foo -> #bar equals: (Compiler evaluate: (#foo -> #bar) storeString). + self assert: #foo -> #+ equals: (Compiler evaluate: (#foo -> #+) storeString). + self assert: #+ -> #bar equals: (Compiler evaluate: (#+ -> #bar) storeString).!

1 0

Association >> #printString and friends
by Frank Shearar 01 May '13

01 May '13

I decided to finally play around with Traits. I decided I was going to reinvent the field of integers by making a TGroup trait and composing two of those with some aliasing, just like how we get a(n algebraic) field from overlaying two groups together. I defined my field thusly: Object subclass: #MyInteger uses: TGroup @ {#inverse -> #negated. #* -> #+} + TGroup @ {#inverse -> #reciprocal} instanceVariableNames: 'value' classVariableNames: '' poolDictionaries: '' category: 'Algebra'. But there's a problem. When I accept the above, the class definition prints out, and those Associations print themselves without whitespace. That means that '#* -> #+' becomes '#*->#+', which is the Symbol #*-> followed by garbage. Using #'*' doesn't work, because #'*' printString == '#*'. The easy solution is to change Association's #printOn: to put whitespace around the -> (and ditto for #storeOn:). But before I "just" do that, I'd like to hear comments on the idea. It would mean that "1->2" would print as "1 -> 2" (and storeString as "(1 -> 2)"). I have a small test suite for the change, including this seemingly innocuous snippet, which fails with a SyntaxError when it runs: self assert: #+ -> #bar equals: (Compiler evaluate: (#+ -> #bar) storeString). frank

2 1

Jump to page: