;********************************************************************************
;********************************************************************************
PRO pics_gui, err, GROUP = GROUP, VERSION=varversion
;********************************************************************************
;********************************************************************************
;+
; NAME:
;	pics_GUI
; PURPOSE:
;		This example is intended to show each of the widget
;	types possible with IDL.  They do nothing of interest but
;	show what is available in widgets using the XManager.  This 
;	example demonstrates the capacity to have multiple copies of
;	one widget type.  It also demonstrates timer events.
;
; CATEGORY:
;	Widgets
; CALLING SEQUENCE:
;	pics_GUI
; PARAMETERS:
;	none
; KEYWORD PARAMETERS:
;	GROUP = The widget ID of the widget that calls pics_GUI.  When this
;		ID is specified, a death of the caller results in a death of
;		pmas_cgui.
; OUTPUTS:
; OPTIONAL OUTPUT PARAMETERS:
; COMMON BLOCKS:
; SIDE EFFECTS:
;	Initiates the XManager if it is not already running.
; RESTRICTIONS:
; PROCEDURE:
;	Create and register the widget and then exit.
;

COMMON pics_VERSION, pics_GUI_VERSION
;------------------------------------------------------
pics_GUI_VERSION = 'pics_GUI Version 0.8.2  02/09/02 mmr'
;------------------------------------------------------
;
; MODIFICATION HISTORY:
;       24/08/02  mmr   V0.6   	substantial upgrade, written at CAHA
;       27/08/02  mmr   V0.8    zoom widget
;       01/09/02  mmr   V0.8.1  update tel data but removed, ABOUT corrected.
;-