Etoys: OLPC-Display-bf.5.mcz

Bert Freudenberg uploaded a new version of OLPC-Display to project Etoys:
http://source.squeak.org/etoys/OLPC-Display-bf.5.mcz

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

Name: OLPC-Display-bf.5
Author: bf
Time: 24 June 2012, 2:43:17 pm
UUID: d577cb94-9969-4d59-84e1-a38fb25ac0a3
Ancestors: OLPC-Display-yo.4

Protect virtual sensor against using a non-virtual display.

=============== Diff against OLPC-Display-yo.4 ===============

Item was changed:
  ----- Method: OLPCVirtualSensor>>primGetNextEvent: (in category 'accessing') -----
  primGetNextEvent: array
  | scale offset |
  super primGetNextEvent: array.
+ Display isVirtualScreen ifFalse: [^self].
  "scale mouse events"
  (array at: 1) = EventTypeMouse ifTrue:[
  offset := Display displayOffset.
  scale := Display displayScale.
  array at: 3 put: ((array at: 3) - offset x * scale) truncated.
  array at: 4 put: ((array at: 4) - offset y * scale) truncated.
  ].
  (array at: 1) = EventTypeDragDropFiles ifTrue:[
  scale := Display displayScale.
  offset := Display displayOffset.
  array at: 4 put: ((array at: 4) - offset x * scale) truncated.
  array at: 5 put: ((array at: 5) - offset y * scale) truncated.
  ].!

_______________________________________________
etoys-dev mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev