Packages September 2013

packages@lists.squeakfoundation.org

1 participants
423 discussions

The Trunk: EToys-nice.106.mcz
by commits＠source.squeak.org 04 Sep '13

04 Sep '13

Nicolas Cellier uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-nice.106.mcz ==================== Summary ==================== Name: EToys-nice.106 Author: nice Time: 4 September 2013, 10:02:11.591 pm UUID: 218304b1-6548-4190-bbaa-2e1dddcbc921 Ancestors: EToys-fbs.105 #= asSymbol sounds like superfluous #= isSymbol =============== Diff against EToys-fbs.105 =============== Item was changed: ----- Method: NumericReadoutTile class>>authoringPrototype (in category 'scripting') ----- authoringPrototype "Enclose my prototype in a SyntaxMorph." | aWatcher aTile aLine aColor ms slotMsg | aColor := Color r: 0.387 g: 0.581 b: 1.0. aTile := self new typeColor: aColor. aWatcher := UpdatingStringMorph new. aWatcher growable: true; setToAllowTextEdit; getSelector: nil; putSelector: nil. aWatcher target: nil. aTile addMorphBack: aWatcher. aTile addArrows. aTile setLiteralTo: 5 width: 30. "This is the long way around to do this..." ms := MessageSend receiver: nil selector: #aNumber arguments: #(). slotMsg := ms asTilesIn: Player globalNames: false. "For CardPlayers, use 'aPlayer'. For others, name it, and use its name." + ms := MessageSend receiver: 3 selector: #= arguments: #(5). - ms := MessageSend receiver: 3 selector: #= asSymbol arguments: #(5). aLine := ms asTilesIn: Player globalNames: false. aLine firstSubmorph delete. aLine addMorphFront: (slotMsg submorphs second) firstSubmorph. aLine firstSubmorph setNameTo: 'label'. aLine addMorphFront: (Morph new transparentSpacerOfSize: 3@3). aLine lastSubmorph delete. aLine lastSubmorph delete. aLine color: aColor; setNameTo: 'Number (fancy)'. aLine addMorphBack: (Morph new transparentSpacerOfSize: 3@3). aLine addMorphBack: aTile. aLine readOut setNameTo: 'value'. aLine cellPositioning: #leftCenter. aWatcher step; fitContents. ^ aLine markAsPartsDonor.! Item was changed: ----- Method: NumericReadoutTile>>initializeToStandAlone (in category 'parts bin') ----- initializeToStandAlone "Enclose my prototype in a SyntaxMorph. For the ObjectTool" | aWatcher aTile aLine aColor ms slotMsg | super initializeToStandAlone. aColor := Color r: 0.387 g: 0.581 b: 1.0. aTile := self typeColor: aColor. aWatcher := UpdatingStringMorph new. aWatcher growable: true; getSelector: nil; putSelector: nil; setToAllowTextEdit. aWatcher target: nil. aTile addMorphBack: aWatcher. aTile addArrows. aTile setLiteralTo: 5 width: 30. ms := MessageSend receiver: nil selector: #aNumber arguments: #(). slotMsg := ms asTilesIn: Player globalNames: false. "For CardPlayers, use 'aPlayer'. For others, name it, and use its name." + ms := MessageSend receiver: 3 selector: #= arguments: #(5). - ms := MessageSend receiver: 3 selector: #= asSymbol arguments: #(5). aLine := ms asTilesIn: Player globalNames: false. aLine firstSubmorph delete. "A little over-complicated? Yes?" aLine addMorphFront: (slotMsg submorphs second) firstSubmorph. aLine addMorphFront: (Morph new transparentSpacerOfSize: 3@3). aLine lastSubmorph delete. aLine lastSubmorph delete. aLine color: aColor. aLine addMorphBack: (Morph new transparentSpacerOfSize: 3@3). aLine addMorphBack: aTile. aLine cellPositioning: #leftCenter. aWatcher step; fitContents. ^ aLine markAsPartsDonor.!

1 0

The Trunk: EToys-nice.106.mcz
by commits＠source.squeak.org 04 Sep '13

04 Sep '13

1 0

The Trunk: EToys-nice.106.mcz
by commits＠source.squeak.org 04 Sep '13

04 Sep '13

1 0

The Trunk: Collections-ul.530.mcz
by commits＠source.squeak.org 04 Sep '13

04 Sep '13

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.530.mcz ==================== Summary ==================== Name: Collections-ul.530 Author: ul Time: 4 September 2013, 8:59:21.417 pm UUID: ea12e381-2990-4d8e-9efb-d034bc676f9f Ancestors: Collections-ul.529 Fixed/refactored #selectorsContaining:, #selectorsMatching: and #allSymbols in Symbol class. =============== Diff against Collections-ul.529 =============== Item was changed: ----- Method: Symbol class>>allSymbols (in category 'access') ----- allSymbols "Answer all interned symbols" + + ^Array + new: NewSymbols slowSize + SymbolTable slowSize + streamContents:[ :stream | + stream + nextPutAll: NewSymbols; + nextPutAll: SymbolTable ] - ^Array streamContents:[:s| - s nextPutAll: NewSymbols. - s nextPutAll: OneCharacterSymbols. - s nextPutAll: SymbolTable. - ]. ! Item was changed: ----- Method: Symbol class>>selectorsContaining: (in category 'access') ----- selectorsContaining: aString + "Answer a list of selectors that contain aString within them. Case-insensitive. Does return symbols that begin with a capital letter." - "Answer a list of selectors that contain aString within them. Case-insensitive. Does return symbols that begin with a capital letter." + | size selectorList | - | size selectorList ascii | - selectorList := OrderedCollection new. + (size := aString size) = 0 ifTrue: [ ^selectorList ]. + self allSymbolTablesDo: [ :each | + (each size >= size + and: [ (each includesSubstring: aString caseSensitive: false) + and: [ each numArgs ~= -1 ] ]) + ifTrue: [ selectorList add: each ] ]. + ^selectorList - (size := aString size) = 0 ifTrue: [^selectorList]. + "Symbol selectorsContaining: 'scon'"! - aString size = 1 ifTrue: - [ - ascii := aString first asciiValue. - ascii < 128 ifTrue: [selectorList add: (OneCharacterSymbols at: ascii+1)] - ]. - - (aString first isLetter or: [aString first isDigit]) ifFalse: - [ - aString size = 2 ifTrue: - [Symbol hasInterned: aString ifTrue: - [:s | selectorList add: s]]. - ^selectorList - ]. - - selectorList := selectorList copyFrom: 2 to: selectorList size. - - self allSymbolTablesDo: [:each | - each size >= size ifTrue: - [(each findSubstring: aString in: each startingAt: 1 - matchTable: CaseInsensitiveOrder) > 0 - ifTrue: [selectorList add: each]]]. - - ^selectorList reject: [:each | "reject non-selectors, but keep ones that begin with an uppercase" - each numArgs < 0 and: [each asString withFirstCharacterDownshifted numArgs < 0]]. - - "Symbol selectorsContaining: 'scon'"! Item was changed: ----- Method: Symbol class>>selectorsMatching: (in category 'access') ----- selectorsMatching: aStringPattern + "Answer a list of selectors that match aStringPattern within them. Case-insensitive. Does return symbols that begin with a capital letter." - "Answer a list of selectors that match aStringPattern within them. Case-insensitive. - Does return symbols that begin with a capital letter." | selectorList | - selectorList := OrderedCollection new. + aStringPattern isEmpty ifTrue: [ ^selectorList ]. + self allSymbolTablesDo: [ :each | + ((aStringPattern match: each) and: [ each numArgs ~= -1 ]) + ifTrue: [selectorList add: each ] ]. + ^selectorList - aStringPattern isEmpty ifTrue: [^selectorList]. - - self allSymbolTablesDo: - [:each | (aStringPattern match: each) ifTrue: [selectorList add: each]]. - - ^selectorList reject: "reject non-selectors, but keep ones that begin with an uppercase" - [:each | each numArgs < 0 and: [each asString withFirstCharacterDownshifted numArgs < 0]] - "Symbol selectorsMatching: 'parse:*'"! Item was changed: ----- Method: WeakSet>>do: (in category 'enumerating') ----- do: aBlock tally = 0 ifTrue: [ ^self ]. 1 to: array size do: [ :index | (array at: index) ifNotNil: [ :object | + object == flag ifFalse: [ - object == flag ifFalse: [ aBlock value: object enclosedSetElement] ] ]!

1 0

The Trunk: Collections-ul.530.mcz
by commits＠source.squeak.org 04 Sep '13

04 Sep '13

1 0

The Trunk: Collections-ul.530.mcz
by commits＠source.squeak.org 04 Sep '13

04 Sep '13

1 0

The Trunk: Graphics-ul.223.mcz
by commits＠source.squeak.org 04 Sep '13

04 Sep '13

Levente Uzonyi uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-ul.223.mcz ==================== Summary ==================== Name: Graphics-ul.223 Author: ul Time: 4 September 2013, 4:12:05.636 pm UUID: 3f84beb0-6682-4702-a518-f345121cd59e Ancestors: Graphics-tpr.222 - grow the write buffer if need in JPEGReadWriter2>>nextPutImage:quality:progressiveJPEG:, to ensure that the image will be written =============== Diff against Graphics-tpr.222 =============== Item was changed: ----- Method: JPEGReadWriter2>>nextPutImage:quality:progressiveJPEG: (in category 'public access') ----- nextPutImage: aForm quality: quality progressiveJPEG: progressiveFlag "Encode the given Form on my stream with the given settings. Quality goes from 0 (low) to 100 (high), where -1 means default. If progressiveFlag is true, encode as a progressive JPEG." | sourceForm jpegCompressStruct jpegErrorMgr2Struct buffer byteCount | aForm unhibernate. "odd width images of depth 16 give problems; avoid them." sourceForm := (aForm depth = 32) | (aForm width even & (aForm depth = 16)) ifTrue: [aForm] ifFalse: [aForm asFormOfDepth: 32]. jpegCompressStruct := ByteArray new: self primJPEGCompressStructSize. jpegErrorMgr2Struct := ByteArray new: self primJPEGErrorMgr2StructSize. buffer := ByteArray new: sourceForm width * sourceForm height + 1024. + "Try to write the image. Retry with a larger buffer if needed." + [ + byteCount := self primJPEGWriteImage: jpegCompressStruct + onByteArray: buffer + form: sourceForm + quality: quality + progressiveJPEG: progressiveFlag + errorMgr: jpegErrorMgr2Struct. + byteCount = 0 and: [ buffer size < (sourceForm width * sourceForm height * 3 + 1024) ] ] + whileTrue: [ buffer := ByteArray new: buffer size * 2 ]. + byteCount = 0 ifTrue: [ self error: 'buffer too small for compressed data' ]. - byteCount := self primJPEGWriteImage: jpegCompressStruct - onByteArray: buffer - form: sourceForm - quality: quality - progressiveJPEG: progressiveFlag - errorMgr: jpegErrorMgr2Struct. - byteCount = 0 ifTrue: [self error: 'buffer too small for compressed data']. stream next: byteCount putAll: buffer startingAt: 1. self close. !

1 0

The Trunk: Graphics-ul.223.mcz
by commits＠source.squeak.org 04 Sep '13

04 Sep '13

1 0

The Trunk: Graphics-ul.223.mcz
by commits＠source.squeak.org 04 Sep '13

04 Sep '13

1 0

The Trunk: GraphicsTests-ul.34.mcz
by commits＠source.squeak.org 04 Sep '13

04 Sep '13

Levente Uzonyi uploaded a new version of GraphicsTests to project The Trunk: http://source.squeak.org/trunk/GraphicsTests-ul.34.mcz ==================== Summary ==================== Name: GraphicsTests-ul.34 Author: ul Time: 4 September 2013, 4:22:37.151 pm UUID: 5a880e16-3d95-4f7c-bddf-a2e7a5952efc Ancestors: GraphicsTests-tpr.33 - added a test for JPEGReadWriter2, which checks if images with high entropy data can be written in high quality =============== Diff against GraphicsTests-tpr.33 =============== Item was added: + TestCase subclass: #JPEGReadWriter2Test + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'GraphicsTests-Files'! Item was added: + ----- Method: JPEGReadWriter2Test>>testHighEntropyImageCanBeWrittenInHighQuality (in category 'tests') ----- + testHighEntropyImageCanBeWrittenInHighQuality + + self + shouldnt: [ + ByteArray streamContents: [ :stream | + | form rng | + form := Form extent: 20 @ 20 depth: 32. + rng := Random seed: 36rSQUEAK. + 0 to: form height do: [ :y | + 0 to: form width do: [ :x | + form pixelValueAt: x @ y put: (rng nextInt: 16r100000000) - 1 ] ]. + (JPEGReadWriter2 on: stream) + nextPutImage: form quality: 100 progressiveJPEG: true ] ] + raise: Error!

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 September 2013