Packages October 2015

packages@lists.squeakfoundation.org

1 participants
218 discussions

The Trunk: System-mt.772.mcz
by commits＠source.squeak.org 22 Oct '15

22 Oct '15

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.772.mcz ==================== Summary ==================== Name: System-mt.772 Author: mt Time: 22 October 2015, 10:54:57.804 am UUID: 46118b7a-46d1-41c1-8b5f-0be4d5aaf89a Ancestors: System-mt.771 Reverts last commit to log change stamps at the granularity of minutes again. See discussion here: http://forum.world.st/The-Trunk-System-mt-771-mcz-td4856201.html =============== Diff against System-mt.771 =============== Item was changed: ----- Method: Utilities class>>changeStamp (in category 'identification') ----- changeStamp "Answer a string to be pasted into source code to mark who changed it and when." ^ self authorInitials , ' ' , Date today mmddyyyy, ' ', + ((String streamContents: [:s | Time now print24: true on: s]) copyFrom: 1 to: 5)! - ((String streamContents: [:s | Time now print24: true on: s]) copyFrom: 1 to: 8)!

1 0

The Trunk: System-mt.772.mcz
by commits＠source.squeak.org 22 Oct '15

22 Oct '15

1 0

The Trunk: Tools-mt.644.mcz
by commits＠source.squeak.org 22 Oct '15

