Packages July 2013

packages@lists.squeakfoundation.org

1 participants
522 discussions

The Trunk: Graphics-fbs.221.mcz
by commits＠source.squeak.org 25 Jul '13

25 Jul '13

Frank Shearar uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-fbs.221.mcz ==================== Summary ==================== Name: Graphics-fbs.221 Author: fbs Time: 25 July 2013, 8:29:39.711 am UUID: 5be384b4-2d62-5c49-abb8-390dcb1881ab Ancestors: Graphics-fbs.220 SmalltalkImage current -> Smalltalk. =============== Diff against Graphics-fbs.220 =============== Item was changed: ----- Method: Bitmap>>asByteArray (in category 'as yet unclassified') ----- asByteArray "Faster way to make a byte array from me. copyFromByteArray: makes equal Bitmap." | f bytes hack | f := Form extent: 4@self size depth: 8 bits: self. bytes := ByteArray new: self size * 4. hack := Form new hackBits: bytes. + Smalltalk isLittleEndian ifTrue:[hack swapEndianness]. - SmalltalkImage current isLittleEndian ifTrue:[hack swapEndianness]. hack copyBits: f boundingBox from: f at: (0@0) clippingBox: hack boundingBox rule: Form over fillColor: nil map: nil. "f displayOn: hack." ^ bytes. ! Item was changed: ----- Method: Bitmap>>copyFromByteArray: (in category 'accessing') ----- copyFromByteArray: byteArray "This method should work with either byte orderings" | myHack byteHack | myHack := Form new hackBits: self. byteHack := Form new hackBits: byteArray. + Smalltalk isLittleEndian ifTrue: [byteHack swapEndianness]. - SmalltalkImage current isLittleEndian ifTrue: [byteHack swapEndianness]. byteHack displayOn: myHack! Item was changed: ----- Method: Form>>readResourceFrom: (in category 'resources') ----- readResourceFrom: aStream "Store a resource representation of the receiver on aStream. Must be specific to the receiver so that no code is filed out." | bitsSize msb | (aStream next: 4) asString = self resourceTag ifFalse: [aStream position: aStream position - 4. ^self readNativeResourceFrom: aStream]. width := aStream nextNumber: 4. height := aStream nextNumber: 4. depth := aStream nextNumber: 4. bitsSize := aStream nextNumber: 4. bitsSize = 0 ifFalse: [bits := aStream next: bitsSize. ^self]. msb := (aStream nextNumber: 4) = 1. bitsSize := aStream nextNumber: 4. bits := Bitmap new: self bitsSize. (Form extent: width @ height depth: depth bits: (aStream next: bitsSize * 4)) displayOn: self. + msb = Smalltalk isBigEndian - msb = SmalltalkImage current isBigEndian ifFalse: [Bitmap swapBytesIn: bits from: 1 to: bits size]! Item was changed: ----- Method: Form>>storeResourceOn: (in category 'resources') ----- storeResourceOn: aStream "Store a resource representation of the receiver on aStream. Must be specific to the receiver so that no code is filed out." self hibernate. aStream nextPutAll: self resourceTag asByteArray. "tag" aStream nextNumber: 4 put: width. aStream nextNumber: 4 put: height. aStream nextNumber: 4 put: depth. (bits isMemberOf: ByteArray) ifFalse:[ "must store bitmap" aStream nextNumber: 4 put: 0. "tag" + aStream nextNumber: 4 put: (Smalltalk isBigEndian ifTrue:[1] ifFalse:[0]). - aStream nextNumber: 4 put: (SmalltalkImage current isBigEndian ifTrue:[1] ifFalse:[0]). ]. aStream nextNumber: 4 put: bits size. aStream nextPutAll: bits. ! Item was changed: ----- Method: MacOS9WindowProxy class>>isActiveHostWindowProxyClass (in category 'system startup') ----- isActiveHostWindowProxyClass "Am I active?" + ^Smalltalk platformName = 'Mac OS' and: [Smalltalk osVersion asInteger < 1000]! - ^SmalltalkImage current platformName = 'Mac OS' and: [SmalltalkImage current osVersion asInteger < 1000]! Item was changed: ----- Method: MacOSXWindowProxy class>>isActiveHostWindowProxyClass (in category 'system startup') ----- isActiveHostWindowProxyClass "Am I active?" + ^Smalltalk platformName = 'Mac OS' and: [Smalltalk osVersion asInteger >= 1000]! - ^SmalltalkImage current platformName = 'Mac OS' and: [SmalltalkImage current osVersion asInteger >= 1000]! Item was changed: ----- Method: MatrixTransform2x3>>restoreEndianness (in category 'objects from disk') ----- restoreEndianness "This word object was just read in from a stream. It was stored in Big Endian (Mac) format. Swap each pair of bytes (16-bit word), if the current machine is Little Endian. Why is this the right thing to do? We are using memory as a byteStream. High and low bytes are reversed in each 16-bit word, but the stream of words ascends through memory. Different from a Bitmap." | w b1 b2 b3 b4 | + Smalltalk isLittleEndian ifTrue: [ - SmalltalkImage current isLittleEndian ifTrue: [ 1 to: self basicSize do: [:i | w := self basicAt: i. b1 := w digitAt: 1. b2 := w digitAt: 2. b3 := w digitAt: 3. b4 := w digitAt: 4. w := (b1 << 24) + (b2 << 16) + (b3 << 8) + b4. self basicAt: i put: w. ] ]. ! Item was changed: ----- Method: PNGReadWriter>>nextImage (in category 'accessing') ----- nextImage + bigEndian := Smalltalk isBigEndian. - bigEndian := SmalltalkImage current isBigEndian. filtersSeen := Bag new. globalDataChunk := nil. transparentPixelValue := nil. unknownChunks := Set new. stream reset. stream binary. stream skip: 8. [stream atEnd] whileFalse: [self processNextChunk]. "Set up our form" palette ifNotNil: ["Dump the palette if it's the same as our standard palette" palette = (StandardColors copyFrom: 1 to: palette size) ifTrue: [palette := nil]]. (depth <= 8 and: [palette notNil]) ifTrue: [form := ColorForm extent: width @ height depth: depth. form colors: palette] ifFalse: [form := Form extent: width @ height depth: depth]. backColor ifNotNil: [form fillColor: backColor]. chunk := globalDataChunk ifNil: [self error: 'image data is missing']. chunk ifNotNil: [self processIDATChunk]. unknownChunks isEmpty ifFalse: ["Transcript show: ' ',unknownChunks asSortedCollection asArray printString." ]. self debugging ifTrue: [Transcript cr; show: 'form = ' , form printString. Transcript cr; show: 'colorType = ' , colorType printString. Transcript cr; show: 'interlaceMethod = ' , interlaceMethod printString. Transcript cr; show: 'filters = ' , filtersSeen sortedCounts asArray printString]. ^form! Item was changed: ----- Method: PNGReadWriter>>nextPutImage:interlace:filter: (in category 'writing') ----- nextPutImage: aForm interlace: aMethod filter: aFilterType "Note: For now we keep it simple - interlace and filtering are simply ignored" | crcStream | + bigEndian := Smalltalk isBigEndian. - bigEndian := SmalltalkImage current isBigEndian. form := aForm. width := aForm width. height := aForm height. aForm depth <= 8 ifTrue: [bitsPerChannel := aForm depth. colorType := 3. bytesPerScanline := (width * aForm depth + 7) // 8] ifFalse: [bitsPerChannel := 8. colorType := 6. bytesPerScanline := width * 4]. self writeFileSignature. crcStream := WriteStream on: (ByteArray new: 1000). crcStream resetToStart. self writeIHDRChunkOn: crcStream. self writeChunk: crcStream. form depth <= 8 ifTrue: [crcStream resetToStart. self writePLTEChunkOn: crcStream. self writeChunk: crcStream. form isColorForm ifTrue: [crcStream resetToStart. self writeTRNSChunkOn: crcStream. self writeChunk: crcStream]]. form depth = 16 ifTrue: [crcStream resetToStart. self writeSBITChunkOn: crcStream. self writeChunk: crcStream]. crcStream resetToStart. self writeIDATChunkOn: crcStream. self writeChunk: crcStream. crcStream resetToStart. self writeIENDChunkOn: crcStream. self writeChunk: crcStream! Item was changed: ----- Method: Win32WindowProxy class>>isActiveHostWindowProxyClass (in category 'as yet unclassified') ----- isActiveHostWindowProxyClass "Am I active?" + ^Smalltalk platformName = 'Win32'! - ^SmalltalkImage current platformName = 'Win32'!

1 0

The Trunk: Graphics-fbs.221.mcz
by commits＠source.squeak.org 25 Jul '13

25 Jul '13

1 0

The Trunk: Files-fbs.128.mcz
by commits＠source.squeak.org 25 Jul '13

25 Jul '13

Frank Shearar uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-fbs.128.mcz ==================== Summary ==================== Name: Files-fbs.128 Author: fbs Time: 25 July 2013, 8:26:21.116 am UUID: f751583f-c90a-2b41-b77f-55d51539a705 Ancestors: Files-fbs.127 SmalltalkImage current -> Smalltalk. =============== Diff against Files-fbs.127 =============== Item was changed: ----- Method: AcornFileDirectory class>>isActiveDirectoryClass (in category 'platform specific') ----- isActiveDirectoryClass "Does this class claim to be that properly active subclass of FileDirectory for the current platform? On Acorn, the test is whether platformName is 'RiscOS' (on newer VMs) or if the primPathNameDelimiter is $. (on older ones), which is what we would like to use for a dirsep if only it would work out. See pathNameDelimiter for more woeful details - then just get on and enjoy Squeak" + ^ Smalltalk platformName = 'RiscOS' - ^ SmalltalkImage current platformName = 'RiscOS' or: [self primPathNameDelimiter = $.]! Item was changed: ----- Method: CrLfFileStream class>>guessDefaultLineEndConvention (in category 'class initialization') ----- guessDefaultLineEndConvention "Lets try to guess the line end convention from what we know about the path name delimiter from FileDirectory." FileDirectory pathNameDelimiter = $: ifTrue: [^ self defaultToCR]. FileDirectory pathNameDelimiter = $/ + ifTrue: [((Smalltalk osVersion) beginsWith: 'darwin') - ifTrue: [((SmalltalkImage current osVersion) beginsWith: 'darwin') ifTrue: [^ self defaultToCR] ifFalse: [^ self defaultToLF]]. FileDirectory pathNameDelimiter = $\ ifTrue: [^ self defaultToCRLF]. "in case we don't know" ^ self defaultToCR! Item was changed: ----- Method: FileDirectory class>>lookInUsualPlaces: (in category 'create/delete file') ----- lookInUsualPlaces: fileName "Check the default directory, the imagePath, and the vmPath (and the vmPath's owner) for this file." | vmp | (FileDirectory default fileExists: fileName) ifTrue: [^ FileDirectory default fileNamed: fileName]. + ((vmp := FileDirectory on: Smalltalk imagePath) fileExists: fileName) - ((vmp := FileDirectory on: SmalltalkImage current imagePath) fileExists: fileName) ifTrue: [^ vmp fileNamed: fileName]. + ((vmp := FileDirectory on: Smalltalk vmPath) fileExists: fileName) - ((vmp := FileDirectory on: SmalltalkImage current vmPath) fileExists: fileName) ifTrue: [^ vmp fileNamed: fileName]. ((vmp := vmp containingDirectory) fileExists: fileName) ifTrue: [^ vmp fileNamed: fileName]. ^ nil! Item was changed: ----- Method: FileDirectory class>>shutDown (in category 'system start up') ----- shutDown + Smalltalk closeSourceFiles. - SmalltalkImage current closeSourceFiles. ! Item was changed: ----- Method: FileDirectory class>>startUp (in category 'name utilities') ----- startUp "Establish the platform-specific FileDirectory subclass. Do any platform-specific startup." self setDefaultDirectoryClass. + self setDefaultDirectory: (self dirPathFor: Smalltalk imageName). - self setDefaultDirectory: (self dirPathFor: SmalltalkImage current imageName). Preferences startInUntrustedDirectory ifTrue:[ "The SecurityManager may override the default directory to prevent unwanted write access etc." self setDefaultDirectory: SecurityManager default untrustedUserDirectory. "Make sure we have a place to go to" DefaultDirectory assureExistence]. + Smalltalk openSourceFiles. - SmalltalkImage current openSourceFiles. ! Item was changed: ----- Method: MacFileDirectory class>>isActiveDirectoryClass (in category 'platform specific') ----- isActiveDirectoryClass ^ super isActiveDirectoryClass + and: [(Smalltalk getSystemAttribute: 1201) isNil + or: [(Smalltalk getSystemAttribute: 1201) asNumber <= 31]]! - and: [(SmalltalkImage current getSystemAttribute: 1201) isNil - or: [(SmalltalkImage current getSystemAttribute: 1201) asNumber <= 31]]! Item was changed: ----- Method: MacHFSPlusFileDirectory class>>isActiveDirectoryClass (in category 'platform specific') ----- isActiveDirectoryClass "Ok, lets see if we support HFS Plus file names, the long ones" + ^ (self pathNameDelimiter = self primPathNameDelimiter) and: [(Smalltalk getSystemAttribute: 1201) notNil and: [(Smalltalk getSystemAttribute: 1201) asNumber > 31]]! - ^ (self pathNameDelimiter = self primPathNameDelimiter) and: [(SmalltalkImage current getSystemAttribute: 1201) notNil and: [(SmalltalkImage current getSystemAttribute: 1201) asNumber > 31]]!

1 0

The Trunk: Files-fbs.128.mcz
by commits＠source.squeak.org 25 Jul '13

25 Jul '13

1 0

The Trunk: Files-fbs.128.mcz
by commits＠source.squeak.org 25 Jul '13

25 Jul '13

1 0

The Trunk: Environments-fbs.31.mcz
by commits＠source.squeak.org 25 Jul '13

25 Jul '13

Frank Shearar uploaded a new version of Environments to project The Trunk: http://source.squeak.org/trunk/Environments-fbs.31.mcz ==================== Summary ==================== Name: Environments-fbs.31 Author: fbs Time: 25 July 2013, 8:25:14.6 am UUID: 4f962b08-60dd-af4f-9e88-ed33fcd301ee Ancestors: Environments-cwp.30 SmalltalkImage current -> Smalltalk. =============== Diff against Environments-cwp.30 =============== Item was changed: ----- Method: EnvironmentLoader>>logEnd: (in category 'as yet unclassified') ----- logEnd: filename "Note: The main purpose of this banner is to flush the changes file." + Smalltalk logChange: '----End fileIn of ' , filename , ' into ', environment name, '----' ! - SmalltalkImage current logChange: '----End fileIn of ' , filename , ' into ', environment name, '----' ! Item was changed: ----- Method: EnvironmentLoader>>logStart: (in category 'as yet unclassified') ----- logStart: filename + Smalltalk logChange: '----Start fileIn of ' , filename , ' into ' , environment name , '----'! - SmalltalkImage current logChange: '----Start fileIn of ' , filename , ' into ' , environment name , '----'!

1 0

The Trunk: Environments-fbs.31.mcz
by commits＠source.squeak.org 25 Jul '13

25 Jul '13

1 0

The Trunk: Environments-fbs.31.mcz
by commits＠source.squeak.org 25 Jul '13

25 Jul '13

1 0

The Trunk: EToys-fbs.104.mcz
by commits＠source.squeak.org 25 Jul '13

25 Jul '13

Frank Shearar uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-fbs.104.mcz ==================== Summary ==================== Name: EToys-fbs.104 Author: fbs Time: 25 July 2013, 8:23:40.486 am UUID: ef60b84b-050f-ea44-91c0-1fe3397b2058 Ancestors: EToys-fbs.103 SmalltalkImage current -> Smalltalk. =============== Diff against EToys-fbs.103 =============== Item was changed: ----- Method: KedamaMorph>>calcTurtlesCount (in category 'turtles') ----- calcTurtlesCount turtleCount := 0. turtlesDict do: [:a | turtleCount := turtleCount + a size]. + Smalltalk vmParameterAt: 5 put: ((turtleCount * 3) min: 16000 max: 4000). + Smalltalk vmParameterAt: 6 put: ((turtleCount * 6) min: 32000 max: 8000). - SmalltalkImage current vmParameterAt: 5 put: ((turtleCount * 3) min: 16000 max: 4000). - SmalltalkImage current vmParameterAt: 6 put: ((turtleCount * 6) min: 32000 max: 8000). !

1 0

The Trunk: EToys-fbs.104.mcz
by commits＠source.squeak.org 25 Jul '13

25 Jul '13

1 0

← Newer
1
...
5
6
7
8
9
10
11
...
53
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages July 2013