Squeak-dev November 2015

squeak-dev@lists.squeakfoundation.org

40 participants
251 discussions

Start a nNew thread

CrLfFileStream
by Nicolas Cellier 04 Nov '15

04 Nov '15

Hi, I sea that CrLfFileStream is deprecated, but it has a subclass HtmlFileStream which is not... Nicolas

3 2

Fwd: Problem while updating SecureHashAlgorithm
by Nicolas Cellier 04 Nov '15

04 Nov '15

Oops! wrong list... ---------- Forwarded message ---------- From: Nicolas Cellier <nicolas.cellier.aka.nice(a)gmail.com> Date: 2015-10-31 21:56 GMT+01:00 Subject: Problem while updating SecureHashAlgorithm To: Squeak Virtual Machine Development Discussion < vm-dev(a)lists.squeakfoundation.org> Hi, anyone else got a problem while updating SecureHashAlgorithm? The symptom is a SyntaxError window telling we cannot store into TA. TA is a new class variable, so we normally should be able to write into it. But the compiler fails because the classPool contains a ClassBinding instead of an Association for #TA... If I recompile SecureHashAlgorithm without the new class vars, then compile with the class vars again via the Browser, then I correctly get a classPool populated with Association only and I can proceed from the SyntaxError. Any idea where these ClassBinding came from? Nicolas

1 0

Daily Commit Log
by commits＠source.squeak.org 03 Nov '15

03 Nov '15

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2015-November/009099.h… Name: Monticello-nice.620 Ancestors: Monticello-cmm.619 Remove the unsent/sole implementor lineEndingConvention: which make MC depends on a deprecated class... =============================================

1 0

The Trunk: Monticello-nice.620.mcz
by commits＠source.squeak.org 03 Nov '15

03 Nov '15

Nicolas Cellier uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-nice.620.mcz ==================== Summary ==================== Name: Monticello-nice.620 Author: nice Time: 3 November 2015, 10:16:21.298 pm UUID: 028f7fc4-b668-413d-9416-24f828fc76ba Ancestors: Monticello-cmm.619 Remove the unsent/sole implementor lineEndingConvention: which make MC depends on a deprecated class... =============== Diff against Monticello-cmm.619 =============== Item was removed: - ----- Method: CrLfFileStream>>lineEndingConvention: (in category '*monticello') ----- - lineEndingConvention: aSymbol - lineEndConvention := aSymbol!

1 0

Daily Commit Log
by commits＠source.squeak.org 02 Nov '15

02 Nov '15

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2015-November/009090.h… Name: Network-ul.167 Ancestors: Network-topa.166 Now that #primMakeUUID is not being used anymore, we can change its behaviour to return nil when the plugin is not available. Added accessors for UUID variant and version. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-November/009091.h… Name: Collections-ul.669 Ancestors: Collections-ul.668 Changed Set >> #= and Dictionary >> #= to check the species of the receiver and the argument. PluggableDictionary and PluggableSet also check hashBlock and equalBlock. WeakSet and friends will work once we start using ephemerons. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-November/009092.h… Name: KernelTests-ul.299 Ancestors: KernelTests-nice.298 - fixed typo ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-November/009093.h… Name: CollectionsTests-ul.256 Ancestors: CollectionsTests-nice.255 Set >> #collect: returns a Set, so compare the result of it with a Set in SetWithNilTest >> #runSetWithNilTestOf:. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-November/009094.h… Name: CollectionsTests-ul.257 Ancestors: CollectionsTests-ul.256 WeakSet is an exception. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-November/009095.h… Name: Tests-ul.337 Ancestors: Tests-dtl.336 Sets are not equal to IdentitySets anymore, so we have to create instances of the right classes to make some tests pass. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-November/009096.h… Name: Kernel-ul.964 Ancestors: Kernel-nice.963 Spur-compatible Object >> #inboundPointersExcluding:. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-November/009097.h… Name: Morphic-topa.1024 Ancestors: Morphic-kfr.1023 Try directories before files when handling dropped items. (Because on Unix, we'll get a file for a directory but obviously not vice versa) ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-November/009098.h… Name: Morphic-mt.1025 Ancestors: Morphic-topa.1024 Fixes description of scratch pad preference. See DockingBarMorph >> #handleListenEvent:. It is the control-key, not the command-key. =============================================

1 0

[ANN] OopluCon 2016, San Francisco, April
by Chris Cunnington 02 Nov '15

02 Nov '15

OopluCon 2016 A Day for the Smalltalk Programming Language and its Friends Sunday 10 April 2016 8am - 4pm The Box SF 1069 Howard Street (between 6th and 7th) three blocks from Moscone Center, SoMa San Francisco, USA http://www.theboxsf.com/ The event is free A request for presentations will be announced in a future month A presentation called An Introduction To Smalltalk will promoted to the Ruby, Python and Objective C communities The latest details will be available at http://www.ooplu.com

2 2

Re: [squeak-dev] The Trunk: Network-topa.165.mcz
by Eliot Miranda 02 Nov '15

02 Nov '15

Bravo! _,,,^..^,,,_ (phone) > On Oct 24, 2015, at 7:29 AM, commits(a)source.squeak.org wrote: > > Tobias Pape uploaded a new version of Network to project The Trunk: > http://source.squeak.org/trunk/Network-topa.165.mcz > > ==================== Summary ==================== > > Name: Network-topa.165 > Author: topa > Time: 19 October 2015, 11:28:20.052 pm > UUID: b4b1febc-df00-4213-b76f-c007b06bb2e2 > Ancestors: Network-ul.164 > > Simplify and speed up non-primitive UUID generation (hat-tip to Martin McClure <martin.mcclure(a)gemtalksystems.com>) > > Instead of generating all parts of the UUID separately, we generate > a single, 128-bit number and modify it slightly to match the UUID definition. > This complies with RFC 4122, Sec. 4.4. > > This approach is 2500 times faster than the old method and only about 3 times > slower than the primitive. Hence, we disable the primitive and no longer need > to rely on the UUIDPlugin to be present. > > Informational: The Timings: > > { > 'Pure allocation' -> [UUID basicNew: 16] bench. > 'Primitive + alloc' -> [(UUID basicNew: 16) primMakeUUID] bench. > 'Old + alloc' -> [|u| u := (UUID basicNew: 16). UUIDGeneratorOld new generateBytes: u forVersion: 4] bench. > 'New + alloc' -> [|u| u := (UUID basicNew: 16). UUIDGeneratorNew new generateBytes: u forVersion: 4] bench. > }. > "{ > 'Pure allocation'->'56,500,000 per second. 17.7 nanoseconds per run.' . > 'Primitive + alloc'->'1,510,000 per second. 663 nanoseconds per run.' . > 'Old + alloc'->'202 per second. 4.95 milliseconds per run.' . > 'New + alloc'->'519,000 per second. 1.93 microseconds per run.' > }." > > =============== Diff against Network-ul.164 =============== > > Item was changed: > ----- Method: String>>asAlphaNumeric:extraChars:mergeUID: (in category '*network-uuid') ----- > asAlphaNumeric: totalSize extraChars: additionallyAllowed mergeUID: minimalSizeOfRandomPart > "Generates a String with unique identifier ( UID ) qualities, the difference to a > UUID is that its beginning is derived from the receiver, so that it has a meaning > for a human reader. > > Answers a String of totalSize, which consists of 3 parts > 1.part: the beginning of the receiver only consisting of > a-z, A-Z, 0-9 and extraChars in Collection additionallyAllowed ( which can be nil ) > 2.part: a single _ > 3.part: a ( random ) UID of size >= minimalSizeOfRandomPart consisting of > a-z, A-Z, 0-9 > > Starting letters are capitalized. > TotalSize must be at least 1. > Exactly 1 occurrence of $_ is guaranteed ( unless additionallyAllowed includes $_ ). > The random part has even for small sizes good UID qualitites for many practical purposes. > If only lower- or uppercase letters are demanded, simply convert the answer with > say #asLowercase. The probability of a duplicate will rise only moderately ( see below ). > > Example: > size of random part = 10 > in n generated UIDs the chance p of having non-unique UIDs is > n = 10000 -> p < 1e-10 if answer is reduced to lowerCase: p < 1.4 e-8 > n = 100000 -> p < 1e-8 > at the bottom is a snippet for your own calculations > Note: the calculated propabilites are theoretical, > for the actually used random generator they may be much worse" > > | stream out sizeOfFirstPart index ascii ch skip array random | > totalSize > minimalSizeOfRandomPart > ifFalse: [ self errorOutOfBounds ]. > stream := ReadStream on: self. > out := WriteStream on: ( String new: totalSize ). > index := 0. > skip := true. > sizeOfFirstPart := totalSize - minimalSizeOfRandomPart - 1. > [ stream atEnd or: [ index >= sizeOfFirstPart ]] > whileFalse: [ > ((( ascii := ( ch := stream next ) asciiValue ) >= 65 and: [ ascii <= 90 ]) or: [ > ( ascii >= 97 and: [ ascii <= 122 ]) or: [ > ch isDigit or: [ > additionallyAllowed notNil and: [ additionallyAllowed includes: ch ]]]]) > ifTrue: [ > skip > ifTrue: [ out nextPut: ch asUppercase ] > ifFalse: [ out nextPut: ch ]. > index := index + 1. > skip := false ] > ifFalse: [ skip := true ]]. > out nextPut: $_. > array := Array new: 62. > 1 to: 26 do: [ :i | > array at: i put: ( i + 64 ) asCharacter. > array at: i + 26 put: ( i + 96 ) asCharacter ]. > 53 to: 62 do: [ :i | > array at: i put: ( i - 5 ) asCharacter ]. > + random := ThreadSafeRandom value. > - random := UUIDGenerator default randomGenerator. > totalSize - index - 1 timesRepeat: [ > out nextPut: ( array atRandom: random )]. > ^out contents > > " calculation of probability p for failure of uniqueness in n UIDs > Note: if answer will be converted to upper or lower case replace 62 with 36 > | n i p all | > all := 62 raisedTo: sizeOfRandomPart. > i := 1. > p := 0.0 . > n := 10000. > [ i <= n ] > whileTrue: [ > p := p + (( i - 1 ) / all ). > i := i + 1 ]. > p > > approximation formula: n squared / ( 62.0 raisedTo: sizeOfRandomPart ) / 2 > " > > "'Crop SketchMorphs and Grab Screen Rect to JPG' > asAlphaNumeric: 31 extraChars: nil mergeUID: 10 > 'CropSketchMorphsAndG_iOw94jquN6' > 'Monticello' > asAlphaNumeric: 31 extraChars: nil mergeUID: 10 > 'Monticello_kp6aV2l0IZK9uBULGOeG' > 'version-', ( '1.1.2' replaceAll: $. with: $- ) > asAlphaNumeric: 31 extraChars: #( $- ) mergeUID: 10 > 'Version-1-1-2_kuz2tMg2xX9iRLDVR'" > ! > > Item was changed: > ----- Method: UUID>>initialize (in category 'initalize-release') ----- > initialize > + self makeUUID.! > - self primMakeUUID.! > > Item was added: > + ----- Method: UUID>>makeUUID (in category 'as yet unclassified') ----- > + makeUUID > + UUIDGenerator default generateBytes: self forVersion: 4.! > > Item was changed: > ----- Method: UUID>>primMakeUUID (in category 'system primitives') ----- > primMakeUUID > <primitive: 'primitiveMakeUUID' module: 'UUIDPlugin'> > + self makeUUID! > - UUIDGenerator default generateBytes: self forVersion: 4.! > > Item was changed: > Object subclass: #UUIDGenerator > + instanceVariableNames: 'bits' > + classVariableNames: 'Default TheRandom TheSemaphore' > - instanceVariableNames: 'timeLow timeMid timeHiAndVersion clockSeqHiAndReserved clockSeqLow node randomCounter randomGenerator semaphoreForGenerator' > - classVariableNames: 'Default' > poolDictionaries: '' > category: 'Network-UUID'! > > + !UUIDGenerator commentStamp: 'topa 10/19/2015 23:23:19' prior: 0! > + I generate a pseudo-random UUID by asking Random for a 128 bit value. > - !UUIDGenerator commentStamp: '<historical>' prior: 0! > - This class generates a pseudo-random UUID > - by John M McIntosh johnmci(a)smalltalkconsulting.com > > + See https://tools.ietf.org/html/rfc4122.html#section-4.4 for reference.! > - See http://www.webdav.org/specs/draft-leach-uuids-guids-01.txt! > > Item was changed: > ----- Method: UUIDGenerator class>>initialize (in category 'class initialization') ----- > initialize > + TheRandom := Random new. > + TheSemaphore := Semaphore forMutualExclusion. > Smalltalk addToStartUpList: self after: nil.! > > Item was changed: > ----- Method: UUIDGenerator>>generateFieldsVersion4 (in category 'instance creation') ----- > generateFieldsVersion4 > + > + TheSemaphore critical: [ > + bits := 16rffffffffffffffffffffffffffffffff atRandom: TheRandom. "128 bit"].! > - > - timeLow := self generateRandomBitsOfLength: 32. > - timeMid := self generateRandomBitsOfLength: 16. > - timeHiAndVersion := 16r4000 bitOr: (self generateRandomBitsOfLength: 12). > - clockSeqHiAndReserved := 16r80 bitOr: (self generateRandomBitsOfLength: 6). > - clockSeqLow := self generateRandomBitsOfLength: 8. > - node := self generateRandomBitsOfLength: 48. > - ! > > Item was removed: > - ----- Method: UUIDGenerator>>generateOneOrZero (in category 'generator') ----- > - generateOneOrZero > - ^self semaphoreForGenerator > - critical: [| value | > - value := self randomGenerator next. > - self randomCounter: self randomCounter + 1. > - self randomCounter > 100000 > - ifTrue: [self setupRandom]. > - value < 0.5 > - ifTrue: [0] > - ifFalse: [1]].! > > Item was removed: > - ----- Method: UUIDGenerator>>generateRandomBitsOfLength: (in category 'generator') ----- > - generateRandomBitsOfLength: aNumberOfBits > - | target | > - target := 0. > - aNumberOfBits isZero ifTrue: [^target]. > - target := self generateOneOrZero. > - (aNumberOfBits - 1) timesRepeat: > - [target := (target bitShift: 1) bitOr: self generateOneOrZero]. > - ^target! > > Item was removed: > - ----- Method: UUIDGenerator>>initialize (in category 'instance creation') ----- > - initialize > - self setupRandom. > - semaphoreForGenerator := Semaphore forMutualExclusion. > - ! > > Item was removed: > - ----- Method: UUIDGenerator>>makeSeed (in category 'random seed') ----- > - makeSeed > - "Try various methods of getting good seeds" > - | seed | > - seed := self makeUnixSeed. > - seed ifNotNil: [^seed]. > - > - "not sure if this is reliably random... commented out for now. -dew" > - "seed := self makeSeedFromSound. > - seed ifNotNil: [^seed]." > - > - "default" > - [seed := (Time millisecondClockValue bitAnd: 16r3FFFFFFF) bitXor: self hash. > - seed := seed bitXor: (Time totalSeconds bitAnd: 16r3FFFFFFF). > - seed = 0] whileTrue: ["Try again if ever get a seed = 0"]. > - > - ^seed > - ! > > Item was removed: > - ----- Method: UUIDGenerator>>makeSeedFromSound (in category 'random seed') ----- > - makeSeedFromSound > - ^[SoundService default randomBitsFromSoundInput: 32] > - ifError: [nil].! > > Item was removed: > - ----- Method: UUIDGenerator>>makeUnixSeed (in category 'random seed') ----- > - makeUnixSeed > - > - ^[ > - StandardFileStream readOnlyFileNamed: '/dev/urandom' do: [ :stream | > - stream binary. > - (Integer > - byte1: stream next > - byte2: stream next > - byte3: stream next > - byte4: stream next) ] ] > - on: Error > - do: [ nil ]! > > Item was changed: > ----- Method: UUIDGenerator>>placeFields: (in category 'instance creation') ----- > placeFields: aByteArray > > + | version fixed | > + bits isLarge > + ifTrue: [ aByteArray replaceFrom: 1 to: bits size with: bits] > + ifFalse: [aByteArray unsignedLongAt: 1 put: bits bigEndian: false]. > + > + version := ((aByteArray at: 7) bitAnd: 16r0F) bitOr: 16r40. "Version 4" > + fixed := ((aByteArray at: 9) bitAnd: 16r3F) bitOr: 16r80. "Fixed 8..b value" > + aByteArray > + at: 7 put: version; > + at: 9 put: fixed.! > - aByteArray at: 1 put: ((timeLow bitShift: -24) bitAnd: 16rFF). > - aByteArray at: 2 put: ((timeLow bitShift: -16) bitAnd: 16rFF). > - aByteArray at: 3 put: ((timeLow bitShift: -8) bitAnd: 16rFF). > - aByteArray at: 4 put: (timeLow bitAnd: 16rFF). > - aByteArray at: 5 put: ((timeMid bitShift: -8) bitAnd: 16rFF). > - aByteArray at: 6 put: (timeMid bitAnd: 16rFF). > - aByteArray at: 7 put: ((timeHiAndVersion bitShift: -8) bitAnd: 16rFF). > - aByteArray at: 8 put: (timeHiAndVersion bitAnd: 16rFF). > - aByteArray at: 9 put: clockSeqHiAndReserved. > - aByteArray at: 10 put: clockSeqLow. > - 0 to: 5 do: [:i | > - aByteArray at: 11 + i put: ((node bitShift: (-8*i)) bitAnd: 16rFF)] > - ! > > Item was removed: > - ----- Method: UUIDGenerator>>randomCounter (in category 'accessors and mutators') ----- > - randomCounter > - ^randomCounter! > > Item was removed: > - ----- Method: UUIDGenerator>>randomCounter: (in category 'accessors and mutators') ----- > - randomCounter: aNumber > - randomCounter := aNumber > - ! > > Item was removed: > - ----- Method: UUIDGenerator>>randomGenerator (in category 'accessors and mutators') ----- > - randomGenerator > - ^randomGenerator > - ! > > Item was removed: > - ----- Method: UUIDGenerator>>randomGenerator: (in category 'accessors and mutators') ----- > - randomGenerator: aGenerator > - randomGenerator := aGenerator > - ! > > Item was removed: > - ----- Method: UUIDGenerator>>semaphoreForGenerator (in category 'accessors and mutators') ----- > - semaphoreForGenerator > - ^semaphoreForGenerator! > > Item was removed: > - ----- Method: UUIDGenerator>>semaphoreForGenerator: (in category 'accessors and mutators') ----- > - semaphoreForGenerator: aSema > - semaphoreForGenerator := aSema > - ! > > Item was removed: > - ----- Method: UUIDGenerator>>setupRandom (in category 'instance creation') ----- > - setupRandom > - randomCounter := 0. > - randomGenerator := Random seed: self makeSeed.! > >

