PRO eis_mk_study_widgets , parentClass eis_mk_study_widgets = {eis_mk_study_widgets} tlbID = parentClass->tlbID() ; The other is for QUIT, TLB, etc. Anything that doesn't require these. Event_Pro_update = 'eis_mk_study_gui_update_EV' Event_Pro = 'eis_mk_study_gui_EV' ; Get eis_fonts fonts = eis_fonts() ; ______________________________________________________________________ ; ; Raster Base ; ; ______________________________________________________________________ rasterBase = WIDGET_BASE(tlbID , $ COLUMN = 1, $ FRAME = 6) ; ______________________________________________________________________ ; ; Raster List Title Base ; ; ______________________________________________________________________ rasterListTitleBase = WIDGET_BASE(rasterBase , $ COLUMN = 1) value = ' ID: Description: Comp: Repeats:' + $ ' Duration: EIS EIS AEC XRT' ll_listLabel = WIDGET_LABEL(rasterListTitleBase , $ value = value , $ /ALIGN_LEFT, $ font = fonts.mono) value = ' ' + $ 'Event: Flare: Event: Flare:' ll_listLabel = WIDGET_LABEL(rasterListTitleBase , $ value = value , $ /ALIGN_LEFT, $ font = fonts.mono) ; ______________________________________________________________________ ; ; Raster List and Buttons Base ; ; ______________________________________________________________________ rasterListAndButtonsBase = WIDGET_BASE(rasterBase , $ ROW = 1) ; ______________________________________________________________________ ; ; Raster List Base ; ; ______________________________________________________________________ rasterListBase = WIDGET_BASE(rasterListAndButtonsBase , $ COLUMN = 1 ) RA_LIST_EVENT = {eis_mk_study_gui_Event} RA_LIST_EVENT.eis_mk_study_gui = parentClass RA_LIST_EVENT.Type = "RA_LIST" st_raListID = WIDGET_LIST(rasterListBase , $ ySize = 13 , $ xSize = 100 , $ value = '', $ Event_Pro = 'eis_mk_study_gui_EV', $ uValue = RA_LIST_EVENT, $ font = fonts.mono , $ /CONTEXT_EVENTS) eis_mk_study_widgets.st_raListID = st_raListID ; ______________________________________________________________________ ; ; Raster Side Base ; ; ______________________________________________________________________ ; ; Selected Raster Base ; rasterListBase = WIDGET_BASE(rasterListAndButtonsBase , $ COLUMN = 1) ; Get icons ancillary = EXPAND_PATH(GETENV('ancillary')) icons_dir = STRJOIN([ancillary,'icons'],PATH_SEP(),/SINGLE) shift_up_icon = CONCAT_DIR(icons_dir,'shift_up.bmp') shift_down_icon = CONCAT_DIR(icons_dir,'shift_down.bmp') RA_UP_EVENT = {eis_mk_study_gui_Event} RA_UP_EVENT.eis_mk_study_gui = parentClass RA_UP_EVENT.Type = "RA_UP" st_raster_upButton = WIDGET_BUTTON(rasterListBase , $ value = shift_up_icon , $ /BITMAP , $ Event_Pro = 'eis_mk_study_gui_EV', $ uValue = RA_UP_EVENT) RA_DOWN_EVENT = {eis_mk_study_gui_Event} RA_DOWN_EVENT.eis_mk_study_gui = parentClass RA_DOWN_EVENT.Type = "RA_DOWN" st_raster_DOWNButton = WIDGET_BUTTON(rasterListBase , $ value = shift_down_icon , $ /BITMAP , $ Event_Pro = 'eis_mk_study_gui_EV', $ uValue = RA_DOWN_EVENT) ; ______________________________________________________________________ ; ; Raster Info Base ; ; ______________________________________________________________________ rasterInfoBase = WIDGET_BASE(rasterBase , $ COLUMN = 1 ) ; ______________________________________________________________________ ; ; Raster information base ; ; ______________________________________________________________________ ra_infoBase = WIDGET_BASE(rasterInfoBase , $ COLUMN = 1 ) rasterIDBase = WIDGET_BASE(ra_infoBase , $ ROW = 1) rasterTitleLable = WIDGET_LABEL(rasterIDBase , $ value = 'Raster ID:' , $ xSize = 100, $ font = fonts.bold , $ /ALIGN_LEFT) st_ra_idID = WIDGET_LABEL(rasterIDBase , $ value = 'none' , $ xSize = 60 , $ /ALIGN_LEFT, $ font = fonts.mono) eis_mk_study_widgets.st_ra_idID = st_ra_idID rasterTitleLable = WIDGET_LABEL(rasterIDBase , $ value = 'Acronym: ') st_ra_acronymID = WIDGET_LABEL(rasterIDBase , $ value = 'none' , $ xSize = 220 , $ /ALIGN_LEFT , $ font = fonts.mono) eis_mk_study_widgets.st_ra_acronymID = st_ra_acronymID VIEW_EVENT = {eis_mk_study_gui_Event} VIEW_EVENT.eis_mk_study_gui = parentClass VIEW_EVENT.Type = "VIEWRASTER" value = ' View Raster Details... ' st_rasterVIEWButton = WIDGET_BUTTON(rasterIDBase , $ value = value , $ Event_Pro = 'eis_mk_study_gui_EV', $ uValue = VIEW_EVENT) rasterTitleBase = WIDGET_BASE(ra_infoBase , $ ROW = 1 ) studyTitleLable = WIDGET_LABEL(rasterTitleBase , $ value = 'Title:' , $ xSize = 100, $ /ALIGN_LEFT) st_ra_titleID = WIDGET_LABEL(rasterTitleBase , $ value = 'none' , $ xSize = 600, $ /ALIGN_LEFT, $ font = fonts.mono) eis_mk_study_widgets.st_ra_titleID = st_ra_titleID ; ; Raster Button Base ; st_rasterButtonBase = WIDGET_BASE(rasterInfoBase , $ COLUMN = 1 ) ;; ______________________________________________________________________ ;; ;; Raster ASRC Base ;; ;; ______________________________________________________________________ ; ;st_rasterASRCBase = WIDGET_BASE( st_rasterButtonBase, $ ; ROW = 1 ,/frame) ;ASRCLable = WIDGET_LABEL(st_rasterASRCBase , $ ; value = 'ASRC:', $ ; xSize = 50, $ ; /ALIGN_LEFT) ; ;st_ASRCNonExclusiveBaseID = WIDGET_BASE( st_rasterASRCBase, $ ; ROW = 1 , $ ; /NONEXCLUSIVE ) ;; ;; ASRC Enabled ;; ;ASRC_ENABLE_EVENT = {eis_mk_study_gui_Event} ;ASRC_ENABLE_EVENT.eis_mk_study_gui = parentClass ;ASRC_ENABLE_EVENT.Type = "ASRC_ENABLE" ;st_asrcEnabledID = WIDGET_BUTTON(st_ASRCNonExclusiveBaseID , $ ; value = 'Enabled ' , $ ; Event_Pro = 'eis_mk_study_gui_EV' , $ ; uValue = ASRC_ENABLE_EVENT ) ;eis_mk_study_widgets.st_asrcEnabledID = st_asrcEnabledID ; ;; ;; ASRC Base - to be sensitive / desensitive ;; ;st_asrcBaseID = WIDGET_BASE( st_rasterASRCBase , $ ; ROW = 1 , $ ; SENSITIVE = 0) ;eis_mk_study_widgets.st_asrcBaseID = st_asrcBaseID ; ; ; ;; ;; ASRC Direction ;; ;ASRC_DIR_EVENT = {eis_mk_study_gui_Event} ;ASRC_DIR_EVENT.eis_mk_study_gui = parentClass ;ASRC_DIR_EVENT.Type = "ASRC_DIR" ;value = ['Forward','Backward'] ;st_asrcDirectionID = WIDGET_DROPLIST(st_asrcBaseID , $ ; value = value , $ ; title = 'Direction:' , $ ; Event_Pro = Event_Pro, $ ; uValue = ASRC_DIR_EVENT) ;eis_mk_study_widgets.st_asrcDirectionID = st_asrcDirectionID ; ;; ;; ASRC Skip ;; ;ASRC_SKIP_EVENT = {eis_mk_study_gui_Event} ;ASRC_SKIP_EVENT.eis_mk_study_gui = parentClass ;ASRC_SKIP_EVENT.Type = "ASRC_SKIP" ;value = [' 1 ',' 2 '] ;st_asrcSkipID = WIDGET_DROPLIST(st_asrcBaseID , $ ; value = value , $ ; title = 'Skip:' , $ ; Event_Pro = Event_Pro, $ ; uValue = ASRC_SKIP_EVENT) ;eis_mk_study_widgets.st_asrcSkipID = st_asrcSkipID ; ;; ;; ASRC Number of Compensation Steps ;; ;value = 'Number of Compensation Steps:' ;asrcNStepsLabel = WIDGET_LABEL(st_asrcBaseID , $ ; value = value) ; ;ASRC_NSTEPS_EVENT = {eis_mk_study_gui_Event} ;ASRC_NSTEPS_EVENT.eis_mk_study_gui = parentClass ;ASRC_NSTEPS_EVENT.Type = "ASRC_NSTEPS" ;st_asrcNStepsID = WIDGET_TEXT(st_asrcBaseID , $ ; value = '1' , $ ; Event_Pro = 'eis_mk_study_gui_EV', $ ; uValue = ASRC_NSTEPS_EVENT , $ ; /EDITABLE , $ ; xSize = 4) ;eis_mk_study_widgets.st_asrcNStepsID = st_asrcNStepsID ; ; ______________________________________________________________________ ; ; Repeats & Compression Base ; ; ______________________________________________________________________ st_rasterRepeatsBase = WIDGET_BASE(st_rasterButtonBase , $ ROW = 1 ,/frame) compressionLable = WIDGET_LABEL(st_rasterRepeatsBase , $ value = 'Compression:') COMP_EVENT = {eis_mk_study_gui_Event} COMP_EVENT.eis_mk_study_gui = parentClass COMP_EVENT.Type = "COMP" value = eis_read_study_lists(/COMPRESSION) st_compressionID = WIDGET_DROPLIST(st_rasterRepeatsBase , $ value = value , $ Event_Pro = Event_Pro_update , $ uValue = COMP_EVENT , $ sensitive = 0) eis_mk_study_widgets.st_compressionID = st_compressionID ; ; Repeats ; repeatsLable = WIDGET_LABEL(st_rasterRepeatsBase , $ value = ' Repeats:') REPEATS_EVENT = {eis_mk_study_gui_Event} REPEATS_EVENT.eis_mk_study_gui = parentClass REPEATS_EVENT.Type = "REPEATS" st_repeatsID = WIDGET_TEXT(st_rasterRepeatsBase , $ value = '1' , $ Event_Pro = Event_Pro_update, $ uValue = REPEATS_EVENT , $ sensitive = 0 , $ /EDITABLE , $ xSize = 6) eis_mk_study_widgets.st_repeatsID = st_repeatsID ; ______________________________________________________________________ ; ; Event response toggle buttons ; ; ______________________________________________________________________ st_responseBase = WIDGET_BASE( st_rasterButtonBase, $ ROW = 1 ,/frame) eventsLable = WIDGET_LABEL(st_responseBase , $ value = 'Events:' , $ /ALIGN_LEFT , $ xSize = 50) st_eventResponseBaseID = WIDGET_BASE( st_responseBase, $ ROW = 1 , $ ;/NONEXCLUSIVE , $ SENSITIVE = 0) eis_mk_study_widgets.st_eventResponseBaseID = st_eventResponseBaseID ;--------------------------------------------------------------------------- ; ; EIS Event ; ;--------------------------------------------------------------------------- eis_eventBase = WIDGET_BASE(st_eventResponseBaseID , $ ROW = 1 , $ FRAME = 1) eis_eventBaseNonExc = WIDGET_BASE(eis_eventBase , $ ROW = 1 , $ /NONEXCLUSIVE) EISE_EVENT = {eis_mk_study_gui_Event} EISE_EVENT.eis_mk_study_gui = parentClass EISE_EVENT.Type = "EISEVENT" st_eisEventID = WIDGET_BUTTON(eis_eventBaseNonExc , $ value = 'EIS Event' , $ Event_Pro = Event_Pro_update , $ uValue = EISE_EVENT) eis_mk_study_widgets.st_eisEventID = st_eisEventID MODIFY_EVENT = {eis_mk_study_gui_Event} MODIFY_EVENT.eis_mk_study_gui = parentClass MODIFY_EVENT.Type = "EISE_PROPS" value = ' Edit ' st_rasterMODIFYButton = WIDGET_BUTTON( eis_eventBase , $ value = value , $ Event_Pro = 'eis_mk_study_gui_EV', $ uValue = MODIFY_EVENT) ;--------------------------------------------------------------------------- ; ; EIS Flare ; ;--------------------------------------------------------------------------- eis_flareBase = WIDGET_BASE(st_eventResponseBaseID , $ ROW = 1 , $ FRAME = 1) eis_flareBaseNonExc = WIDGET_BASE(eis_flareBase , $ ROW = 1 , $ /NONEXCLUSIVE) EISF_EVENT = {eis_mk_study_gui_Event} EISF_EVENT.eis_mk_study_gui = parentClass EISF_EVENT.Type = "EISFLARE" st_EISFlareID = WIDGET_BUTTON(eis_flareBaseNonExc , $ value = 'EIS Flare' , $ Event_Pro = Event_Pro_update , $ uValue = EISF_EVENT) eis_mk_study_widgets.st_eisFlareID = st_eisFlareID MODIFY_EVENT = {eis_mk_study_gui_Event} MODIFY_EVENT.eis_mk_study_gui = parentClass MODIFY_EVENT.Type = "EISF_PROPS" value = ' Edit ' st_rasterMODIFYButton = WIDGET_BUTTON( eis_flareBase , $ value = value , $ Event_Pro = 'eis_mk_study_gui_EV', $ uValue = MODIFY_EVENT) ;--------------------------------------------------------------------------- ; ; AEC Event ; ;--------------------------------------------------------------------------- aec_eventBase = WIDGET_BASE(st_eventResponseBaseID , $ ROW = 1 , $ FRAME = 1) aec_eventBaseNonExc = WIDGET_BASE(aec_eventBase , $ ROW = 1 , $ /NONEXCLUSIVE) AECE_EVENT = {eis_mk_study_gui_Event} AECE_EVENT.eis_mk_study_gui = parentClass AECE_EVENT.Type = "AECEVENT" st_aecEventID = WIDGET_BUTTON(aec_eventBaseNonExc , $ value = 'AEC Event' , $ Event_Pro = Event_Pro_update , $ uValue = AECE_EVENT) eis_mk_study_widgets.st_aecEventID = st_aecEventID MODIFY_EVENT = {eis_mk_study_gui_Event} MODIFY_EVENT.eis_mk_study_gui = parentClass MODIFY_EVENT.Type = "AECE_PROPS" value = ' Edit ' st_rasterMODIFYButton = WIDGET_BUTTON( aec_eventBase , $ value = value , $ Event_Pro = 'eis_mk_study_gui_EV', $ uValue = MODIFY_EVENT) ;--------------------------------------------------------------------------- ; ; XRT Flare ; ;--------------------------------------------------------------------------- xrt_flareBase = WIDGET_BASE(st_eventResponseBaseID , $ ROW = 1 , $ FRAME = 1) xrt_flareBaseNonExc = WIDGET_BASE(xrt_flareBase , $ ROW = 1 , $ /NONEXCLUSIVE) XRTF_EVENT = {eis_mk_study_gui_Event} XRTF_EVENT.eis_mk_study_gui = parentClass XRTF_EVENT.Type = "XRTFLARE" st_xrtFlareID = WIDGET_BUTTON(xrt_flareBaseNonExc , $ value = 'XRT Flare' , $ Event_Pro = Event_Pro_update , $ uValue = XRTF_EVENT ) eis_mk_study_widgets.st_xrtFlareID = st_xrtFlareID MODIFY_EVENT = {eis_mk_study_gui_Event} MODIFY_EVENT.eis_mk_study_gui = parentClass MODIFY_EVENT.Type = "XRTF_PROPS" value = ' Edit ' st_rasterMODIFYButton = WIDGET_BUTTON( xrt_flareBase , $ value = value , $ Event_Pro = 'eis_mk_study_gui_EV', $ uValue = MODIFY_EVENT) ; ;MODIFY_EVENT = {eis_mk_study_gui_Event} ;MODIFY_EVENT.eis_mk_study_gui = parentClass ;MODIFY_EVENT.Type = "MODIFY" ;value = ' View/Modify Event/Flare Properties... ' ;st_rasterMODIFYButton = WIDGET_BUTTON( st_responseBase , $ ; value = value , $ ; Event_Pro = 'eis_mk_study_gui_EV', $ ; uValue = MODIFY_EVENT) ; ______________________________________________________________________ ; ; Study information base ; ; ______________________________________________________________________ aBase = WIDGET_BASE(tlbID , $ COLUMN = 1 , frame = 6) ; ______________________________________________________________________ ; ; Study ID Base ; ; ______________________________________________________________________ st_idBase = WIDGET_BASE(aBase , $ ROW = 1 ) studyTitleLable = WIDGET_LABEL(st_idBase , $ value = 'Study ID:' , $ font = fonts.bold , $ xSize = 100 , $ /ALIGN_LEFT) st_idID = WIDGET_LABEL(st_idBase , $ value = '000000' , $ xSize = 60 , $ /ALIGN_LEFT, $ font = fonts.mono) eis_mk_study_widgets.st_idID = st_idID studyTitleLable = WIDGET_LABEL(st_idBase , $ value = 'Acronym:', $ xSize = 60 , $ /ALIGN_LEFT) st_acronymID = WIDGET_LABEL(st_idBase , $ value = 'A_STUDY' , $ xSize = 200 , $ /ALIGN_LEFT , $ font = fonts.mono) eis_mk_study_widgets.st_acronymID = st_acronymID ;DESC_EVENT = {eis_mk_study_gui_Event} ;DESC_EVENT.eis_mk_study_gui = parentClass ;DESC_EVENT.Type = "DESC" ;value = ' View/Edit Study Description... ' ;DESCbutton = WIDGET_BUTTON(st_idBase, $ ; value = value , $ ; Event_Pro = 'eis_mk_study_gui_EV', $ ; uValue = DESC_EVENT ) ; ; ______________________________________________________________________ ; ; Study Title Base ; ; ______________________________________________________________________ st_titleBase = WIDGET_BASE(aBase , $ ROW = 1 ) studyTitleLable = WIDGET_LABEL(st_titleBase , $ value = 'Title:' , $ xSize = 100 , $ /ALIGN_LEFT) st_titleID = WIDGET_LABEL(st_titleBase , $ value = '7546' , $ /ALIGN_LEFT, $ font = fonts.mono , $ /DYNAMIC_RESIZE) eis_mk_study_widgets.st_titleID = st_titleID ; ______________________________________________________________________ ; ; Study Author Base ; ; ______________________________________________________________________ st_authorBase = WIDGET_BASE(aBase , $ ROW = 1) ; ; Author ; sr_targetTitle = WIDGET_LABEL(st_authorBase , $ value = "Author:", $ /ALIGN_LEFT, $ xSize = 100) st_authorID = WIDGET_LABEL(st_authorBase, $ value = '0' , $ xSize = 150 , $ /ALIGN_LEFT , $ font = fonts.mono) eis_mk_study_widgets.st_authorID = st_authorID ; ; Date ; st_date = WIDGET_LABEL(st_authorBase , $ value = "Date:", $ /ALIGN_LEFT, $ xSize = 100) st_dateID = WIDGET_LABEL(st_authorBase, $ value = '0' , $ xSize = 150 , $ /ALIGN_LEFT , $ font = fonts.mono) eis_mk_study_widgets.st_dateID = st_dateID ; ______________________________________________________________________ ; ; Study Target Base ; ; ______________________________________________________________________ st_targetBase = WIDGET_BASE(aBase , $ ROW = 1) ; ; Target ; sr_targetTitle = WIDGET_LABEL(st_targetBase , $ value = "Target:", $ /ALIGN_LEFT, $ xSize = 100) st_targetID = WIDGET_LABEL(st_targetBase, $ value = '0' , $ xSize = 150 , $ /ALIGN_LEFT, $ font = fonts.mono) eis_mk_study_widgets.st_targetID = st_targetID ; ; Category ; sr_targetTitle = WIDGET_LABEL(st_targetBase , $ value = "Category:", $ /ALIGN_LEFT, $ xSize = 100) st_categoryID = WIDGET_LABEL(st_targetBase, $ value = '0' , $ xSize = 150 , $ /ALIGN_LEFT, $ font = fonts.mono) eis_mk_study_widgets.st_categoryID = st_categoryID ; ______________________________________________________________________ ; ; Study Duration Base ; ; ______________________________________________________________________ st_durationBase = WIDGET_BASE(aBase , $ ROW = 1 ) ; ; Duration ; sr_durationTitle = WIDGET_LABEL(st_durationBase , $ value = "Duration:", $ /ALIGN_LEFT, $ xSize = 100) st_durationID = WIDGET_LABEL(st_durationBase , $ value = '0h0m0s' , $ /ALIGN_LEFT , $ xSize = 150, $ font = fonts.mono) eis_mk_study_widgets.st_durationID = st_durationID ; ; Volume ; st_volumeTitle = WIDGET_LABEL(st_durationBase , $ value = 'Volume:', $ /ALIGN_LEFT, $ xSize = 100) st_volumeID = WIDGET_LABEL(st_durationBase , $ value = '000:00:00.0' , $ /ALIGN_LEFT , $ xSize = 150, $ font = fonts.mono) eis_mk_study_widgets.st_volumeID = st_volumeID ; ; Data Rate ; st_datarateTitle = WIDGET_LABEL(st_durationBase , $ value = 'Data Rate:', $ /ALIGN_LEFT, $ xSize = 100) st_datarateID = WIDGET_LABEL(st_durationBase , $ value = '0' , $ /ALIGN_LEFT , $ xSize = 150, $ font = fonts.mono) eis_mk_study_widgets.st_datarateID = st_datarateID ;; ______________________________________________________________________ ;; ;; Logo Button ;; ;; ______________________________________________________________________ ;st_logoBase = WIDGET_BASE(dataInfoBase , $ ; COLUMN = 1 ) ; ;LOGO_EVENT = {eis_mk_study_gui_Event} ;LOGO_EVENT.eis_mk_study_gui = parentClass ;LOGO_EVENT.Type = "DRAW" ;st_logoID = WIDGET_DRAW(st_logoBase , $ ; XSize = 160, $ ; YSize = 90, $ ; uvalue = LOGO_EVENT , $ ; frame = 1) ;eis_mk_study_widgets.st_logoID = st_logoID ; ______________________________________________________________________ ; ; Raster Slit/Slot Changes ; ; ______________________________________________________________________ st_infoBase = WIDGET_BASE(aBase , $ COLUMN = 1 , frame = 1) st_dataID = WIDGET_BASE(st_infoBase , $ ROW = 1 , frame = 0) st_slitSlotLabel_1 = WIDGET_LABEL(st_dataID , $ value = 'Slit/slot:') st_slitSlotLabel_2 = WIDGET_LABEL(st_dataID , $ value = ' ' , $ xSize = 200 , $ /SUNKEN_FRAME , $ /ALIGN_LEFT, $ font = fonts.mono) eis_mk_study_widgets.st_ssLabelID = st_slitSlotLabel_2 SSALL_EVENT = {eis_mk_study_gui_Event} SSALL_EVENT.eis_mk_study_gui = parentClass SSALL_EVENT.Type = "SSALL" SSALLbutton = WIDGET_BUTTON(st_dataID, $ value = ' View All Changes... ', $ Event_Pro = 'eis_mk_study_gui_EV', $ uValue = SSALL_EVENT) ; ______________________________________________________________________ ; ; Quit Button ; ; ______________________________________________________________________ QUIT_EVENT = {eis_mk_study_gui_Event} QUIT_EVENT.eis_mk_study_gui = parentClass QUIT_EVENT.Type = "QUIT" quitbutton = WIDGET_BUTTON(tlbID, $ value = 'Exit', $ Event_Pro = 'eis_mk_study_gui_EV', $ uValue = QUIT_EVENT , $ /FRAME) parentClass->setProperty, eis_mk_study_widgets = $ eis_mk_study_widgets END