Squeak-dev July 2013

squeak-dev@lists.squeakfoundation.org

50 participants
342 discussions

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: 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: 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: Compression-fbs.39.mcz
by commits＠source.squeak.org 25 Jul '13

25 Jul '13

Frank Shearar uploaded a new version of Compression to project The Trunk: http://source.squeak.org/trunk/Compression-fbs.39.mcz ==================== Summary ==================== Name: Compression-fbs.39 Author: fbs Time: 25 July 2013, 8:22:39.969 am UUID: 459e1805-f255-014f-bb59-15a81de9cc48 Ancestors: Compression-fbs.38 SmalltalkImage current -> Smalltalk. =============== Diff against Compression-fbs.38 =============== Item was changed: ----- Method: GZipSurrogateStream>>timeStamp (in category 'as yet unclassified') ----- timeStamp "Append the current time to the receiver as a String." self bufferStream nextChunkPut: "double string quotes and !!s" + (String streamContents: [:s | Smalltalk timeStamp: s]) printString. - (String streamContents: [:s | SmalltalkImage current timeStamp: s]) printString. self bufferStream cr!

1 0

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

25 Jul '13

Frank Shearar uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-fbs.525.mcz ==================== Summary ==================== Name: Collections-fbs.525 Author: fbs Time: 25 July 2013, 8:21:27.078 am UUID: 185d41d8-2d5e-554e-b8fc-46e19a07becc Ancestors: Collections-fbs.524 SmalltalkImage current -> Smalltalk. =============== Diff against Collections-fbs.524 =============== Item was changed: ----- Method: ArrayedCollection>>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. Reverse the byte order if the current machine is Little Endian. We only intend this for non-pointer arrays. Do nothing if I contain pointers." self class isPointers | self class isWords not ifTrue: [^self]. + Smalltalk isLittleEndian - SmalltalkImage current isLittleEndian ifTrue: [Bitmap swapBytesIn: self from: 1 to: self basicSize]! Item was changed: ----- Method: PositionableStream>>fileInAnnouncing: (in category 'fileIn/Out') ----- fileInAnnouncing: announcement "This is special for reading expressions from text that has been formatted with exclamation delimitors. The expressions are read and passed to the Compiler. Answer the result of compilation. Put up a progress report with the given announcement as the title." | val | announcement displayProgressFrom: 0 to: self size during: [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [ | chunk | val := (self peekFor: $!!) ifTrue: [(Compiler evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. Compiler evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close]. "Note: The main purpose of this banner is to flush the changes file." + Smalltalk logChange: '----End fileIn of ' , self name , '----'. - SmalltalkImage current logChange: '----End fileIn of ' , self name , '----'. self flag: #ThisMethodShouldNotBeThere. "sd" ^val! Item was changed: ----- Method: PositionableStream>>fileInFor:announcing: (in category 'fileIn/Out') ----- fileInFor: client announcing: announcement "This is special for reading expressions from text that has been formatted with exclamation delimitors. The expressions are read and passed to the Compiler. Answer the result of compilation. Put up a progress report with the given announcement as the title. Does NOT handle preambles or postscripts specially." | val | announcement displayProgressFrom: 0 to: self size during: [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [ | chunk | val := (self peekFor: $!!) ifTrue: [ (Compiler evaluate: self nextChunk for: client logged: false) scanFrom: self ] ifFalse: [ chunk := self nextChunk. self checkForPreamble: chunk. Compiler evaluate: chunk for: client logged: true ]. ] on: InMidstOfFileinNotification do: [ :ex | ex resume: true]. self atEnd ifFalse: [ self skipStyleChunk ]]. self close]. "Note: The main purpose of this banner is to flush the changes file." + Smalltalk logChange: '----End fileIn of ' , self name , '----'. - SmalltalkImage current logChange: '----End fileIn of ' , self name , '----'. ^ val! Item was changed: ----- Method: PositionableStream>>fileInSilentlyAnnouncing: (in category 'fileIn/Out') ----- fileInSilentlyAnnouncing: announcement "This is special for reading expressions from text that has been formatted with exclamation delimitors. The expressions are read and passed to the Compiler. Answer the result of compilation. Put up a progress report with the given announcement as the title." | val chunk | [self atEnd] whileFalse: [self skipSeparators. [val := (self peekFor: $!!) ifTrue: [(Compiler evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. Compiler evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close. "Note: The main purpose of this banner is to flush the changes file." + Smalltalk logChange: '----End fileIn of ' , self name , '----'. - SmalltalkImage current logChange: '----End fileIn of ' , self name , '----'. self flag: #ThisMethodShouldNotBeThere. "sd" SystemNavigation new allBehaviorsDo: [:cl | cl removeSelectorSimply: #DoIt; removeSelectorSimply: #DoItIn:]. ^val! Item was changed: ----- Method: WriteStream>>timeStamp (in category 'fileIn/Out') ----- timeStamp "Append the current time to the receiver as a String." self nextChunkPut: "double string quotes and !!s" + (String streamContents: [:s | Smalltalk timeStamp: s]) printString. - (String streamContents: [:s | SmalltalkImage current timeStamp: s]) printString. self cr!

1 0

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

25 Jul '13

