;------------------------------------------------------------------------------; ;+ ; NAME: ; eis_line_name_gui ; PURPOSE: ; This object ; INPUTS: ; GROUP - ;- ;------------------------------------------------------------------------------; FUNCTION eis_line_name_gui::Init , parentClass , line_name Self.parentClass = parentClass Self.group_leader = parentClass->tlbID() ;-------------------create the main base---------------------------------------; pt_version = eis_get_pt_version_number() widTitle = "EIS Line Name" + pt_version TLB_EVENT = {eis_line_name_gui_Event} TLB_EVENT.eis_line_name_gui = Self TLB_EVENT.Type = "TLB" Self.tlbID = WIDGET_BASE( $ TITLE = widTitle, $ COLUMN = 1, $ /FLOATING , $ /MODAL , $ GROUP_LEADER = Self.group_leader , $ UValue = TLB_EVENT) ;-------------------create the GUI------------------------------; Self.name_list = PTR_NEW(['Ar','Ca','Fe','He','Mg','Ni','O','S','Si']) Self.ionz_list = PTR_NEW(['I','II','III','IV','V','VI','VII','VIII', $ 'IX','X','XI','XII','XIII','XIV','XV','XVI', $ 'XVII','XVIII','XIX','XX']) Self.line_name = line_name Self->createGUI RETURN, 1 END ;______________________________________________________________________________ ; ;______________________________________________________________________________ PRO eis_line_name_gui::createGUI event_pro = 'eis_line_name_gui_EV' ; ______________________________________________________________________ ; ; File base ; ; ______________________________________________________________________ nameBase = WIDGET_BASE(Self.tlbID , $ ROW = 1 , $ FRAME = 1 ) NAME_EVENT = {eis_line_name_gui_Event} NAME_EVENT.eis_line_name_gui = Self NAME_EVENT.Type = "NAME" value = *Self.name_list Self.nameListID = WIDGET_LIST(nameBase , $ value = value , $ Event_Pro = Event_Pro_update , $ ySize = N_ELEMENTS(value) , $ xSize = 18 , $ uValue = NAME_EVENT) IONZ_EVENT = {eis_line_name_gui_Event} IONZ_EVENT.eis_line_name_gui = Self IONZ_EVENT.Type = "IONZ" value = *Self.ionz_list Self.ionzListID = WIDGET_LIST(nameBase, $ value = value , $ Event_Pro = Event_Pro_update, $ ySize = N_ELEMENTS(value) , $ xSize = 18 , $ uValue = IONZ_EVENT) ; Get indicies of current values split = STRSPLIT(Self.line_name , /EXTRACT) ; Species name_index = WHERE(split[0] EQ (*Self.name_list)) ionz_index = WHERE(split[1] EQ (*Self.ionz_list)) WIDGET_CONTROL , Self.nameListID , set_list_select = name_index > 0 WIDGET_CONTROL , Self.ionzListID , set_list_select = ionz_index > 0 Self->update_name ; ______________________________________________________________________ ; ; Bottom base ; ; ______________________________________________________________________ bottomBase = WIDGET_BASE(Self.tlbID , $ ROW = 1 , $ frame = 1 , $ /GRID_LAYOUT) APPLY_EVENT = {eis_line_name_gui_Event} APPLY_EVENT.eis_line_name_gui = Self APPLY_EVENT.Type = "APPLY" APPLYbutton = WIDGET_BUTTON(bottomBase, $ value = 'Apply', $ Event_Pro = event_pro , $ uValue = APPLY_EVENT) QUIT_EVENT = {eis_line_name_gui_Event} QUIT_EVENT.eis_line_name_gui = Self QUIT_EVENT.Type = "QUIT" quitbutton = WIDGET_BUTTON(bottomBase, $ value = 'Quit' , $ Event_Pro = event_pro , $ uValue = QUIT_EVENT) END ;______________________________________________________________________________ ; ;______________________________________________________________________________ PRO eis_line_name_gui_Cleanup , wid WIDGET_CONTROL , wid , get_uvalue = eis_line_name_gui_Event OBJ_DESTROY , eis_line_name_gui_Event.eis_line_name_gui END ;______________________________________________________________________________ ; Cleanup ;______________________________________________________________________________ PRO eis_line_name_gui::CleanUp PTR_FREE , Self.name_list PTR_FREE , Self.ionz_list END ;______________________________________________________________________________ ; ;______________________________________________________________________________ PRO eis_line_name_gui::setProperty, author = author IF (N_ELEMENTS(author) GT 0) THEN Self.eis_study.author = author End ;______________________________________________________________________________ ; ;______________________________________________________________________________ PRO eis_line_name_gui::GetProperty, tlbID = tlbID tlbID = Self.tlbID End ;______________________________________________________________________________ ; Return widget id ;______________________________________________________________________________ Function eis_line_name_gui::tlbID Return, Self.tlbID End ;______________________________________________________________________________ ; Widget_Control wrapper ;______________________________________________________________________________ PRO eis_line_name_gui::Control, _Ref_Extra=Widget_Control_Keywords Widget_Control, Self.tlbID, _Extra=Widget_Control_Keywords End ;______________________________________________________________________________ ; Widget_Info wrapper ;______________________________________________________________________________ Function eis_line_name_gui::Info, _Ref_Extra=Widget_Info_Keywords Return, Widget_Info(Self.tlbID, _Extra=Widget_Info_Keywords) End ;______________________________________________________________________________ ; Realize wrapper ;______________________________________________________________________________ PRO eis_line_name_gui::Realize Widget_Control, Self.tlbID, /Realize End ;______________________________________________________________________________ ; XManager wrapper ;______________________________________________________________________________ PRO eis_line_name_gui::XManager;,group=group XMANAGER , "eis_line_name_gui" , Self.tlbID , $ Event_Handler = "eis_line_name_gui_EV", $ cleanup = "eis_line_name_gui_Cleanup", $ GROUP_LEADER = Self.group_leader , $ /NO_BLOCK end ;______________________________________________________________________________ ; ;______________________________________________________________________________ PRO eis_line_name_gui_Event__Define struct = { eis_line_name_gui_Event, $ Type : "", $ ;Unique identifier for event eis_line_name_gui : OBJ_NEW(), $ ;Reference to object passed extra : 0 $ ;to - often object associated } END ;______________________________________________________________________________ ; Event Handler wrapper ;______________________________________________________________________________ PRO eis_line_name_gui_EV , Event ;Get event handler structure containing eis_line_name_gui type object Widget_CONTROL,Event.ID,get_uvalue = eis_line_name_gui_Event ;If a WIDGET_TAB event , just quit IF (TAG_NAMES(event, /STRUCTURE_NAME) EQ 'WIDGET_TAB') THEN BEGIN ;print,'tab event' RETURN ENDIF ;Call eis_line_name_gui's class member procedure "Handler" eis_line_name_gui_Event.eis_line_name_gui->Handler,Event END ;______________________________________________________________________________ ; ; * THIS is the routine for putting in event handling NOT eis_line_name_gui_Ev above. ; ; Event Handler - handle events. Derived classes must ; contain their own implementation in order to handle events or else pass in an ; procedure name/function name using the Event_Pro/Event_Func keywords to ; CWidget::Init() ;______________________________________________________________________________ PRO eis_line_name_gui::Handler, Event WIDGET_CONTROL, Event.ID, Get_UValue = eis_line_name_gui_Event CASE eis_line_name_gui_Event.Type OF "QUIT" : Self->Control, /Destroy "NAME" : Self->update_name "IONZ" : Self->update_name "APPLY" : Self->apply ELSE : print,eis_line_name_gui_Event.Type ENDCASE END ;______________________________________________________________________________ ; ;______________________________________________________________________________ PRO eis_line_name_gui::update_name ; Get indicies of selected items name_index = WIDGET_INFO(Self.nameListID , /LIST_SELECT) ionz_index = WIDGET_INFO(Self.ionzListID , /LIST_SELECT) name = (*Self.name_list)[name_index] ionz = (*Self.ionz_list)[ionz_index] Self.line_name = STRJOIN([name,ionz],' ',/SINGLE) END ;______________________________________________________________________________ ; ;______________________________________________________________________________ PRO eis_line_name_gui::apply Self.parentClass->update_line_name , Self.line_name END ;______________________________________________________________________________ ; Define Data members ;______________________________________________________________________________ PRO eis_line_name_gui__define struct = { eis_line_name_gui , $ tlbID : 0L , $ group_leader : 0L , $ parentClass : OBJ_NEW() , $ nameListID : 0L , $ ionzListID : 0L , $ name_list : PTR_NEW() , $ ionz_list : PTR_NEW() , $ line_name : '' $ } END