;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; PROCEDURE SOLAR     ;;;
;;; By Darrin Casebeer  ;;;
;;;    Kevin Tubbs      ;;;
;;;    Summer 98        ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;

PRO Solar,base
Solars
values = ['Done']
solarbase = WIDGET_BASE()
bgroup = CW_BGROUP(solarbase, values, /COLUMN)
WIDGET_CONTROL, solarbase, /REALIZE
REPEAT BEGIN
  ev=WIDGET_EVENT(solarbase)
  CASE ev.value OF
     0: BEGIN
          WDELETE
          WDELETE
          WIDGET_CONTROL,/DESTROY,solarbase
          RETURN
        END
  ENDCASE
END UNTIL ev.value EQ 3
WIDGET_CONTROL,/DESTROY,solarbase
END