2 1

The Trunk: Morphic-mt.1025.mcz
by commits＠source.squeak.org 02 Nov '15

02 Nov '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1025.mcz ==================== Summary ==================== Name: Morphic-mt.1025 Author: mt Time: 2 November 2015, 10:13:48.49 am UUID: 73bdc916-19b9-4404-a219-778bcd470402 Ancestors: Morphic-topa.1024 Fixes description of scratch pad preference. See DockingBarMorph >> #handleListenEvent:. It is the control-key, not the command-key. =============== Diff against Morphic-topa.1024 =============== Item was changed: ----- Method: SearchBar class>>useScratchPad (in category 'preferences') ----- useScratchPad + <preference: 'Ctrl+0 invokes the scratch pad' - <preference: 'Command+0 invokes the scratch pad' category: 'docking bars' + description: 'When enabled, pressing Ctrl+0 will go straight to the Search Bar''s scratch pad instead of the Search Bar, where pressing ESCape will return keyboard focus to the originating window.' - description: 'When enabled, pressing Command+0 will go straight to the Search Bar''s scratch pad instead of the Search Bar, where pressing ESCape will return keyboard focus to the originating window.' type: #Boolean> ^ UseScratchPad ifNil: [ false ]!

1 0

The Trunk: Morphic-topa.1024.mcz
by commits＠source.squeak.org 02 Nov '15

02 Nov '15

Tobias Pape uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-topa.1024.mcz ==================== Summary ==================== Name: Morphic-topa.1024 Author: topa Time: 2 November 2015, 10:09:39.152 am UUID: 4751f1ce-2b2c-465c-9a03-b10e2260993c Ancestors: Morphic-kfr.1023 Try directories before files when handling dropped items. (Because on Unix, we'll get a file for a directory but obviously not vice versa) =============== Diff against Morphic-kfr.1023 =============== Item was changed: ----- Method: PasteUpMorph>>dropFiles: (in category 'event handling') ----- dropFiles: anEvent "Handle a number of dropped files from the OS. TODO: - use a more general mechanism for figuring out what to do with the file (perhaps even offering a choice from a menu) - remember the resource location or (when in browser) even the actual file handle " | numFiles | numFiles := anEvent contents. 1 to: numFiles do: [ :i | + (FileDirectory requestDropDirectory: i) + ifNotNil: [:directory | self handleDroppedItem: directory event: anEvent] + ifNil: [(FileStream requestDropStream: i) ifNotNil: [:stream | + [self handleDroppedItem: stream event: anEvent] ensure: [stream close]]]]. + ! - (FileStream requestDropStream: i) - ifNotNil: [:stream | - [ (ExternalDropHandler lookupExternalDropHandler: stream) ifNotNil: [:handler | - handler handle: stream in: self dropEvent: anEvent ] ] - ensure: [ stream close ] ] - ifNil: [(FileDirectory requestDropDirectory: i) ifNotNil: [:directory | - (ExternalDropHandler lookupExternalDropHandler: directory) ifNotNil: [:handler | - handler handle: directory in: self dropEvent: anEvent]]]].! Item was added: + ----- Method: PasteUpMorph>>handleDroppedItem:event: (in category 'event handling') ----- + handleDroppedItem: anItem event: anEvent + + (ExternalDropHandler lookupExternalDropHandler: anItem) + ifNotNil: [:handler | handler handle: anItem in: self dropEvent: anEvent].!

1 0

Camp Smalltalk Nanaimo Nov 6-8 2015 reminder
by tim Rowledge 02 Nov '15

02 Nov '15

This is the final call for passengers wishing to take the chance to enjoy a weekend of Smalltalky goodness in Nanaimo. See https://www.picatic.com/event14133068326629 for info. tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Calm down -- it's only ones and zeros.

1 0

Jump to page: