Packages November 2010

packages@lists.squeakfoundation.org

1 participants
285 discussions

The Trunk: Tests-ul.102.mcz
by commits＠source.squeak.org 25 Nov '10

25 Nov '10

Levente Uzonyi uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ul.102.mcz ==================== Summary ==================== Name: Tests-ul.102 Author: ul Time: 25 November 2010, 11:46:29.74 pm UUID: cd002ac8-6e30-164b-9c69-d6273eda9e9a Ancestors: Tests-ul.101 - updated the tests to reflect the font changes (again) =============== Diff against Tests-ul.101 =============== Item was changed: ----- Method: StandardSystemFontsTest>>testRestoreDefaultFonts (in category 'testing') ----- testRestoreDefaultFonts Preferences restoreFontsAfter: [ 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: 'Bitmap DejaVu Sans' pointSize: 7. - self assert: #standardBalloonHelpFont familyName: 'Accujen' pointSize: 9. self assert: #standardCodeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9. self assert: #standardButtonFont familyName: 'Bitmap DejaVu Sans' pointSize: 7]!

1 0

The Trunk: System-ul.397.mcz
by commits＠source.squeak.org 25 Nov '10

25 Nov '10

Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.397.mcz ==================== Summary ==================== Name: System-ul.397 Author: ul Time: 25 November 2010, 11:45:13.676 pm UUID: 84c594bb-44d7-1a4e-8c26-c09078e712d6 Ancestors: System-ul.396 - since #setBalloonHelpFontTo: does the same as the newly introduced #setBalloonFontTo:, the new method is now deleted =============== Diff against System-ul.396 =============== Item was changed: ----- Method: Preferences class>>restoreDefaultFonts (in category 'fonts') ----- restoreDefaultFonts "Since this is called from menus, we can take the opportunity to prompt for missing font styles." " Preferences restoreDefaultFonts " self setDefaultFonts: #( (setSystemFontTo: 'Bitmap DejaVu Sans' 9) (setListFontTo: 'Bitmap DejaVu Sans' 9) (setFlapsFontTo: Accushi 12) (setEToysFontTo: BitstreamVeraSansBold 9) (setPaintBoxButtonFontTo: BitstreamVeraSansBold 9) (setMenuFontTo: 'Bitmap DejaVu Sans' 9) (setWindowTitleFontTo: 'Bitmap DejaVu Sans Bold' 9) + (setBalloonHelpFontTo: 'Bitmap DejaVu Sans' 7) - (setBalloonHelpFontTo: Accujen 9) (setCodeFontTo: 'Bitmap DejaVu Sans' 9) (setButtonFontTo: 'Bitmap DejaVu Sans' 7) - (setBalloonFontTo: 'Bitmap DejaVu Sans' 7) )! Item was removed: - ----- Method: Preferences class>>setBalloonFontTo: (in category 'fonts') ----- - setBalloonFontTo: aFont - - Smalltalk at: #BalloonMorph ifPresent: [ :balloonMorph | - balloonMorph setBalloonFontTo: aFont ]!

1 0

The Trunk: System-ul.397.mcz
by commits＠source.squeak.org 25 Nov '10

25 Nov '10

1 0

The Trunk: System-ul.397.mcz
by commits＠source.squeak.org 25 Nov '10

25 Nov '10

1 0

The Trunk: System-ul.396.mcz
by commits＠source.squeak.org 24 Nov '10

24 Nov '10

Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.396.mcz ==================== Summary ==================== Name: System-ul.396 Author: ul Time: 24 November 2010, 8:06:37.276 am UUID: 34376be0-635e-0d4d-9509-a1c661430cdb Ancestors: System-ul.395 - set the balloon font (if possible) in Preferences >> #restoreDefaultFonts. - modified the postscript, so the default fonts will be restored to change the ballon font to Bitmap DejaVu Sans 7pt. =============== Diff against System-ul.395 =============== Item was changed: ----- Method: Preferences class>>restoreDefaultFonts (in category 'fonts') ----- restoreDefaultFonts "Since this is called from menus, we can take the opportunity to prompt for missing font styles." " Preferences restoreDefaultFonts " self setDefaultFonts: #( (setSystemFontTo: 'Bitmap DejaVu Sans' 9) (setListFontTo: 'Bitmap DejaVu Sans' 9) (setFlapsFontTo: Accushi 12) (setEToysFontTo: BitstreamVeraSansBold 9) (setPaintBoxButtonFontTo: BitstreamVeraSansBold 9) (setMenuFontTo: 'Bitmap DejaVu Sans' 9) (setWindowTitleFontTo: 'Bitmap DejaVu Sans Bold' 9) (setBalloonHelpFontTo: Accujen 9) (setCodeFontTo: 'Bitmap DejaVu Sans' 9) (setButtonFontTo: 'Bitmap DejaVu Sans' 7) + (setBalloonFontTo: 'Bitmap DejaVu Sans' 7) + )! - ) - ! Item was added: + ----- Method: Preferences class>>setBalloonFontTo: (in category 'fonts') ----- + setBalloonFontTo: aFont + + Smalltalk at: #BalloonMorph ifPresent: [ :balloonMorph | + balloonMorph setBalloonFontTo: aFont ]! Item was changed: + (PackageInfo named: 'System') postscript: 'Preferences restoreDefaultFonts.'! - (PackageInfo named: 'System') postscript: 'Preferences restoreDefaultFonts'!

1 0

The Trunk: System-ul.396.mcz
by commits＠source.squeak.org 24 Nov '10

24 Nov '10

1 0

The Trunk: System-ul.396.mcz
by commits＠source.squeak.org 24 Nov '10

24 Nov '10

1 0

The Trunk: Tools-ul.278.mcz
by commits＠source.squeak.org 23 Nov '10

23 Nov '10

Levente Uzonyi uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ul.278.mcz ==================== Summary ==================== Name: Tools-ul.278 Author: ul Time: 15 November 2010, 8:46:10.672 am UUID: d03d7286-1db1-f943-9e1c-6e86626b5f89 Ancestors: Tools-ul.277 Thread-safe DebuggerMethodMap =============== Diff against Tools-ul.277 =============== Item was changed: Object subclass: #DebuggerMethodMap instanceVariableNames: 'timestamp methodReference methodNode abstractSourceRanges sortedSourceMap' + classVariableNames: 'AccessLock MapCache MapCacheEntries' - classVariableNames: 'MapCache MapCacheEntries' poolDictionaries: '' category: 'Tools-Debugger'! !DebuggerMethodMap commentStamp: '<historical>' prior: 0! I am a place-holder for information needed by the Debugger to inspect method activations. I insulate the debugger from details of code generation such as exact bytecode offsets and temporary variable locations. I have two concreate subclasses, one for methods compiled using BlueBook blocks and one for methods compiled using Closures. These classes deal with temporary variable access. My function is to abstract the source map away from actual bytecode pcs to abstract bytecode pcs. To reduce compilation time I try and defer as much computation to access time as possible as instances of me will be created after each compilation. I maintain a WeakIdentityDictionary of method to DebuggerMethodMap to cache maps. I refer to my method through a WeakArray to keep the map cache functional. If the reference from a DebuggerMethodMap to its method were strong then the method would never be dropped from the cache because the reference from its map would keep it alive.! Item was changed: ----- Method: DebuggerMethodMap class>>cacheDebugMap:forMethod: (in category 'debugger support') ----- cacheDebugMap: aDebuggerMethodMap forMethod: aCompiledMethod + + ^self protected: [ + MapCache size >= MapCacheEntries ifTrue: [ + MapCache slowSize >= MapCacheEntries + ifFalse: [ MapCache rehash ] + ifTrue: [ + | mapsByAge | + mapsByAge := MapCache keys sort: [ :m1 :m2 | + "We are holding strongly on the keys, so #at: is suitable." + (MapCache at: m1) timestamp < (MapCache at: m2) timestamp]. + mapsByAge from: 1 to: mapsByAge size - MapCacheEntries do: [ :each | + MapCache removeKey: each ] ] ]. + MapCache + at: aCompiledMethod + put: aDebuggerMethodMap ]! - MapCache finalizeValues. - [MapCache size >= MapCacheEntries] whileTrue: - [| mapsByAge | - mapsByAge := MapCache keys asArray sort: - [:m1 :m2| - (MapCache at: m1) timestamp - < (MapCache at: m2) timestamp]. - mapsByAge notEmpty ifTrue: "There be race conditions and reentrancy issues here" - [MapCache removeKey: mapsByAge last]]. - - ^MapCache - at: aCompiledMethod - put: aDebuggerMethodMap! Item was changed: ----- Method: DebuggerMethodMap class>>forMethod: (in category 'instance creation') ----- forMethod: aMethod "<CompiledMethod>" "Answer a DebuggerMethodMap suitable for debugging activations of aMethod. Answer an existing instance from the cache if it exists, cacheing a new one if required." + + ^self protected: [ + MapCache + at: aMethod + ifAbsent: [self + cacheDebugMap: + (self + forMethod: aMethod + methodNode: aMethod methodNode) + forMethod: aMethod] ]! - ^MapCache - at: aMethod - ifAbsent: [self - cacheDebugMap: - (self - forMethod: aMethod - methodNode: aMethod methodNode) - forMethod: aMethod]! Item was added: + ----- Method: DebuggerMethodMap class>>protected: (in category 'synchronization') ----- + protected: aBlock + + ^(AccessLock ifNil: [ AccessLock := Mutex new ]) critical: aBlock! Item was changed: ----- Method: DebuggerMethodMap class>>voidMapCache (in category 'class initialization') ----- voidMapCache + + self protected: [ + MapCache := WeakIdentityKeyDictionary new. + MapCacheEntries := 16 ]! - MapCache := WeakIdentityKeyDictionary new. - MapCacheEntries := 16!

1 0

The Trunk: Tools-ul.278.mcz
by commits＠source.squeak.org 23 Nov '10

23 Nov '10

1 0

The Trunk: Tools-ul.278.mcz
by commits＠source.squeak.org 23 Nov '10

23 Nov '10

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2010