Packages July 2010

packages@lists.squeakfoundation.org

1 participants
240 discussions

The Trunk: ToolBuilder-Morphic-ar.66.mcz
by commits＠source.squeak.org 23 Jul '10

23 Jul '10

Andreas Raab uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-ar.66.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-ar.66 Author: ar Time: 22 July 2010, 8:00:14.791 pm UUID: d8c9f589-e7d0-5349-9e38-b4c06f023b3f Ancestors: ToolBuilder-Morphic-eem.65 Fix UIManager>>edit:label:accept: to not evaluate the accept block initially. =============== Diff against ToolBuilder-Morphic-eem.65 =============== Item was changed: ----- Method: MorphicUIManager>>edit:label:accept: (in category 'ui requests') ----- edit: aText label: labelString accept: anAction "Open an editor on the given string/text" | window | window := Workspace open. labelString ifNotNil: [ window setLabel: labelString ]. "By default, don't style in UIManager edit: requests" window model shouldStyle: false; + acceptContents: aText; + acceptAction: anAction. - acceptAction: anAction; - acceptContents: aText. ^window.!

1 0

The Trunk: ToolBuilder-Morphic-ar.66.mcz
by commits＠source.squeak.org 23 Jul '10

23 Jul '10

1 0

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

23 Jul '10

Andreas Raab uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ar.88.mcz ==================== Summary ==================== Name: Tests-ar.88 Author: ar Time: 22 July 2010, 7:58:08.503 pm UUID: 7a106762-fe28-7d4c-86a6-921c4a812193 Ancestors: Tests-ar.87 Add a test documenting an bug in UIManager>>edit:label:accept: which would evaluate the accept block initially. =============== Diff against Tests-ar.87 =============== Item was added: + ----- Method: MorphicUIBugTest>>testUIManagerNoAcceptInitially (in category 'as yet unclassified') ----- + testUIManagerNoAcceptInitially + "Ensure that UIManager does not invoke the accept: action initially." + + | accepted window | + accepted := false. + window := UIManager default edit: Text new label: 'Test' accept: [:val| accepted := true]. + window delete. + self deny: accepted.!

1 0

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

23 Jul '10

1 0

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

23 Jul '10

1 0

The Trunk: System-eem.353.mcz
by commits＠source.squeak.org 23 Jul '10

23 Jul '10

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.353.mcz ==================== Summary ==================== Name: System-eem.353 Author: eem Time: 22 July 2010, 5:53:14.999 pm UUID: 6757175d-0063-4089-916c-4dfc0cc425c7 Ancestors: System-ar.352 Some Cog-specific VM attribute accessors for process preemption, flagging of interpreted methods and whether Process has a threadId inst var. =============== Diff against System-ar.352 =============== Item was added: + ----- Method: SmalltalkImage>>processHasThreadIdInstVar: (in category 'system attributes') ----- + processHasThreadIdInstVar: aBoolean + "The threaded VM needs to know if the 4th inst var of Process + is threadId which it uses to control process-to-thread binding. + This flag persists across snapshots, stored in the image header." + aBoolean ifTrue: [self assert: (Process instVarNames at: 4) ='threadId']. + self vmParameterAt: 48 put: ((self vmParameterAt: 48) bitClear: 1) + (aBoolean ifTrue: [1] ifFalse: [0])! Item was added: + ----- Method: SmalltalkImage>>processPreemptionYields (in category 'system attributes') ----- + processPreemptionYields + "Answer whether the VM causes a process to yield on process preemption, + i.e. to put a preempted process at the back of its run queue. If the parameter + is unavailable (non-Cog VMs) or bit 2 (4) is 0 then preemption yields." + + ^(([self vmParameterAt: 48] + on: Error + do: [:ex| ^true]) allMask: 4) not! Item was added: + ----- Method: SmalltalkImage>>processPreemptionYields: (in category 'system attributes') ----- + processPreemptionYields: aBoolean + "The Cog VM can be instructed not to yield on process preemption, + i.e. not to put a preempted process at the back of its run queue. By + default preempting a process causes it to yield (Blue Book semantics) + which can have unfortunate effects. + This flag persists across snapshots, stored in the image header." + + self vmParameterAt: 48 put: ((self vmParameterAt: 48) bitClear: 4) + (aBoolean ifTrue: [0] ifFalse: [4])! Item was added: + ----- Method: SmalltalkImage>>flagInterpretedMethods: (in category 'system attributes') ----- + flagInterpretedMethods: aBoolean + "The Cog VM can be instructed to set the flag bit of CompiledMethods that + it executes but will only interpret. This can be used e.g. to profile startup. + See CompiledMethod>>#flag & CompiledMethod>>#clearFlag. + This flag persists across snapshots, stored in the image header." + + self vmParameterAt: 48 put: ((self vmParameterAt: 48) bitClear: 2) + (aBoolean ifTrue: [2] ifFalse: [0])!

1 0

The Trunk: System-eem.353.mcz
by commits＠source.squeak.org 23 Jul '10

23 Jul '10

1 0

The Trunk: System-eem.353.mcz
by commits＠source.squeak.org 23 Jul '10

23 Jul '10

1 0

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: Kernel-eem.474.mcz
by commits＠source.squeak.org 22 Jul '10

22 Jul '10

1 0

← Newer
1
2
3
4
5
6
7
8
...
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