Packages July 2010

packages@lists.squeakfoundation.org

1 participants
240 discussions

The Trunk: Kernel-eem.474.mcz
by commits＠source.squeak.org 22 Jul '10

22 Jul '10

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.474.mcz ==================== Summary ==================== Name: Kernel-eem.474 Author: eem Time: 22 July 2010, 1:42:05.4 pm UUID: 292f2cc5-ba81-4d03-a64f-4e7cb878d68f Ancestors: Kernel-eem.473 BlockClosure>>#once Travis Griggs' neat idiom for interning values of computations. Use e.g. as in myResourceMethod ^[time-consuming computation] once =============== Diff against Kernel-eem.473 =============== Item was added: + ----- Method: CachedBlockClosure>>value (in category 'evaluating') ----- + value + ^cachedValue! Item was added: + ----- Method: BlockClosure>>becomeUncached (in category 'private') ----- + becomeUncached + "The receiver is already uncached." + ^self! Item was added: + ----- Method: CachedBlockClosure>>becomeCached (in category 'private') ----- + becomeCached + "The receiver is already cached." + ^self! Item was added: + ----- Method: BlockClosure>>becomeCached (in category 'private') ----- + becomeCached + self become: ((CachedBlockClosure new: self size) + outerContext: outerContext + startpc: startpc + numArgs: numArgs + cachedValue: self value + copiedValues: self)! Item was added: + BlockClosure variableSubclass: #CachedBlockClosure + instanceVariableNames: 'cachedValue' + classVariableNames: '' + poolDictionaries: '' + category: 'Kernel-Methods'! + + !CachedBlockClosure commentStamp: 'eem 7/22/2010 12:34' prior: 0! + I'm a BlockClosure with an added instance variable for storing the once upon a time result of evaluating myself when I was simple BlockClosure. This is triggered by sending #once to a normal BlockClosure. Future sends of once will simply return this value rather than evaluate myself. When sent value, I revert back to a BlockClosure. Originally by Travis Griggs, from whom we copy this idea with thanks. + + Instance Variables + cachedValue <Object> + + cachedValue + - result of having sent value to myself when i was just a BlockClosure! Item was added: + ----- Method: CachedBlockClosure>>once (in category 'evaluating') ----- + once + ^cachedValue! Item was added: + ----- Method: CachedBlockClosure>>outerContext:startpc:numArgs:cachedValue:copiedValues: (in category 'initialize-release') ----- + outerContext: aContext startpc: aStartpc numArgs: argCount cachedValue: aValue copiedValues: anArrayOrNil + cachedValue := aValue. + super outerContext: aContext startpc: aStartpc numArgs: argCount copiedValues: anArrayOrNil! Item was added: + ----- Method: CachedBlockClosure>>becomeUncached (in category 'private') ----- + becomeUncached + self become: (BlockClosure + outerContext: outerContext + startpc: startpc + numArgs: numArgs + copiedValues: self)! Item was added: + ----- Method: BlockClosure>>once (in category 'evaluating') ----- + once + "Answer and remember my value, answering exactly the same object in any further sends + of once or value until I become uncached. This allows one to intern values with the idiom + myResourceMethod + ^[expression] once. + The expression will be evaluated once and its result returned for any subsequent evaluations. + Originally by Travis Griggs, from whom we copy this idea with thanks." + numArgs ~= 0 ifTrue: + [self error: 'once should only be used with niladic blocks']. + self becomeCached. + ^self once!

1 0

The Trunk: System-ar.352.mcz
by commits＠source.squeak.org 22 Jul '10

22 Jul '10

Andreas Raab uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ar.352.mcz ==================== Summary ==================== Name: System-ar.352 Author: ar Time: 21 July 2010, 8:21:13.769 pm UUID: 938d7c50-3c8a-4b4e-ad1a-cfb618b7df1f Ancestors: System-ar.351 Only enable #narrowScrollBars when #tinyDisplay is set. Otherwise leave it at the regular size. =============== Diff against System-ar.351 =============== Item was changed: ----- Method: Preferences class>>displaySizeChanged (in category 'reacting to change') ----- displaySizeChanged self flag: #todo. "only change font on small-land image" self smallLandFonts. + self tinyDisplay + ifTrue: [self enable: #scrollBarsNarrow] + ifFalse: [self disable: #scrollBarsNarrow]. + self tinyDisplay + ifTrue:[self disable: #biggerHandles] + ifFalse:[self enable: #biggerHandles]! - self bigDisplay - ifTrue: [self disable: #scrollBarsNarrow] - ifFalse: [self enable: #scrollBarsNarrow]. - self tinyDisplay ifTrue:[self disable: #biggerHandles] ifFalse:[self enable: #biggerHandles]!

