equal
deleted
inserted
replaced
1430 ]. |
1430 ]. |
1431 coll := clipBoardSpec collection. |
1431 coll := clipBoardSpec collection. |
1432 device := gallery device. |
1432 device := gallery device. |
1433 |
1433 |
1434 point := device translatePoint:(device pointerPosition) |
1434 point := device translatePoint:(device pointerPosition) |
1435 from:(device rootView id) |
1435 from:(device rootWindowId) |
1436 to:(gallery canvas id). |
1436 to:(gallery canvas id). |
1437 |
1437 |
1438 point y < 1 ifTrue:[point y:1]. |
1438 point y < 1 ifTrue:[point y:1]. |
1439 ext := gallery extent - (10@10). |
1439 ext := gallery extent - (10@10). |
1440 |
1440 |