Packages July 2011

packages@lists.squeakfoundation.org

1 participants
141 discussions

The Trunk: System-bf.446.mcz
by commits＠source.squeak.org 11 Jul '11

11 Jul '11

Bert Freudenberg uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-bf.446.mcz ==================== Summary ==================== Name: System-bf.446 Author: bf Time: 11 July 2011, 11:06:25.328 am UUID: e0bb3739-1ffb-4552-b95d-75e95f6033bf Ancestors: System-ul.445 - provide methods to read image format from image file - warn about saving in a different format =============== Diff against System-ul.445 =============== Item was changed: ----- Method: SmalltalkImage>>imageFormatVersion (in category 'image') ----- imageFormatVersion + "Answer an integer identifying the type of image in memory. The image version number may - "Answer an integer identifying the type of image. The image version number may identify the format of the image (e.g. 32 or 64-bit word size) or specific requirements of the image (e.g. block closure support required). This invokes an optional primitive that may not be available on all virtual machines." "Smalltalk image imageFormatVersion" <primitive: 'primitiveImageFormatVersion'> self notify: 'This virtual machine does not support the optional primitive #primitiveImageFormatVersion' translated. ^''! Item was added: + ----- Method: SmalltalkImage>>imageFormatVersionFromFile (in category 'image') ----- + imageFormatVersionFromFile + "Answer an integer identifying the type of image on file. The image version number may + identify the format of the image (e.g. 32 or 64-bit word size) or specific requirements + of the image (e.g. block closure support required)" + + "Smalltalk image imageFormatVersionFromFile" + + | format | + format := self imageFormatVersionFromFileAsIs. + ^format <= 16r00FFFFFF + ifTrue: [ "same endianness as VM" + format ] + ifFalse: [ "convert endianness" + ((format bitAnd: 16rFF000000) >> 24) + + ((format bitAnd: 16r00FF0000) >> 8) + + ((format bitAnd: 16r0000FF00) << 8) + + ((format bitAnd: 16r000000FF) << 16)]! Item was added: + ----- Method: SmalltalkImage>>imageFormatVersionFromFileAsIs (in category 'image') ----- + imageFormatVersionFromFileAsIs + "Answer an integer identifying the type of image on file. The image version number may + identify the format of the image (e.g. 32 or 64-bit word size) or specific requirements + of the image (e.g. block closure support required). If the image file has a different + endianness than the VM, the format version will appear byte-swapped." + + "Smalltalk image imageFormatVersionFromFileAsIs" + + ^(FileStream readOnlyFileNamed: Smalltalk imageName do: [ :file | file binary; next: 4 ]) + unsignedLongAt: 1 bigEndian: Smalltalk isBigEndian! Item was added: + ----- Method: SmalltalkImage>>okayToSave (in category 'snapshot and quit') ----- + okayToSave + | wasCog isCog | + [wasCog := self imageFormatVersionFromFile allMask: 1] + on: Error do: [:ignore | "probably save-as to non-existing file" ^ true ]. + isCog := Smalltalk isRunningCog. + ^wasCog = isCog or: [ + self confirm: 'Images saved under Cog cannot be opened on an interpreter again!! + Really save?'] + ! Item was changed: ----- Method: SmalltalkImage>>saveAs: (in category 'sources, changes log') ----- saveAs: newName "Save the image under that new name." newName ifNil:[^ self]. + self okayToSave ifFalse: [^self]. (SourceFiles at: 2) ifNotNil: [self closeSourceFiles; "so copying the changes file will always work" saveChangesInFileNamed: (self fullNameForChangesNamed: newName)]. self saveImageInFileNamed: (self fullNameForImageNamed: newName)! Item was changed: ----- Method: SmalltalkImage>>saveAsNewVersion (in category 'sources, changes log') ----- saveAsNewVersion "Save the image/changes using the next available version number." "SmalltalkImage current saveAsNewVersion" | newName changesName aName anIndex | + self okayToSave ifFalse: [^self]. aName := FileDirectory baseNameFor: (FileDirectory default localNameFor: self imageName). anIndex := aName lastIndexOf: FileDirectory dot asCharacter ifAbsent: [nil]. (anIndex notNil and: [(aName copyFrom: anIndex + 1 to: aName size) isAllDigits]) ifTrue: [aName := aName copyFrom: 1 to: anIndex - 1]. newName := FileDirectory default nextNameFor: aName extension: FileDirectory imageSuffix. changesName := self fullNameForChangesNamed: newName. "Check to see if there is a .changes file that would cause a problem if we saved a new .image file with the new version number" (FileDirectory default fileOrDirectoryExists: changesName) ifTrue: [^ self inform: 'There is already .changes file of the desired name, ', newName, ' curiously already present, even though there is no corresponding .image file. Please remedy manually and then repeat your request.']. (SourceFiles at: 2) ifNotNil: [self closeSourceFiles; "so copying the changes file will always work" saveChangesInFileNamed: (self fullNameForChangesNamed: newName)]. self saveImageInFileNamed: (self fullNameForImageNamed: newName) ! Item was changed: ----- Method: SmalltalkImage>>snapshot:andQuit: (in category 'snapshot and quit') ----- snapshot: save andQuit: quit + (save and: [self okayToSave not]) ifTrue: [^self]. ^self snapshot: save andQuit: quit embedded: false!

