equal
deleted
inserted
replaced
457 buttonMotion:state x:x y:y |
457 buttonMotion:state x:x y:y |
458 "start a drag on selection |
458 "start a drag on selection |
459 " |
459 " |
460 |sensor| |
460 |sensor| |
461 |
461 |
462 (lastClickPoint notNil and:[selection notNil]) ifTrue:[ |
462 (state ~~ 0 and:[lastClickPoint notNil and:[selection notNil]]) ifTrue:[ |
463 sensor := self sensor. |
463 sensor := self sensor. |
464 sensor anyButtonPressed ifTrue:[ |
464 sensor anyButtonPressed ifTrue:[ |
465 (lastClickPoint dist:(x@y)) > 10.0 ifTrue:[ |
465 (lastClickPoint dist:(x@y)) > 10.0 ifTrue:[ |
466 ^ self startDragWithOffset:(x@y) - lastClickPoint |
466 ^ self startDragWithOffset:(x@y) - lastClickPoint |
467 ] |
467 ] |
468 ] |
468 ] |
469 ] |
469 ] |
470 |
|
471 "Modified: 11.8.1997 / 00:44:49 / cg" |
|
472 ! |
470 ! |
473 |
471 |
474 buttonPress:button x:x y:y |
472 buttonPress:button x:x y:y |
475 "change selection |
473 "change selection |
476 " |
474 " |