The Trunk: MorphicExtras-bf.241.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: MorphicExtras-bf.241.mcz

commits-2
Bert Freudenberg uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-bf.241.mcz

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

Name: MorphicExtras-bf.241
Author: bf
Time: 6 July 2018, 12:50:51.907705 pm
UUID: 9fa635ce-e870-48d6-bc03-7fe4a95af05a
Ancestors: MorphicExtras-ul.240

FrameRateMorph: ensure at least one pixel is drawn per frame to not get bogus numbers

=============== Diff against MorphicExtras-ul.240 ===============

Item was changed:
  ----- Method: FrameRateMorph>>step (in category 'stepping and presenter') -----
  step
  "Compute and display (every half second or so) the current framerate"
 
  | now mSecs mSecsPerFrame framesPerSec newContents |
  framesSinceLastDisplay := framesSinceLastDisplay + 1.
  now := Time millisecondClockValue.
  mSecs := now - lastDisplayTime.
  (mSecs > 500 or: [mSecs < 0 "clock wrap-around"]) ifTrue:
  [mSecsPerFrame := mSecs // framesSinceLastDisplay.
  framesPerSec := (framesSinceLastDisplay * 1000) // mSecs.
  newContents := mSecsPerFrame printString, ' mSecs (', framesPerSec printString, ' frame', (framesPerSec = 1 ifTrue: [''] ifFalse: ['s']), '/sec)'.
  self contents: newContents.
  lastDisplayTime := now.
+ framesSinceLastDisplay := 0]
+ ifFalse:
+ ["Ensure at least one pixel is drawn per frame"
+ Preferences higherPerformance ifTrue: [self invalidRect: (self position extent: 1@1)]]!
- framesSinceLastDisplay := 0]!