Frank Shearar uploaded a new version of Balloon to project The Trunk: http://source.squeak.org/trunk/Balloon-fbs.22.mcz ==================== Summary ==================== Name: Balloon-fbs.22 Author: fbs Time: 25 July 2013, 8:19:08.919 am UUID: 373e2c3f-9ac6-764b-8bed-b07b351f8144 Ancestors: Balloon-nice.21 SmalltalkImage current -> Smalltalk. =============== Diff against Balloon-nice.21 =============== Item was changed: ----- Method: ShortIntegerArray class>>startUpFrom: (in category 'class initialization') ----- startUpFrom: anImageSegment "In this case, do we need to swap word halves when reading this segement?" + ^ (Smalltalk endianness) ~~ (anImageSegment endianness) - ^ (SmalltalkImage current endianness) ~~ (anImageSegment endianness) ifTrue: [Message selector: #swapShortObjects] "will be run on each instance" ifFalse: [nil]. ! Item was changed: ----- Method: ShortIntegerArray>>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." | hack blt | + Smalltalk isLittleEndian ifTrue: [ - SmalltalkImage current isLittleEndian ifTrue: [ "The implementation is a hack, but fast for large ranges" hack := Form new hackBits: self. blt := (BitBlt toForm: hack) sourceForm: hack. blt combinationRule: Form reverse. "XOR" blt sourceY: 0; destY: 0; height: hack height; width: 1. blt sourceX: 0; destX: 1; copyBits. "Exchange bytes 0 and 1" blt sourceX: 1; destX: 0; copyBits. blt sourceX: 0; destX: 1; copyBits. blt sourceX: 2; destX: 3; copyBits. "Exchange bytes 2 and 3" blt sourceX: 3; destX: 2; copyBits. blt sourceX: 2; destX: 3; copyBits ]. ! Item was changed: ----- Method: ShortIntegerArray>>writeOn: (in category 'objects from disk') ----- writeOn: aStream aStream nextInt32Put: self basicSize. 1 to: self basicSize do: [ :i | | w | w := self basicAt: i. + Smalltalk isLittleEndian - SmalltalkImage current isLittleEndian ifFalse: [ aStream nextNumber: 4 put: w ] ifTrue: [ aStream nextPut: (w digitAt: 2); nextPut: (w digitAt: 1); nextPut: (w digitAt: 4); nextPut: (w digitAt: 3) ]].! Item was changed: ----- Method: ShortRunArray class>>startUpFrom: (in category 'class initialization') ----- startUpFrom: anImageSegment "In this case, do we need to swap word halves when reading this segement?" + ^Smalltalk endianness ~~ anImageSegment endianness - ^SmalltalkImage current endianness ~~ anImageSegment endianness ifTrue: [Message selector: #swapRuns "will be run on each instance"] ifFalse: [nil]! Item was changed: ----- Method: ShortRunArray>>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. ] ]. !

1 0

Daily Commit Log
by commits＠source.squeak.org 25 Jul '13

25 Jul '13

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2013-July/006244.html Name: SystemChangeNotification-Tests-fbs.21 Ancestors: SystemChangeNotification-Tests-fbs.20 Take Nicolas Cellier's suggestion to heart and use #includesKey:. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-July/006245.html Name: Tools-fbs.488 Ancestors: Tools-fbs.487 Let alt-N bring up the "class references to" list, like in a Browser. =============================================

1 0

makevm script
by Frank Shearar 24 Jul '13

24 Jul '13

Hi David, I just noticed/realised that now that we have multiple build slaves (thanks Tony!), we have a problem in that the CogVM build will fail on lfpdeb64/lfpdeb32 because those slaves don't have the makevm script. What's a good way to fix this? (Also, I'm guessing that the CogVM build should be limited to a 32 bit machine and, if we want to test its 64-bit-fitness, that we run a separate job (again limited, but to a 64 bit machine)) frank

2 2

Serious crash in BitBlt>installStrikeFont... related methods
by tim Rowledge 24 Jul '13

24 Jul '13

In BitBlt>computeRGBColorConvertingMap: targetColor to: destDepth keepSubPixelAA: keepSubPix there appears to be a pretty big bug in that the code very explicitly assumes that the 'targetColor' can only be a Color -when in fact InfiniteForms are also quite likely. For example, a StringMorph can have its color as one such. See, for example, Morph>color: where the code explicitly handles an InfiniteForm. Does anyone here recall developing this code? Any thoughts on what I might do - and yes, I know that not using an InfiniteForm is one of the things, but right now I still have to discover how it got set that way. Work with me here... tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Multitasking: Screwing up several things at once...

2 1

The Trunk: Tools-fbs.488.mcz
by commits＠source.squeak.org 24 Jul '13

24 Jul '13

Frank Shearar uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-fbs.488.mcz ==================== Summary ==================== Name: Tools-fbs.488 Author: fbs Time: 24 July 2013, 11:31:11.748 am UUID: 1961eaa2-9b11-be47-a97d-643ac2c30df1 Ancestors: Tools-fbs.487 Let alt-N bring up the "class references to" list, like in a Browser. =============== Diff against Tools-fbs.487 =============== Item was added: + ----- Method: DependencyBrowser>>classDepsKey:from: (in category 'class deps') ----- + classDepsKey: aCharacter from: aPluggableListMorphPlus + aCharacter = $N ifTrue: [^ self referencesToIt: (self classDeps at: self classDepsIndex)].! Item was added: + ----- Method: DependencyBrowser>>referencesToIt: (in category 'accessing') ----- + referencesToIt: aClassName + | binding environment | + environment := self selectedEnvironment. + binding := (environment bindingOf: aClassName) ifNil: [ ^ self ]. + self systemNavigation browseAllCallsOn: binding!

1 0

← Newer
1
...
6
7
8
9
10
11
12
...
35
Older →

Jump to page: