The Trunk: Kernel-nice.1018.mcz

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!