; --------------------------------------------------------------------------
; PROCEDURE clear_scenes_panel
; --------------------------------------------------------------------------
; PURPOSE:
;   This procedure clears the window and all the checkboxes 
;   and radio buttons on the scenes_panel.  
;
PRO clear_scenes_panel

   COMMON CIPS_GLOBAL_STATE, cips_global_options   
   COMMON SCENES_PANEL_BTNS, scenes_panel_buttons
   COMMON SCENES_WINDOW_STATE, scenes_window_options

   if n_elements(scenes_window_options) eq 0 then return

   if (cips_global_options.is_scenes eq 0) then return

   scenes_window_options.view = ''
   scenes_window_options.sza_contours = 0
   scenes_window_options.ssa_contours = 0
   scenes_window_options.view_contours = 0
   scenes_window_options.surf_view = 0
   scenes_window_options.distorted = 0
   
   widget_control, scenes_panel_buttons.surf_view_btn, set_button=0
   widget_control, scenes_panel_buttons.distorted_btn, set_button=0
   widget_control, scenes_panel_buttons.sza_contours_btn, set_button=0
   widget_control, scenes_panel_buttons.ssa_contours_btn, set_button=0
   widget_control, scenes_panel_buttons.view_contours_btn, set_button=0
   
return
end