Squeak-dev January 2014

squeak-dev@lists.squeakfoundation.org

55 participants
379 discussions

The Inbox: Installer-Core-cmm.389.mcz
by commits＠source.squeak.org 02 Jan '14

02 Jan '14

A new version of Installer-Core was added to project The Inbox: http://source.squeak.org/inbox/Installer-Core-cmm.389.mcz ==================== Summary ==================== Name: Installer-Core-cmm.389 Author: cmm Time: 2 January 2014, 11:06:37.4 am UUID: 1bf23881-299e-4af3-a520-01997ffa1344 Ancestors: Installer-Core-tpr.388 Remove the rest of the #remembered infrastructure since Tim removed #rememberAs:. =============== Diff against Installer-Core-tpr.388 =============== Item was changed: Object subclass: #Installer instanceVariableNames: 'answers packages messagesToSuppress useFileIn noiseLevel currentRepository' + classVariableNames: 'InstallerBindings IsSetToTrapErrors Repositories SkipLoadingTests ValidationBlock' - classVariableNames: 'InstallerBindings IsSetToTrapErrors Remembered Repositories SkipLoadingTests ValidationBlock' poolDictionaries: '' category: 'Installer-Core'! !Installer commentStamp: 'kph 3/30/2009 01:29' prior: 0! Documentation now available at http://installer.pbwiki.com/Installer useFileIn - flag to load source.st rather than using Monticello! Item was removed: - ----- Method: Installer class>>doesNotUnderstand: (in category 'custom names') ----- - doesNotUnderstand: aMessage - ^ self remembered at: aMessage selector ifAbsent: [ super doesNotUnderstand: aMessage ]! Item was removed: - ----- Method: Installer class>>remembered (in category 'custom names') ----- - remembered - self isThisEverCalled: 'clean the var too.'. - ^ Remembered ifNil: [ Remembered := IdentityDictionary new ]!

1 0

Re: [squeak-dev] The Inbox: ReleaseBuilder-cmm.105.mcz
by Frank Shearar 02 Jan '14

02 Jan '14

On 31 December 2013 22:27, <commits(a)source.squeak.org> wrote: > A new version of ReleaseBuilder was added to project The Inbox: > http://source.squeak.org/inbox/ReleaseBuilder-cmm.105.mcz > > ==================== Summary ==================== > > Name: ReleaseBuilder-cmm.105 > Author: cmm > Time: 31 December 2013, 4:27:44.493 pm > UUID: 0bae46e0-1d72-49c3-830c-5dc2fa2b4958 > Ancestors: ReleaseBuilder-cmm.104 > > Please let all internal image work and modifications for building our releases be delegated to ReleaseBuilder. > > =============== Diff against ReleaseBuilder-cmm.104 =============== > > Item was changed: > ----- Method: ReleaseBuilder class>>prepareNewBuild: (in category 'scripts') ----- > prepareNewBuild: anMCRepository > "ReleaseBuilderTrunk prepareNewBuild" > "Prepare everything that should be done for a new image build" > + MCMcmUpdater updateMissingPackages: true. > + MCMcmUpdater enableUpdatesForAllPackages. > + Workspace allInstances do: [ : each | each topView delete]. Duly removed from squeak-ci's release.st. > + MorphicProject initialize. Why? I guess to set the background from MorphicProject class >> #defaultBackgroundForm. Why store an image in a string inside the image? It looks like you're jumping through hoops just to avoid touching anything outside the image. (release.st pulls in the image from the squeak-ci repository. The image is currently this guy - https://github.com/squeak-smalltalk/squeak-ci/blob/de815b8722284e8095c0ed35…) frank

2 3

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

02 Jan '14

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2014-January/006846.ht… Name: Installer-Core-tpr.388 Ancestors: Installer-Core-cmm.387 remove an unsent method as tagged by isThisEverCalled ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-January/006847.ht… Name: Morphic-tpr.714 Ancestors: Morphic-fbs.713 remove some unsent methods as tagged by isThisEverCalled ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-January/006848.ht… Name: System-tpr.654 Ancestors: System-fbs.653 remove some unsent methods as tagged by isThisEverCalled ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-January/006849.ht… Name: Tools-tpr.514 Ancestors: Tools-fbs.513 remove an unsent method as tagged by isThisEverCalled =============================================

1 0

Re: [squeak-dev] The Inbox: Tests-cwp.281.mcz
by Frank Shearar 01 Jan '14

01 Jan '14

On 1 January 2014 18:41, <commits(a)source.squeak.org> wrote: > A new version of Tests was added to project The Inbox: > http://source.squeak.org/inbox/Tests-cwp.281.mcz > > ==================== Summary ==================== > > Name: Tests-cwp.281 > Author: cwp > Time: 1 January 2014, 1:21:21.324 pm > UUID: bd0290d9-b157-4355-8e18-8dd4f4705e23 > Ancestors: Tests-fbs.280, Tests-cwp.280 > > merge > > =============== Diff against Tests-fbs.280 =============== > > Item was added: > + ----- Method: AliasTest>>testSource (in category 'tests') ----- > + testSource > + | alias source | > + source := #Griffle => value. > + alias := source asBinding: #Plonk. > + self assert: alias source == source! > > Item was changed: > TestCase subclass: #BindingPolicyTest > + instanceVariableNames: 'environment policy value notified notifiedBinding' > - instanceVariableNames: 'namespace policy value' > classVariableNames: '' > poolDictionaries: '' > category: 'Tests-Environments'! > > Item was removed: > - ----- Method: BindingPolicyTest class>>isAbstract (in category 'as yet unclassified') ----- > - isAbstract > - ^ self name = #BindingPolicyTest! > > Item was added: > + ----- Method: BindingPolicyTest>>addBinding: (in category 'emulating') ----- > + addBinding: aBinding > + notified := #add. > + notifiedBinding := aBinding! > > Item was added: > + ----- Method: BindingPolicyTest>>bindingPolicyWithNamePolicy: (in category 'tests') ----- > + bindingPolicyWithNamePolicy: aPolicy > + ^ BindingPolicy > + environment: environment > + policy: aPolicy > + addSelector: #addBinding: > + removeSelector: #removeBinding:! > > Item was added: > + ----- Method: BindingPolicyTest>>removeBinding: (in category 'emulating') ----- > + removeBinding: aBinding > + notified := #remove. > + notifiedBinding := aBinding! > > Item was changed: > ----- Method: BindingPolicyTest>>setUp (in category 'running') ----- > setUp > + environment := Environment withName: #test. > - namespace := IdentityDictionary new. > value := Object new! > > Item was added: > + ----- Method: BindingPolicyTest>>tearDown (in category 'running') ----- > + tearDown > + environment destroy. > + environment := nil. > + value := nil.! > > Item was added: > + ----- Method: BindingPolicyTest>>testAddHonorsEnvironment (in category 'tests') ----- > + testAddHonorsEnvironment > + | binding other | > + other := Environment withName: #other. > + policy := self bindingPolicyWithNamePolicy: AllNamePolicy new. > + binding := #Griffle => value. > + policy binding: binding addedTo: other notify: self. > + self assert: notified = nil! I think I've established my reputation as a loud lover of #assert:equals: :) Just sayin'. What I often do is set these kinds of variables - variables that show that some side effect took place - to some obviously wrong value. In this case, you could set notifier := #notCalled in the #setUp. I can't figure out what this test _does_ though: when you say that add honours Environment, you mean that it only adds the binding if the addedTo: environment matches the policy's environment, and we know this because the notifier isn't called? > Item was added: > + ----- Method: BindingPolicyTest>>testRemoveHonorsEnvironment (in category 'tests') ----- > + testRemoveHonorsEnvironment > + | binding other | > + other := Environment withName: #other. > + policy := self bindingPolicyWithNamePolicy: AllNamePolicy new. > + binding := #Griffle => value. > + policy binding: binding removedFrom: other notify: self. > + self assert: notified = nil! Same thing as #testAddHonorsEnvironment? > Item was changed: > ----- Method: EnvironmentTest>>testImportAddingPrefixResolvesUndeclared (in category 'import tests') ----- > testImportAddingPrefixResolvesUndeclared > | binding foreign | > foreign := Environment withName: #Foreign. > foreign exportSelf. > + foreign bind: #Griffle to: value. > + binding := env undeclare: #XXGriffle. I like this. Nice & explicit language. > Item was changed: > ----- Method: EnvironmentTest>>testImportAliases (in category 'import tests') ----- > testImportAliases > | foreign v2 v3 | > foreign := Environment withName: #Foreign. > foreign exportSelf. > foreign at: #Griffle put: value. > foreign at: #Nurp put: (v2 := Object new). > foreign at: #Ziffy put: (v3 := Object new). Shouldn't these be #bind:to: now? > + env from: foreign import: {#Nurp -> #Plonk. #Ziffy -> #Wiffy}. > - env from: foreign import: {#Plonk -> #Nurp. #Wiffy -> #Ziffy}. I find this hard to understand. So the Array of Associations looks like it says "when you see Ziffy, interpret that as if you saw Wiffy", or "map Ziffy to Wiffy". Oh. It says "when you import foreign, map foreign's Ziffy to env's (new) Wiffy. OK, that makes sense. > self assert: (env bindingOf: #Griffle) isNil. > self assert: (env bindingOf: #Plonk) value == v2. > self assert: (env bindingOf: #Wiffy) value == v3! > Item was changed: > ----- Method: EnvironmentTest>>testImportWritable (in category 'import tests') ----- > testImportWritable > | foreign binding | > foreign := Environment withName: #Foreign. > foreign exportSelf. > + foreign bind: #Griffle to: 'v1'. > + env from: foreign import: #Griffle -> #Plonk. > - foreign at: #Griffle put: 'v1'. > - env from: foreign import: #Plonk -> #Griffle. > binding := env bindingOf: #Plonk. > binding value: 'v2'. > + self assert: (foreign declarationOf: #Griffle) value = 'v2' ! > - self assert: (foreign bindingOf: #Griffle) value == 'v2' ! I realise this is existing behaviour, but I'm not so keen on sub-environments being able to tinker with parent environments' bindings. What's the use case here? It means an Environment can't be used as a sandbox. > Item was added: > + ----- Method: EnvironmentTest>>testUndeclare (in category 'binding tests') ----- > + testUndeclare > + | one two | > + one := env undeclare: #Griffle. > + two := env bindingOf: #Griffle. > + self assert: one == two. > + self assert: one class == Global! Ah. This shows that you can always add new undeclared stuff to an environment. The name of the test didn't tell me that :/. Also, is it part of the API that one value isNil? > Item was added: > + ----- Method: EnvironmentTest>>testUndeclaredBecomeClassBinding (in category 'compatibility tests') ----- > + testUndeclaredBecomeClassBinding > + | binding class | > + class := Behavior new. > + binding := env undeclared > + add: (#Griffle => nil); > + associationAt: #Griffle. > + env at: #Griffle put: class. > + self assert: (binding class == ClassBinding). > + self assert: binding value == class.! > > Item was added: > + ----- Method: EnvironmentTest>>testUndeclaredBecomesGlobal (in category 'compatibility tests') ----- > + testUndeclaredBecomesGlobal > + | binding class | > + class := Behavior new. > + binding := env undeclared > + add: (#Griffle => class); > + associationAt: #Griffle. > + env bind: #Griffle to: value. > + self assert: (binding class == Global). > + self assert: binding value == value.! Minor nit: one of these tests says "BecomeSomething" and the other says "BecomesSomething". > Item was changed: > + ----- Method: MCClassDefinitionTest>>testLoadAndUnload (in category 'as yet unclassified') ----- So all this noise in the Monticello tests is because there are two Tests-fbs.280 - one in trunk, and one in the inbox. Fun times. The one in the inbox changes the MC tests to load definitions into an Environment that's then thrown away after the test runs. This avoids MC mucking around with global state. The changes have been sitting in the Inbox for a week, but given Colin's big chunk of stuff landing in the Inbox, let's review it, push to trunk when ready, and then I'll update my MC test hacking, and resubmit. frank

