The Trunk: Graphics-tfel.327.mcz

Tim Felgentreff uploaded a new version of Graphics to project The Trunk:
http://source.squeak.org/trunk/Graphics-tfel.327.mcz

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

Name: Graphics-tfel.327
Author: tfel
Time: 23 February 2016, 6:17:13.508562 pm
UUID: 5c89afe4-2c81-4948-a7ac-c12ce4eeaa95
Ancestors: Graphics-tfel.326

Revert Graphics-tfel.328 (as per bf's recommendation)

=============== Diff against Graphics-tfel.326 ===============

Item was changed:
  ----- Method: Rectangle>>newRectButtonPressedDo: (in category 'transforming') -----
  newRectButtonPressedDo: newRectBlock
  "Track the outline of a new rectangle until mouse button
  changes. newFrameBlock produces each new rectangle from the
  previous. Only tracks while mouse is down."
  | rect newRect buttonNow delay |
  delay := Delay forMilliseconds: 10.
  buttonNow := Sensor anyButtonPressed.
  rect := self.
  Display
  border: rect
  width: 2
  rule: Form reverse
  fillColor: Color gray.
  [buttonNow]
  whileTrue: [delay wait.
  buttonNow := Sensor anyButtonPressed.
  newRect := newRectBlock value: rect.
  newRect = rect
  ifFalse: [Display
  border: rect
  width: 2
  rule: Form reverse
  fillColor: Color gray.
  Display
  border: newRect
  width: 2
  rule: Form reverse
  fillColor: Color gray.
- Display forceToScreen.
  rect := newRect]].
  Display
  border: rect
  width: 2
  rule: Form reverse
  fillColor: Color gray.
  Project current pointerMoved.
  Sensor processEvent: Sensor createMouseEvent.
  ^ rect!

Item was changed:
  ----- Method: Rectangle>>newRectFrom: (in category 'transforming') -----
  newRectFrom: newRectBlock
  "Track the outline of a new rectangle until mouse button changes.
  newFrameBlock produces each new rectangle from the previous"
  | rect newRect buttonStart buttonNow delay |
  delay := Delay forMilliseconds: 10.
  buttonStart := buttonNow := Sensor anyButtonPressed.
  rect := self.
  Display border: rect width: 2 rule: Form reverse fillColor: Color gray.
  [buttonNow == buttonStart] whileTrue:
  [delay wait.
  buttonNow := Sensor anyButtonPressed.
  newRect := newRectBlock value: rect.
  newRect = rect ifFalse:
  [Display border: rect width: 2 rule: Form reverse fillColor: Color gray.
  Display border: newRect width: 2 rule: Form reverse fillColor: Color gray.
- Display forceToScreen.
  rect := newRect]].
  Display border: rect width: 2 rule: Form reverse fillColor: Color gray.
  Project current pointerMoved.
  Sensor processEvent: Sensor createMouseEvent.
  ^ rect!