The Inbox: Kernel-fm.869.mcz

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!