[Pkg] The Trunk: Kernel-nice.1018.mcz

commits at source.squeak.org commits at source.squeak.org
Wed May 4 21:51:40 UTC 2016


Nicolas Cellier uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-nice.1018.mcz

==================== Summary ====================

Name: Kernel-nice.1018
Author: nice
Time: 4 May 2016, 11:50:22.289732 pm
UUID: 9c352422-6711-4a46-a864-86b07e0db599
Ancestors: Kernel-nice.1017

Move #representsSameBrowseeAs: and #postAcceptBrowseFor: out of Morphic

=============== Diff against Kernel-nice.1017 ===============

Item was changed:
  ----- Method: EventSensor class>>initialize (in category 'class initialization') -----
  initialize
  
+ 	Smalltalk addToStartUpList: self before: ProcessorScheduler.
- 	Smalltalk addToStartUpList: self after: Cursor.
  	Smalltalk addToShutDownList: self.
  	
  	self installKeyDecodeTable.
  	self installMouseDecodeTable.
  	self install.
  
  !

Item was changed:
  ----- Method: Fraction>>floorLog: (in category 'mathematical functions') -----
  floorLog: radix
  	"Unlike super, this version is exact when radix is integer"
  	
  	| d n |
+ 	radix isInteger ifFalse: [^super floorLog: 10].
- 	radix isInteger ifFalse: [^super floorLog: radix].
  	n := numerator floorLog: radix.
  	d := denominator floorLog: radix.
  	^(numerator * (radix raisedTo: d))
  		< (denominator * (radix raisedTo: n))
  		ifTrue: [n - d - 1]
  		ifFalse: [n - d]!

Item was changed:
  ----- Method: Integer>>floorLog: (in category 'mathematical functions') -----
  floorLog: radix
  	"Unlike super, this version is exact when radix is integer"
  	
+ 	radix isInteger ifFalse: [^super floorLog: 10].
- 	radix isInteger ifFalse: [^super floorLog: radix].
  	self <= 0 ifTrue: [^DomainError signal: 'floorLog: is only defined for x > 0.0'].
  	^(self numberOfDigitsInBase: radix) - 1!

Item was added:
+ ----- Method: Model>>aboutToStyle: (in category 'morphic ui') -----
+ aboutToStyle: aStyler
+ 	"Default implementation for text styling. No changes in styler configuration but we are OK to style our contents."
+ 
+ 	^ true!

Item was added:
+ ----- Method: Model>>postAcceptBrowseFor: (in category 'morphic ui') -----
+ postAcceptBrowseFor: anotherModel 
+ 	"If I am taking over browsing for anotherModel, sucblasses may override to, for example, position me to the object to be focused on."!

Item was added:
+ ----- Method: Model>>representsSameBrowseeAs: (in category 'morphic ui') -----
+ representsSameBrowseeAs: anotherModel
+ 	"Answer true if my browser can browse what anotherModel wants to browse."
+ 	^ false!



More information about the Packages mailing list