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!
packages@lists.squeakfoundation.org