2 2

The Inbox: GraphicsTests-nice.39.mcz
by commits＠source.squeak.org 01 Jan '14

01 Jan '14

Nicolas Cellier uploaded a new version of GraphicsTests to project The Inbox: http://source.squeak.org/inbox/GraphicsTests-nice.39.mcz ==================== Summary ==================== Name: GraphicsTests-nice.39 Author: nice Time: 1 January 2014, 10:12:17.084 pm UUID: a89e8006-d9a5-44bf-89e0-b9f97005eae6 Ancestors: GraphicsTests-fbs.38 Fix tests after Color 10->8 bits rgb component change =============== Diff against GraphicsTests-fbs.38 =============== Item was changed: ----- Method: ColorTest>>testMultiplyByArray (in category 'testing') ----- testMultiplyByArray | newColor oldColor tolerance | + tolerance := 0.005. - tolerance := 0.001. oldColor := Color r: 0.75 g: 0.5 b: 0.25. newColor := oldColor * #(0.1 2 3). self assert: (0.075 - newColor red) abs < tolerance. self assert: (1 - newColor green) abs < tolerance. self assert: (0.75 - newColor blue) abs < tolerance.! Item was changed: ----- Method: ColorTest>>testMultiplyByArrayIdentityTransform (in category 'testing') ----- testMultiplyByArrayIdentityTransform | newColor oldColor tolerance | + tolerance := 0.005. - tolerance := 0.001. oldColor := Color r: 0.75 g: 0.5 b: 0.25. newColor := oldColor * 2. self assert: (1 - newColor red) abs < tolerance. self assert: (1 - newColor green) abs < tolerance. self assert: (0.5 - newColor blue) abs < tolerance.! Item was changed: ----- Method: ColorTest>>testMultiplyByNumber (in category 'testing') ----- testMultiplyByNumber | newColor oldColor tolerance | + tolerance := 0.005. - tolerance := 0.001. oldColor := Color r: 0.75 g: 0.5 b: 0.25. newColor := oldColor * 2. self assert: (1 - newColor red) abs < tolerance. self assert: (1 - newColor green) abs < tolerance. self assert: (0.5 - newColor blue) abs < tolerance.! Item was changed: ----- Method: PNGReadWriterTest>>coloredFiles8 (in category 'tests - decoding') ----- coloredFiles8 "Created by {Color red. Color green. Color blue. Color black} collect:[:fillC| | ff bytes | ff := Form extent: 32@32 depth: 8. ff fillColor: fillC. bytes := WriteStream on: ByteArray new. PNGReadWriter putForm: ff onStream: bytes. fillC -> (Base64MimeConverter mimeEncode: (bytes contents readStream)) contents ]. " ^{Color red-> + 'iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAMAAABEpIrGAAADAFBMVEX///8AAAD///+AgID/ + AAAA/wAAAP8A/////wD/AP8gICBAQEBgYGCfn5+/v7/f398ICAgQEBAYGBgoKCgwMDA4ODhI + SEhQUFBYWFhoaGhwcHB4eHiHh4ePj4+Xl5enp6evr6+3t7fHx8fPz8/X19fn5+fv7+/39/cA + AAAAMwAAZgAAmQAAzAAA/wAAADMAMzMAZjMAmTMAzDMA/zMAAGYAM2YAZmYAmWYAzGYA/2YA + AJkAM5kAZpkAmZkAzJkA/5kAAMwAM8wAZswAmcwAzMwA/8wAAP8AM/8AZv8Amf8AzP8A//8z + AAAzMwAzZgAzmQAzzAAz/wAzADMzMzMzZjMzmTMzzDMz/zMzAGYzM2YzZmYzmWYzzGYz/2Yz + AJkzM5kzZpkzmZkzzJkz/5kzAMwzM8wzZswzmcwzzMwz/8wzAP8zM/8zZv8zmf8zzP8z//9m + AABmMwBmZgBmmQBmzABm/wBmADNmMzNmZjNmmTNmzDNm/zNmAGZmM2ZmZmZmmWZmzGZm/2Zm + AJlmM5lmZplmmZlmzJlm/5lmAMxmM8xmZsxmmcxmzMxm/8xmAP9mM/9mZv9mmf9mzP9m//+Z + AACZMwCZZgCZmQCZzACZ/wCZADOZMzOZZjOZmTOZzDOZ/zOZAGaZM2aZZmaZmWaZzGaZ/2aZ + AJmZM5mZZpmZmZmZzJmZ/5mZAMyZM8yZZsyZmcyZzMyZ/8yZAP+ZM/+ZZv+Zmf+ZzP+Z///M + AADMMwDMZgDMmQDMzADM/wDMADPMMzPMZjPMmTPMzDPM/zPMAGbMM2bMZmbMmWbMzGbM/2bM + AJnMM5nMZpnMmZnMzJnM/5nMAMzMM8zMZszMmczMzMzM/8zMAP/MM//MZv/Mmf/MzP/M//// + AAD/MwD/ZgD/mQD/zAD//wD/ADP/MzP/ZjP/mTP/zDP//zP/AGb/M2b/Zmb/mWb/zGb//2b/ + AJn/M5n/Zpn/mZn/zJn//5n/AMz/M8z/Zsz/mcz/zMz//8z/AP//M///Zv//mf//zP/////0 + sOg5AAAAGklEQVR4XmO4cwc/YLgz8hWMfAUjX8EIVQAAbnlwLukXXkcAAAAASUVORK5CYII='. - 'iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAMAAABEpIrGAAADAFBMVEX///8AAAD///9/f3// - AAAA/wAAAP8A/////wD/AP8fHx8/Pz9fX1+fn5+/v7/f398HBwcPDw8XFxcnJycvLy83NzdH - R0dPT09XV1dnZ2dvb293d3eHh4ePj4+Xl5enp6evr6+3t7fHx8fPz8/X19fn5+fv7+/39/cA - AAAAMgAAZQAAmAAAywAA/wAAADIAMjIAZTIAmDIAyzIA/zIAAGUAMmUAZWUAmGUAy2UA/2UA - AJgAMpgAZZgAmJgAy5gA/5gAAMsAMssAZcsAmMsAy8sA/8sAAP8AMv8AZf8AmP8Ay/8A//8y - AAAyMgAyZQAymAAyywAy/wAyADIyMjIyZTIymDIyyzIy/zIyAGUyMmUyZWUymGUyy2Uy/2Uy - AJgyMpgyZZgymJgyy5gy/5gyAMsyMssyZcsymMsyy8sy/8syAP8yMv8yZf8ymP8yy/8y//9l - AABlMgBlZQBlmABlywBl/wBlADJlMjJlZTJlmDJlyzJl/zJlAGVlMmVlZWVlmGVly2Vl/2Vl - AJhlMphlZZhlmJhly5hl/5hlAMtlMstlZctlmMtly8tl/8tlAP9lMv9lZf9lmP9ly/9l//+Y - AACYMgCYZQCYmACYywCY/wCYADKYMjKYZTKYmDKYyzKY/zKYAGWYMmWYZWWYmGWYy2WY/2WY - AJiYMpiYZZiYmJiYy5iY/5iYAMuYMsuYZcuYmMuYy8uY/8uYAP+YMv+YZf+YmP+Yy/+Y///L - AADLMgDLZQDLmADLywDL/wDLADLLMjLLZTLLmDLLyzLL/zLLAGXLMmXLZWXLmGXLy2XL/2XL - AJjLMpjLZZjLmJjLy5jL/5jLAMvLMsvLZcvLmMvLy8vL/8vLAP/LMv/LZf/LmP/Ly//L//// - AAD/MgD/ZQD/mAD/ywD//wD/ADL/MjL/ZTL/mDL/yzL//zL/AGX/MmX/ZWX/mGX/y2X//2X/ - AJj/Mpj/ZZj/mJj/y5j//5j/AMv/Msv/Zcv/mMv/y8v//8v/AP//Mv//Zf//mP//y/////9E - CiHUAAAAGklEQVR4XmO4cwc/YLgz8hWMfAUjX8EIVQAAbnlwLukXXkcAAAAASUVORK5CYII='. Color green-> + 'iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAMAAABEpIrGAAADAFBMVEX///8AAAD///+AgID/ + AAAA/wAAAP8A/////wD/AP8gICBAQEBgYGCfn5+/v7/f398ICAgQEBAYGBgoKCgwMDA4ODhI + SEhQUFBYWFhoaGhwcHB4eHiHh4ePj4+Xl5enp6evr6+3t7fHx8fPz8/X19fn5+fv7+/39/cA + AAAAMwAAZgAAmQAAzAAA/wAAADMAMzMAZjMAmTMAzDMA/zMAAGYAM2YAZmYAmWYAzGYA/2YA + AJkAM5kAZpkAmZkAzJkA/5kAAMwAM8wAZswAmcwAzMwA/8wAAP8AM/8AZv8Amf8AzP8A//8z + AAAzMwAzZgAzmQAzzAAz/wAzADMzMzMzZjMzmTMzzDMz/zMzAGYzM2YzZmYzmWYzzGYz/2Yz + AJkzM5kzZpkzmZkzzJkz/5kzAMwzM8wzZswzmcwzzMwz/8wzAP8zM/8zZv8zmf8zzP8z//9m + AABmMwBmZgBmmQBmzABm/wBmADNmMzNmZjNmmTNmzDNm/zNmAGZmM2ZmZmZmmWZmzGZm/2Zm + AJlmM5lmZplmmZlmzJlm/5lmAMxmM8xmZsxmmcxmzMxm/8xmAP9mM/9mZv9mmf9mzP9m//+Z + AACZMwCZZgCZmQCZzACZ/wCZADOZMzOZZjOZmTOZzDOZ/zOZAGaZM2aZZmaZmWaZzGaZ/2aZ + AJmZM5mZZpmZmZmZzJmZ/5mZAMyZM8yZZsyZmcyZzMyZ/8yZAP+ZM/+ZZv+Zmf+ZzP+Z///M + AADMMwDMZgDMmQDMzADM/wDMADPMMzPMZjPMmTPMzDPM/zPMAGbMM2bMZmbMmWbMzGbM/2bM + AJnMM5nMZpnMmZnMzJnM/5nMAMzMM8zMZszMmczMzMzM/8zMAP/MM//MZv/Mmf/MzP/M//// + AAD/MwD/ZgD/mQD/zAD//wD/ADP/MzP/ZjP/mTP/zDP//zP/AGb/M2b/Zmb/mWb/zGb//2b/ + AJn/M5n/Zpn/mZn/zJn//5n/AMz/M8z/Zsz/mcz/zMz//8z/AP//M///Zv//mf//zP/////0 + sOg5AAAAGUlEQVR4XmPQ1cUPGHRHvoKRr2DkKxihCgBZ3bQBCq5u/AAAAABJRU5ErkJggg=='. - 'iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAMAAABEpIrGAAADAFBMVEX///8AAAD///9/f3// - AAAA/wAAAP8A/////wD/AP8fHx8/Pz9fX1+fn5+/v7/f398HBwcPDw8XFxcnJycvLy83NzdH - R0dPT09XV1dnZ2dvb293d3eHh4ePj4+Xl5enp6evr6+3t7fHx8fPz8/X19fn5+fv7+/39/cA - AAAAMgAAZQAAmAAAywAA/wAAADIAMjIAZTIAmDIAyzIA/zIAAGUAMmUAZWUAmGUAy2UA/2UA - AJgAMpgAZZgAmJgAy5gA/5gAAMsAMssAZcsAmMsAy8sA/8sAAP8AMv8AZf8AmP8Ay/8A//8y - AAAyMgAyZQAymAAyywAy/wAyADIyMjIyZTIymDIyyzIy/zIyAGUyMmUyZWUymGUyy2Uy/2Uy - AJgyMpgyZZgymJgyy5gy/5gyAMsyMssyZcsymMsyy8sy/8syAP8yMv8yZf8ymP8yy/8y//9l - AABlMgBlZQBlmABlywBl/wBlADJlMjJlZTJlmDJlyzJl/zJlAGVlMmVlZWVlmGVly2Vl/2Vl - AJhlMphlZZhlmJhly5hl/5hlAMtlMstlZctlmMtly8tl/8tlAP9lMv9lZf9lmP9ly/9l//+Y - AACYMgCYZQCYmACYywCY/wCYADKYMjKYZTKYmDKYyzKY/zKYAGWYMmWYZWWYmGWYy2WY/2WY - AJiYMpiYZZiYmJiYy5iY/5iYAMuYMsuYZcuYmMuYy8uY/8uYAP+YMv+YZf+YmP+Yy/+Y///L - AADLMgDLZQDLmADLywDL/wDLADLLMjLLZTLLmDLLyzLL/zLLAGXLMmXLZWXLmGXLy2XL/2XL - AJjLMpjLZZjLmJjLy5jL/5jLAMvLMsvLZcvLmMvLy8vL/8vLAP/LMv/LZf/LmP/Ly//L//// - AAD/MgD/ZQD/mAD/ywD//wD/ADL/MjL/ZTL/mDL/yzL//zL/AGX/MmX/ZWX/mGX/y2X//2X/ - AJj/Mpj/ZZj/mJj/y5j//5j/AMv/Msv/Zcv/mMv/y8v//8v/AP//Mv//Zf//mP//y/////9E - CiHUAAAAGUlEQVR4XmPQ1cUPGHRHvoKRr2DkKxihCgBZ3bQBCq5u/AAAAABJRU5ErkJggg=='. Color blue-> + 'iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAMAAABEpIrGAAADAFBMVEX///8AAAD///+AgID/ + AAAA/wAAAP8A/////wD/AP8gICBAQEBgYGCfn5+/v7/f398ICAgQEBAYGBgoKCgwMDA4ODhI + SEhQUFBYWFhoaGhwcHB4eHiHh4ePj4+Xl5enp6evr6+3t7fHx8fPz8/X19fn5+fv7+/39/cA + AAAAMwAAZgAAmQAAzAAA/wAAADMAMzMAZjMAmTMAzDMA/zMAAGYAM2YAZmYAmWYAzGYA/2YA + AJkAM5kAZpkAmZkAzJkA/5kAAMwAM8wAZswAmcwAzMwA/8wAAP8AM/8AZv8Amf8AzP8A//8z + AAAzMwAzZgAzmQAzzAAz/wAzADMzMzMzZjMzmTMzzDMz/zMzAGYzM2YzZmYzmWYzzGYz/2Yz + AJkzM5kzZpkzmZkzzJkz/5kzAMwzM8wzZswzmcwzzMwz/8wzAP8zM/8zZv8zmf8zzP8z//9m + AABmMwBmZgBmmQBmzABm/wBmADNmMzNmZjNmmTNmzDNm/zNmAGZmM2ZmZmZmmWZmzGZm/2Zm + AJlmM5lmZplmmZlmzJlm/5lmAMxmM8xmZsxmmcxmzMxm/8xmAP9mM/9mZv9mmf9mzP9m//+Z + AACZMwCZZgCZmQCZzACZ/wCZADOZMzOZZjOZmTOZzDOZ/zOZAGaZM2aZZmaZmWaZzGaZ/2aZ + AJmZM5mZZpmZmZmZzJmZ/5mZAMyZM8yZZsyZmcyZzMyZ/8yZAP+ZM/+ZZv+Zmf+ZzP+Z///M + AADMMwDMZgDMmQDMzADM/wDMADPMMzPMZjPMmTPMzDPM/zPMAGbMM2bMZmbMmWbMzGbM/2bM + AJnMM5nMZpnMmZnMzJnM/5nMAMzMM8zMZszMmczMzMzM/8zMAP/MM//MZv/Mmf/MzP/M//// + AAD/MwD/ZgD/mQD/zAD//wD/ADP/MzP/ZjP/mTP/zDP//zP/AGb/M2b/Zmb/mWb/zGb//2b/ + AJn/M5n/Zpn/mZn/zJn//5n/AMz/M8z/Zsz/mcz/zMz//8z/AP//M///Zv//mf//zP/////0 + sOg5AAAAGUlEQVR4XmNwc8MPGNxGvoKRr2DkKxihCgCl7xgQRbPxcwAAAABJRU5ErkJggg=='. - 'iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAMAAABEpIrGAAADAFBMVEX///8AAAD///9/f3// - AAAA/wAAAP8A/////wD/AP8fHx8/Pz9fX1+fn5+/v7/f398HBwcPDw8XFxcnJycvLy83NzdH - R0dPT09XV1dnZ2dvb293d3eHh4ePj4+Xl5enp6evr6+3t7fHx8fPz8/X19fn5+fv7+/39/cA - AAAAMgAAZQAAmAAAywAA/wAAADIAMjIAZTIAmDIAyzIA/zIAAGUAMmUAZWUAmGUAy2UA/2UA - AJgAMpgAZZgAmJgAy5gA/5gAAMsAMssAZcsAmMsAy8sA/8sAAP8AMv8AZf8AmP8Ay/8A//8y - AAAyMgAyZQAymAAyywAy/wAyADIyMjIyZTIymDIyyzIy/zIyAGUyMmUyZWUymGUyy2Uy/2Uy - AJgyMpgyZZgymJgyy5gy/5gyAMsyMssyZcsymMsyy8sy/8syAP8yMv8yZf8ymP8yy/8y//9l - AABlMgBlZQBlmABlywBl/wBlADJlMjJlZTJlmDJlyzJl/zJlAGVlMmVlZWVlmGVly2Vl/2Vl - AJhlMphlZZhlmJhly5hl/5hlAMtlMstlZctlmMtly8tl/8tlAP9lMv9lZf9lmP9ly/9l//+Y - AACYMgCYZQCYmACYywCY/wCYADKYMjKYZTKYmDKYyzKY/zKYAGWYMmWYZWWYmGWYy2WY/2WY - AJiYMpiYZZiYmJiYy5iY/5iYAMuYMsuYZcuYmMuYy8uY/8uYAP+YMv+YZf+YmP+Yy/+Y///L - AADLMgDLZQDLmADLywDL/wDLADLLMjLLZTLLmDLLyzLL/zLLAGXLMmXLZWXLmGXLy2XL/2XL - AJjLMpjLZZjLmJjLy5jL/5jLAMvLMsvLZcvLmMvLy8vL/8vLAP/LMv/LZf/LmP/Ly//L//// - AAD/MgD/ZQD/mAD/ywD//wD/ADL/MjL/ZTL/mDL/yzL//zL/AGX/MmX/ZWX/mGX/y2X//2X/ - AJj/Mpj/ZZj/mJj/y5j//5j/AMv/Msv/Zcv/mMv/y8v//8v/AP//Mv//Zf//mP//y/////9E - CiHUAAAAGUlEQVR4XmNwc8MPGNxGvoKRr2DkKxihCgCl7xgQRbPxcwAAAABJRU5ErkJggg=='. Color black-> + 'iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAMAAABEpIrGAAADAFBMVEX///8AAAD///+AgID/ + AAAA/wAAAP8A/////wD/AP8gICBAQEBgYGCfn5+/v7/f398ICAgQEBAYGBgoKCgwMDA4ODhI + SEhQUFBYWFhoaGhwcHB4eHiHh4ePj4+Xl5enp6evr6+3t7fHx8fPz8/X19fn5+fv7+/39/cA + AAAAMwAAZgAAmQAAzAAA/wAAADMAMzMAZjMAmTMAzDMA/zMAAGYAM2YAZmYAmWYAzGYA/2YA + AJkAM5kAZpkAmZkAzJkA/5kAAMwAM8wAZswAmcwAzMwA/8wAAP8AM/8AZv8Amf8AzP8A//8z + AAAzMwAzZgAzmQAzzAAz/wAzADMzMzMzZjMzmTMzzDMz/zMzAGYzM2YzZmYzmWYzzGYz/2Yz + AJkzM5kzZpkzmZkzzJkz/5kzAMwzM8wzZswzmcwzzMwz/8wzAP8zM/8zZv8zmf8zzP8z//9m + AABmMwBmZgBmmQBmzABm/wBmADNmMzNmZjNmmTNmzDNm/zNmAGZmM2ZmZmZmmWZmzGZm/2Zm + AJlmM5lmZplmmZlmzJlm/5lmAMxmM8xmZsxmmcxmzMxm/8xmAP9mM/9mZv9mmf9mzP9m//+Z + AACZMwCZZgCZmQCZzACZ/wCZADOZMzOZZjOZmTOZzDOZ/zOZAGaZM2aZZmaZmWaZzGaZ/2aZ + AJmZM5mZZpmZmZmZzJmZ/5mZAMyZM8yZZsyZmcyZzMyZ/8yZAP+ZM/+ZZv+Zmf+ZzP+Z///M + AADMMwDMZgDMmQDMzADM/wDMADPMMzPMZjPMmTPMzDPM/zPMAGbMM2bMZmbMmWbMzGbM/2bM + AJnMM5nMZpnMmZnMzJnM/5nMAMzMM8zMZszMmczMzMzM/8zMAP/MM//MZv/Mmf/MzP/M//// + AAD/MwD/ZgD/mQD/zAD//wD/ADP/MzP/ZjP/mTP/zDP//zP/AGb/M2b/Zmb/mWb/zGb//2b/ + AJn/M5n/Zpn/mZn/zJn//5n/AMz/M8z/Zsz/mcz/zMz//8z/AP//M///Zv//mf//zP/////0 + sOg5AAAAGUlEQVR4XmNgZMQPGBhHvoKRr2DkKxihCgBEmAQBphO0cAAAAABJRU5ErkJggg==' - 'iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAMAAABEpIrGAAADAFBMVEX///8AAAD///9/f3// - AAAA/wAAAP8A/////wD/AP8fHx8/Pz9fX1+fn5+/v7/f398HBwcPDw8XFxcnJycvLy83NzdH - R0dPT09XV1dnZ2dvb293d3eHh4ePj4+Xl5enp6evr6+3t7fHx8fPz8/X19fn5+fv7+/39/cA - AAAAMgAAZQAAmAAAywAA/wAAADIAMjIAZTIAmDIAyzIA/zIAAGUAMmUAZWUAmGUAy2UA/2UA - AJgAMpgAZZgAmJgAy5gA/5gAAMsAMssAZcsAmMsAy8sA/8sAAP8AMv8AZf8AmP8Ay/8A//8y - AAAyMgAyZQAymAAyywAy/wAyADIyMjIyZTIymDIyyzIy/zIyAGUyMmUyZWUymGUyy2Uy/2Uy - AJgyMpgyZZgymJgyy5gy/5gyAMsyMssyZcsymMsyy8sy/8syAP8yMv8yZf8ymP8yy/8y//9l - AABlMgBlZQBlmABlywBl/wBlADJlMjJlZTJlmDJlyzJl/zJlAGVlMmVlZWVlmGVly2Vl/2Vl - AJhlMphlZZhlmJhly5hl/5hlAMtlMstlZctlmMtly8tl/8tlAP9lMv9lZf9lmP9ly/9l//+Y - AACYMgCYZQCYmACYywCY/wCYADKYMjKYZTKYmDKYyzKY/zKYAGWYMmWYZWWYmGWYy2WY/2WY - AJiYMpiYZZiYmJiYy5iY/5iYAMuYMsuYZcuYmMuYy8uY/8uYAP+YMv+YZf+YmP+Yy/+Y///L - AADLMgDLZQDLmADLywDL/wDLADLLMjLLZTLLmDLLyzLL/zLLAGXLMmXLZWXLmGXLy2XL/2XL - AJjLMpjLZZjLmJjLy5jL/5jLAMvLMsvLZcvLmMvLy8vL/8vLAP/LMv/LZf/LmP/Ly//L//// - AAD/MgD/ZQD/mAD/ywD//wD/ADL/MjL/ZTL/mDL/yzL//zL/AGX/MmX/ZWX/mGX/y2X//2X/ - AJj/Mpj/ZZj/mJj/y5j//5j/AMv/Msv/Zcv/mMv/y8v//8v/AP//Mv//Zf//mP//y/////9E - CiHUAAAAGUlEQVR4XmNgZMQPGBhHvoKRr2DkKxihCgBEmAQBphO0cAAAAABJRU5ErkJggg==' }!

