; -------------------------------------------------------------------------- ; PROCEDURE clear_stack_panel ; -------------------------------------------------------------------------- ; PURPOSE: ; This procedure clears the window and all the checkboxes ; and radio buttons on the stack_panel. ; PRO clear_stack_panel COMMON CIPS_GLOBAL_STATE, cips_global_options COMMON STACK_PANEL_BTNS, stack_panel_buttons COMMON STACK_WINDOW_STATE, stack_window_options if n_elements(stack_window_options) eq 0 then return if (cips_global_options.is_stack eq 0) then return stack_window_options.view = '' stack_window_options.show_coast = 0 stack_window_options.show_solar_zenith_angles = 0 stack_window_options.show_scattering_angles = 0 stack_window_options.show_view_angles = 0 stack_window_options.surf_view = 0 stack_window_options.n_rows = 1 widget_control, stack_panel_buttons.sza_contours_btn, set_button=0 widget_control, stack_panel_buttons.scattering_contours_btn, set_button=0 widget_control, stack_panel_buttons.view_contours_btn, set_button=0 widget_control, stack_panel_buttons.contour_btns, set_button=0 widget_control, stack_panel_buttons.map_proj_btn, set_button=0 widget_control, stack_panel_buttons.surf_view_btn, set_button=0 return end