[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