40 |
40 |
41 a View which can hold DisplayObjects, can make selections, move them around etc. |
41 a View which can hold DisplayObjects, can make selections, move them around etc. |
42 this is an abstract class providing common mechanisms - actual instances are |
42 this is an abstract class providing common mechanisms - actual instances are |
43 DrawView, DirectoryView, LogicView or DocumentView. |
43 DrawView, DirectoryView, LogicView or DocumentView. |
44 |
44 |
45 $Header: /cvs/stx/stx/libwidg/Attic/ObjView.st,v 1.6 1994-01-08 17:27:34 claus Exp $ |
45 $Header: /cvs/stx/stx/libwidg/Attic/ObjView.st,v 1.7 1994-01-13 00:17:22 claus Exp $ |
46 written spring/summer 89 by claus |
46 written spring/summer 89 by claus |
47 '! |
47 '! |
48 |
48 |
49 !ObjectView class methodsFor:'defaults'! |
49 !ObjectView class methodsFor:'defaults'! |
50 |
50 |
1550 startRectangleDrag:startPoint |
1550 startRectangleDrag:startPoint |
1551 "start a rectangle drag" |
1551 "start a rectangle drag" |
1552 |
1552 |
1553 self setRectangleDragActions. |
1553 self setRectangleDragActions. |
1554 groupRectangleFrame := Rectangle origin:startPoint corner:startPoint. |
1554 groupRectangleFrame := Rectangle origin:startPoint corner:startPoint. |
1555 self xoring:[self drawRectangle:groupRectangleFrame]. |
1555 self xoring:[self displayRectangle:groupRectangleFrame]. |
1556 oldCursor := cursor. |
1556 oldCursor := cursor. |
1557 self cursor:leftHandCursor |
1557 self cursor:leftHandCursor |
1558 ! |
1558 ! |
1559 |
1559 |
1560 doRectangleDrag:aPoint |
1560 doRectangleDrag:aPoint |
1561 "do drag a rectangle" |
1561 "do drag a rectangle" |
1562 |
1562 |
1563 self xoring:[ |
1563 self xoring:[ |
1564 self drawRectangle:groupRectangleFrame. |
1564 self displayRectangle:groupRectangleFrame. |
1565 groupRectangleFrame corner:aPoint. |
1565 groupRectangleFrame corner:aPoint. |
1566 self drawRectangle:groupRectangleFrame |
1566 self displayRectangle:groupRectangleFrame |
1567 ] |
1567 ] |
1568 ! |
1568 ! |
1569 |
1569 |
1570 endRectangleDrag |
1570 endRectangleDrag |
1571 "cleanup after rectangle drag; select them" |
1571 "cleanup after rectangle drag; select them" |
1572 |
1572 |
1573 self xoring:[self drawRectangle:groupRectangleFrame]. |
1573 self xoring:[self displayRectangle:groupRectangleFrame]. |
1574 self cursor:oldCursor. |
1574 self cursor:oldCursor. |
1575 self selectAllIn:(groupRectangleFrame + viewOrigin) |
1575 self selectAllIn:(groupRectangleFrame + viewOrigin) |
1576 ! |
1576 ! |
1577 |
1577 |
1578 selectMore:aPoint |
1578 selectMore:aPoint |