equal
deleted
inserted
replaced
1453 ]. |
1453 ]. |
1454 coll := clipBoardSpec collection. |
1454 coll := clipBoardSpec collection. |
1455 device := gallery device. |
1455 device := gallery device. |
1456 |
1456 |
1457 point := device translatePoint:(device pointerPosition) |
1457 point := device translatePoint:(device pointerPosition) |
1458 from:(device rootWindowId) |
1458 fromView:nil |
1459 to:(gallery canvas id). |
1459 toView:(gallery canvas). |
1460 |
1460 |
1461 point y < 1 ifTrue:[point y:1]. |
1461 point y < 1 ifTrue:[point y:1]. |
1462 ext := gallery extent - (10@10). |
1462 ext := gallery extent - (10@10). |
1463 |
1463 |
1464 (specs := something) isCollection ifFalse:[ |
1464 (specs := something) isCollection ifFalse:[ |
1473 spec layout:(LayoutOrigin fromPoint:point). |
1473 spec layout:(LayoutOrigin fromPoint:point). |
1474 coll add:spec. |
1474 coll add:spec. |
1475 point := point + (20@20). |
1475 point := point + (20@20). |
1476 ]. |
1476 ]. |
1477 gallery update. |
1477 gallery update. |
|
1478 |
|
1479 "Modified: / 10.10.2001 / 14:14:36 / cg" |
1478 ! |
1480 ! |
1479 |
1481 |
1480 raiseMenu |
1482 raiseMenu |
1481 "can open menu |
1483 "can open menu |
1482 " |
1484 " |