Name

---

      RUBBERBANDBOX__DEFINE

Purpose

---

      The purpose of this routine is to implement a rubberband-box ROI interaction.

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("RUBBERBANDBOX")

Superclasses

---

      INTERACTION
      CATATOM
      CATCONTAINER IDLITCOMPONENT
      IDL_CONTAINER

Class Structure

---

  class = { RUBBERBANDBOX, $
            box: FltArr(4), $ ; The corners of the box, once drawn.
            INHERITS INTERACTION $
          }

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), $
                  ACTION:"" }
      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. The ACTION field value will be "ACCEPT"
      by default, unless the ASK_ON_UP keyword is set and the user choses "CANCEL".

Modification History

---

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