1 0

The Trunk: System-ar.352.mcz
by commits＠source.squeak.org 22 Jul '10

22 Jul '10

1 0

The Trunk: System-ar.352.mcz
by commits＠source.squeak.org 22 Jul '10

22 Jul '10

1 0

The Trunk: Tests-ar.87.mcz
by commits＠source.squeak.org 22 Jul '10

22 Jul '10

Andreas Raab uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ar.87.mcz ==================== Summary ==================== Name: Tests-ar.87 Author: ar Time: 21 July 2010, 8:18:49.681 pm UUID: 8c7eeab9-8dba-b54e-8a93-4d7dfbdba6d2 Ancestors: Tests-eem.86 Make sure we #restoreFontsAfter: running tests that modify the standard fonts. =============== Diff against Tests-eem.86 =============== Item was changed: ----- Method: StandardSystemFontsTest>>testRestoreDefaultFonts (in category 'testing') ----- testRestoreDefaultFonts + Preferences restoreFontsAfter: [ - self saveStandardSystemFontsDuring: [ Preferences restoreDefaultFonts. self assert: #standardDefaultTextFont familyName: 'Bitmap DejaVu Sans' pointSize: 9. self assert: #standardListFont familyName: 'Bitmap DejaVu Sans' pointSize: 9. self assert: #standardFlapFont familyName: 'Accushi' pointSize: 12. self assert: #standardEToysFont familyName: 'BitstreamVeraSans' pointSize: 9. self assert: #standardMenuFont familyName: 'Bitmap DejaVu Sans' pointSize: 9. self assert: #windowTitleFont familyName: 'Bitmap DejaVu Sans' pointSize: 9. self assert: #standardBalloonHelpFont familyName: 'Accujen' pointSize: 9. self assert: #standardCodeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9. self assert: #standardButtonFont familyName: 'BitstreamVeraSansMono' pointSize: 9]! Item was changed: ----- Method: LangEnvBugs>>testIsFontAvailable (in category 'as yet unclassified') ----- testIsFontAvailable + "self new testIsFontAvailable" + "self run: #testIsFontAvailable" + | oldPref | - "self new testIsFontAvailable" - "self run: #testIsFontAvailable" - | oldPref | + oldPref := Preferences valueOfPreference: #tinyDisplay. + Preferences restoreFontsAfter:[ + [Preferences enable: #tinyDisplay . + self + shouldnt:[(LanguageEnvironment localeID: 'en' ) isFontAvailable] + raise: Error. + ] ensure: [Preferences setPreference: #tinyDisplay toValue: oldPref]. + ].! - oldPref := Preferences valueOfPreference: #tinyDisplay . - - Preferences enable: #tinyDisplay . - - self shouldnt: [ [ ( LanguageEnvironment localeID: 'en' ) isFontAvailable ] - ensure: [Preferences setPreference: #tinyDisplay toValue: oldPref] ] - raise: Error. - ^true! Item was changed: ----- Method: LocaleTest>>testIsFontAvailable (in category 'testing') ----- testIsFontAvailable "self debug: #testIsFontAvailable" + Preferences restoreFontsAfter:[ + (Locale isoLanguage: 'ja') languageEnvironment removeFonts. + self assert: (Locale isoLanguage: 'en') languageEnvironment isFontAvailable. + "Next test should fail after installing Japanese font" + self assert: (Locale isoLanguage: 'ja') languageEnvironment isFontAvailable not. + (Locale isoLanguage: 'ja') languageEnvironment installFont. + self assert: (Locale isoLanguage: 'ja') languageEnvironment isFontAvailable. + ].! - (Locale isoLanguage: 'ja') languageEnvironment removeFonts. - self assert: (Locale isoLanguage: 'en') languageEnvironment isFontAvailable. - "Next test should fail after installing Japanese font" - self assert: (Locale isoLanguage: 'ja') languageEnvironment isFontAvailable not. - (Locale isoLanguage: 'ja') languageEnvironment installFont. - self assert: (Locale isoLanguage: 'ja') languageEnvironment isFontAvailable! Item was removed: - ----- Method: StandardSystemFontsTest>>saveStandardSystemFontsDuring: (in category 'utilities') ----- - saveStandardSystemFontsDuring: aBlock - | standardDefaultTextFont standardListFont standardEToysFont standardMenuFont - windowTitleFont standardBalloonHelpFont standardCodeFont standardButtonFont | - - standardDefaultTextFont := Preferences standardDefaultTextFont. - standardListFont := Preferences standardListFont. - standardEToysFont := Preferences standardEToysFont. - standardMenuFont := Preferences standardMenuFont. - windowTitleFont := Preferences windowTitleFont. - standardBalloonHelpFont := Preferences standardBalloonHelpFont. - standardCodeFont := Preferences standardCodeFont. - standardButtonFont := Preferences standardButtonFont. - [aBlock value] ensure: [ - Preferences setSystemFontTo: standardDefaultTextFont. - Preferences setListFontTo: standardListFont. - Preferences setEToysFontTo: standardEToysFont. - Preferences setMenuFontTo: standardMenuFont. - Preferences setWindowTitleFontTo: windowTitleFont. - Preferences setBalloonHelpFontTo: standardBalloonHelpFont. - Preferences setCodeFontTo: standardCodeFont. - Preferences setButtonFontTo: standardButtonFont]!

