Name

---

      WIDGETATOM

Purpose

---

      The purpose of this routine is to create a widget object class that can
      be subclassed for all widget objects. Any keyword that is available for
      all widgets is implemented in this object class.

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

---

      Object widgets.

Syntax

---

      widgetatom = Obj_New("WidgetAtom", parent, widgetID)

Superclasses

---

      CATATOM
      CATCONTAINER
      IDL_CONTAINER

Class Structure

---

    class = { WIDGETATOM, $ ; The WidgetAtom object class name.
              INHERITS CATATOM, $ ; Subclassed from CATATOM object.
              _group_leader : OBJ_NEW (), $ ; The group leader object for this object.
              _id : 0L, $ ; The widget idenfier of the widget wrapped up in the widget object.
              _invisible : 0B, $ ; This is a flag that indicates if the widget is invisible or not.
              _killNotify : 0L, $ ; Set this to an object whose kill notifiy method should be called before self is destroyed.
              _notifyRealize : 0B, $ ; Set this flag to send a notify realize callback to the Notify_Realize method.
              _sensitive : 0B, $ ; Set this flag to indicate whether the widget is sensitive (1) or not (0).
              _helpline : "" $ ; A string used, for example, in a status bar when tracking cursor movements.
            }

Modification History

---

      Written by: David Burridge, 12 June 2002.
      Added HELPLINE keyword and field. 6 Feb 2004. DWF.
      Modified the KILL_NOTIFY keyword to accept the name of a KILL_NOTIFY procedure. 29 Aug 2005. DWF.