Packages July 2013

packages@lists.squeakfoundation.org

1 participants
522 discussions

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

25 Jul '13

Frank Shearar uploaded a new version of MonticelloConfigurations to project The Trunk: http://source.squeak.org/trunk/MonticelloConfigurations-fbs.114.mcz ==================== Summary ==================== Name: MonticelloConfigurations-fbs.114 Author: fbs Time: 25 July 2013, 8:35:26.579 am UUID: 37902102-d160-7a4a-bef1-ecfed37a8f6f Ancestors: MonticelloConfigurations-ul.113 SmalltalkImage current -> Smalltalk. =============== Diff against MonticelloConfigurations-ul.113 =============== Item was changed: ----- Method: MCConfiguration>>logFileName (in category 'accessing') ----- logFileName + ^self name, '-', (FileDirectory localNameFor: Smalltalk imageName), '.log' - ^self name, '-', (FileDirectory localNameFor: SmalltalkImage current imageName), '.log' !

1 0

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

25 Jul '13

1 0

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

25 Jul '13

1 0

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

25 Jul '13

Frank Shearar uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-fbs.795.mcz ==================== Summary ==================== Name: Kernel-fbs.795 Author: fbs Time: 25 July 2013, 8:33:16.497 am UUID: 733a64b2-fc43-bc40-9114-599b085d9187 Ancestors: Kernel-fbs.794 SmalltalkImage current -> Smalltalk. =============== Diff against Kernel-fbs.794 =============== Item was changed: SystemOrganization addCategory: #'Kernel-Chronology'! SystemOrganization addCategory: #'Kernel-Classes'! SystemOrganization addCategory: #'Kernel-Exceptions'! SystemOrganization addCategory: #'Kernel-Exceptions-Kernel'! SystemOrganization addCategory: #'Kernel-Methods'! SystemOrganization addCategory: #'Kernel-Models'! SystemOrganization addCategory: #'Kernel-Numbers'! SystemOrganization addCategory: #'Kernel-Numbers-Exceptions'! SystemOrganization addCategory: #'Kernel-Objects'! SystemOrganization addCategory: #'Kernel-Processes'! SystemOrganization addCategory: #'Kernel-Processes-Variables'! - SystemOrganization addCategory: #'Kernel-Methods-Proxies'! Item was changed: ----- Method: BlockClosure>>timeToRunWithoutGC (in category 'evaluating') ----- timeToRunWithoutGC "Answer the number of milliseconds taken to execute this block without GC time." + ^(Smalltalk vmParameterAt: 8) + + (Smalltalk vmParameterAt: 10) + - ^(SmalltalkImage current vmParameterAt: 8) + - (SmalltalkImage current vmParameterAt: 10) + self timeToRun - + (Smalltalk vmParameterAt: 8) - + (Smalltalk vmParameterAt: 10) - (SmalltalkImage current vmParameterAt: 8) - - (SmalltalkImage current vmParameterAt: 10) ! Item was changed: ----- Method: CompiledMethod>>putSource:fromParseNode:inFile:withPreamble: (in category 'source code management') ----- putSource: sourceStr fromParseNode: methodNode inFile: fileIndex withPreamble: preambleBlock "Store the source code for the receiver on an external file. If no sources are available, i.e., SourceFile is nil, then store temp names for decompilation at the end of the method. If the fileIndex is 1, print on *.sources; if it is 2, print on *.changes, in each case, storing a 4-byte source code pointer at the method end." | file remoteString | (SourceFiles == nil or: [(file := SourceFiles at: fileIndex) == nil]) ifTrue: [^self become: (self copyWithTempsFromMethodNode: methodNode)]. + Smalltalk assureStartupStampLogged. - SmalltalkImage current assureStartupStampLogged. file setToEnd. preambleBlock value: file. "Write the preamble" remoteString := RemoteString newString: sourceStr onFileNumber: fileIndex toFile: file. file nextChunkPut: ' '. InMidstOfFileinNotification signal ifFalse: [file flush]. self checkOKToAdd: sourceStr size at: remoteString position. self setSourcePosition: remoteString position inFile: fileIndex! Item was changed: ----- Method: ContextPart>>errorReportOn: (in category 'debugger access') ----- errorReportOn: strm "Write a detailed error report on the stack (above me) on a stream. For both the error file, and emailing a bug report. Suppress any errors while getting printStrings. Limit the length." | cnt aContext startPos | strm print: Date today; space; print: Time now; cr. strm cr. strm nextPutAll: 'VM: '; + nextPutAll: Smalltalk platformName asString; - nextPutAll: SmalltalkImage current platformName asString; nextPutAll: ' - '; + nextPutAll: Smalltalk asString; - nextPutAll: SmalltalkImage current asString; cr. strm nextPutAll: 'Image: '; nextPutAll: SystemVersion current version asString; nextPutAll: ' ['; + nextPutAll: Smalltalk lastUpdateString asString; - nextPutAll: SmalltalkImage current lastUpdateString asString; nextPutAll: ']'; cr. strm cr. SecurityManager default printStateOn: strm. "Note: The following is an open-coded version of ContextPart>>stackOfSize: since this method may be called during a low space condition and we might run out of space for allocating the full stack." cnt := 0. startPos := strm position. aContext := self. [aContext notNil and: [(cnt := cnt + 1) < 20]] whileTrue: [aContext printDetails: strm. "variable values" strm cr. aContext := aContext sender]. strm cr; nextPutAll: '--- The full stack ---'; cr. aContext := self. cnt := 0. [aContext == nil] whileFalse: [cnt := cnt + 1. cnt = 20 ifTrue: [strm nextPutAll: ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -'; cr]. strm print: aContext; cr. "just class>>selector" strm position > (startPos+40000) ifTrue: [strm nextPutAll: '...etc...'. ^ self]. "exit early" cnt > 60 ifTrue: [strm nextPutAll: '-- and more not shown --'. ^ self]. aContext := aContext sender]. !

