equal
deleted
inserted
replaced
324 "drag to a root point" |
324 "drag to a root point" |
325 |
325 |
326 |p extent point area| |
326 |p extent point area| |
327 |
327 |
328 (saveArea notNil and:[lastRootPoint notNil]) ifTrue:[ |
328 (saveArea notNil and:[lastRootPoint notNil]) ifTrue:[ |
329 ( lastRootPoint x == aRootPoint x |
329 (lastRootPoint = aRootPoint) ifTrue:[ |
330 and:[lastRootPoint y == aRootPoint y] |
|
331 ) ifTrue:[ |
|
332 "/ nothing changed |
330 "/ nothing changed |
333 ^ self |
331 ^ self |
334 ]. |
332 ]. |
335 ]. |
333 ]. |
336 |
334 |
462 ! ! |
460 ! ! |
463 |
461 |
464 !DragHandler class methodsFor:'documentation'! |
462 !DragHandler class methodsFor:'documentation'! |
465 |
463 |
466 version |
464 version |
467 ^ '$Header: /cvs/stx/stx/libview2/DragHandler.st,v 1.12 2008-04-22 16:16:52 cg Exp $' |
465 ^ '$Header: /cvs/stx/stx/libview2/DragHandler.st,v 1.13 2009-05-01 17:36:50 cg Exp $' |
468 ! ! |
466 ! ! |