1 "

     2  COPYRIGHT (c) 1989-92 by Claus Gittinger

     3               All Rights Reserved

     4 

     5  This software is furnished under a license and may be used

     6  only in accordance with the terms of that license and with the

     7  inclusion of the above copyright notice.   This software may not

     8  be provided or otherwise made available to, or used by, any

     9  other person.  No title to or ownership of the software is

    10  hereby transferred.

    11 "

    12 

    13 View subclass:#ObjectView

    14        instanceVariableNames:'contents

    15                               sorted

    16                               lastButt lastPointer lastButtonTime

    17                               pressAction releaseAction

    18                               shiftPressAction doublePressAction

    19                               motionAction keyPressAction

    20                               selection

    21                               gridShown gridPixmap

    22                               scaleShown scaleMetric

    23                               groupRectangleFrame

    24                               leftHandCursor readCursor oldCursor

    25                               movedObject moveStartPoint

    26                               moveDelta

    27                               buffer

    28                               documentFormat

    29                               leftMarginForScale topMarginForScale

    30                               canDragOutOfView rootMotion rootView aligning'

    31        classVariableNames:''

    32        poolDictionaries:''

    33        category:'Views-Basic'

    34 !

    35 

    36 ObjectView comment:'

    37 

    38 COPYRIGHT (c) 1989-92 by Claus Gittinger

    39              All Rights Reserved

    40 

    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

    43 DrawView, DirectoryView, LogicView or DocumentView.

    44 

    45 %W% %E%

    46 written spring/summer 89 by claus

    47 '!

    48 

    49 !ObjectView class methodsFor:'defaults'!

    50 

    51 hitDelta

    52     "when clicking an object, allow for hitDelta pixels around object;

    53      0 is exact; 1*pixelPerMillimeter is good for draw programs"

    54     ^ 0

    55 ! !

    56 

    57 !ObjectView methodsFor:'initialization'!

    58 

    59 initialize

    60     |pixPerMM|

    61 

    62     super initialize.

    63 

    64     viewBackground := White.

    65 

    66     bitGravity := #NorthWest.

    67     contents := OrderedCollection new.

    68     gridShown := false.

    69     scaleShown := false.

    70     canDragOutOfView := false.

    71     rootView := DisplayRootView new.

    72     rootView noClipByChildren.

    73     rootMotion := false.

    74     (Language == #english) ifTrue:[

    75         documentFormat := 'letter'.

    76         scaleMetric := #inch

    77     ] ifFalse:[

    78         documentFormat := 'a4'.

    79         scaleMetric := #mm

    80     ].

    81     pixPerMM := self verticalPixelPerMillimeter:1.

    82     topMarginForScale := ((pixPerMM * 2.0) + 0.5) asInteger.

    83     pixPerMM := self horizontalPixelPerMillimeter:1.

    84     leftMarginForScale := ((pixPerMM * 2.0) + 0.5) asInteger.

    85     readCursor := Cursor read.

    86     leftHandCursor := Cursor leftHand.

    87     sorted := false.

    88     aligning := false

    89 !

    90 

    91 initEvents

    92     self backingStore:true.

    93     self enableButtonEvents.

    94     self enableButtonMotionEvents

    95 ! !

    96 

    97 !ObjectView methodsFor:'queries'!

    98 

    99 heightOfContentsInMM

   100     "answer the height of the document in millimeters"

   101 

   102     (documentFormat = 'a3') ifTrue:[

   103         ^ 420

   104     ].

   105     (documentFormat = 'a4') ifTrue:[

   106         ^ 296

   107     ].

   108     (documentFormat = 'a5') ifTrue:[

   109         ^ 210

   110     ].

   111     (documentFormat = 'letter') ifTrue:[

   112         ^ 11 * 25.4

   113     ].

   114     "assuming window size is document size"

   115     ^ (height / self verticalPixelPerMillimeter:1) asInteger

   116 !

   117 

   118 widthOfContentsInMM

   119     "answer the width of the document in millimeters"

   120 

   121     (documentFormat = 'a3') ifTrue:[

   122         ^ 296

   123     ].

   124     (documentFormat = 'a4') ifTrue:[

   125         ^ 210

   126     ].

   127     (documentFormat = 'a5') ifTrue:[

   128         ^ 148

   129     ].

   130     (documentFormat = 'letter') ifTrue:[

   131         ^ 8.5 * 25.4

   132     ].

   133     "assuming window size is document size"

   134     ^ (width / self horizontalPixelPerMillimeter:1) asInteger

   135 !

   136 

   137 heightOfContents

   138     "answer the height of the document in pixels"

   139 

   140     ^ ((self heightOfContentsInMM 

   141         * (self verticalPixelPerMillimeter:1)) + 0.5) asInteger

   142 !

   143 

   144 widthOfContents

   145     "answer the width of the document in pixels"

   146 

   147     ^ ((self widthOfContentsInMM 

   148         * (self horizontalPixelPerMillimeter:1)) + 0.5) asInteger

   149 ! !

   150 

   151 !ObjectView methodsFor:'drawing'!

   152 

   153 redraw

   154     "redraw complete View"

   155 

   156     realized ifTrue:[

   157         gridShown ifTrue:[

   158             self redrawGrid

   159         ] ifFalse:[

   160             self fill:viewBackground

   161         ].

   162         scaleShown ifTrue:[

   163             self redrawScale

   164         ].

   165         self redrawObjects

   166     ]

   167 !

   168 

   169 redrawGrid

   170     "redraw the grid"

   171 

   172     gridPixmap notNil ifTrue:[

   173         self drawOpaqueForm:gridPixmap x:0 y:0

   174     ]

   175 !

   176 

   177 redrawHorizontalScale

   178     "redraw the horizontal scale"

   179 

   180     |x mmH short step xRounded shortLen longLen len|

   181 

   182     self clearRectangle:((0 @ 0) corner:(width @ topMarginForScale)).

   183     scaleShown ifFalse:[^ self].

   184     (scaleMetric == #mm) ifTrue:[

   185         "long blibs every centimeter; short ones every half"

   186 

   187         mmH := self horizontalPixelPerMillimeter.

   188         step := mmH * 5.0.

   189         x := step.

   190         short := true.

   191         shortLen := (topMarginForScale / 2) asInteger.

   192         longLen := topMarginForScale.

   193         [x < width] whileTrue:[

   194             xRounded := (x + 0.5) asInteger.

   195             short ifTrue:[

   196                 len := shortLen

   197             ] ifFalse:[

   198                 len := longLen

   199             ].

   200             self displayLineFromX:xRounded y:0 toX:xRounded y:len.

   201             short := short not.

   202             x := x + step

   203         ]

   204     ]

   205 !

   206 

   207 redrawVerticalScale

   208     "redraw the vertical scale"

   209 

   210     |y mmV short step yRounded shortLen longLen len|

   211 

   212     self clearRectangle:((0 @ 0) corner:(leftMarginForScale @ height)).

   213     scaleShown ifFalse:[^ self].

   214     (scaleMetric == #mm) ifTrue:[

   215         "long blibs every centimeter; short ones every half"

   216 

   217         mmV := self verticalPixelPerMillimeter.

   218         step := mmV * 5.0.

   219         y := step.

   220         short := true.

   221         shortLen := (leftMarginForScale / 2) asInteger.

   222         longLen := leftMarginForScale.

   223         [y < height] whileTrue:[

   224             yRounded := (y + 0.5) asInteger.

   225             short ifTrue:[

   226                 len := shortLen

   227             ] ifFalse:[

   228                 len := longLen

   229             ].

   230             self displayLineFromX:0 y:yRounded toX:len y:yRounded.

   231             short := short not.

   232             y := y + step

   233         ]

   234     ]

   235 !

   236 

   237 redrawScale

   238     "redraw the scales"

   239 

   240     self redrawHorizontalScale.

   241     self redrawVerticalScale

   242 !

   243 

   244 redrawObjectsOn:aGC

   245     "redraw all objects on a graphic context"

   246 

   247     |vFrame org|

   248 

   249     (aGC == self) ifTrue:[

   250         realized ifFalse:[^ self].

   251         org := viewOrigin + (leftMarginForScale @ topMarginForScale).

   252         vFrame := Rectangle origin:org

   253                             corner:(viewOrigin + (width @ height)).

   254 

   255         self redrawObjectsIntersecting:vFrame

   256     ] ifFalse:[

   257         "loop over pages"

   258 

   259         org := 0 @ 0.

   260         vFrame := Rectangle origin:org

   261                             corner:(org + (width @ height)).

   262 

   263         self redrawObjectsIntersecting:vFrame

   264     ]

   265 !

   266 

   267 redrawObjects

   268     "redraw all objects"

   269 

   270     self redrawObjectsOn:self

   271 !

   272 

   273 redrawObjectsIntersecting:aRectangle

   274     "redraw all objects which have part of themself in aRectangle"

   275 

   276     self objectsIntersecting:aRectangle do:[:theObject |

   277         self show:theObject

   278     ]

   279 !

   280 

   281 redrawObjectsIntersectingVisible:aRectangle

   282     "redraw all objects which have part of themself in a vis rectangle"

   283 

   284     self objectsIntersectingVisible:aRectangle do:[:theObject |

   285         self show:theObject

   286     ]

   287 

   288 !

   289 

   290 redrawObjectsAbove:anObject intersecting:aRectangle

   291     "redraw all objects which have part of themself in aRectangle

   292      and are above (in front of) anObject"

   293 

   294     self objectsAbove:anObject intersecting:aRectangle do:[:theObject |

   295         self show:theObject

   296     ]

   297 !

   298 

   299 redrawObjectsAbove:anObject intersectingVisible:aRectangle

   300     "redraw all objects which have part of themself in a vis rectangle

   301      and are above (in front of) anObject"

   302 

   303     self objectsAbove:anObject intersectingVisible:aRectangle do:[:theObject |

   304         self show:theObject

   305     ]

   306 !

   307 

   308 redrawObjectsIn:aRectangle

   309     "redraw all objects which have part of themselfes in aRectangle

   310      draw only in (i.e. clip output to) aRectangle"

   311 

   312     |visRect|

   313 

   314     realized ifTrue:[

   315         visRect := Rectangle origin:(aRectangle origin - viewOrigin)

   316                              extent:(aRectangle extent).

   317         self clippedTo:visRect do:[

   318             gridShown ifTrue:[

   319                 self redrawGrid

   320             ] ifFalse:[

   321                 self paint:viewBackground.

   322                 self fillRectangle:visRect

   323             ].

   324             self redrawObjectsIntersecting:aRectangle

   325         ]

   326     ]

   327 !

   328 

   329 redrawObjectsInVisible:visRect

   330     "redraw all objects which have part of themselfes in a vis rectangle

   331      draw only in (i.e. clip output to) aRectangle"

   332 

   333     realized ifTrue:[

   334         self clippedTo:visRect do:[

   335             gridShown ifTrue:[

   336                 self redrawGrid

   337             ] ifFalse:[

   338                 self paint:viewBackground.

   339                 self fillRectangle:visRect

   340             ].

   341             self redrawObjectsIntersectingVisible:visRect

   342         ]

   343     ]

   344 !

   345 

   346 redrawObjectsAbove:anObject in:aRectangle

   347     "redraw all objects which have part of themselfes in aRectangle

   348      and are above (in front of) anObject.

   349      draw only in (i.e. clip output to) aRectangle"

   350 

   351     realized ifTrue:[

   352         self clippedTo:aRectangle do:[

   353             self redrawObjectsAbove:anObject intersecting:aRectangle

   354         ]

   355     ]

   356 !

   357 

   358 redrawObjectsAbove:anObject inVisible:aRectangle

   359     "redraw all objects which have part of themselfes in a vis rectangle

   360      and are above (in front of) anObject.

   361      draw only in (i.e. clip output to) aRectangle"

   362 

   363     realized ifTrue:[

   364         self clippedTo:aRectangle do:[

   365             self redrawObjectsAbove:anObject intersectingVisible:aRectangle

   366         ]

   367     ]

   368 !

   369 

   370 show:anObject

   371     "show the object, either selected or not"

   372 

   373     (self isSelected:anObject) ifTrue:[

   374         self showSelected:anObject

   375     ] ifFalse:[

   376         self showUnselected:anObject

   377     ]

   378 !

   379 

   380 showDragging:something offset:anOffset

   381     "show an object while dragging"

   382 

   383     |drawOffset top drawer|

   384 

   385     canDragOutOfView ifTrue:[

   386         "drag in root-window"

   387 

   388         top := self topView.

   389         drawOffset := device translatePoint:anOffset

   390                                        from:(self id) to:(rootView id).

   391         drawer := rootView

   392     ] ifFalse:[

   393         drawOffset := anOffset.

   394         drawer := self

   395     ].

   396     self forEach:something do:[:anObject |

   397         anObject drawDragIn:drawer offset:drawOffset

   398     ]

   399 !

   400 

   401 showSelected:anObject

   402     "show an object as selected"

   403 

   404     shown ifTrue:[anObject drawSelectedIn:self]

   405 !

   406 

   407 showUnselected:anObject

   408     "show an object as unselected"

   409 

   410     shown ifTrue:[anObject drawIn:self]

   411 ! !

   412 

   413 !ObjectView methodsFor:'selections'!

   414 

   415 selectionDo:aBlock

   416     "apply block to every object in selection"

   417 

   418     self forEach:selection do:aBlock

   419 !

   420 

   421 showSelection

   422     "show the selection - draw hilights - whatever that is"

   423 

   424     self selectionDo:[:object |

   425         self showSelected:object

   426     ]

   427 !

   428 

   429 hideSelection

   430     "hide the selection - undraw hilights - whatever that is"

   431 

   432     self selectionDo:[:object |

   433         self showUnselected:object

   434     ]

   435 !

   436 

   437 unselect

   438     "unselect - hide selection; clear selection buffer"

   439 

   440     self hideSelection.

   441     selection := nil

   442 !

   443 

   444 select:something

   445     "select something - hide previouse selection, set to something and hilight"

   446 

   447     (selection == something) ifFalse:[

   448         self hideSelection.

   449         selection := something.

   450         self showSelection

   451     ]

   452 !

   453 

   454 selectAll

   455     "select all objects"

   456 

   457     self hideSelection.

   458     selection := contents.

   459     self showSelection

   460 !

   461 

   462 addToSelection:anObject

   463     "add anObject to the selection"

   464 

   465     (selection isKindOf:Collection) ifFalse:[

   466         selection := OrderedCollection with:selection

   467     ].

   468     selection add:anObject.

   469     self showSelected:anObject

   470 !

   471 

   472 removeFromSelection:anObject

   473     "remove anObject from the selection"

   474 

   475     (selection isKindOf:Collection) ifTrue:[

   476         selection remove:anObject ifAbsent:[nil].

   477         (selection size == 1) ifTrue:[

   478             selection := selection first

   479         ]

   480     ] ifFalse:[

   481         (selection == anObject) ifTrue:[

   482             selection := nil

   483         ]

   484     ].

   485     self showUnselected:anObject

   486 !

   487 

   488 selectAllIntersecting:aRectangle

   489     "select all objects touched by aRectangle"

   490 

   491     self hideSelection.

   492     selection := OrderedCollection new.

   493 

   494     self objectsIntersecting:aRectangle do:[:theObject |

   495         selection add:theObject

   496     ].

   497     (selection size == 0) ifTrue:[

   498         selection := nil

   499     ] ifFalse:[

   500         (selection size == 1) ifTrue:[selection := selection first]

   501     ].

   502     self showSelection

   503 !

   504 

   505 selectAllIn:aRectangle

   506     "select all objects fully in aRectangle"

   507 

   508     self hideSelection.

   509     selection := OrderedCollection new.

   510     self objectsIn:aRectangle do:[:theObject |

   511         selection add:theObject

   512     ].

   513     (selection size == 0) ifTrue:[

   514         selection := nil

   515     ] ifFalse:[

   516         (selection size == 1) ifTrue:[selection := selection first]

   517     ].

   518     self showSelection

   519 !

   520 

   521 withSelectionHiddenDo:aBlock

   522     "evaluate aBlock while selection is hidden"

   523 

   524     |sel|

   525 

   526     sel := selection.

   527     self unselect.

   528     aBlock value.

   529     self select:sel

   530 ! !

   531 

   532 !ObjectView methodsFor:'testing objects'!

   533 

   534 findObjectAt:aPoint

   535     "find the last object (by looking from back to front) which is hit by

   536      the argument, aPoint - this is the topmost object hit"

   537 

   538     |hdelta|

   539 

   540     hdelta := self class hitDelta.

   541     contents reverseDo:[:object |

   542         (object isHitBy:aPoint withDelta:hdelta) ifTrue:[^ object]

   543     ].

   544     ^ nil

   545 !

   546 

   547 findObjectAtVisible:aPoint

   548     "find the last object (by looking from back to front) which is hit by

   549      a visible point - this is the topmost object hit"

   550 

   551     ^ self findObjectAt:(aPoint + viewOrigin)

   552 !

   553 

   554 findObjectAt:aPoint suchThat:aBlock

   555     "find the last object (back to front ) which is hit by

   556      the argument, aPoint and for which the testBlock, aBlock evaluates to

   557      true"

   558 

   559     |hdelta|

   560 

   561     hdelta := self class hitDelta.

   562     contents reverseDo:[:object |

   563         (object isHitBy:aPoint withDelta:hdelta) ifTrue:[

   564             (aBlock value:object) ifTrue:[^ object]

   565         ]

   566     ].

   567     ^ nil

   568 !

   569 

   570 findObjectAtVisible:aPoint suchThat:aBlock

   571     "find the last object (back to front ) which is hit by

   572      the argument, aPoint and for which the testBlock, aBlock evaluates to

   573      true"

   574 

   575     ^ self findObjectAt:(aPoint + viewOrigin) suchThat:aBlock

   576 !

   577 

   578 frameOf:anObjectOrCollection

   579     "answer the maximum extent defined by the argument, anObject or a

   580      collection of objects"

   581 

   582     |first frameAll|

   583 

   584     anObjectOrCollection isNil ifTrue:[^ nil ].

   585     first := true.

   586     self forEach:anObjectOrCollection do:[:theObject |

   587         first ifTrue:[

   588             frameAll := theObject frame.

   589             first := false

   590         ] ifFalse:[

   591             frameAll := frameAll merge:(theObject frame)

   592         ]

   593     ].

   594     ^ frameAll

   595 !

   596 

   597 canMove:something

   598     "return true, if the argument, anObject or a collection can be moved"

   599 

   600     (something isKindOf:Collection) ifTrue:[

   601         self forEach:something do:[:theObject |

   602             (theObject canBeMoved) ifFalse:[^ false]

   603         ].

   604         ^ true

   605     ].

   606     ^ something canBeMoved

   607 !

   608 

   609 isSelected:anObject

   610     "return true, if the argument, anObject is in the selection"

   611 

   612     selection isNil ifTrue:[^ false].

   613     (selection == anObject) ifTrue:[^ true].

   614     (selection isKindOf:Collection) ifTrue:[

   615         ^ (selection identityIndexOf:anObject startingAt:1) ~~ 0

   616     ].

   617     ^ false

   618 !

   619 

   620 objectIsObscured:objectToBeTested

   621     "return true, if the argument, anObject is obscured (partially or whole)

   622      by any other object"

   623 

   624     |frameToBeTested frameleft frameright frametop framebot

   625      objectsFrame startIndex|

   626 

   627     (objectToBeTested == (contents last)) ifTrue:[

   628         "quick return if object is on top"

   629         ^ false

   630     ].

   631 

   632     frameToBeTested := self frameOf:objectToBeTested.

   633     frameleft := frameToBeTested left.

   634     frameright := frameToBeTested right.

   635     frametop := frameToBeTested top.

   636     framebot := frameToBeTested bottom.

   637 

   638     "check objects after the one to check"

   639 

   640     startIndex := contents identityIndexOf:objectToBeTested ifAbsent:[self error].

   641     contents from:(startIndex + 1) to:(contents size) do:[:object |

   642         objectsFrame := self frameOf:object.

   643         (objectsFrame right < frameleft) ifFalse:[

   644             (objectsFrame left > frameright) ifFalse:[

   645                 (objectsFrame bottom < frametop) ifFalse:[

   646                     (objectsFrame top > framebot) ifFalse:[

   647                         ^ true

   648                     ]

   649                 ]

   650             ]

   651         ]

   652     ].

   653     ^ false

   654 !

   655 

   656 isObscured:something

   657     "return true, if the argument something, anObject or a collection of

   658      objects is obscured (partially or whole) by any other object"

   659 

   660     self forEach:something do:[:anObject |

   661         (self objectIsObscured:anObject) ifTrue:[

   662             ^ true

   663         ]

   664     ].

   665     ^ false

   666 ! !

   667 

   668 !ObjectView methodsFor:'layout manipulation'!

   669 

   670 move:something to:aPoint in:aView

   671     "can only happen when dragOutOfView is true

   672      - should be redefined in subclasses"

   673 

   674     self notify:'cannot move object(s) out of view'

   675 !

   676 

   677 move:something to:aPoint inAlienViewId:aViewId

   678     "can only happen when dragOutOfView is true

   679      - should be redefined in subclasses"

   680 

   681     self notify:'cannot move object(s) to alien views'

   682 !

   683 

   684 move:something by:delta

   685     "change the position of something, an Object or Collection 

   686      by delta, aPoint"

   687 

   688     (delta x == 0) ifTrue:[

   689         (delta y == 0) ifTrue:[^ self]

   690     ].

   691 

   692     self forEach:something do:[:anObject |

   693         self moveObject:anObject by:delta

   694     ]

   695 !

   696 

   697 moveObject:anObject by:delta

   698     "change the position of anObject by delta, aPoint"

   699 

   700     self moveObject:anObject to:(anObject origin + delta)

   701 !

   702 

   703 moveObject:anObject to:newOrigin

   704     "move anObject to newOrigin, aPoint"

   705 

   706     |oldOrigin oldFrame newFrame 

   707      objectsIntersectingOldFrame objectsIntersectingNewFrame 

   708      wasObscured isObscured intersects

   709      vx vy oldLeft oldTop w h newLeft newTop|

   710 

   711     anObject isNil ifTrue:[^ self].

   712     anObject canBeMoved ifFalse:[^ self].

   713 

   714     oldOrigin := anObject origin.

   715     (oldOrigin = newOrigin) ifTrue:[^ self].

   716 

   717     oldFrame := self frameOf:anObject.

   718     objectsIntersectingOldFrame := self objectsIntersecting:oldFrame.

   719     wasObscured := self isObscured:anObject.

   720 

   721     anObject moveTo:newOrigin.

   722 

   723     newFrame := self frameOf:anObject.

   724     objectsIntersectingNewFrame := self objectsIntersecting:newFrame.

   725 

   726     "try to redraw the minimum possible"

   727 

   728     "if no other object intersects both frames we can do a copy:"

   729 

   730     intersects := oldFrame intersects:newFrame.

   731     intersects ifFalse:[

   732         gridShown ifFalse:[

   733             (objectsIntersectingOldFrame size == 1) ifTrue:[

   734                 (objectsIntersectingNewFrame size == 1) ifTrue:[

   735                     vx := viewOrigin x.

   736                     vy := viewOrigin y.

   737                     oldLeft := oldFrame left - vx.

   738                     oldTop := oldFrame top - vy.

   739                     newLeft := newFrame left - vx.

   740                     newTop := newFrame top - vy.

   741                     w := oldFrame width.

   742                     h := oldFrame height.

   743                     ((newLeft < width) and:[newTop < height]) ifTrue:[

   744                         ((newLeft >= 0) and:[newTop >= 0]) ifTrue:[

   745                             self copyFrom:self x:oldLeft y:oldTop

   746                                              toX:newLeft y:newTop

   747                                            width:w height:h.

   748                             self waitForExpose

   749                         ]

   750                     ].

   751                     ((oldLeft < width) and:[oldTop < height]) ifTrue:[

   752                         ((oldLeft >= 0) and:[oldTop >= 0]) ifTrue:[

   753                             self fillRectangleX:oldLeft y:oldTop width:w height:h

   754                                            with:viewBackground

   755                         ]

   756                     ].

   757                     ^ self

   758                 ]

   759             ]

   760         ]

   761     ].

   762     isObscured := self isObscured:anObject.

   763     (oldFrame intersects:newFrame) ifTrue:[

   764         isObscured ifFalse:[

   765             self redrawObjectsIn:oldFrame.

   766             self show: anObject

   767         ] ifTrue:[

   768             self redrawObjectsIn:(oldFrame merge:newFrame)

   769         ]

   770     ] ifFalse:[

   771         self redrawObjectsIn:oldFrame.

   772         isObscured ifFalse:[

   773             self show: anObject

   774         ] ifTrue:[

   775             self redrawObjectsIn:newFrame

   776         ]

   777     ]

   778 !

   779 

   780 objectToFront:anObject

   781     "bring the argument, anObject to front"

   782 

   783     |wasObscured|

   784 

   785     anObject notNil ifTrue:[

   786         wasObscured := self isObscured:anObject.

   787         contents remove:anObject.

   788         contents addLast:anObject.

   789         wasObscured ifTrue:[

   790             self redrawObjectsIn:(anObject frame)

   791         ]

   792     ]

   793 !

   794 

   795 toFront:something

   796     "bring the argument, anObject or a collection of objects to front"

   797 

   798     self forEach:something do:[:anObject |

   799         self objectToFront:anObject

   800     ]

   801 !

   802 

   803 selectionToFront

   804     "bring the selection to front"

   805 

   806     self toFront:selection

   807 !

   808 

   809 objectToBack:anObject

   810     "bring the argument, anObject to back"

   811 

   812     anObject notNil ifTrue:[

   813         contents remove:anObject.

   814         contents addFirst:anObject.

   815         (self isObscured:anObject) ifTrue:[

   816             self redrawObjectsIn:(anObject frame)

   817         ]

   818     ]

   819 !

   820 

   821 toBack:something

   822     "bring the argument, anObject or a collection of objects to back"

   823 

   824     self forEach:something do:[:anObject |

   825         self objectToBack:anObject

   826     ]

   827 !

   828 

   829 selectionToBack

   830     "bring the selection to back"

   831 

   832     self toBack:selection

   833 !

   834 

   835 alignLeft:something

   836     |leftMost|

   837 

   838     leftMost := 999999.

   839     self forEach:something do:[:anObject |

   840         leftMost := leftMost min:(anObject frame left)

   841     ].

   842     self withSelectionHiddenDo:[

   843         self forEach:something do:[:anObject |

   844             self moveObject:anObject to:(leftMost @ (anObject frame top))

   845         ]

   846     ]

   847 !

   848 

   849 alignRight:something

   850     |rightMost|

   851 

   852     rightMost := -999999.

   853     self forEach:something do:[:anObject |

   854         rightMost := rightMost max:(anObject frame right)

   855     ].

   856     self withSelectionHiddenDo:[

   857         self forEach:something do:[:anObject |

   858             self moveObject:anObject to:(rightMost - (anObject frame width))

   859                                          @ (anObject frame top)

   860         ]

   861     ]

   862 !

   863 

   864 alignTop:something

   865     |topMost|

   866 

   867     topMost := 999999.

   868     self forEach:something do:[:anObject |

   869         topMost := topMost min:(anObject frame top)

   870     ].

   871     self withSelectionHiddenDo:[

   872         self forEach:something do:[:anObject |

   873             self moveObject:anObject to:((anObject frame left) @ topMost)

   874         ]

   875     ]

   876 !

   877 

   878 alignBottom:something

   879     |botMost|

   880 

   881     botMost := -999999.

   882     self forEach:something do:[:anObject |

   883         botMost := botMost max:(anObject frame bottom)

   884     ].

   885     self withSelectionHiddenDo:[

   886         self forEach:something do:[:anObject |

   887             self moveObject:anObject to:(anObject frame left)

   888                                         @

   889                                         (botMost - (anObject frame height))

   890         ]

   891     ]

   892 !

   893 

   894 selectionAlignLeft

   895     "align selected objects left"

   896 

   897     self alignLeft:selection

   898 !

   899 

   900 selectionAlignRight

   901     "align selected objects right"

   902 

   903     self alignRight:selection

   904 !

   905 

   906 selectionAlignTop

   907     "align selected objects at top"

   908 

   909     self alignTop:selection

   910 !

   911 

   912 selectionAlignBottom

   913     "align selected objects at bottom"

   914 

   915     self alignBottom:selection

   916 ! !

   917 

   918 !ObjectView methodsFor:'adding / removing'!

   919 

   920 deleteSelection

   921     "delete the selection"

   922 

   923     buffer := selection.

   924     self unselect.

   925     self remove:buffer.

   926     selection := nil

   927 !

   928 

   929 pasteBuffer

   930     "add the objects in the paste-buffer"

   931 

   932     self unselect.

   933     self addSelected:buffer

   934 !

   935 

   936 copySelection

   937     "copy the selection into the paste-buffer"

   938 

   939     buffer := OrderedCollection new.

   940     self selectionDo:[:object |

   941         buffer add:(object copy)

   942     ].

   943     self forEach:buffer do:[:anObject |

   944         anObject moveTo:(anObject origin + (8 @ 8))

   945     ]

   946 !

   947 

   948 addSelected:something

   949     "add something, anObject or a collection of objects to the contents

   950      and select it"

   951 

   952     self add:something.

   953     self select:something

   954 !

   955 

   956 addWithoutRedraw:something

   957     "add something, anObject or a collection of objects to the contents

   958      do not redraw"

   959 

   960     self forEach:something do:[:anObject |

   961         self addObjectWithoutRedraw:anObject

   962     ]

   963 !

   964 

   965 addObjectWithoutRedraw:anObject

   966     "add the argument, anObject to the contents - no redraw"

   967 

   968     anObject notNil ifTrue:[

   969         contents addLast:anObject

   970     ]

   971 !

   972 

   973 add:something

   974     "add something, anObject or a collection of objects to the contents

   975      with redraw"

   976 

   977     self forEach:something do:[:anObject |

   978         self addObject:anObject

   979     ]

   980 !

   981 

   982 addObject:anObject

   983     "add the argument, anObject to the contents - with redraw"

   984 

   985     anObject notNil ifTrue:[

   986         contents addLast:anObject.

   987         "its on top - only draw this one"

   988         realized ifTrue:[

   989             self showUnselected:anObject

   990         ]

   991     ]

   992 !

   993 

   994 remove:something

   995     "remove something, anObject or a collection of objects from the contents

   996      do redraw"

   997 

   998     self forEach:something do:[:anObject |

   999         self removeObject:anObject

  1000     ]

  1001 !

  1002 

  1003 removeObject:anObject

  1004     "remove the argument, anObject from the contents - no redraw"

  1005 

  1006     anObject notNil ifTrue:[

  1007         self removeFromSelection:anObject.

  1008         contents remove:anObject.

  1009         realized ifTrue:[

  1010             self redrawObjectsIn:(anObject frame)

  1011         ]

  1012     ]

  1013 !

  1014 

  1015 removeWithoutRedraw:something

  1016     "remove something, anObject or a collection of objects from the contents

  1017      do not redraw"

  1018 

  1019     self forEach:something do:[:anObject |

  1020         self removeObjectWithoutRedraw:anObject

  1021     ]

  1022 !

  1023 

  1024 removeObjectWithoutRedraw:anObject

  1025     "remove the argument, anObject from the contents - no redraw"

  1026 

  1027     anObject notNil ifTrue:[

  1028         self removeFromSelection:anObject.

  1029         contents remove:anObject

  1030     ]

  1031 !

  1032 

  1033 removeAllWithoutRedraw

  1034     "remove all - no redraw"

  1035 

  1036     selection := nil.

  1037     contents := OrderedCollection new

  1038 !

  1039 

  1040 removeAll

  1041     "remove all - redraw"

  1042 

  1043     self removeAllWithoutRedraw.

  1044     self redraw

  1045 ! !

  1046 

  1047 !ObjectView methodsFor:'misc'!

  1048 

  1049 setDefaultActions

  1050     motionAction := [:movePoint | nil].

  1051     releaseAction := [nil]

  1052 !

  1053 

  1054 setRectangleDragActions

  1055     motionAction := [:movePoint | self doRectangleDrag:movePoint].

  1056     releaseAction := [self endRectangleDrag]

  1057 !

  1058 

  1059 setMoveActions

  1060     motionAction := [:movePoint | self doObjectMove:movePoint].

  1061     releaseAction := [self endObjectMove]

  1062 !

  1063 

  1064 forEach:aCollection do:aBlock

  1065     "apply block to every object in a collectioni;

  1066      (adds a check for non-collection)"

  1067 

  1068     aCollection isNil ifTrue:[^self].

  1069     (aCollection isKindOf:Collection) ifTrue:[

  1070         aCollection do:[:object |

  1071             object notNil ifTrue:[

  1072                 aBlock value:object

  1073             ]

  1074         ]

  1075     ] ifFalse: [

  1076         aBlock value:aCollection

  1077     ]

  1078 !

  1079 

  1080 objectsInVisible:aRectangle do:aBlock

  1081     "do something to every object which is completely in a 

  1082      visible rectangle"

  1083 

  1084     |absRect|

  1085 

  1086     absRect := Rectangle left:(aRectangle left + viewOrigin x)

  1087                           top:(aRectangle top + viewOrigin y)

  1088                         width:(aRectangle width)

  1089                        height:(aRectangle height).

  1090     self objectsIn:absRect do:aBlock

  1091 !

  1092 

  1093 objectsIn:aRectangle do:aBlock

  1094     "do something to every object which is completely in a rectangle"

  1095 

  1096     |bot|

  1097 

  1098     sorted ifTrue:[

  1099         bot := aRectangle bottom.

  1100         contents do:[:theObject |

  1101             (theObject isContainedIn:aRectangle) ifTrue:[

  1102                 aBlock value:theObject

  1103             ] ifFalse:[

  1104                 theObject frame top > bot ifTrue:[^ self]

  1105             ]

  1106         ].

  1107         ^ self

  1108     ].

  1109 

  1110     contents do:[:theObject |

  1111         (theObject isContainedIn:aRectangle) ifTrue:[

  1112             aBlock value:theObject

  1113         ]

  1114     ]

  1115 !

  1116 

  1117 visibleObjectsDo:aBlock

  1118     "do something to every visible object"

  1119 

  1120     |absRect|

  1121 

  1122     absRect := Rectangle left:viewOrigin x

  1123                           top:viewOrigin y

  1124                         width:width

  1125                        height:height.

  1126     self objectsIntersecting:absRect do:aBlock

  1127 !

  1128 

  1129 numberOfObjectsIntersectingVisible:aRectangle

  1130     "answer the number of objects intersecting the argument, aRectangle"

  1131 

  1132     |absRect|

  1133 

  1134     absRect := Rectangle

  1135                  left:(aRectangle left + viewOrigin x)