1 0

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

25 Jul '13

1 0

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

25 Jul '13

1 0

The Trunk: Installer-Core-fbs.373.mcz
by commits＠source.squeak.org 25 Jul '13

25 Jul '13

Frank Shearar uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-fbs.373.mcz ==================== Summary ==================== Name: Installer-Core-fbs.373 Author: fbs Time: 25 July 2013, 8:31:56.117 am UUID: 1bdb5287-25c3-be46-9697-94602ec3c251 Ancestors: Installer-Core-fbs.372 SmalltalkImage current -> Smalltalk. =============== Diff against Installer-Core-fbs.372 =============== Item was changed: ----- Method: InstallerCruft class>>smalltalkImage (in category 'accessing system') ----- smalltalkImage + ^ Smalltalk! - - ^ SmalltalkImage current! Item was changed: ----- Method: InstallerMonticello>>unloadCleanUp (in category 'public interface') ----- unloadCleanUp SystemOrganization removeEmptyCategories. "Until Mantis 5718 is addressed" Smalltalk at: #PackagePaneBrowser ifPresent: [ :ppbClass | ppbClass allInstancesDo: [ :ppb | ppb updatePackages ] ]. Smalltalk at: #Browser ifPresent: [ :bClass | bClass allInstancesDo: [ :b | b updateSystemCategories ] ]. MCFileBasedRepository freeSomeSpace. + Smalltalk fixObsoleteReferences.! - SmalltalkImage current fixObsoleteReferences.!

1 0

The Trunk: Installer-Core-fbs.373.mcz
by commits＠source.squeak.org 25 Jul '13

25 Jul '13

1 0

The Trunk: Installer-Core-fbs.373.mcz
by commits＠source.squeak.org 25 Jul '13

25 Jul '13

1 0

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

← Newer
1
...
4
5
6
7
8
9
10
...
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