1 0

The Trunk: Kernel-ul.604.mcz
by commits＠source.squeak.org 10 Jul '11

10 Jul '11

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.604.mcz ==================== Summary ==================== Name: Kernel-ul.604 Author: ul Time: 10 July 2011, 4:36:20.467 pm UUID: f758876f-a507-404b-aa2f-2c1038504b48 Ancestors: Kernel-bf.603 Optimized Integer >> #= for integer-integer comparisons. Return false for integers from different classes without further checking. =============== Diff against Kernel-bf.603 =============== Item was changed: ----- Method: Integer>>= (in category 'comparing') ----- = aNumber + + aNumber isInteger ifTrue: [ + aNumber class == self class ifFalse: [ ^false ]. + ^(self digitCompare: aNumber) = 0 ]. + aNumber isNumber ifFalse: [ ^false ]. + ^aNumber adaptToInteger: self andCompare: #=! - aNumber isNumber ifFalse: [^ false]. - aNumber isInteger ifTrue: - [aNumber negative == self negative - ifTrue: [^ (self digitCompare: aNumber) = 0] - ifFalse: [^ false]]. - ^ aNumber adaptToInteger: self andCompare: #=!

1 0

The Trunk: Kernel-ul.604.mcz
by commits＠source.squeak.org 10 Jul '11

10 Jul '11

1 0

The Trunk: Kernel-ul.604.mcz
by commits＠source.squeak.org 10 Jul '11

10 Jul '11

1 0

The Trunk: System-ul.445.mcz
by commits＠source.squeak.org 09 Jul '11

09 Jul '11

Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.445.mcz ==================== Summary ==================== Name: System-ul.445 Author: ul Time: 9 July 2011, 4:28:49.996 pm UUID: f245e950-b6d1-6c49-ae78-bb092ba2d9e2 Ancestors: System-cmm.444 MethodReference was the only implementor of #asStringOrText (besides Object, String and Text). Implementing #asString instead of #asStringOrText makes the system a bit more cleaner and fixes the behavior of PluggableListMorphs with MethodReferences (e.g. implementors/senders browsers vs searching with the keyboard). There's a very slight chance, that this causes problems for some images, but no tests are broken because of this change in the Trunk image. =============== Diff against System-cmm.444 =============== Item was added: + ----- Method: MethodReference>>asString (in category 'converting') ----- + asString + + ^stringVersion ifNil: [ self stringVersionDefault ]! Item was removed: - ----- Method: MethodReference>>asStringOrText (in category 'accessing') ----- - asStringOrText - - - ^stringVersion ifNil: [ self stringVersionDefault ]!

1 0

The Trunk: System-ul.445.mcz
by commits＠source.squeak.org 09 Jul '11

09 Jul '11

1 0

The Trunk: System-ul.445.mcz
by commits＠source.squeak.org 09 Jul '11

09 Jul '11

1 0

The Trunk: Morphic-ul.555.mcz
by commits＠source.squeak.org 09 Jul '11

09 Jul '11

Levente Uzonyi uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ul.555.mcz ==================== Summary ==================== Name: Morphic-ul.555 Author: ul Time: 9 July 2011, 4:22:56.282 pm UUID: ba403dfa-f93e-8449-8441-16d3fcc2f254 Ancestors: Morphic-ael.554 A bit faster and cleaner PluggableListMorph >> #basicKeyPressed:. =============== Diff against Morphic-ael.554 =============== Item was changed: ----- Method: PluggableListMorph>>basicKeyPressed: (in category 'model access') ----- basicKeyPressed: aChar + + | milliseconds slowKeyStroke listSize newSelectionIndex oldSelectionIndex startIndex | + oldSelectionIndex := newSelectionIndex := self getCurrentSelectionIndex. + listSize := self getListSize. + milliseconds := Time millisecondClockValue. + slowKeyStroke := (Time milliseconds: milliseconds since: lastKeystrokeTime) > 300. + lastKeystrokeTime := milliseconds. - | oldSelection nextSelection max milliSeconds slowKeyStroke nextSelectionList nextSelectionText | - nextSelection := oldSelection := self getCurrentSelectionIndex. - max := self maximumSelection. - milliSeconds := Time millisecondClockValue. - slowKeyStroke := milliSeconds - lastKeystrokeTime > 300. - lastKeystrokeTime := milliSeconds. - nextSelectionList := OrderedCollection newFrom: (self getList copyFrom: oldSelection + 1 to: max). - nextSelectionList addAll: (self getList copyFrom: 1 to: ((oldSelection - 1) max: 0)). slowKeyStroke ifTrue: ["forget previous keystrokes and search in following elements" lastKeystrokes := aChar asLowercase asString. + newSelectionIndex := newSelectionIndex \\ listSize + 1 ] - oldSelection > 0 ifTrue: [nextSelectionList addLast: (self getList at: oldSelection)]] ifFalse: ["append quick keystrokes but don't move selection if it still matches" + lastKeystrokes := lastKeystrokes , aChar asLowercase asString ]. - lastKeystrokes := lastKeystrokes , aChar asLowercase asString. - oldSelection > 0 ifTrue: [nextSelectionList addFirst: (self getList at: oldSelection)]]. - "Get rid of blanks and style used in some lists" - nextSelectionText := nextSelectionList - detect: [:a | a asString withBlanksTrimmed asLowercase beginsWith: lastKeystrokes] - ifNone: [^ self flash "match not found"]. "No change if model is locked" + model okToChange ifFalse: [ ^self ]. + "Get rid of blanks and style used in some lists" + startIndex := newSelectionIndex. + [ + (self getListItem: newSelectionIndex) asString + withBlanksTrimmed asLowercase beginsWith: lastKeystrokes ] + whileFalse: [ + (newSelectionIndex := newSelectionIndex \\ listSize + 1) = startIndex ifTrue: [ + ^self flash. "Not in list." ] ]. + newSelectionIndex = oldSelectionIndex ifTrue: [ ^self flash ]. "Same selection." + ^self changeModelSelection: newSelectionIndex! - model okToChange ifFalse: [^ self]. - nextSelection := self getList findFirst: [:a | a = nextSelectionText]. - oldSelection == nextSelection ifTrue: [^ self flash]. - ^ self changeModelSelection: nextSelection!

1 0

The Trunk: Morphic-ul.555.mcz
by commits＠source.squeak.org 09 Jul '11

09 Jul '11

1 0

The Trunk: Morphic-ul.555.mcz
by commits＠source.squeak.org 09 Jul '11

09 Jul '11

1 0

← Newer
1
...
9
10
11
12
13
14
15
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 2011