1 0

The Inbox: Graphics-nice.286.mcz
by commits＠source.squeak.org 01 Jan '14

01 Jan '14

Nicolas Cellier uploaded a new version of Graphics to project The Inbox: http://source.squeak.org/inbox/Graphics-nice.286.mcz ==================== Summary ==================== Name: Graphics-nice.286 Author: nice Time: 1 January 2014, 10:09:42.413 pm UUID: d213ef78-95dd-4b4b-bcc5-d71e3a2d72f1 Ancestors: Graphics-nice.285 Fix up PNGReadWriter standard palette after Color 10->8 bits rgb component change. =============== Diff against Graphics-nice.285 =============== Item was changed: ----- Method: PNGReadWriter class>>initialize (in category 'as yet unclassified') ----- initialize " PNGReadWriter initialize " BPP := { #(1 2 4 8 16). #(0 0 0 0 0). #(0 0 0 24 48). #(1 2 4 8 0). #(0 0 0 16 32). #(0 0 0 0 0). #(0 0 0 32 64). #(0 0 0 0 0) }. BlockHeight := #(8 8 4 4 2 2 1). BlockWidth := #(8 4 4 2 2 1 1). StandardColors := Color indexedColors collect:[:aColor| Color + r: (aColor red * 255) rounded / 255 + g: (aColor green * 255) rounded / 255 + b: (aColor blue * 255) rounded / 255. - r: (aColor red * 255) truncated / 255 - g: (aColor green * 255) truncated / 255 - b: (aColor blue * 255) truncated / 255. ]. StandardSwizzleMaps := Array new: 4. #(1 2 4) do:[:i| StandardSwizzleMaps at: i put: (self computeSwizzleMapForDepth: i)].!

1 0

The Inbox: Graphics-nice.285.mcz
by commits＠source.squeak.org 01 Jan '14

01 Jan '14

Nicolas Cellier uploaded a new version of Graphics to project The Inbox: http://source.squeak.org/inbox/Graphics-nice.285.mcz ==================== Summary ==================== Name: Graphics-nice.285 Author: nice Time: 1 January 2014, 8:53:32.416 pm UUID: 04aee02d-83ae-4b4d-aed9-968a6a7487db Ancestors: Graphics-nice.284 Change Color implementation from 10 bits per (rgb) component to 8 bits per component. Several considerations motivate this change: - no Graphic output is using 10 bits; - alpha channel is already stored using 8 bits; - 8 bits matches nowadays most used 32 bits depth Form - thus it's an optimization. Note that the tolerance for testing Color components has to be increased to a value >= (1/255), I suggest 0.005. =============== Diff against Graphics-nice.284 =============== Item was added: + (PackageInfo named: 'Graphics') preamble: '"Change color components from 10 to 8 bits" + Color allSubInstancesDo: + [:c | + | rgb | + rgb := c instVarNamed: ''rgb''. + rgb := (rgb bitAnd: 16r3FC00000) >> 2 + (rgb bitAnd: 16rFF000) >> 2 + (rgb bitAnd: 16r3FC) >> 2. + c instVarNamed: ''rgb'' put: rgb; flushCache].'! Item was changed: ----- Method: Color class>>initialize (in category 'class initialization') ----- initialize "Color initialize" "Details: Externally, the red, green, and blue components of color are floats in the range [0.0..1.0]. Internally, they are represented as integers in the range [0..ComponentMask] packing into a small integer to save space and to allow fast hashing and equality testing. For a general description of color representations for computer graphics, including the relationship between the RGB and HSV color models used here, see Chapter 17 of Foley and van Dam, Fundamentals of Interactive Computer Graphics, Addison-Wesley, 1982." + ComponentMask := 255. + HalfComponentMask := 128. "used to round up in integer calculations" + ComponentMax := 255.0. "a Float used to normalize components" + RedShift := 16. + GreenShift := 8. - ComponentMask := 1023. - HalfComponentMask := 512. "used to round up in integer calculations" - ComponentMax := 1023.0. "a Float used to normalize components" - RedShift := 20. - GreenShift := 10. BlueShift := 0. PureRed := self r: 1 g: 0 b: 0. PureGreen := self r: 0 g: 1 b: 0. PureBlue := self r: 0 g: 0 b: 1. PureYellow := self r: 1 g: 1 b: 0. PureCyan := self r: 0 g: 1 b: 1. PureMagenta := self r: 1 g: 0 b: 1. RandomStream := Random new. self initializeIndexedColors. self initializeGrayToIndexMap. self initializeNames. self initializeHighLights. ! Item was changed: ----- Method: Color class>>initializeGrayToIndexMap (in category 'class initialization') ----- initializeGrayToIndexMap "Build an array of gray values available in the 8-bit colormap. This array is indexed by a gray level between black (1) and white (256) and returns the pixel value for the corresponding gray level." "Note: This method must be called after initializeIndexedColors, since it uses IndexedColors." "Color initializeGrayToIndexMap" | grayLevels grayIndices c distToClosest dist indexOfClosest | "record the level and index of each gray in the 8-bit color table" grayLevels := OrderedCollection new. grayIndices := OrderedCollection new. "Note: skip the first entry, which is reserved for transparent" 2 to: IndexedColors size do: [:i | c := IndexedColors at: i. c saturation = 0.0 ifTrue: [ "c is a gray" + grayLevels add: c privateBlue. "top 8 bits; R, G, and B are the same" - grayLevels add: (c privateBlue) >> 2. "top 8 bits; R, G, and B are the same" grayIndices add: i - 1]]. "pixel values are zero-based" grayLevels := grayLevels asArray. grayIndices := grayIndices asArray. "for each gray level in [0..255], select the closest match" GrayToIndexMap := ByteArray new: 256. 0 to: 255 do: [:level | distToClosest := 10000. "greater than distance to any real gray" 1 to: grayLevels size do: [:i | dist := (level - (grayLevels at: i)) abs. dist < distToClosest ifTrue: [ distToClosest := dist. indexOfClosest := grayIndices at: i]]. GrayToIndexMap at: (level + 1) put: indexOfClosest]. ! Item was changed: ----- Method: Color>>asHTMLColor (in category 'conversions') ----- asHTMLColor + ^'#' , (rgb printStringBase: 16 length: 6 padded: true)! - | s | - s := '#000000' copy. - s at: 2 put: (Character digitValue: ((rgb bitShift: -6 - RedShift) bitAnd: 15)). - s at: 3 put: (Character digitValue: ((rgb bitShift: -2 - RedShift) bitAnd: 15)). - s at: 4 put: (Character digitValue: ((rgb bitShift: -6 - GreenShift) bitAnd: 15)). - s at: 5 put: (Character digitValue: ((rgb bitShift: -2 - GreenShift) bitAnd: 15)). - s at: 6 put: (Character digitValue: ((rgb bitShift: -6 - BlueShift) bitAnd: 15)). - s at: 7 put: (Character digitValue: ((rgb bitShift: -2 - BlueShift) bitAnd: 15)). - ^ s! Item was changed: ----- Method: Color>>closestPixelValue1 (in category 'conversions') ----- closestPixelValue1 "Return the nearest approximation to this color for a monochrome Form." "fast special cases" rgb = 0 ifTrue: [^ 1]. "black" + rgb = 16rFFFFFFF ifTrue: [^ 0]. "white" - rgb = 16r3FFFFFFF ifTrue: [^ 0]. "white" self luminance > 0.5 ifTrue: [^ 0] "white" ifFalse: [^ 1]. "black" ! Item was changed: ----- Method: Color>>closestPixelValue2 (in category 'conversions') ----- closestPixelValue2 "Return the nearest approximation to this color for a 2-bit deep Form." | lum | "fast special cases" rgb = 0 ifTrue: [^ 1]. "black" + rgb = 16rFFFFFFF ifTrue: [^ 2]. "opaque white" - rgb = 16r3FFFFFFF ifTrue: [^ 2]. "opaque white" lum := self luminance. lum < 0.2 ifTrue: [^ 1]. "black" lum > 0.6 ifTrue: [^ 2]. "opaque white" ^ 3 "50% gray" ! Item was changed: ----- Method: Color>>closestPixelValue4 (in category 'conversions') ----- closestPixelValue4 "Return the nearest approximation to this color for a 4-bit deep Form." | bIndex | "fast special cases" rgb = 0 ifTrue: [^ 1]. "black" + rgb = 16rFFFFFFF ifTrue: [^ 2]. "opaque white" - rgb = 16r3FFFFFFF ifTrue: [^ 2]. "opaque white" rgb = PureRed privateRGB ifTrue: [^ 4]. rgb = PureGreen privateRGB ifTrue: [^ 5]. rgb = PureBlue privateRGB ifTrue: [^ 6]. rgb = PureCyan privateRGB ifTrue: [^ 7]. rgb = PureYellow privateRGB ifTrue: [^ 8]. rgb = PureMagenta privateRGB ifTrue: [^ 9]. bIndex := (self luminance * 8.0) rounded. "bIndex in [0..8]" ^ #( 1 "black" 10 "1/8 gray" 11 "2/8 gray" 12 "3/8 gray" 3 "4/8 gray" 13 "5/8 gray" 14 "6/8 gray" 15 "7/8 gray" 2 "opaque white" ) at: bIndex + 1. ! Item was changed: ----- Method: Color>>closestPixelValue8 (in category 'conversions') ----- closestPixelValue8 "Return the nearest approximation to this color for an 8-bit deep Form." "fast special cases" rgb = 0 ifTrue: [^ 1]. "black" + rgb = 16rFFFFFFF ifTrue: [^ 255]. "white" - rgb = 16r3FFFFFFF ifTrue: [^ 255]. "white" self saturation < 0.2 ifTrue: [ + ^ GrayToIndexMap at: self privateGreen + 1. "nearest gray" - ^ GrayToIndexMap at: (self privateGreen >> 2) + 1. "nearest gray" ] ifFalse: [ "compute nearest entry in the color cube" ^ 40 + ((((self privateRed * 5) + HalfComponentMask) // ComponentMask) * 36) + ((((self privateBlue * 5) + HalfComponentMask) // ComponentMask) * 6) + (((self privateGreen * 5) + HalfComponentMask) // ComponentMask)]. ! Item was changed: ----- Method: Color>>pixelValueForDepth: (in category 'conversions') ----- pixelValueForDepth: d "Returns an integer representing the bits that appear in a single pixel of this color in a Form of the given depth. The depth must be one of 1, 2, 4, 8, 16, or 32. Contrast with pixelWordForDepth: and bitPatternForDepth:, which return either a 32-bit word packed with the given pixel value or a multiple-word Bitmap containing a pattern. The inverse is the class message colorFromPixelValue:depth:" "Details: For depths of 8 or less, the result is a colorMap index. For depths of 16 and 32, it is a direct color value with 5 or 8 bits per color component." "Transparency: The pixel value zero is reserved for transparent. For depths greater than 8, black maps to the darkest possible blue." | val | d > 8 "most common case" ifTrue: [d = 32 ifTrue: [ "eight bits per component; top 8 bits set to all ones (opaque alpha)" + ^rgb = 0 ifTrue: [16rFF000001] ifFalse: [rgb bitOr: 16rFF000000]]. - val := (LargePositiveInteger new: 4) - at: 4 put: 16rFF; - at: 3 put: ((rgb bitShift: -22) bitAnd: 16rFF); - at: 2 put: ((rgb bitShift: -12) bitAnd: 16rFF); - at: 1 put: ((rgb bitShift: -2) bitAnd: 16rFF); - normalize. "normalize is not necessary as long as SmallInteger maxVal highBit < 32, but let's be future proof" - ^val < 16rFF000001 ifTrue: [16rFF000001] ifFalse: [val]]. d = 16 ifTrue: [ "five bits per component; top bits ignored" + val := (((rgb bitShift: -9) bitAnd: 16r7C00) bitOr: + ((rgb bitShift: -6) bitAnd: 16r03E0)) bitOr: + ((rgb bitShift: -3) bitAnd: 16r001F). - val := (((rgb bitShift: -15) bitAnd: 16r7C00) bitOr: - ((rgb bitShift: -10) bitAnd: 16r03E0)) bitOr: - ((rgb bitShift: -5) bitAnd: 16r001F). ^val < 1 ifTrue: [1] ifFalse: [val]]. d = 12 ifTrue: [ "for indexing a color map with 4 bits per color component" + val := (((rgb bitShift: -12) bitAnd: 16r0F00) bitOr: + ((rgb bitShift: -8) bitAnd: 16r00F0)) bitOr: + ((rgb bitShift: -4) bitAnd: 16r000F). - val := (((rgb bitShift: -18) bitAnd: 16r0F00) bitOr: - ((rgb bitShift: -12) bitAnd: 16r00F0)) bitOr: - ((rgb bitShift: -6) bitAnd: 16r000F). ^val < 1 ifTrue: [1] ifFalse: [val]]. d = 9 ifTrue: [ "for indexing a color map with 3 bits per color component" + val := (((rgb bitShift: -15) bitAnd: 16r01C0) bitOr: + ((rgb bitShift: -10) bitAnd: 16r0038)) bitOr: + ((rgb bitShift: -5) bitAnd: 16r0007). - val := (((rgb bitShift: -21) bitAnd: 16r01C0) bitOr: - ((rgb bitShift: -14) bitAnd: 16r0038)) bitOr: - ((rgb bitShift: -7) bitAnd: 16r0007). ^val < 1 ifTrue: [1] ifFalse: [val]]]. d = 8 ifTrue: [^ self closestPixelValue8]. d = 4 ifTrue: [^ self closestPixelValue4]. d = 2 ifTrue: [^ self closestPixelValue2].. d = 1 ifTrue: [^ self closestPixelValue1]. self error: 'unknown pixel depth: ', d printString ! Item was added: + (PackageInfo named: 'Graphics') postscript: '"The cache might hold incorrect values during 10->8 bits per component transition" + Color allSubInstancesDo: [:c | c flushCache].'!

