Name

---

      PROPERTYPANEL__DEFINE

Purpose

---

      The purpose of this routine is to create a panel object, which has
      a tree-widget showing the object hierarchy on the left and the
      control panel of each selected tree-widget object on the right.

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

Superclasses

---

      TOPLEVELBASE
      WIDGETATOM
      CATATOM
      CATCONTAINER IDLITCOMPONENT
      IDL_CONTAINER

Class Structure

---

  class = { PROPERTYPANEL, $
            INHERITS TOPLEVELBASE, $ ; The PROPERTYPANEL is a TOPLEVELBASE.
            controlPanel: Obj_New(), $ ; The current control panel in the display.
            curpos: 0L, $ ; Current position of line. Used to move the line.
            delta: 0L, $ ; Current distance line has moved.
            down: 0L, $ ; Status flag of button DOWN in line widget.
            left_arrow: Obj_New(), $ ; The left-facing arrow.
            left_base: Obj_New(), $ ; The left-most base widget (holds tree-widgets).
            left_xsize: 0L, $ ; Y size of left base.
            line_base: Obj_New(), $ ; Holds separator widgets.
            line_drawID: Obj_New(), $ ; Contains the line.
            linepix: Ptr_New(), $ ; An array of values that make up the line.
            minsize: 0L, $ ; The minumum X size allowed for the left and right base widgets.
            move_drawID_1: Obj_New(), $ ; Allows the line to be moved.
            move_drawID_2: Obj_New(), $ ; Allows the line to be moved in X Windows.
            move_base_1: Obj_New(), $ ; Allows the line to be moved.
            move_base_2: Obj_New(), $ ; Allows the line to be moved in X Windows.
            right_arrow: Obj_New(), $ ; The right-facing arrow.
            right_base: Obj_New(), $ ; The right-most base widget (holds control panels).
            right_xsize: 0L, $ ; X size of right base.
            statusbar: Obj_New(), $ ; A statusbar widget.
            topbase: Obj_New(), $ ; The top-most widget in the widget hierarchy.
            treeWidget: Obj_New(), $ ; The container contents tree widget.
            visible: 0L, $ ; Current visibility. 1-left base only, 2-right base only, 3-both bases.
            xspace: 0L, $ ; Used to create the line image.
            ysize: 0L $ ; The Y size of the right and left base widgets.
          }

Messages

---

  None.

Modification History

---

      Written by: David W. Fanning, 1 Sept 2005.