;+ ; PROJECT ; SOLARB EIS ; ; NAME ; EIS_MK_PLAN_WIDGETS ; ; PURPOSE ; eis_mk_plan gui widgets ; ; NOTES ; The ; ; CATEGORY ; EIS timeline planning ; ; WRITTEN ; John A Rainne RAL ; ; VERSION ; v0.1 JAR, 23-Mar-2007 ; Added "Rasters Details..." button to allow user to view ; the raster details. ; v0.2 JAR 5-Sep-2007 ; Added ASRC widgets ; v0.3 JAR 5-Sep-2007 ; Removed TITLE from ASRC direction droplist ; v0.4 JAR 26-Nov-2007 ; Changed widget labels OBS_NUM->JOP_ID, and JOP_ID->HOP_ID ; PRY requested. ; v0.5 JAR 7-Dec-2007 ; Removed OBSID/JOP_ID from mk_plan ; v0.6 JAR 27-Mar-2008 ; De-sensitized all trigger buttons except for EIS EVENT. ; v0.7 JAR 22-May-2008 ; 1. Introduced widget tabs to handle raster properties. ; Space-saving! ; 2. Added plot area to pointing tab to show pointing. ; v0.8 JAR 28-May-2008 ; Changed format of raster properties list ; v0.9 JAR 18-Nov-2008 ; Added "View Raster Details" button to raster Properties tab ; (requested by D. Williams) ; v1.0 JAR 05-Jan-2010 ; Changed tab from "Response Studies" to "Trigger Studies" ; v1.1 JAR 27-Jan-2010 ; Introduced event_sensitive flags to easily sensitize/ ; desensitive the various trigger buttons as required ; v1.2 JAR 10-Jun-2010 ; Always let EEBP button be sensitive ; v1.3 JAR 08-Nov-2011 ; Always let EISF button be sensitive ; ;- ;______________________________________________________________________________ PRO eis_mk_plan_widgets , parentClass , response = response eis_mk_plan_widgets = {eis_mk_plan_widgets} tlbID = parentClass->tlbID() eebp_sensitive = 1 ; KEYWORD_SET(response) eisf_sensitive = 1 ; KEYWORD_SET(response) xrtf_sensitive = 1 ; KEYWORD_SET(response) aece_sensitive = 0 ; OK, eis_mk_plan_gui has 2 event handlers. 1 automatically finishes ; with the following 2 sequences ("eis_mk_plan_gui_update_EV") ; 1 ;; Get Duration and Volume ;Self->updateDurationAndVolume ; 2 ;oRasterItem = OBJ_NEW("eis_plan_undo" , eis_raster) ;Self.rasterUndo->ADD , oRasterItem ; The other is for QUIT, TLB, etc. Anything that doesn't require these. Event_Pro_update = 'eis_mk_plan_gui_update_EV' Event_Pro = 'eis_mk_plan_gui_EV' ; Get eis_fonts fonts = eis_fonts() ; ______________________________________________________________________ ; ; Study information base ; ; ______________________________________________________________________ st_infoBase = WIDGET_BASE(tlbID , $ COLUMN = 1 , $ frame = 0) ; ______________________________________________________________________ ; ; ID & Acronym Base ; ; ______________________________________________________________________ studyIDBase = WIDGET_BASE(st_infoBase , $ ROW = 1,yPad = 0) studyTitleLable = WIDGET_LABEL(studyIDBase , $ value = 'Study ID:' , $ xSize = 90 , $ /ALIGN_LEFT , $ font = fonts.bold) st_idID = WIDGET_LABEL(studyIDBase , $ value = '000000' , $ xSize = 60 , $ /ALIGN_LEFT , $ font = fonts.mono) eis_mk_plan_widgets.st_idID = st_idID studyTitleLable = WIDGET_LABEL(studyIDBase , $ value = 'Acronym:' , $ xSize = 60 , $ /ALIGN_LEFT ) st_acronymID = WIDGET_LABEL(studyIDBase , $ value = 'A_STUDY' , $ xSize = 220 , $ /ALIGN_LEFT , $ font = fonts.mono) eis_mk_plan_widgets.st_acronymID = st_acronymID aLabel = WIDGET_LABEL(studyIDBase , $ value = 'Target:' , $ xSize = 60 , $ /ALIGN_LEFT ) st_otargetID = WIDGET_LABEL(studyIDBase , $ value = 'Target' , $ xSize = 120 , $ /ALIGN_LEFT , $ font = fonts.mono) eis_mk_plan_widgets.st_otargetID = st_otargetID DESC_EVENT = {eis_mk_plan_gui_Event} DESC_EVENT.eis_mk_plan_gui = parentClass DESC_EVENT.Type = "DESC" value = ' View Study Description... ' DESCbutton = WIDGET_BUTTON(studyIDBase , $ value = value , $ Event_Pro = Event_Pro , $ uValue = DESC_EVENT ) ;STOP_EVENT = {eis_mk_plan_gui_Event} ;STOP_EVENT.eis_mk_plan_gui = parentClass ;STOP_EVENT.Type = "STOP" ;STOPbutton = WIDGET_BUTTON(studyIDBase, $ ; value = 'STOP', $ ; Event_Pro = Event_Pro , $ ; uValue = STOP_EVENT ) ; ______________________________________________________________________ ; ; Title Base ; ; ______________________________________________________________________ studyTitleBase = WIDGET_BASE(st_infoBase , $ ROW = 1 ) ; This label is going to be DESC_EVENT = {eis_mk_plan_gui_Event} DESC_EVENT.eis_mk_plan_gui = parentClass DESC_EVENT.Type = "TIMER" st_timerID = WIDGET_LABEL(studyTitleBase , $ value = 'Title: ' , $ Event_Pro = Event_Pro , $ uValue = DESC_EVENT , $ xSize = 90 , $ /ALIGN_LEFT) eis_mk_plan_widgets.st_timerID = st_timerID st_titleID = WIDGET_LABEL(studyTitleBase , $ value = 'No study loaded' , $ xSize = 700 , $ /ALIGN_LEFT , $ font = fonts.mono) eis_mk_plan_widgets.st_titleID = st_titleID obstitle_obsdec_logo_base = WIDGET_BASE(st_infoBase , $ ROW = 1 ) obstitle_obsdec_base = WIDGET_BASE(obstitle_obsdec_logo_base , $ COLUMN = 1 , $ yPad = 0) logo_base = WIDGET_BASE(obstitle_obsdec_logo_base , $ COLUMN = 1 ) ; ______________________________________________________________________ ; ; OBSTITLE Base ; ; ______________________________________________________________________ st_obstitleBaseID = WIDGET_BASE(obstitle_obsdec_base , $ ROW = 1 ) ;eis_mk_plan_widgets.st_obstitleBaseID = st_obstitleBaseID aLabel = WIDGET_LABEL(st_obstitleBaseID , $ value = 'OBSTITLE:' , $ xSize = 90 , $ /ALIGN_LEFT) OBSTITLE_EVENT = {eis_mk_plan_gui_Event} OBSTITLE_EVENT.eis_mk_plan_gui = parentClass OBSTITLE_EVENT.Type = "OBSTITLE" st_obstitleTextID = WIDGET_TEXT(st_obstitleBaseID , $ value = 'jar' , $ Event_Pro = Event_Pro_update , $ uValue = OBSTITLE_EVENT , $ /EDITABLE , $ xSize = 80 , $ /ALL_EVENTS) eis_mk_plan_widgets.st_obstitleTextID = st_obstitleTextID aLabel = WIDGET_LABEL(st_obstitleBaseID , $ value = ' (80 chars max)' , $ /DYNAMIC_RESIZE , $ /ALIGN_LEFT) ; ______________________________________________________________________ ; ; OBSDEC Base ; ; ______________________________________________________________________ st_obsdecBaseID = WIDGET_BASE(obstitle_obsdec_base , $ ROW = 1 ) ;eis_mk_plan_widgets.st_obsdecBaseID = st_obsdecBaseID aLabel = WIDGET_LABEL(st_obsdecBaseID , $ value = 'OBS_DEC:' , $ xSize = 90 , $ /ALIGN_LEFT) OBSDEC_EVENT = {eis_mk_plan_gui_Event} OBSDEC_EVENT.eis_mk_plan_gui = parentClass OBSDEC_EVENT.Type = "OBS_DEC" st_obsdecTextID = WIDGET_TEXT(st_obsdecBaseID , $ value = 'jar' , $ Event_Pro = Event_Pro_update , $ uValue = OBSDEC_EVENT , $ /EDITABLE , $ xSize = 80 , $ /ALL_EVENTS) eis_mk_plan_widgets.st_obsdecTextID = st_obsdecTextID aLabel = WIDGET_LABEL(st_obsdecBaseID , $ value = ' (80 chars max)' , $ /DYNAMIC_RESIZE , $ /ALIGN_LEFT) ; ______________________________________________________________________ ; ; Logo Button ; ; ______________________________________________________________________ pl_logoBase = WIDGET_BASE(logo_base , $ COLUMN = 1 , $ xpad = 0 , $ ypad = 0 , $ frame = 3) ICON_EVENT = {eis_mk_plan_gui_Event} ICON_EVENT.eis_mk_plan_gui = parentClass ICON_EVENT.Type = "DRAW" pl_logoID = WIDGET_DRAW(pl_logoBase , $ XSize = 140 , $ YSize = 70 , $ ; XSize = 160 , $ ; YSize = 80 , $ uvalue = ICON_EVENT) eis_mk_plan_widgets.pl_logoID = pl_logoID ; ______________________________________________________________________ ; ; MetaData Base ; ; ______________________________________________________________________ metadataBase = WIDGET_BASE(st_infoBase , $ ROW = 1 , $ FRAME = 0,yPad = 0) aLabel = WIDGET_LABEL(metadataBase , $ value = "MetaData: ") ; ______________________________________________________________________ ; ; JOIN_SB Base ; ; ______________________________________________________________________ JOIN_SB_EVENT = {eis_mk_plan_gui_Event} JOIN_SB_EVENT.eis_mk_plan_gui = parentClass JOIN_SB_EVENT.Type = "JOIN_SB" value = ['E','E,S','E,X','E,S,X'] st_join_sbID = WIDGET_DROPLIST(metadataBase , $ value = value , $ title = 'JOIN_SB:' , $ Event_Pro = Event_Pro , $ uValue = JOIN_SB_EVENT) eis_mk_plan_widgets.st_join_sbID = st_join_sbID ; ______________________________________________________________________ ; ; HOP_ID Base ; ; ______________________________________________________________________ aLabel = WIDGET_LABEL(metadataBase , $ value = ' HOP_ID:') JOP_ID_EVENT = {eis_mk_plan_gui_Event} JOP_ID_EVENT.eis_mk_plan_gui = parentClass JOP_ID_EVENT.Type = "JOP_ID" st_jop_idID = WIDGET_TEXT(metadataBase , $ value = '0' , $ Event_Pro = Event_Pro_update , $ uValue = JOP_ID_EVENT , $ /EDITABLE , $ xSize = 8 , $ /ALL_EVENTS) eis_mk_plan_widgets.st_jop_idID = st_jop_idID ; ______________________________________________________________________ ; ; NOAA_NUM ; ; ______________________________________________________________________ ; aLabel = WIDGET_LABEL(metadataBase , $ ; value = 'JOP_ID: ') ; ; OBS_ID_EVENT = {eis_mk_plan_gui_Event} ; OBS_ID_EVENT.eis_mk_plan_gui = parentClass ; OBS_ID_EVENT.Type = "OBS_ID" ; st_obs_idID = WIDGET_TEXT(metadataBase , $ ; value = '0' , $ ; Event_Pro = Event_Pro_update , $ ; uValue = OBS_ID_EVENT , $ ; /EDITABLE , $ ; xSize = 8 ,/ALL_EVENTS) ; eis_mk_plan_widgets.st_obs_idID = st_obs_idID aLabel = WIDGET_LABEL(metadataBase , $ value = ' NOAA_NUM:') NOAA_NUM_EVENT = {eis_mk_plan_gui_Event} NOAA_NUM_EVENT.eis_mk_plan_gui = parentClass NOAA_NUM_EVENT.Type = "NOAA_NUM" st_noaa_numID = WIDGET_TEXT(metadataBase , $ value = '0' , $ Event_Pro = Event_Pro_update , $ uValue = NOAA_NUM_EVENT , $ /EDITABLE , $ xSize = 8 , $ /ALL_EVENTS) eis_mk_plan_widgets.st_noaa_numID = st_noaa_numID ; ______________________________________________________________________ ; ; SCI_OBJ ; ; ______________________________________________________________________ aLabel = WIDGET_LABEL(metadataBase , $ value = ' SCI_OBJ:') st_sci_objLabelID = WIDGET_TEXT(metadataBase , $ value = 'None' , $ xSize = 20 , $ /ALIGN_LEFT , $ font = fonts.mono) eis_mk_plan_widgets.st_sci_objLabelID = st_sci_objLabelID SCI_OBJ_EVENT = {eis_mk_plan_gui_Event} SCI_OBJ_EVENT.eis_mk_plan_gui = parentClass SCI_OBJ_EVENT.Type = "SCI_OBJ" st_sci_objID = WIDGET_BUTTON(metadataBase , $ value = ' Edit... ' , $ Event_Pro = Event_Pro , $ uValue = SCI_OBJ_EVENT) ; ______________________________________________________________________ ; ; Study Data Info Base ; ; ______________________________________________________________________ dataInfoBase = WIDGET_BASE(st_infoBase , $ ROW = 1 ) ; ______________________________________________________________________ ; ; Target & Category & Author ; ; ______________________________________________________________________ studyTargetBase = WIDGET_BASE(dataInfoBase , $ COLUMN = 1 , $ /FRAME) ; ______________________________________________________________________ ; ; Target Base ; ; ______________________________________________________________________ targetBase = WIDGET_BASE(studyTargetBase , $ ROW = 1) sr_targetTitle = WIDGET_LABEL(targetBase , $ value = "Target:" , $ /ALIGN_LEFT , $ xSize = 80) ; st_targetID = WIDGET_LABEL(targetBase , $ ; value = '0' , $ ; xSize = 150 , $ ; /ALIGN_LEFT , $ ; font = fonts.mono) TARGET_EVENT = {eis_mk_plan_gui_Event} TARGET_EVENT.eis_mk_plan_gui = parentClass TARGET_EVENT.Type = "TARGET" value = eis_get_target_list() st_targetID = WIDGET_DROPLIST(targetBase , $ value = value , $ title = ' ' , $ Event_Pro = Event_Pro , $ uValue = TARGET_EVENT) eis_mk_plan_widgets.st_targetID = st_targetID ; ______________________________________________________________________ ; ; Category Base ; ; ______________________________________________________________________ categoryBase = WIDGET_BASE(studyTargetBase , $ ROW = 1 , $ ypad = 0) sr_targetTitle = WIDGET_LABEL(categoryBase , $ value = "Category:" , $ /ALIGN_LEFT , $ xSize = 80) st_categoryID = WIDGET_LABEL(categoryBase , $ value = '0' , $ xSize = 150 , $ /ALIGN_LEFT , $ font = fonts.mono) eis_mk_plan_widgets.st_categoryID = st_categoryID ; ______________________________________________________________________ ; ; Author Base ; ; ______________________________________________________________________ authorBase = WIDGET_BASE(studyTargetBase , $ ROW = 1 , $ ypad = 0) sr_targetTitle = WIDGET_LABEL(authorBase , $ value = "Author:" , $ /ALIGN_LEFT , $ xSize = 80) st_authorID = WIDGET_LABEL(authorBase , $ value = '0' , $ xSize = 150 , $ /ALIGN_LEFT , $ font = fonts.mono) eis_mk_plan_widgets.st_authorID = st_authorID ; ______________________________________________________________________ ; ; Duration & Volume Label ; ; ______________________________________________________________________ durationAndVolumeBase = WIDGET_BASE(dataInfoBase , $ COLUMN = 1 , $ /FRAME) ; ______________________________________________________________________ ; ; Duration Label ; ; ______________________________________________________________________ durationBase = WIDGET_BASE(durationAndVolumeBase , $ ROW = 1 , $ ypad = 0) sr_durationTitle = WIDGET_LABEL(durationBase , $ value = "Duration:" , $ /ALIGN_LEFT , $ xSize = 70) st_durationID = WIDGET_LABEL(durationBase , $ value = '000:00:00.0' , $ /ALIGN_LEFT , $ xSize = 130 , $ font = fonts.mono) eis_mk_plan_widgets.st_durationID = st_durationID ; ______________________________________________________________________ ; ; Volume Label ; ; ______________________________________________________________________ volumeBase = WIDGET_BASE(durationAndVolumeBase , $ ROW = 1 , $ ypad = 0) st_volumeTitle = WIDGET_LABEL(volumeBase , $ value = 'Volume:' , $ /ALIGN_LEFT , $ xSize = 70) st_volumeID = WIDGET_LABEL(volumeBase , $ value = '0' , $ /ALIGN_LEFT , $ xSize = 130 , $ font = fonts.mono) eis_mk_plan_widgets.st_volumeID = st_volumeID ; ______________________________________________________________________ ; ; Data Rate Label ; ; ______________________________________________________________________ dataRateBase = WIDGET_BASE(durationAndVolumeBase , $ ROW = 1 , $ ypad = 0) st_datarateTitle = WIDGET_LABEL(dataRateBase , $ value = 'Data Rate:' , $ /ALIGN_LEFT , $ xSize = 70) st_datarateID = WIDGET_LABEL(dataRateBase , $ value = '0' , $ /ALIGN_LEFT , $ xSize = 130 , $ font = fonts.mono) eis_mk_plan_widgets.st_datarateID = st_datarateID ; ______________________________________________________________________ ; ; Study START and STOP times ; ; ______________________________________________________________________ st_timesBase = WIDGET_BASE(dataInfoBase , $ COLUMN = 1 , $ /FRAME) get_utc, time, /STIME , /TRUNCATE ; ______________________________________________________________________ ; ; Study START ; ; ______________________________________________________________________ st_startBase = WIDGET_BASE(st_timesBase , $ ROW = 1 , $ ypad = 0) sr_startTitle = WIDGET_LABEL(st_startBase , $ value = "Study Start:" , $ /ALIGN_LEFT , $ xSize = 80) st_startLabelID = WIDGET_TEXT(st_startBase , $ value = time , $ /ALIGN_LEFT , $ xSize = 26 , $ font = fonts.mono) eis_mk_plan_widgets.st_startLabelID = st_startLabelID ; ______________________________________________________________________ ; ; Study STOP ; ; ______________________________________________________________________ st_stopBase = WIDGET_BASE(st_timesBase , $ ROW = 1 , $ ypad = 0) sr_stopTitle = WIDGET_LABEL(st_stopBase , $ value = "Study Stop:" , $ /ALIGN_LEFT , $ xSize = 80) st_stopLabelID = WIDGET_TEXT(st_stopBase , $ value = time , $ /ALIGN_LEFT , $ xSize = 26 , $ font = fonts.mono) eis_mk_plan_widgets.st_stopLabelID = st_stopLabelID ; ______________________________________________________________________ ; ; Time Base ; ; ______________________________________________________________________ tl_cursorBase = WIDGET_BASE(st_timesBase , $ ROW = 1 , $ ypad = 0) eis_mk_plan_widgets.tl_cursorBase = tl_cursorBase aLabel = WIDGET_LABEL(tl_cursorBase , $ value = 'Cursor Time:' , $ /ALIGN_LEFT , $ xSize = 80 ) ; ; ______________________________________________________________________ ; ; ; ; Study Properties Base ; ; ; ; ______________________________________________________________________ ; st_propsBase = WIDGET_BASE(st_infoBase , $ ; ROW = 1 ) ; ; ______________________________________________________________________ ; ; ; ; Time_Tagged & 5% Rule Base ; ; ; ; ______________________________________________________________________ ; tt_Base = WIDGET_BASE(st_propsBase , $ ; COLUMN = 1,/frame,sensitive=0) ; ; ; ______________________________________________________________________ ; ; ; ; Time-Tagged Base ; ; ; ; ______________________________________________________________________ ; time_taggedBase = WIDGET_BASE(tt_Base , $ ; ROW = 1) ; ; st_tt_Label = WIDGET_LABEL(time_taggedBase , $ ; value = "Time-Tagged Study:", $ ; /ALIGN_LEFT, $ ; xSize = 120) ; ; st_tt_buttonBase = WIDGET_BASE(time_taggedBase , $ ; ROW = 1 , $ ; /EXCLUSIVE ) ; ; TT_YES_EVENT = {eis_mk_plan_gui_Event} ; TT_YES_EVENT.eis_mk_plan_gui = parentClass ; TT_YES_EVENT.Type = "TT_ENABLE" ; st_tt_enableID = WIDGET_BUTTON(st_tt_buttonBase, $ ; value = 'Yes' , $ ; Event_Pro = Event_Pro_update , $ ; uValue = TT_YES_EVENT, $ ; /NO_RELEASE) ; WIDGET_CONTROL , st_tt_enableID , set_button = 1 ; eis_mk_plan_widgets.st_tt_enableID = st_tt_enableID ; ; TT_OFF_EVENT = {eis_mk_plan_gui_Event} ; TT_OFF_EVENT.eis_mk_plan_gui = parentClass ; TT_OFF_EVENT.Type = "TT_DISABLE" ; st_tt_disableID = WIDGET_BUTTON(st_tt_buttonBase, $ ; value = 'No' , $ ; Event_Pro = Event_Pro_update , $ ; uValue = TT_OFF_EVENT, $ ; /NO_RELEASE) ; eis_mk_plan_widgets.st_tt_disableID = st_tt_disableID ; ; ______________________________________________________________________ ; ; ; ; 5% Rule Base ; ; ; ; ______________________________________________________________________ ; fivepercentRuleBase = WIDGET_BASE(tt_Base , $ ; ROW = 1) ; ; st_5pc_Label = WIDGET_LABEL(fivepercentRuleBase , $ ; value = "Apply 5% TT Rule:" , $ ; /ALIGN_LEFT, $ ; xSize = 120) ; ; st_5pc_buttonBase = WIDGET_BASE(fivepercentRuleBase , $ ; ROW = 1 , $ ; /EXCLUSIVE ) ; ; FPC_YES_EVENT = {eis_mk_plan_gui_Event} ; FPC_YES_EVENT.eis_mk_plan_gui = parentClass ; FPC_YES_EVENT.Type = "FIVEPC_ENABLE" ; st_5pc_enableID = WIDGET_BUTTON(st_5pc_buttonBase, $ ; value = 'Yes' , $ ; Event_Pro = Event_Pro_update , $ ; uValue = FPC_YES_EVENT, $ ; /NO_RELEASE) ; WIDGET_CONTROL , st_5pc_enableID , set_button = 1 ; eis_mk_plan_widgets.st_5pc_enableID = st_5pc_enableID ; ; ; FPC_OFF_EVENT = {eis_mk_plan_gui_Event} ; FPC_OFF_EVENT.eis_mk_plan_gui = parentClass ; FPC_OFF_EVENT.Type = "FIVEPC_DISABLE" ; st_5pc_disableID = WIDGET_BUTTON(st_5pc_buttonBase, $ ; value = 'No' , $ ; Event_Pro = Event_Pro_update , $ ; uValue = FPC_OFF_EVENT, $ ; /NO_RELEASE) ; eis_mk_plan_widgets.st_5pc_disableID = st_5pc_disableID ; ; ______________________________________________________________________ ; ; Raster Properties Base ; ; ______________________________________________________________________ pl_rasterBaseID = WIDGET_BASE(st_infoBase , $ COLUMN = 1 , $ frame = 6) eis_mk_plan_widgets.pl_rasterBaseID = pl_rasterBaseID ; ______________________________________________________________________ ; ; Raster List Title Base ; ; ______________________________________________________________________ rasterListTitleBase = WIDGET_BASE(pl_rasterBaseID , $ COLUMN = 1) value = 'ID: Acronym: Compression: Repeats: ' + $ ' Duration: ASRC: xPoint: yPoint: Triggers: ' ll_listLabel = WIDGET_LABEL(rasterListTitleBase , $ value = value , $ /ALIGN_LEFT , $ font = fonts.mono) ; value = ' ' + $ ; ' (Total) Event: Flare: Event: Flare:' ; ll_listLabel = WIDGET_LABEL(rasterListTitleBase , $ ; value = value , $ ; /ALIGN_LEFT , $ ; font = fonts.mono) ; ______________________________________________________________________ ; ; Raster List Base ; ; ______________________________________________________________________ rasterListBase = WIDGET_BASE(pl_rasterBaseID , $ COLUMN = 1 ) RA_LIST_EVENT = {eis_mk_plan_gui_Event} RA_LIST_EVENT.eis_mk_plan_gui = parentClass RA_LIST_EVENT.Type = "RA_LIST" pl_raListID = WIDGET_LIST(rasterListBase , $ ySize = 3 , $ xSize = 125 , $ value = '' , $ Event_Pro = Event_Pro , $ uValue = RA_LIST_EVENT , $ font = fonts.mono , $ /CONTEXT_EVENTS) eis_mk_plan_widgets.pl_raListID = pl_raListID ; ______________________________________________________________________ ; ; Raster Properties WIDGET TAB ; ; ______________________________________________________________________ ra_tabBase = WIDGET_TAB(pl_rasterBaseID) ; ______________________________________________________________________ ; ; Raster Pointing Base ; ; ______________________________________________________________________ value = ' Pointing ' ra_pointBaseID = WIDGET_BASE(ra_tabBase , $ title = value , $ ROW = 1 , $ frame = 1 , $ SENSITIVE = 0) eis_mk_plan_widgets.ra_pointBaseID = ra_pointBaseID pointingLHSBase = WIDGET_BASE(ra_pointBaseID , $ COLUMN = 1) pointingMIDBase = WIDGET_BASE(ra_pointBaseID , $ COLUMN = 1) pointingRHSBase = WIDGET_BASE(ra_pointBaseID , $ COLUMN = 1) ; pointing_label = WIDGET_LABEL(ra_pointBaseID , $ ; value = 'Pointing: ' , $ ; xSize = 90 , $ ; /ALIGN_LEFT ) ra_pointingBaseID = WIDGET_BASE(pointingLHSBase , $ COLUMN = 1 , $ frame = 0) ra_pointCoordsBaseID = WIDGET_BASE(ra_pointingBaseID , $ ROW = 1) ra_pointMechBaseID = WIDGET_BASE(ra_pointingBaseID , $ ROW = 1) value = 'Heliospheric Coords:' a_label = WIDGET_LABEL(ra_pointCoordsBaseID , $ value = value , $ /ALIGN_LEFT , $ xSize = 130) value = 'Mechanical Units:' a_label = WIDGET_LABEL(ra_pointMechBaseID , $ value = value , $ /ALIGN_LEFT , $ xSize = 130) a_label = WIDGET_LABEL(ra_pointCoordsBaseID , $ value = 'X:' , $ /ALIGN_RIGHT , $ xSize = 30) X_POINT_EVENT = {eis_mk_plan_gui_Event} X_POINT_EVENT.eis_mk_plan_gui = parentClass X_POINT_EVENT.Type = "X_POINT" pl_ra_xpointID = WIDGET_TEXT(ra_pointCoordsBaseID , $ value = '0.00' , $ Event_Pro = Event_Pro_update , $ uValue = X_POINT_EVENT , $ /EDITABLE , $ xSize = 8 ) eis_mk_plan_widgets.pl_ra_xpointID = pl_ra_xpointID a_label = WIDGET_LABEL(ra_pointCoordsBaseID , $ value = 'Y:' , $ /ALIGN_RIGHT , $ xSize = 30) Y_POINT_EVENT = {eis_mk_plan_gui_Event} Y_POINT_EVENT.eis_mk_plan_gui = parentClass Y_POINT_EVENT.Type = "Y_POINT" pl_ra_ypointID = WIDGET_TEXT(ra_pointCoordsBaseID , $ value = '0.00' , $ Event_Pro = Event_Pro_update , $ uValue = Y_POINT_EVENT , $ /EDITABLE , $ xSize = 8 ) eis_mk_plan_widgets.pl_ra_ypointID = pl_ra_ypointID ; ; MIP Text Box ; a_label = WIDGET_LABEL(ra_pointMechBaseID , $ value = 'MIP:' , $ /ALIGN_RIGHT , $ xSize = 30) MIPTEXT_EVENT = {eis_mk_plan_gui_Event} MIPTEXT_EVENT.eis_mk_plan_gui = parentClass MIPTEXT_EVENT.Type = "MIPTEXT" pl_ra_mipInID = WIDGET_TEXT(ra_pointMechBaseID , $ value = '0' , $ Event_Pro = Event_Pro_update , $ uValue = MIPTEXT_EVENT , $ /EDITABLE , $ xSize = 8 ) eis_mk_plan_widgets.pl_ra_mipInID = pl_ra_mipInID ; ; YIP Text Box ; a_label = WIDGET_LABEL(ra_pointMechBaseID , $ value = 'YIP:' , $ /ALIGN_RIGHT , $ xSize = 30) YIPTEXT_EVENT = {eis_mk_plan_gui_Event} YIPTEXT_EVENT.eis_mk_plan_gui = parentClass YIPTEXT_EVENT.Type = "YIPTEXT" pl_ra_yipInID = WIDGET_TEXT(ra_pointMechBaseID , $ value = '0' , $ Event_Pro = Event_Pro_update , $ uValue = YIPTEXT_EVENT , $ /EDITABLE , $ xSize = 8 ) eis_mk_plan_widgets.pl_ra_yipInID = pl_ra_yipInID ; ; "Send to Image Tool" Button ; IM_TOOL_EVENT = {eis_mk_plan_gui_Event} IM_TOOL_EVENT.eis_mk_plan_gui = parentClass IM_TOOL_EVENT.Type = "IM_TOOL_EVENT" value = ' Send to image_tool ' IM_TOOLbutton = WIDGET_BUTTON(ra_pointingBaseID , $ value = value , $ Event_Pro = Event_Pro , $ uValue = IM_TOOL_EVENT ) ; ; POINTING Button ; POINTING_EVENT = {eis_mk_plan_gui_Event} POINTING_EVENT.eis_mk_plan_gui = parentClass POINTING_EVENT.Type = "POINTING" POINTINGbutton = WIDGET_BUTTON(ra_pointingBaseID , $ value = ' Pointing... ' , $ Event_Pro = Event_Pro , $ uValue = POINTING_EVENT ) ra_pointingInfoID = WIDGET_BASE(pointingLHSBase , $ COLUMN = 1) ; ; JAR 11-Apr-2014 ; Pointing Mode (obs_id = 0,1,2) ; ra_pointingModeBase = WIDGET_BASE(pointingRHSBase , $ ROW = 1 , $ ypad = 0) a_label = WIDGET_LABEL(ra_pointingModeBase , $ value = 'Pointing Offset:' , $ xSize = 120 , $ ;/sunken_frame , $ /ALIGN_LEFT) label = ['None (default)' , $ 'EIS/AIA' , $ 'EIS/AIA and SOT/Hinode'] POINTMODE_EVENT = {eis_mk_plan_gui_Event} POINTMODE_EVENT.eis_mk_plan_gui = parentClass POINTMODE_EVENT.Type = "POINTMODE" pointmodeID = WIDGET_DROPLIST(ra_pointingModeBase , $ value = label , $ Event_Pro = Event_Pro_update , $ uValue = POINTMODE_EVENT ) eis_mk_plan_widgets.pointmodeID = pointmodeID ; ; Raster Height & Width ; ra_pointingRABase = WIDGET_BASE(pointingRHSBase , $ ROW = 1 , $ ypad = 0) a_label = WIDGET_LABEL(ra_pointingRABase , $ value = 'Raster Size:' , $ xSize = 120 , $ ;/sunken_frame , $ /ALIGN_LEFT) RA_EVENT = {eis_mk_plan_gui_Event} RA_EVENT.eis_mk_plan_gui = parentClass RA_EVENT.Type = "RASTER" pl_ra_raID = WIDGET_LABEL(ra_pointingRABase , $ value = '0"x0"' , $ /ALIGN_LEFT , $ /DYNAMIC_RESIZE ) eis_mk_plan_widgets.pl_ra_raID = pl_ra_raID ; ; EIS FOV ; ra_eisFOVBase = WIDGET_BASE(pointingRHSBase , $ ROW = 1 , $ ypad = 0) a_label = WIDGET_LABEL(ra_eisFOVBase , $ value = 'EIS FOV:' , $ xSize = 120 , $ ;/sunken_frame , $ /ALIGN_LEFT) RAFOV_EVENT = {eis_mk_plan_gui_Event} RAFOV_EVENT.eis_mk_plan_gui = parentClass RAFOV_EVENT.Type = "RASTER" pl_ra_rafovID = WIDGET_LABEL(ra_eisFOVBase , $ value = '0"x0"' , $ /ALIGN_LEFT , $ /DYNAMIC_RESIZE ) eis_mk_plan_widgets.pl_ra_rafovID = pl_ra_rafovID ; ; SC Pointing ; ra_pointingSCBase = WIDGET_BASE(pointingRHSBase , $ ROW = 1 , $ ypad = 0) value = 'Hinode Pointing: ' a_label = WIDGET_LABEL(ra_pointingSCBase , $ value = value , $ xSize = 120 , $ ;/sunken_frame , $ /ALIGN_LEFT) pl_ra_scID = WIDGET_LABEL(ra_pointingSCBase , $ xSize = 200 , $ value = value , $ /ALIGN_LEFT , $ /DYNAMIC_RESIZE) eis_mk_plan_widgets.pl_ra_scID = pl_ra_scID ; ; Tracking Curve ; ra_trackingBase = WIDGET_BASE(pointingRHSBase , $ ROW = 1 , $ ypad = 0) value = 'Tracking Curve: ' a_label = WIDGET_LABEL(ra_trackingBase , $ value = value , $ xSize = 120 , $ ;/sunken_frame , $ /ALIGN_LEFT) pl_ra_trackingID = WIDGET_LABEL(ra_trackingBase , $ xSize = 200 , $ value = value , $ /ALIGN_LEFT , $ /DYNAMIC_RESIZE) eis_mk_plan_widgets.pl_ra_trackingID = pl_ra_trackingID ; ; CMP ; ra_pointingCMPBase = WIDGET_BASE(pointingRHSBase , $ ROW = 1 , $ ypad = 0) value = 'Coarse Mirror Pos:' a_label = WIDGET_LABEL(ra_pointingCMPBase , $ value = value , $ xSize = 120 , $ ;/sunken_frame , $ /ALIGN_LEFT) CMP_EVENT = {eis_mk_plan_gui_Event} CMP_EVENT.eis_mk_plan_gui = parentClass CMP_EVENT.Type = "CMP" pl_ra_cmpID = WIDGET_LABEL(ra_pointingCMPBase , $ value = '0' , $ /ALIGN_LEFT , $ /DYNAMIC_RESIZE ) eis_mk_plan_widgets.pl_ra_cmpID = pl_ra_cmpID ; Want this draw area to be height of pointingLHSBase widget geo = WIDGET_INFO(pointingLHSBase , /GEOMETRY) PPLOT_EVENT = {eis_mk_plan_gui_Event} PPLOT_EVENT.eis_mk_plan_gui = parentClass PPLOT_EVENT.Type = "P_DRAW" pointingDrawID = WIDGET_DRAW(pointingMIDBase , $ XSize = geo.ysize , $ YSize = geo.ysize , $ uvalue = PPLOT_EVENT) eis_mk_plan_widgets.pointingDrawID = pointingDrawID ; ______________________________________________________________________ ; ; Raster Properties Base ; ; ______________________________________________________________________ value = ' Raster Properties ' ra_propsBaseID = WIDGET_BASE(ra_tabBase , $ COLUMN = 1 , $ frame = 1 , $ title = value , $ SENSITIVE = 0) eis_mk_plan_widgets.ra_propsBaseID = ra_propsBaseID ; pointing_label = WIDGET_LABEL(ra_propsBaseID , $ ; value = 'Raster: ' , $ ; xSize = 90 , $ ; /ALIGN_LEFT ) ; ; ; ; Reset original Compression ; ; ; RASTER_EVENT = {eis_mk_plan_gui_Event} ; RASTER_EVENT.eis_mk_plan_gui = parentClass ; RASTER_EVENT.Type = "RA_DETAILS" ; value = " View Raster Details... " ; rasterButton = WIDGET_BUTTON(ra_propsBaseID , $ ; value = value , $ ; Event_Pro = Event_Pro_update , $ ; uValue = RASTER_EVENT ) ; ; Repeats ; repeatsBase = WIDGET_BASE(ra_propsBaseID , $ ROW = 1) a_label = WIDGET_LABEL(repeatsBase , $ value = 'Repeat raster') REPEATS_EVENT = {eis_mk_plan_gui_Event} REPEATS_EVENT.eis_mk_plan_gui = parentClass REPEATS_EVENT.Type = "REPEATS" pl_ra_repeatsID = WIDGET_TEXT(repeatsBase , $ value = '0' , $ Event_Pro = Event_Pro_update , $ uValue = REPEATS_EVENT , $ /EDITABLE , $ xSize = 4) eis_mk_plan_widgets.pl_ra_repeatsID = pl_ra_repeatsID a_label = WIDGET_LABEL(repeatsBase , $ value = 'times') ; ; Compression ; ra_compBaseID = WIDGET_BASE(ra_propsBaseID , $ ROW = 1 , $ ;frame = 1 , $ SENSITIVE = 1) value = 'Set Compression to' a_label = WIDGET_LABEL(ra_compBaseID , $ value = value , $ /DYNAMIC_RESIZE , $ /ALIGN_LEFT) COMP_EVENT = {eis_mk_plan_gui_Event} COMP_EVENT.eis_mk_plan_gui = parentClass COMP_EVENT.Type = "COMP" value = ['None' , 'DPCM' , 'JPEG98' , 'JPEG90' , 'JPEG75' , $ 'JPEG50' , 'JPEG95' , 'JPEG92' , 'JPEG85' , 'JPEG65'] pl_ra_compDropListID = WIDGET_DROPLIST(ra_compBaseID , $ value = value , $ ;title = 'Direction:' , $ Event_Pro = Event_Pro_update , $ uValue = COMP_EVENT) eis_mk_plan_widgets.pl_ra_compDropListID = pl_ra_compDropListID value = ' (Original raster value was' a_label = WIDGET_LABEL(ra_compBaseID , $ /DYNAMIC_RESIZE , $ value = value , $ /ALIGN_LEFT) pl_ra_ocompID = WIDGET_LABEL(ra_compBaseID , $ value = 'None' , $ /DYNAMIC_RESIZE , $ /ALIGN_LEFT ) eis_mk_plan_widgets.pl_ra_ocompID = pl_ra_ocompID ; ; Reset original Compression ; RESET_COMP_EVENT = {eis_mk_plan_gui_Event} RESET_COMP_EVENT.eis_mk_plan_gui = parentClass RESET_COMP_EVENT.Type = "RESET_COMP" value = " Reset " resetCompButton = WIDGET_BUTTON(ra_compBaseID , $ value = value , $ Event_Pro = Event_Pro_update , $ uValue = RESET_COMP_EVENT ) value = ')' a_label = WIDGET_LABEL(ra_compBaseID , $ /DYNAMIC_RESIZE , $ value = value , $ /ALIGN_LEFT) RA_DETAILS = {eis_mk_plan_gui_Event} RA_DETAILS.eis_mk_plan_gui = parentClass RA_DETAILS.Type = "RA_DETAILS" value = " View Raster Details... " raDetailsButton = WIDGET_BUTTON(ra_propsBaseID , $ value = value , $ Event_Pro = Event_Pro , $ uValue = RA_DETAILS ) ; ______________________________________________________________________ ; ; Raster ASRC Base ; ; ______________________________________________________________________ value = ' Anti-Solar Rotation Compensation (ASRC) ' pl_ra_asrcBaseID = WIDGET_BASE(ra_tabBase , $ title = value , $ COLUMN = 1 , $ frame = 1 , $ SENSITIVE = 0) eis_mk_plan_widgets.pl_ra_asrcBaseID = pl_ra_asrcBaseID asrcEnableBase = WIDGET_BASE( pl_ra_asrcBaseID , $ ROW = 1) ra_ASRCNonExclusiveBaseID = WIDGET_BASE(asrcEnableBase , $ ROW = 1 , $ /NONEXCLUSIVE ) ; ; ASRC Enabled ; ASRC_ENABLE_EVENT = {eis_mk_plan_gui_Event} ASRC_ENABLE_EVENT.eis_mk_plan_gui = parentClass ASRC_ENABLE_EVENT.Type = "ASRC_ENABLE" value = 'Enable Anti-Solar Rotation Compensation' pl_ra_asrcEnabledID = WIDGET_BUTTON(ra_ASRCNonExclusiveBaseID , $ value = value , $ Event_Pro = Event_Pro , $ uValue = ASRC_ENABLE_EVENT) eis_mk_plan_widgets.pl_ra_asrcEnabledID = pl_ra_asrcEnabledID ; ; ASRC Base - to be sensitive / desensitive ; ra_asrcBaseID = WIDGET_BASE( pl_ra_asrcBaseID , $ ROW = 1 , $ SENSITIVE = 0) eis_mk_plan_widgets.ra_asrcBaseID = ra_asrcBaseID ; ; ASRC Direction ; asrcDirectionBase = WIDGET_BASE( pl_ra_asrcBaseID , $ ROW = 1) value = 'Set Direction:' aLabel = WIDGET_LABEL(asrcDirectionBase , $ value = value) ASRC_DIR_EVENT = {eis_mk_plan_gui_Event} ASRC_DIR_EVENT.eis_mk_plan_gui = parentClass ASRC_DIR_EVENT.Type = "ASRC_DIR" value = ['Forward','Backward'] ra_asrcDirectionID = WIDGET_DROPLIST(asrcDirectionBase , $ value = value , $ ;title = 'Direction:' , $ Event_Pro = Event_Pro , $ uValue = ASRC_DIR_EVENT) eis_mk_plan_widgets.ra_asrcDirectionID = ra_asrcDirectionID ; ; ASRC Skip ; value = 'Skips:' asrcSkipsLabel = WIDGET_LABEL(ra_asrcBaseID , $ value = value) ASRC_SKIP_EVENT = {eis_mk_plan_gui_Event} ASRC_SKIP_EVENT.eis_mk_plan_gui = parentClass ASRC_SKIP_EVENT.Type = "ASRC_SKIP" ra_asrcSkipID = WIDGET_SLIDER(ra_asrcBaseID , $ value = 1 , $ maximum = 255 , $ minimum = 1 , $ Event_Pro = Event_Pro , $ uValue = ASRC_SKIP_EVENT , $ xSize = 200) eis_mk_plan_widgets.ra_asrcSkipID = ra_asrcSkipID ; ; ASRC Number of Compensation Steps ; value = ' Compensation Steps:' asrcNStepsLabel = WIDGET_LABEL(ra_asrcBaseID , $ value = value) ASRC_SLIDER_EVENT = {eis_mk_plan_gui_Event} ASRC_SLIDER_EVENT.eis_mk_plan_gui = parentClass ASRC_SLIDER_EVENT.Type = "ASRC_NSTEPS" ra_asrcNStepsID = WIDGET_SLIDER(ra_asrcBaseID , $ value = 1 , $ maximum = 127 , $ minimum = 1 , $ Event_Pro = Event_Pro , $ uValue = ASRC_SLIDER_EVENT , $ xSize = 100) eis_mk_plan_widgets.ra_asrcNStepsID = ra_asrcNStepsID ; ______________________________________________________________________ ; ; Event response toggle buttons ; ; ______________________________________________________________________ value = ' Trigger Studies ' responseBase = WIDGET_BASE( ra_tabBase , $ title = value , $ ROW = 1 , $ FRAME = 0) ra_eventsBaseID = WIDGET_BASE( responseBase , $ ;title = value , $ COLUMN = 1 , $ FRAME = 1 , $ SENSITIVE = 0) eis_mk_plan_widgets.ra_eventsBaseID = ra_eventsBaseID responseCheckBase = WIDGET_BASE( responseBase , $ ;title = value , $ COLUMN = 1 , $ FRAME = 1 , $ SENSITIVE = 1) CHECK_EVENT = {eis_mk_plan_gui_Event} CHECK_EVENT.eis_mk_plan_gui = parentClass CHECK_EVENT.Type = "CHECK_RESPONSE" value = ' Check Trigger/Response Properties ' st_rasterCHECKButton = WIDGET_BUTTON( responseCheckBase , $ value = value , $ Event_Pro = Event_Pro , $ uValue = CHECK_EVENT , $ SENSITIVE = 1) VIEW_EVENT = {eis_mk_plan_gui_Event} VIEW_EVENT.eis_mk_plan_gui = parentClass VIEW_EVENT.Type = "RESP_GUI" value = 'View Response DB info...' st_rasterVIEWButton = WIDGET_BUTTON( responseCheckBase , $ value = value , $ Event_Pro = Event_Pro , $ uValue = VIEW_EVENT , $ SENSITIVE = 1) ;--------------------------------------------------------------------------- ; ; EIS Event - Bright Point Trigger - EISE ; ;--------------------------------------------------------------------------- eis_eventBase = WIDGET_BASE(ra_eventsBaseID , $ ROW = 1 , $ yPad = 0 , $ SENSITIVE = 1) eis_eventBaseNonExc = WIDGET_BASE(eis_eventBase , $ ROW = 1 , $ /NONEXCLUSIVE) EISE_EVENT = {eis_mk_plan_gui_Event} EISE_EVENT.eis_mk_plan_gui = parentClass EISE_EVENT.Type = "EISEVENT" value = 'Enable Bright Point Trigger ' ra_eisEventID = WIDGET_BUTTON(eis_eventBaseNonExc , $ value = value , $ Event_Pro = Event_Pro_update , $ uValue = EISE_EVENT , $ sensitive = eebp_sensitive , $ xSize = 200) eis_mk_plan_widgets.ra_eisEventID = ra_eisEventID MODIFY_EVENT = {eis_mk_plan_gui_Event} MODIFY_EVENT.eis_mk_plan_gui = parentClass MODIFY_EVENT.Type = "EISE_PROPS" value = ' Edit Properties... ' st_rasterMODIFYButton = WIDGET_BUTTON( eis_eventBase , $ value = value , $ Event_Pro = Event_Pro , $ uValue = MODIFY_EVENT , $ SENSITIVE = eebp_sensitive) ;--------------------------------------------------------------------------- ; ; EIS Flare ; ;--------------------------------------------------------------------------- eis_flareBase = WIDGET_BASE(ra_eventsBaseID , $ ROW = 1 , $ yPad = 0 , $ SENSITIVE = 1) eis_flareBaseNonExc = WIDGET_BASE(eis_flareBase , $ ROW = 1 , $ /NONEXCLUSIVE) EISF_FLARE = {eis_mk_plan_gui_Event} EISF_FLARE.eis_mk_plan_gui = parentClass EISF_FLARE.Type = "EISFLARE" value = 'Enable EIS Flare Trigger ' ra_eisFlareID = WIDGET_BUTTON(eis_flareBaseNonExc , $ value = value , $ Event_Pro = Event_Pro_update , $ uValue = EISF_FLARE , $ sensitive = eisf_sensitive , $ xSize = 200) eis_mk_plan_widgets.ra_eisFlareID = ra_eisFlareID MODIFY_EVENT = {eis_mk_plan_gui_Event} MODIFY_EVENT.eis_mk_plan_gui = parentClass MODIFY_EVENT.Type = "EISF_PROPS" value = ' Edit Properties... ' st_rasterMODIFYButton = WIDGET_BUTTON( eis_flareBase , $ value = value , $ Event_Pro = Event_Pro , $ uValue = MODIFY_EVENT , $ SENSITIVE = eisf_sensitive) ;--------------------------------------------------------------------------- ; ; XRT Flare ; ;--------------------------------------------------------------------------- xrt_flareBase = WIDGET_BASE(ra_eventsBaseID , $ ROW = 1 , $ yPad = 0 , $ SENSITIVE = 1) xrt_flareBaseNonExc = WIDGET_BASE(xrt_flareBase , $ ROW = 1 , $ /NONEXCLUSIVE) ; ; XRT Flare ; XRTF_FLARE = {eis_mk_plan_gui_Event} XRTF_FLARE.eis_mk_plan_gui = parentClass XRTF_FLARE.Type = "XRTFLARE" value = 'Enable XRT Flare Trigger ' ra_xrtFlareID = WIDGET_BUTTON(xrt_flareBaseNonExc , $ value = value , $ Event_Pro = Event_Pro_update , $ uValue = XRTF_FLARE , $ sensitive = xrtf_sensitive , $ xSize = 200) eis_mk_plan_widgets.ra_xrtFlareID = ra_xrtFlareID MODIFY_EVENT = {eis_mk_plan_gui_Event} MODIFY_EVENT.eis_mk_plan_gui = parentClass MODIFY_EVENT.Type = "XRTF_PROPS" value = ' Edit Properties... ' st_rasterMODIFYButton = WIDGET_BUTTON( xrt_flareBase , $ value = value , $ Event_Pro = Event_Pro , $ uValue = MODIFY_EVENT , $ SENSITIVE = xrtf_sensitive) ;--------------------------------------------------------------------------- ; ; AEC Event ; ;--------------------------------------------------------------------------- aec_eventBase = WIDGET_BASE(ra_eventsBaseID , $ ROW = 1 , $ yPad = 0 , $ SENSITIVE = 1) aec_eventBaseNonExc = WIDGET_BASE(aec_eventBase , $ ROW = 1 , $ /NONEXCLUSIVE) AECE_EVENT = {eis_mk_plan_gui_Event} AECE_EVENT.eis_mk_plan_gui = parentClass AECE_EVENT.Type = "AECEVENT" value = 'Enable AEC Event Trigger ' ra_aecEventID = WIDGET_BUTTON(aec_eventBaseNonExc , $ value = value , $ Event_Pro = Event_Pro_update , $ uValue = AECE_EVENT , $ sensitive = aece_sensitive , $ xSize = 200) eis_mk_plan_widgets.ra_aecEventID = ra_aecEventID MODIFY_EVENT = {eis_mk_plan_gui_Event} MODIFY_EVENT.eis_mk_plan_gui = parentClass MODIFY_EVENT.Type = "AECE_PROPS" value = ' Edit Properties... ' st_rasterMODIFYButton = WIDGET_BUTTON( aec_eventBase , $ value = value , $ Event_Pro = Event_Pro , $ uValue = MODIFY_EVENT , $ SENSITIVE = aece_sensitive) ;; ______________________________________________________________________ ;; ;; Quit Button ;; ;; ______________________________________________________________________ ;QUIT_EVENT = {eis_mk_plan_gui_Event} ;QUIT_EVENT.eis_mk_plan_gui = parentClass ;QUIT_EVENT.Type = "QUIT" ;quitbutton = WIDGET_BUTTON(tlbID, $ ; value = 'Exit', $ ; Event_Pro = Event_Pro, $ ; uValue = QUIT_EVENT,/separator) parentClass->setProperty, eis_mk_plan_widgets = eis_mk_plan_widgets END