[squeak-dev] The Inbox: Kernel-fm.869.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Aug 14 02:10:33 UTC 2014
A new version of Kernel was added to project The Inbox:
http://source.squeak.org/inbox/Kernel-fm.869.mcz
==================== Summary ====================
Name: Kernel-fm.869
Author: fm
Time: 13 August 2014, 10:09:37.399 pm
UUID: 99e3d4c1-4ffb-5343-af3e-313683e5bf1e
Ancestors: Kernel-fm.867, Kernel-mt.868
merged with mt.868
one more fix to RelativeInstructionPointer (absolute positions were leaking in inherited pushClosureCopyNumCopiedValue:numArgs:blockSize:)
added a new utility method in CompiledMethod to return the original source from wherever it is stored (not just file) but without decompilation, since it would be used in decompiler tests
=============== Diff against Kernel-fm.867 ===============
Item was added:
+ ----- Method: CompiledMethod>>getSourceNoDecompile (in category 'source code management') -----
+ getSourceNoDecompile
+ "Retrieve the source code for this method."
+ | trailer |
+ (self properties includesKey: #source) ifTrue:
+ [^self properties at: #source].
+ trailer := self trailer.
+
+ trailer sourceCode ifNotNil: [:code | ^ code ].
+
+ trailer hasSourcePointer ifFalse: [
+ ^nil].
+
+ "Situation normal; read the sourceCode from the file"
+ ^[self getSourceFromFileAt: trailer sourcePointer]
+ on: Error
+ do: [ :ex | ex return: nil]
+ !
Item was changed:
Object subclass: #Model
instanceVariableNames: 'dependents'
+ classVariableNames: 'WindowActiveOnFirstClick'
- classVariableNames: ''
poolDictionaries: ''
category: 'Kernel-Models'!
!Model commentStamp: '<historical>' prior: 0!
Provides a superclass for classes that function as models. The only behavior provided is fast dependents maintenance, which bypasses the generic DependentsFields mechanism. 1/23/96 sw!
Item was added:
+ ----- Method: Model class>>windowActiveOnFirstClick (in category 'preferences') -----
+ windowActiveOnFirstClick
+ <preference: 'Window Active On First Click'
+ category: 'windows'
+ description: 'Whether or not you want to directly interact with a widget (e.g. button) in a not-yet-active window'
+ type: #Boolean>
+ ^ WindowActiveOnFirstClick ifNil: [ false ]!
Item was added:
+ ----- Method: Model class>>windowActiveOnFirstClick: (in category 'preferences') -----
+ windowActiveOnFirstClick: aBoolean
+
+ WindowActiveOnFirstClick := aBoolean.!
Item was added:
+ ----- Method: Model>>windowActiveOnFirstClick (in category 'user interface') -----
+ windowActiveOnFirstClick
+
+ ^ self class windowActiveOnFirstClick!
Item was changed:
+ ----- Method: Object>>isKindOf: (in category 'class membership') -----
- ----- Method: Object>>isKindOf: (in category '-- all --') -----
isKindOf: aClass
"Answer whether the class, aClass, is a superclass or class of the receiver."
^ self class == aClass or: [ self class inheritsFrom: aClass ]!
Item was added:
+ ----- Method: RelativeInstructionPrinter>>pushClosureCopyNumCopiedValues:numArgs:blockSize: (in category 'instruction decoding') -----
+ pushClosureCopyNumCopiedValues: numCopied numArgs: numArgs blockSize: blockSize
+ self print: 'closureNumCopied: ', numCopied printString
+ , ' numArgs: ', numArgs printString.
+ innerIndents
+ atAll: (scanner pc to: scanner pc + blockSize - 1)
+ put: (innerIndents at: scanner pc - 1) + 1!
More information about the Squeak-dev
mailing list
|