22 Oct '15

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.644.mcz ==================== Summary ==================== Name: Tools-mt.644 Author: mt Time: 22 October 2015, 10:52:56.745 am UUID: 6b7546e7-363c-4382-8907-97fb0d98fddc Ancestors: Tools-mt.643 Adds support for dropping directories into the image and opening file lists on those. =============== Diff against Tools-mt.643 =============== Item was added: + ----- Method: FileDirectory class>>serviceBrowseDirectory (in category '*Tools-FileList') ----- + serviceBrowseDirectory + + ^ (SimpleServiceEntry + provider: FileList + label: 'browse directory' + selector: #openOn: + description: 'browse directory' + buttonLabel: 'browse') + argumentGetter: [:directory | directory]; + yourself! Item was changed: ----- Method: FileList class>>newOn: (in category 'instance creation') ----- newOn: aDirectory + ^super new directory: aDirectory! Item was added: + ----- Method: FileList class>>openOn: (in category 'instance creation') ----- + openOn: directory + + ^ToolBuilder open: (self newOn: directory)!

1 0

The Trunk: Tools-mt.644.mcz
by commits＠source.squeak.org 22 Oct '15

22 Oct '15

1 0

The Trunk: Morphic-mt.1018.mcz
by commits＠source.squeak.org 22 Oct '15

22 Oct '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1018.mcz ==================== Summary ==================== Name: Morphic-mt.1018 Author: mt Time: 22 October 2015, 10:51:51.981 am UUID: e2faf21f-a955-4d6f-849c-0d844a7eaf2b Ancestors: Morphic-cmm.1017 Adds support for dropping directories into the image. =============== Diff against Morphic-cmm.1017 =============== 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 stream handler | numFiles := anEvent contents. 1 to: numFiles do: [ :i | + (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]]]].! - (stream := FileStream requestDropStream: i) ifNotNil: [ - handler := ExternalDropHandler lookupExternalDropHandler: stream. - [ handler ifNotNil: [handler handle: stream in: self dropEvent: anEvent ] ] - ensure: [ stream close ] ] ].!

1 0

The Trunk: Morphic-mt.1018.mcz
by commits＠source.squeak.org 22 Oct '15

22 Oct '15

1 0

The Trunk: Files-mt.147.mcz
by commits＠source.squeak.org 22 Oct '15

22 Oct '15

Marcel Taeumel uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-mt.147.mcz ==================== Summary ==================== Name: Files-mt.147 Author: mt Time: 22 October 2015, 10:51:13.247 am UUID: 088e1934-a399-40ed-923c-a0cdca15894b Ancestors: Files-topa.146 Adds support for dropping directories into the image. =============== Diff against Files-topa.146 =============== Item was added: + ----- Method: FileDirectory class>>fileReaderServicesForFile:suffix: (in category 'file reader services') ----- + fileReaderServicesForFile: fullName suffix: suffix + + ^ (self on: fullName) exists + ifTrue: [self services] + ifFalse: [#()].! Item was added: + ----- Method: FileDirectory class>>initialize (in category 'class initialization') ----- + initialize + + FileServices registerFileReader: self.! Item was added: + ----- Method: FileDirectory class>>requestDropDirectory: (in category 'dnd requests') ----- + requestDropDirectory: dropIndex + + ^ self on: (FileStream primDropRequestFileName: dropIndex)! Item was added: + ----- Method: FileDirectory class>>services (in category 'file reader services') ----- + services + + ^ (self class selectors copyWithout: #services) + select: [:symbol | symbol beginsWith: #service] + thenCollect: [:selector | self perform: selector]! Item was added: + ----- Method: FileDirectory>>mimeTypes (in category 'path access') ----- + mimeTypes + + ^ #('text/directory')! Item was added: + ----- Method: FileDirectory>>name (in category 'path access') ----- + name + "Compatibility with StandardFileStream >> #name to be used, for example, for drop event handling." + + ^ self fullName! Item was changed: ----- Method: FileStream class>>fileReaderServicesForFile:suffix: (in category 'file reader services') ----- fileReaderServicesForFile: fullName suffix: suffix "Answer services for the given file" + "Check whether the given path points to a directory or file." + (FileStream isAFileNamed: fullName) ifFalse: [^ #()]. + ^ self servicesWithSuffixes select: [:spec | spec key anySatisfy: [:pattern | suffix = '*' or: [pattern match: suffix]]] thenCollect: [:spec | spec value]! Item was added: + ----- Method: FileStream class>>primDropRequestFileName: (in category 'dnd requests') ----- + primDropRequestFileName: dropIndex + "Primitive. Return the file name for some file that was just dropped onto Squeak. + Fail if dropIndex is out of range or the primitive is not supported." + <primitive: 'primitiveDropRequestFileName' module:'DropPlugin'> + ^nil! Item was removed: - ----- Method: StandardFileStream>>primDropRequestFileName: (in category 'dnd requests') ----- - primDropRequestFileName: dropIndex - "Primitive. Return the file name for some file that was just dropped onto Squeak. - Fail if dropIndex is out of range or the primitive is not supported." - <primitive: 'primitiveDropRequestFileName' module:'DropPlugin'> - ^nil! Item was changed: ----- Method: StandardFileStream>>requestDropStream: (in category 'dnd requests') ----- requestDropStream: dropIndex "Return a read-only stream for some file the user has just dropped onto Squeak." | rawName | + rawName := self class primDropRequestFileName: dropIndex. - rawName := self primDropRequestFileName: dropIndex. name := (FilePath pathName: rawName isEncoded: true) asSqueakPathName. fileID := self primDropRequestFileHandle: dropIndex. fileID == nil ifTrue:[^nil]. self register. rwmode := false. buffer1 := String new: 1. self enableReadBuffering !

1 0

The Trunk: Files-mt.147.mcz
by commits＠source.squeak.org 22 Oct '15

22 Oct '15

1 0

The Trunk: Network-topa.166.mcz
by commits＠source.squeak.org 22 Oct '15

22 Oct '15

Tobias Pape uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-topa.166.mcz ==================== Summary ==================== Name: Network-topa.166 Author: topa Time: 21 October 2015, 8:26:14.656 pm UUID: d6d9910f-fa67-4c69-9a89-030c81233e90 Ancestors: Network-topa.165 UUIDGenerator - Use new Random>>#nextBytes:into:startingAt: (needs Kernel-ul.960) for even more speed - Fix UUIDGenerator class>>#initialize to correctly register at startup - Do not reset default on startup but rather reseed TheRandom Timings improved: '1,190,000 per second. 842 nanoseconds per run.' (0.25 times slower than primitive version) =============== Diff against Network-topa.165 =============== Item was changed: Object subclass: #UUIDGenerator + instanceVariableNames: '' - instanceVariableNames: 'bits' classVariableNames: 'Default TheRandom TheSemaphore' 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. See https://tools.ietf.org/html/rfc4122.html#section-4.4 for reference.! Item was changed: ----- Method: UUIDGenerator class>>default (in category 'instance creation') ----- default + ^ Default ifNil: [Default := self new] + ! - Default ifNil: [self generateDefault]. - ^Default! Item was removed: - ----- Method: UUIDGenerator class>>generateDefault (in category 'instance creation') ----- - generateDefault - Default := self new! Item was changed: ----- Method: UUIDGenerator class>>initialize (in category 'class initialization') ----- initialize TheRandom := Random new. TheSemaphore := Semaphore forMutualExclusion. + Smalltalk addToStartUpList: self! - Smalltalk addToStartUpList: self after: nil.! Item was added: + ----- Method: UUIDGenerator class>>resetDefault (in category 'class initialization') ----- + resetDefault + Default := nil.! Item was changed: ----- Method: UUIDGenerator class>>startUp (in category 'class initialization') ----- startUp + "Reseed the random" + TheSemaphore critical: [TheRandom seed: nil].! - Default := nil! Item was added: + ----- Method: UUIDGenerator>>fillRandomly: (in category 'instance creation') ----- + fillRandomly: aUUID + + TheSemaphore critical: [ + TheRandom nextBytes: 16 "128 bit" into: aUUID startingAt: 1].! Item was changed: ----- Method: UUIDGenerator>>generateBytes:forVersion: (in category 'instance creation') ----- + generateBytes: aUUID forVersion: aVersion + | versionID fixedValue | + + aVersion = 4 ifFalse: [^ self error: 'Unsupported version']. + + self fillRandomly: aUUID. + versionID := ((aUUID at: 7) bitAnd: 16r0F) bitOr: 16r40. "Version 4" + fixedValue := ((aUUID at: 9) bitAnd: 16r3F) bitOr: 16r80. "Fixed 8..b value" + aUUID + at: 7 put: versionID; + at: 9 put: fixedValue.! - generateBytes: aPlaceHolder forVersion: aVersion - aVersion = 4 ifTrue: [self generateFieldsVersion4] - ifFalse: [self error: 'Unsupported version']. - self placeFields: aPlaceHolder.! Item was removed: - ----- Method: UUIDGenerator>>generateFieldsVersion4 (in category 'instance creation') ----- - generateFieldsVersion4 - - TheSemaphore critical: [ - bits := 16rffffffffffffffffffffffffffffffff atRandom: TheRandom. "128 bit"].! Item was removed: - ----- 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.!

1 0

The Trunk: Network-topa.166.mcz
by commits＠source.squeak.org 22 Oct '15

22 Oct '15

1 0

← Newer
1
2
3
4
5
6
7
...
22
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages October 2015