Name

---

      MOVEABLEBOX__DEFINE

Purpose

---

      Implements a rubberband-style box ROI that can be selected and moved
      about the window.

Authors

---

        FANNING SOFTWARE CONSULTING BURRIDGE COMPUTING
        1645 Sheely Drive 18 The Green South
        Fort Collins Warborough, Oxon
        CO 80526 USA OX10 7DN, ENGLAND
        Phone: 970-221-0438 Phone: +44 (0)1865 858279
        E-mail: davidf@dfanning.com E-mail: davidb@burridgecomputing.co.uk

Category

---

      Objects.

Syntax

---

      theObject = Obj_New("MOVEABLEBOX")

Superclasses

---

      RUBBERBANDBOX
      INTERACTION
      CATATOM
      CATCONTAINER IDLITCOMPONENT
      IDL_CONTAINER

Class Structure

---

  class = { MOVEABLEBOX, $
            phi: FltArr(33), $ ; Coordinates of a circle.
            handle_color: "", $ ; The color of the box handles.
            modemap: Obj_New(), $ ; A pixmap for calculating "mode".
            currentmode: 0L, $ ; The current mode.
            sx: 0L, $ ; The static X corner of the box.
            sy: 0L, $ ; The static Y corner of the box.
            bufferID: Obj_New(), $ ; A buffer pixmap object for smooth graphics display.
            INHERITS RUBBERBANDBOX $
          }

Messages

---

  None.

Event Structure

---

      event = { ID:theObject, TOP:topObject, HANDLER:Obj_New(), EVENT_NAME='RUBBERBANDBOX_EVENT', $
                  NAME: self._name, BOX:self.box, XPTS:FLTARR(5), YPTS:FLATARR(5) }
      In which the XPTS and YPTS fields contain the X and Y locations of the box in a form
      suitable for drawing the ROI on the display with PLOTS. The BOX, XPTS, and YPTS are
      converted to the coordinate system of the draw widget associated with the interaction
      before being placed in the event structure.

Modification History

---

      Written by: David W. Fanning, 25 October 2004.