1 0

The Inbox: Tests-cwp.281.mcz
by commits＠source.squeak.org 01 Jan '14

01 Jan '14

A new version of Tests was added to project The Inbox: http://source.squeak.org/inbox/Tests-cwp.281.mcz ==================== Summary ==================== Name: Tests-cwp.281 Author: cwp Time: 1 January 2014, 1:21:21.324 pm UUID: bd0290d9-b157-4355-8e18-8dd4f4705e23 Ancestors: Tests-fbs.280, Tests-cwp.280 merge =============== Diff against Tests-fbs.280 =============== Item was added: + ----- Method: AliasTest>>testSource (in category 'tests') ----- + testSource + | alias source | + source := #Griffle => value. + alias := source asBinding: #Plonk. + self assert: alias source == source! Item was changed: TestCase subclass: #BindingPolicyTest + instanceVariableNames: 'environment policy value notified notifiedBinding' - instanceVariableNames: 'namespace policy value' classVariableNames: '' poolDictionaries: '' category: 'Tests-Environments'! Item was removed: - ----- Method: BindingPolicyTest class>>isAbstract (in category 'as yet unclassified') ----- - isAbstract - ^ self name = #BindingPolicyTest! Item was added: + ----- Method: BindingPolicyTest>>addBinding: (in category 'emulating') ----- + addBinding: aBinding + notified := #add. + notifiedBinding := aBinding! Item was added: + ----- Method: BindingPolicyTest>>bindingPolicyWithNamePolicy: (in category 'tests') ----- + bindingPolicyWithNamePolicy: aPolicy + ^ BindingPolicy + environment: environment + policy: aPolicy + addSelector: #addBinding: + removeSelector: #removeBinding:! Item was added: + ----- Method: BindingPolicyTest>>removeBinding: (in category 'emulating') ----- + removeBinding: aBinding + notified := #remove. + notifiedBinding := aBinding! Item was changed: ----- Method: BindingPolicyTest>>setUp (in category 'running') ----- setUp + environment := Environment withName: #test. - namespace := IdentityDictionary new. value := Object new! Item was added: + ----- Method: BindingPolicyTest>>tearDown (in category 'running') ----- + tearDown + environment destroy. + environment := nil. + value := nil.! Item was added: + ----- Method: BindingPolicyTest>>testAddHonorsEnvironment (in category 'tests') ----- + testAddHonorsEnvironment + | binding other | + other := Environment withName: #other. + policy := self bindingPolicyWithNamePolicy: AllNamePolicy new. + binding := #Griffle => value. + policy binding: binding addedTo: other notify: self. + self assert: notified = nil! Item was added: + ----- Method: BindingPolicyTest>>testAddHonorsName (in category 'tests') ----- + testAddHonorsName + | binding | + policy := self bindingPolicyWithNamePolicy: (ExplicitNamePolicy spec: #Griffle -> #Nurp). + binding := #Griffle => value. + policy binding: binding addedTo: environment notify: self. + self assert: notified == #add! Item was added: + ----- Method: BindingPolicyTest>>testAddHonorsPolicy (in category 'tests') ----- + testAddHonorsPolicy + | binding | + policy := self bindingPolicyWithNamePolicy: (ExplicitNamePolicy spec: #Nurp). + binding := #Griffle => value. + policy binding: binding addedTo: environment notify: self. + self assert: notified = nil! Item was added: + ----- Method: BindingPolicyTest>>testAdded (in category 'tests') ----- + testAdded + | binding | + policy := self bindingPolicyWithNamePolicy: AllNamePolicy new. + binding := #Griffle => value. + policy binding: binding addedTo: environment notify: self. + self assert: notified = #add.! Item was added: + ----- Method: BindingPolicyTest>>testRemoveHonorsEnvironment (in category 'tests') ----- + testRemoveHonorsEnvironment + | binding other | + other := Environment withName: #other. + policy := self bindingPolicyWithNamePolicy: AllNamePolicy new. + binding := #Griffle => value. + policy binding: binding removedFrom: other notify: self. + self assert: notified = nil! Item was added: + ----- Method: BindingPolicyTest>>testRemoveHonorsName (in category 'tests') ----- + testRemoveHonorsName + | binding | + policy := self bindingPolicyWithNamePolicy: (ExplicitNamePolicy spec: #Griffle -> #Nurp). + binding := #Griffle => value. + policy binding: binding removedFrom: environment notify: self. + self assert: notified = #remove. + self assert: notifiedBinding key = #Nurp. + self assert: notifiedBinding source == binding! Item was added: + ----- Method: BindingPolicyTest>>testRemoveHonorsPolicy (in category 'tests') ----- + testRemoveHonorsPolicy + | binding | + policy := self bindingPolicyWithNamePolicy: (ExplicitNamePolicy spec: #Nurp). + binding := #Griffle => value. + policy binding: binding removedFrom: environment notify: self. + self assert: notified = nil! Item was added: + ----- Method: BindingPolicyTest>>testRemoved (in category 'tests') ----- + testRemoved + | binding | + policy := self bindingPolicyWithNamePolicy: AllNamePolicy new. + binding := #Griffle => value. + policy binding: binding removedFrom: environment notify: self. + self assert: notified = #remove! Item was added: + ----- Method: ClassBindingTest>>testSource (in category 'as yet unclassified') ----- + testSource + | binding | + binding := ClassBinding key: #Griffle value: value. + self assert: binding source == binding! Item was changed: + ----- Method: EnvironmentTest>>assertExports:value: (in category 'asserting') ----- - ----- Method: EnvironmentTest>>assertExports:value: (in category 'export tests') ----- assertExports: aSymbol value: v2 + | other | + other := Environment withName: #other. + other import: env. + self assert: (other bindingOf: aSymbol) value = v2! - self assert: (env public includesKey: aSymbol). - self assert: (env public at: aSymbol) == v2! Item was added: + ----- Method: EnvironmentTest>>denyExports: (in category 'asserting') ----- + denyExports: aSymbol + | other | + other := Environment withName: #other. + other import: env. + self assert: (other bindingOf: aSymbol) isNil! Item was changed: ----- Method: EnvironmentTest>>tearDown (in category 'running') ----- tearDown + env destroy. + env := nil! - env destroy! Item was changed: ----- Method: EnvironmentTest>>testAtPutDeclared (in category 'compatibility tests') ----- testAtPutDeclared | binding | + env importSelf. + env bind: #Griffle to: Object new. - env at: #Griffle put: Object new. binding := env bindingOf: #Griffle. env at: #Griffle put: value. self assert: binding value == value! Item was added: + ----- Method: EnvironmentTest>>testDeclaredBecomeClassBinding (in category 'compatibility tests') ----- + testDeclaredBecomeClassBinding + | binding class | + class := Behavior new. + binding := env + bind: #Griffle to: value; + declarationOf: #Griffle. + env at: #Griffle put: class. + self assert: (binding class == ClassBinding). + self assert: binding value == class.! Item was added: + ----- Method: EnvironmentTest>>testDeclaredBecomeGlobal (in category 'compatibility tests') ----- + testDeclaredBecomeGlobal + | binding class | + class := Behavior new. + binding := env + bind: #Griffle to: class; + declarationOf: #Griffle. + env at: #Griffle put: value. + self assert: (binding class == Global). + self assert: binding value == value.! Item was changed: ----- Method: EnvironmentTest>>testExclusiveExplicitExport (in category 'export tests') ----- testExclusiveExplicitExport env export: #Plonk. env at: #Griffle put: Object new. + self denyExports: #Griffle! - self assert: env public isEmpty! Item was changed: ----- Method: EnvironmentTest>>testExclusiveMultiExplicitExport (in category 'export tests') ----- testExclusiveMultiExplicitExport env export: #(Plonk #Griffle). env at: #Nurp put: Object new. + self denyExports: #Nurp! - self assert: env public isEmpty! Item was changed: ----- Method: EnvironmentTest>>testExplicitExport (in category 'export tests') ----- testExplicitExport env export: #Griffle. + env bind: #Griffle to: value. - env at: #Griffle put: value. self assertExports: #Griffle value: value! Item was changed: ----- Method: EnvironmentTest>>testImportAddingPrefixResolvesUndeclared (in category 'import tests') ----- testImportAddingPrefixResolvesUndeclared | binding foreign | foreign := Environment withName: #Foreign. foreign exportSelf. + foreign bind: #Griffle to: value. + binding := env undeclare: #XXGriffle. - foreign at: #Griffle put: value. - env undeclared at: #XXGriffle put: nil. - binding := env undeclared associationAt: #XXGriffle. env import: foreign addingPrefix: 'XX'. self assert: (env bindingOf: #XXGriffle) == binding. self assert: (env valueOf: #XXGriffle) == value! Item was changed: ----- Method: EnvironmentTest>>testImportAlias (in category 'import tests') ----- testImportAlias | foreign binding | foreign := Environment withName: #Foreign. foreign exportSelf. + foreign bind: #Griffle to: value. + env from: foreign import: #Griffle -> #Plonk. - foreign at: #Griffle put: value. - env from: foreign import: #Plonk -> #Griffle. binding := env bindingOf: #Plonk. self assert: binding key = #Plonk. self assert: binding value == value! Item was changed: ----- Method: EnvironmentTest>>testImportAliases (in category 'import tests') ----- testImportAliases | foreign v2 v3 | foreign := Environment withName: #Foreign. foreign exportSelf. foreign at: #Griffle put: value. foreign at: #Nurp put: (v2 := Object new). foreign at: #Ziffy put: (v3 := Object new). + env from: foreign import: {#Nurp -> #Plonk. #Ziffy -> #Wiffy}. - env from: foreign import: {#Plonk -> #Nurp. #Wiffy -> #Ziffy}. self assert: (env bindingOf: #Griffle) isNil. self assert: (env bindingOf: #Plonk) value == v2. self assert: (env bindingOf: #Wiffy) value == v3! Item was changed: ----- Method: EnvironmentTest>>testImportRemovingPrefixResolvesUndeclared (in category 'import tests') ----- testImportRemovingPrefixResolvesUndeclared | binding foreign | foreign := Environment withName: #Foreign. foreign exportSelf. foreign at: #XXGriffle put: value. + binding := env undeclare: #Griffle. - env undeclared at: #Griffle put: nil. - binding := env undeclared associationAt: #Griffle. env import: foreign removingPrefix: 'XX'. self assert: (env bindingOf: #Griffle) == binding. self assert: (env valueOf: #Griffle) == value! Item was changed: ----- Method: EnvironmentTest>>testImportResolvesUndeclared (in category 'import tests') ----- testImportResolvesUndeclared | binding foreign | foreign := Environment withName: #Foreign. foreign exportSelf. foreign at: #Griffle put: value. + binding := env undeclare: #Griffle. - env undeclared at: #Griffle put: nil. - binding := env undeclared associationAt: #Griffle. env import: foreign. self assert: (env bindingOf: #Griffle) == binding. self assert: (env valueOf: #Griffle) == value! Item was changed: ----- Method: EnvironmentTest>>testImportWritable (in category 'import tests') ----- testImportWritable | foreign binding | foreign := Environment withName: #Foreign. foreign exportSelf. + foreign bind: #Griffle to: 'v1'. + env from: foreign import: #Griffle -> #Plonk. - foreign at: #Griffle put: 'v1'. - env from: foreign import: #Plonk -> #Griffle. binding := env bindingOf: #Plonk. binding value: 'v2'. + self assert: (foreign declarationOf: #Griffle) value = 'v2' ! - self assert: (foreign bindingOf: #Griffle) value == 'v2' ! Item was changed: ----- Method: EnvironmentTest>>testInternalVisibility (in category 'compiling tests') ----- testInternalVisibility | griffle plonk | + env importSelf. self createClass: #Griffle. self createClass: #Plonk. griffle := env at: #Griffle. griffle compile: 'plonk ^ Plonk'. plonk := griffle new plonk. self assert: (env at: #Plonk) == plonk! Item was changed: ----- Method: EnvironmentTest>>testReadOnlyBindings (in category 'binding tests') ----- testReadOnlyBindings | binding class | class := Behavior new. + env importSelf. + env bind: #Griffle to: class. - env at: #Griffle put: class. binding := env bindingOf: #Griffle. self should: [binding value: nil] raise: AttemptToWriteReadOnlyGlobal! Item was changed: ----- Method: EnvironmentTest>>testRequireExplicitExports (in category 'export tests') ----- testRequireExplicitExports + env bind: #Griffle to: Object new. + self denyExports: #Griffle.! - env at: #Griffle put: Object new. - self assert: env public isEmpty! Item was changed: ----- Method: EnvironmentTest>>testStoreDomesticValue (in category 'compiling tests') ----- testStoreDomesticValue | griffle values | + env importSelf. self createClass: #Griffle. + env bind: #Plonk to: value. - env at: #Plonk put: 'v1'. griffle := env at: #Griffle. griffle compile: self storeValueMethod. values := griffle new doStore. self assert: values isArray. self assert: values size = 2. self assert: values first == values last. + self assert: (env valueOf: #Plonk) == values first! - self assert: (env at: #Plonk) == values first! Item was added: + ----- Method: EnvironmentTest>>testUndeclare (in category 'binding tests') ----- + testUndeclare + | one two | + one := env undeclare: #Griffle. + two := env bindingOf: #Griffle. + self assert: one == two. + self assert: one class == Global! Item was added: + ----- Method: EnvironmentTest>>testUndeclaredBecomeClassBinding (in category 'compatibility tests') ----- + testUndeclaredBecomeClassBinding + | binding class | + class := Behavior new. + binding := env undeclared + add: (#Griffle => nil); + associationAt: #Griffle. + env at: #Griffle put: class. + self assert: (binding class == ClassBinding). + self assert: binding value == class.! Item was added: + ----- Method: EnvironmentTest>>testUndeclaredBecomesGlobal (in category 'compatibility tests') ----- + testUndeclaredBecomesGlobal + | binding class | + class := Behavior new. + binding := env undeclared + add: (#Griffle => class); + associationAt: #Griffle. + env bind: #Griffle to: value. + self assert: (binding class == Global). + self assert: binding value == value.! Item was changed: ----- Method: EnvironmentTest>>testWriteAndLookup (in category 'binding tests') ----- testWriteAndLookup | assoc | + env importSelf. env at: #Griffle put: value. assoc := env bindingOf: #Griffle. self assert: assoc key == #Griffle. self assert: assoc value == value. ! Item was removed: - BindingPolicyTest subclass: #ExportTest - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Tests-Environments'! Item was removed: - ----- Method: ExportTest>>policyClass (in category 'running') ----- - policyClass - ^ Export! Item was removed: - ----- Method: ExportTest>>testExportAll (in category 'tests') ----- - testExportAll - policy := Export namespace: namespace. - policy bind: #Griffle to: value. - self assert: (namespace at: #Griffle) == value! Item was removed: - ----- Method: ExportTest>>testExported (in category 'tests') ----- - testExported - policy := Export namespace: namespace policy: (ExplicitNamePolicy spec: #(Griffle)). - policy bind: #Griffle to: value. - self assert: (namespace at: #Griffle) == value! Item was removed: - ----- Method: ExportTest>>testNotExported (in category 'tests') ----- - testNotExported - policy := Export namespace: namespace policy: (ExplicitNamePolicy spec: #Nurp). - policy bind: #Griffle to: value. - self assert: namespace isEmpty! Item was removed: - ----- Method: ExportTest>>testStackedExports (in category 'tests') ----- - testStackedExports - | griffle plonk | - griffle := Export - namespace: namespace - policy: (ExplicitNamePolicy spec: #Griffle). - plonk := Export - namespace: namespace - policy: (ExplicitNamePolicy spec: #Plonk) - next: griffle. - plonk bind: #Griffle to: value. - self assert: (namespace at: #Griffle) == value! Item was added: + ----- Method: GlobalTest>>testSource (in category 'tests') ----- + testSource + | global | + global := Global key: #Griffle value: Object new. + self assert: global source == global! Item was removed: - BindingPolicyTest subclass: #ImportTest - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Tests-Environments'! Item was removed: - ----- Method: ImportTest>>policyClass (in category 'running') ----- - policyClass - ^ Import! Item was removed: - ----- Method: ImportTest>>testImportAll (in category 'tests') ----- - testImportAll - | binding | - policy := Import namespace: namespace. - namespace at: #Griffle put: value. - binding := policy bindingOf: #Griffle. - self assert: binding value == value! Item was removed: - ----- Method: ImportTest>>testImported (in category 'tests') ----- - testImported - | binding | - policy := Import namespace: namespace policy: (ExplicitNamePolicy spec: #Griffle). - namespace at: #Griffle put: value. - binding := policy bindingOf: #Griffle. - self assert: binding value == value.! Item was removed: - ----- Method: ImportTest>>testNotImported (in category 'tests') ----- - testNotImported - | binding | - policy := Import namespace: namespace policy: (ExplicitNamePolicy spec: #Nurp). - namespace at: #Griffle put: value. - binding := policy bindingOf: #Griffle. - self assert: binding value isNil! Item was removed: - ----- Method: ImportTest>>testStackedImports (in category 'tests') ----- - testStackedImports - | griffle plonk binding | - griffle := Import - namespace: namespace - policy: (ExplicitNamePolicy spec: #Griffle). - plonk := Import - namespace: namespace - policy: (ExplicitNamePolicy spec: #Plonk) - next: griffle. - namespace at: #Griffle put: value. - binding := plonk bindingOf: #Griffle. - self assert: binding value == value.! Item was changed: + ----- Method: MCClassDefinitionTest>>classAComment (in category 'as yet unclassified') ----- - ----- Method: MCClassDefinitionTest>>classAComment (in category 'data') ----- classAComment ^ self class classAComment! Item was changed: + ----- Method: MCClassDefinitionTest>>creationMessage (in category 'as yet unclassified') ----- - ----- Method: MCClassDefinitionTest>>creationMessage (in category 'data') ----- creationMessage ^ MessageSend receiver: MCClassDefinition selector: #name:superclassName:category:instVarNames:classVarNames:poolDictionaryNames:classInstVarNames:type:comment:commentStamp:! Item was changed: + ----- Method: MCClassDefinitionTest>>tearDown (in category 'as yet unclassified') ----- - ----- Method: MCClassDefinitionTest>>tearDown (in category 'running') ----- tearDown super tearDown. Smalltalk at: 'MCMockClassC' ifPresent: [:c | c removeFromSystem]! Item was changed: + ----- Method: MCClassDefinitionTest>>testCannotLoad (in category 'as yet unclassified') ----- - ----- Method: MCClassDefinitionTest>>testCannotLoad (in category 'tests - loading') ----- testCannotLoad | d | + d := self mockClass: 'MCMockClassC' super: 'NotAnObject'. - [d := self mockClass: 'MCMockClassC' super: 'NotAnObject'. self should: [d load] raise: Error. + self deny: (Smalltalk hasClassNamed: 'MCMockClassC').! - self deny: (environment hasClassNamed: 'MCMockClassC')] - on: EnvironmentRequest do: [:e | e resume: environment].! Item was changed: + ----- Method: MCClassDefinitionTest>>testComparison (in category 'as yet unclassified') ----- - ----- Method: MCClassDefinitionTest>>testComparison (in category 'tests - equality') ----- testComparison | d1 d2 d3 d4 | d1 := self mockClass: 'A' super: 'X'. d2 := self mockClass: 'A' super: 'Y'. d3 := self mockClass: 'B' super: 'X'. d4 := self mockClass: 'B' super: 'X'. self assert: (d1 isRevisionOf: d2). self deny: (d1 isSameRevisionAs: d2). self assert: (d3 isRevisionOf: d4). self assert: (d3 isSameRevisionAs: d4). self deny: (d1 isRevisionOf: d3). self deny: (d4 isRevisionOf: d2).! Item was changed: + ----- Method: MCClassDefinitionTest>>testCreation (in category 'as yet unclassified') ----- - ----- Method: MCClassDefinitionTest>>testCreation (in category 'tests - creating') ----- testCreation | d | d := self mockClassA asClassDefinition. self assert: d className = #MCMockClassA. self assert: d superclassName = #MCMock. self assert: d type = #normal. self assert: d category = self mockCategoryName. self assert: d instVarNames asArray = #('ivar'). self assert: d classVarNames asArray = #('CVar'). self assert: d classInstVarNames asArray = #(). self assert: d comment isString. self assert: d comment = self classAComment. self assert: d commentStamp = self mockClassA organization commentStamp! Item was changed: + ----- Method: MCClassDefinitionTest>>testDefinitionString (in category 'as yet unclassified') ----- - ----- Method: MCClassDefinitionTest>>testDefinitionString (in category 'tests - creating') ----- testDefinitionString | d | d := self mockClassA asClassDefinition. self assert: d definitionString = self mockClassA definition.! Item was changed: + ----- Method: MCClassDefinitionTest>>testEquals (in category 'as yet unclassified') ----- - ----- Method: MCClassDefinitionTest>>testEquals (in category 'tests - equality') ----- testEquals | a b | a := self mockClass: 'ClassA' super: 'SuperA'. b := self mockClass: 'ClassA' super: 'SuperA'. self assert: a = b! Item was changed: + ----- Method: MCClassDefinitionTest>>testEqualsSensitivity (in category 'as yet unclassified') ----- - ----- Method: MCClassDefinitionTest>>testEqualsSensitivity (in category 'tests - equality') ----- testEqualsSensitivity | message a b defA args defB | message := self creationMessage. a := #(ClassA SuperA CategoryA #(iVarA) #(CVarA) #(PoolA) #(ciVarA) typeA 'A comment' 'A'). b := #(ClassB SuperB CategoryB #(iVarB) #(CVarB) #(PoolB) #(ciVarB) typeB 'B comment' 'B'). defA := message valueWithArguments: a. 1 to: 8 do: [:index | args := a copy. args at: index put: (b at: index). defB := message valueWithArguments: args. self deny: defA = defB.]! Item was changed: + ----- Method: MCClassDefinitionTest>>testKindOfSubclass (in category 'as yet unclassified') ----- - ----- Method: MCClassDefinitionTest>>testKindOfSubclass (in category 'tests - creating') ----- testKindOfSubclass | classes | classes := {self mockClassA. String. MethodContext. WeakArray. Float}. classes do: [:c | | d | d := c asClassDefinition. self assert: d kindOfSubclass = c kindOfSubclass. ].! Item was changed: + ----- Method: MCClassDefinitionTest>>testLoadAndUnload (in category 'as yet unclassified') ----- - ----- Method: MCClassDefinitionTest>>testLoadAndUnload (in category 'tests - loading') ----- testLoadAndUnload | d c | + d := self mockClass: 'MCMockClassC' super: 'Object'. - [d := self mockClass: 'MCMockClassC' super: 'Object'. d load. + self assert: (Smalltalk hasClassNamed: 'MCMockClassC'). + c := (Smalltalk classNamed: 'MCMockClassC'). + self assert: (c isKindOf: Class). + self assert: c superclass = Object. + self assert: c instVarNames isEmpty. + self assert: c classVarNames isEmpty. + self assert: c sharedPools isEmpty. + self assert: c category = self mockCategoryName. + self assert: c organization classComment = (self commentForClass: 'MCMockClassC'). + self assert: c organization commentStamp = (self commentStampForClass: 'MCMockClassC'). - self assert: (environment hasClassNamed: 'MCMockClassC') description: 'Class not loaded'. - c := (environment classNamed: 'MCMockClassC'). - self assert: (c isKindOf: Class) description: 'Not a Class'. - self assert: Object equals: c superclass description: 'Superclass'. - self assert: c instVarNames isEmpty description: 'Unexpected inst vars'. - self assert: c classVarNames isEmpty description: 'Unexpected class vars'. - self assert: c sharedPools isEmpty description: 'Unexpected shared pools'. - self assert: self mockCategoryName equals: c category description: 'Category'. - self assert: (self commentForClass: 'MCMockClassC') equals: c organization classComment asString description: 'Class comment'. - self assert: (self commentStampForClass: 'MCMockClassC') equals: c organization commentStamp description: 'Comment stamp'. d unload. + self deny: (Smalltalk hasClassNamed: 'MCMockClassC').! - self deny: (environment hasClassNamed: 'MCMockClassC')] - on: EnvironmentRequest do: [:e | e resume: environment]! Item was changed: MCTestCase subclass: #MCEnvironmentLoadTest + instanceVariableNames: 'environment' - instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Tests-Monticello'! !MCEnvironmentLoadTest commentStamp: 'fbs 5/8/2013 20:46' prior: 0! I demonstrate that you can load MC snapshots into an environment.! Item was added: + ----- Method: MCEnvironmentLoadTest>>setUp (in category 'as yet unclassified') ----- + setUp + environment := Environment named: 'MCEnvironmentLoadTest'.! Item was changed: ----- Method: MCMethodDefinitionTest>>setUp (in category 'running') ----- setUp + - super setUp. navigation := (Smalltalk hasClassNamed: #SystemNavigation) ifTrue: [(Smalltalk at: #SystemNavigation) new] ifFalse: [Smalltalk]. isModified := self ownPackage modified. overrideTimestamp := (self class >> #override) timeStamp! Item was changed: ----- Method: MCMethodDefinitionTest>>testCannotLoad (in category 'testing') ----- testCannotLoad | definition | definition := self mockMethod: #kjahs87 class: 'NoSuchClass' source: 'kjahs87 ^self' meta: false. + self should: [definition load] raise: Error. + self assert: (navigation allImplementorsOf: #kjahs87) isEmpty! - self - should: [[definition load] on: EnvironmentRequest do: [:e | e resume: environment]] - raise: Error. - self assert: (navigation allImplementorsOf: #kjahs87) isEmpty.! Item was changed: ----- Method: MCMethodDefinitionTest>>testLoadAndUnload (in category 'testing') ----- testLoadAndUnload |definition| + definition := self mockMethod: #one class: 'MCMockClassA' source: 'one ^2' meta: false. - [definition := self mockMethod: #one class: 'MCMockClassA' source: 'one ^2' meta: false. self assert: self mockInstanceA one = 1. definition load. self assert: self mockInstanceA one = 2. definition unload. + self deny: (self mockInstanceA respondsTo: #one)! - self deny: (self mockInstanceA respondsTo: #one)] - on: EnvironmentRequest do: [:e | e resume: environment].! Item was changed: TestCase subclass: #MCTestCase + instanceVariableNames: '' - instanceVariableNames: 'environment' classVariableNames: '' poolDictionaries: '' category: 'Tests-Monticello'! Item was changed: ----- Method: MCTestCase>>mockClassA (in category 'mocks') ----- mockClassA + ^ Smalltalk at: #MCMockClassA! - "#classNamed: doesn't return a class that's only referenced, only a class that's declared." - ^ (environment bindingOf: #MCMockClassA) value! Item was changed: ----- Method: MCTestCase>>mockClassB (in category 'mocks') ----- mockClassB + ^ Smalltalk at: #MCMockClassB! - "#classNamed: doesn't return a class that's only referenced, only a class that's declared." - ^ (environment bindingOf: #MCMockClassB) value.! Item was removed: - ----- Method: MCTestCase>>setUp (in category 'running') ----- - setUp - environment := Environment withName: ('{1} test environment' format: {self className}). - environment import: Smalltalk globals.! Item was changed: ----- Method: PackageDependencyTest>>testCollections (in category 'tests') ----- testCollections self testPackage: 'Collections' dependsExactlyOn: #( Compiler Kernel Files Graphics Multilingual System 'ToolBuilder-Kernel' + Tools ).!

1 0

The Inbox: Environments-cwp.43.mcz
by commits＠source.squeak.org 01 Jan '14

01 Jan '14

A new version of Environments was added to project The Inbox: http://source.squeak.org/inbox/Environments-cwp.43.mcz ==================== Summary ==================== Name: Environments-cwp.43 Author: cwp Time: 1 January 2014, 1:27:27.436 pm UUID: 3ccd33e2-0400-405d-b213-fc170cf0a3e6 Ancestors: Environments-cwp.42 Rewrite import/export to be eager, rather than lazy. (step 1 of 3) =============== Diff against Environments-cwp.42 =============== Item was removed: - ----- Method: BindingPolicy class>>namespace: (in category 'create') ----- - namespace: aDictionary - ^ self namespace: aDictionary next: nil! Item was removed: - ----- Method: BindingPolicy class>>namespace:next: (in category 'create') ----- - namespace: aDictionary next: anImport - ^ self - namespace: aDictionary - policy: AllNamePolicy new - next: anImport! Item was removed: - ----- Method: BindingPolicy class>>namespace:policy: (in category 'create') ----- - namespace: aDictionary policy: aNamePolicy - ^ self - namespace: aDictionary - policy: aNamePolicy - next: nil! Item was removed: - ----- Method: BindingPolicy class>>namespace:policy:next: (in category 'create') ----- - namespace: aDictionary policy: aNamePolicy next: anImport - ^ self new - initializeWithNamespace: aDictionary - policy: aNamePolicy - next: anImport! Item was removed: - ----- Method: BindingPolicy class>>null (in category 'create') ----- - null - ^ self namespace: IdentityDictionary new! Item was removed: - ----- Method: BindingPolicy>>forgetName: (in category 'private') ----- - forgetName: aSymbol - self name: aSymbol do: [:foreign | - namespace removeKey: foreign ifAbsent: [ - next ifNotNil: [next forgetName: aSymbol]]].! Item was removed: - ----- Method: BindingPolicy>>initializeWithNamespace:policy:next: (in category 'initialize-release') ----- - initializeWithNamespace: aDictionary policy: aNamePolicy next: anImport - namespace := aDictionary. - policy := aNamePolicy. - next := anImport! Item was changed: Object subclass: #Environment + instanceVariableNames: 'info declarations bindings undeclared policies observers' - instanceVariableNames: 'info imports exports declarations references public undeclared bindings policies observers' classVariableNames: 'Default Instances' poolDictionaries: '' category: 'Environments-Core'! !Environment commentStamp: 'cmm 12/20/2013 14:10' prior: 0! I am a context for compiling methods. I maintain the namespace of classes and global variables that are visible to the methods compiled within me. I have the following instance variables: info <EnvironmentInfo> Metadata about me and the code I contain. imports <Import> Rules for importing globals from other environments. exports <Export> Rules for exposing globals to other environments. declarations <IdentityDictionary> Bindings for globals that have been declared inside me. references <IdentityDictionary> Bindings for globals that are used by methods compiled inside me. public <IdentityDictionary> Bindings for classes that have been declared inside me, and which satisfy the export rules contain in 'exports'. undeclared <Dictionary> Bindings for globals that are used by methods compiled inside me, but which aren't present in 'references' and couldn't be found via the rules in 'imports'.! Item was removed: - ----- Method: Environment>>migrate (in category 'initialize-release') ----- - migrate - | newDeclarations source dest index policy | - bindings := IdentityDictionary new. - newDeclarations := IdentityDictionary new. - source := Array new: declarations size. - dest := Array new: declarations size. - index := 1. - declarations associationsDo: - [:ea || binding | - binding := ea key => ea value. - source at: index put: ea. - dest at: index put: binding. - newDeclarations add: binding. - bindings add: binding. - index := index + 1]. - declarations := newDeclarations. - source elementsForwardIdentityTo: dest. - - policy := BindingPolicy - environment: self - policy: AllNamePolicy new - addSelector: #showBinding: - removeSelector: #hideBinding:. - policies := Array with: policy. - - observers := IdentitySet new.. - ! Item was removed: - ----- Method: Environment>>public (in category 'accessing') ----- - public - ^ public! Item was removed: - ----- Method: Environment>>publicizeContents (in category 'private') ----- - publicizeContents - declarations associationsDo: [:binding | exports bind: binding]. - ! Item was removed: - ----- Method: Environment>>rebindUndeclared (in category 'private') ----- - rebindUndeclared - undeclared keys do: - [:name | - (imports valueOf: name) ifNotNil: - [:v | - references declare: name from: undeclared. - references at: name put: v]]! Item was removed: - BindingPolicy subclass: #Export - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Environments-Policies'! Item was removed: - ----- Method: Export>>bind: (in category 'binding') ----- - bind: aBinding - - self name: aBinding key do: - [:foreign | ^ namespace add: (aBinding asBinding: foreign)]. - ^ next ifNotNil: [next bind: aBinding]! Item was removed: - ----- Method: Export>>bind:to: (in category 'binding') ----- - bind: aSymbol to: anObject - ^ self bind: aSymbol -> anObject! Item was removed: - BindingPolicy subclass: #Import - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Environments-Policies'! Item was removed: - ----- Method: Import>>bindingOf: (in category 'binding') ----- - bindingOf: aSymbol - self name: aSymbol do: - [:foreign | - ^ namespace - associationAt: foreign - ifAbsent: [next ifNotNil: [next bindingOf: aSymbol]]]. - ^ next ifNotNil: [next bindingOf: aSymbol]! Item was removed: - ----- Method: Import>>valueOf: (in category 'binding') ----- - valueOf: aSymbol - ^ (self bindingOf: aSymbol) value! Item was added: + (PackageInfo named: 'Environments') postscript: '"Recompile all methods to fix errant bindings" + Compiler recompileAll. + '!

1 0

The Inbox: ShoutCore-cwp.40.mcz
by commits＠source.squeak.org 01 Jan '14

01 Jan '14

A new version of ShoutCore was added to project The Inbox: http://source.squeak.org/inbox/ShoutCore-cwp.40.mcz ==================== Summary ==================== Name: ShoutCore-cwp.40 Author: cwp Time: 1 January 2014, 1:11:46.449 pm UUID: 81b3e230-2e8a-42c5-9521-e54338fadb6f Ancestors: ShoutCore-fbs.39 Rewrite environment import/export to be eager, rather than lazy. (step 2 of 3) =============== Diff against ShoutCore-fbs.39 =============== Item was changed: ----- Method: Environment>>hasBindingThatBeginsWith: (in category '*ShoutCore') ----- hasBindingThatBeginsWith: aString + bindings associationsDo: - references associationsDo: [:ea | (ea key beginsWith: aString) ifTrue: [^ true]]. ^ false !

1 0

Jump to page: