;+
; PROJECT
;          Solar-B EIS
; NAME
;          eis_text_gui__DEFINE
; PURPOSE
;          GUI Class
; INPUTS
;          parentClass - the eis_mk_plan object
; CATEGORY
;          EIS Timeline Planning
; WRITTEN
;          John A Rainnie RAL 17-Apr-2008
; HISTORY
;          v0.1 JAR 22-Apr-2008
;               Changed wait time to 0.05 seconds
;
;-
;______________________________________________________________________________
FUNCTION eis_text_gui::Init , parentClass

Self.parentClass  = parentClass
Self.group_leader = parentClass->tlbID()

;-------------------create the main base---------------------------------------;
pt_version = eis_get_pt_version_number()
widTitle = "Stuff" + pt_version
TLB_EVENT                  = {eis_text_gui_Event}
TLB_EVENT.eis_text_gui     = Self
TLB_EVENT.Type             = "TLB"
Self.tlbID                 = WIDGET_BASE(                                  $
                                   TITLE       = widTitle            ,     $
                                   COLUMN      = 1                   ,     $
                                   /FLOATING                         ,     $
                                   /TLB_SIZE_EVENTS                  ,     $
                                   GROUP_LEADER = Self.group_leader  ,     $
                                   UValue      = TLB_EVENT )

;-------------------create the GUI------------------------------;
TEXT_EVENT                 = {eis_text_gui_Event}
TEXT_EVENT.eis_text_gui    = Self
TEXT_EVENT.Type            = "TEXT"
Self.textID                = WIDGET_TEXT(Self.tlbID                  ,     $
                                   xSize      = 85 ,           $
                                   ySize      = 50 ,           $
                                   units      = 0  ,    $
                                   /WRAP           ,    $
                                   Event_Pro   = 'eis_text_gui_EV',          $
                                   uValue      = TEXT_EVENT)

QUIT_EVENT                 = {eis_text_gui_Event}
QUIT_EVENT.eis_text_gui    = Self
QUIT_EVENT.Type            = "QUIT"
quitbutton                 = WIDGET_BUTTON(Self.tlbID,                      $
                                    value       = 'Exit',                   $
                                    Event_Pro   = 'eis_text_gui_EV',     $
                                    uValue      = QUIT_EVENT)

RETURN, 1

END
;______________________________________________________________________________
;
;______________________________________________________________________________
PRO eis_text_gui_Cleanup , wid

WIDGET_CONTROL , wid , get_uvalue = eis_text_gui_Event
OBJ_DESTROY    , eis_text_gui_Event.eis_text_gui

END
;______________________________________________________________________________
; Cleanup
;______________________________________________________________________________
PRO eis_text_gui::CleanUp


END
;______________________________________________________________________________
;
;______________________________________________________________________________
PRO eis_text_gui::setProperty, start_time = start_time

IF (N_ELEMENTS(start_time) GT 0) THEN BEGIN

    stop

ENDIF

END
;______________________________________________________________________________
;
;______________________________________________________________________________
PRO eis_text_gui::GetProperty, tlbID      = tlbID

tlbID      = Self.textID

END
;______________________________________________________________________________
; Return widget id
;______________________________________________________________________________
FUNCTION eis_text_gui::tlbID

    RETURN, Self.tlbID
END
;______________________________________________________________________________
; Widget_Control wrapper
;______________________________________________________________________________
PRO eis_text_gui::Control, _Ref_Extra=Widget_Control_Keywords

Widget_Control, Self.tlbID, _Extra=Widget_Control_Keywords

End
;______________________________________________________________________________
; Widget_Info wrapper
;______________________________________________________________________________
FUNCTION eis_text_gui::Info, _Ref_Extra=Widget_Info_Keywords

Return, Widget_Info(Self.tlbID, _Extra=Widget_Info_Keywords)

End

;______________________________________________________________________________
; Realize wrapper
;______________________________________________________________________________
PRO eis_text_gui::Realize

Widget_Control, Self.tlbID, /Realize

End

;______________________________________________________________________________
; XManager wrapper
;______________________________________________________________________________
PRO eis_text_gui::XManager;,group=group

XMANAGER , "eis_text_gui" ,   Self.tlbID ,                                 $
    Event_Handler  = "eis_text_gui_EV",                                    $
    cleanup        = "eis_text_gui_Cleanup",                               $
    GROUP_LEADER   = Self.group_leader ,                                    $
    /NO_BLOCK

end

;______________________________________________________________________________
;
;______________________________________________________________________________
PRO eis_text_gui_Event__Define

    struct = {  eis_text_gui_Event,                                              $
                Type            : "",        $ ;Unique identifier for event
                eis_text_gui   : OBJ_NEW(), $ ;Reference to object passed
                extra           : 0          $ ;to - often object associated
             }
END
;______________________________________________________________________________
; Event Handler wrapper
;______________________________________________________________________________
PRO eis_text_gui_EV , Event

;Get event handler structure containing eis_text_gui type object
Widget_CONTROL,Event.ID,get_uvalue = eis_text_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_text_gui's class member procedure "Handler"
eis_text_gui_Event.eis_text_gui->Handler,Event

END
;______________________________________________________________________________
;
; * THIS is the routine for putting in event handling NOT eis_text_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_text_gui::Handler, Event

WIDGET_CONTROL, Event.ID, Get_UValue = eis_text_gui_Event
CASE eis_text_gui_Event.Type OF
   "QUIT"  : Self->Control, /Destroy
   "TLB"   : ;Self->resize , event
   ELSE    : print,eis_text_gui_Event.Type
ENDCASE
END
;______________________________________________________________________________
;
;______________________________________________________________________________
PRO eis_text_gui::resize , event

stop

END
;______________________________________________________________________________
; Define Data members
;______________________________________________________________________________
PRO eis_text_gui__define

    struct   = { eis_text_gui                                        ,     $
                   tlbID                : 0L                         ,     $
                   group_leader         : 0L                         ,     $
                   parentClass          : OBJ_NEW()                  ,     $
                   textID               : 0L                               $
               }


END