1 0

The Trunk: Tests-ar.87.mcz
by commits＠source.squeak.org 22 Jul '10

22 Jul '10

1 0

The Trunk: Tests-ar.87.mcz
by commits＠source.squeak.org 22 Jul '10

22 Jul '10

1 0

The Trunk: System-ar.351.mcz
by commits＠source.squeak.org 22 Jul '10

22 Jul '10

Andreas Raab uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ar.351.mcz ==================== Summary ==================== Name: System-ar.351 Author: ar Time: 21 July 2010, 8:15:56.801 pm UUID: de412a44-f0a1-1c44-a848-768181babc98 Ancestors: System-eem.350 Add Preferences>>restoreFontsAfter: to restore the fonts after tests that modify the user-selected set of fonts. =============== Diff against System-eem.350 =============== Item was added: + ----- Method: Preferences class>>restoreFontsAfter: (in category 'fonts') ----- + restoreFontsAfter: aBlock + + "Restore the currently chosen set of standard fonts after + evaluating aBlock. Used for tests that modify the default fonts." + + | standardDefaultTextFont standardListFont standardEToysFont standardMenuFont + windowTitleFont standardBalloonHelpFont standardCodeFont standardButtonFont | + + standardDefaultTextFont := Preferences standardDefaultTextFont. + standardListFont := Preferences standardListFont. + standardEToysFont := Preferences standardEToysFont. + standardMenuFont := Preferences standardMenuFont. + windowTitleFont := Preferences windowTitleFont. + standardBalloonHelpFont := Preferences standardBalloonHelpFont. + standardCodeFont := Preferences standardCodeFont. + standardButtonFont := Preferences standardButtonFont. + ^aBlock ensure: [ + Preferences setSystemFontTo: standardDefaultTextFont. + Preferences setListFontTo: standardListFont. + Preferences setEToysFontTo: standardEToysFont. + Preferences setMenuFontTo: standardMenuFont. + Preferences setWindowTitleFontTo: windowTitleFont. + Preferences setBalloonHelpFontTo: standardBalloonHelpFont. + Preferences setCodeFontTo: standardCodeFont. + Preferences setButtonFontTo: standardButtonFont. + ]. + !

1 0

The Trunk: System-ar.351.mcz
by commits＠source.squeak.org 22 Jul '10

22 Jul '10

1 0

The Trunk: System-ar.351.mcz
by commits＠source.squeak.org 22 Jul '10

22 Jul '10

1 0

← Newer
1
2
3
4
5
6
7
8
9
...
24
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages July 2010