;
; IDL Widget Interface Procedures. This Code is automatically
;     generated and should not be modified.

;
; Generated on:	02/21/2003 16:19.40
;
pro MDACDrawBase_event, Event

  wWidget =  Event.top

  case Event.id of

    Widget_Info(wWidget, FIND_BY_UNAME='MDACDrawBase'): begin
    end
    Widget_Info(wWidget, FIND_BY_UNAME='MDAC_DWID'): begin
      if( Tag_Names(Event, /STRUCTURE_NAME) eq 'WIDGET_DRAW' )then $
        if( Event.type eq 0 )then $
          MDACOnButton, Event
      if( Tag_Names(Event, /STRUCTURE_NAME) eq 'WIDGET_DRAW' )then $
        if( Event.type eq 1 )then $
          MDACOnButton, Event
      if( Tag_Names(Event, /STRUCTURE_NAME) eq 'WIDGET_DRAW' )then $
        if( Event.type eq 2 )then $
          MDACOnMotion, Event
    end
    else:
  endcase

end

pro MDACDrawBase, GROUP_LEADER=wGroup, _EXTRA=_VWBExtra_

  Resolve_Routine, 'MDAC_Draw_eventcb',/COMPILE_FULL_FILE  ; Load event callback routines

  MDACDrawBase = Widget_Base( GROUP_LEADER=wGroup,  $
      UNAME='MDACDrawBase' ,XOFFSET=300 ,YOFFSET=5  $
      ,NOTIFY_REALIZE='MDAC_Draw_init' ,TITLE='SXI MDAC -- Run Movie'  $
      ,SPACE=3 ,XPAD=3 ,YPAD=3,TLB_FRAME_ATTR=8,uvalue=_VWBExtra_)


  MDAC_DWID = Widget_Draw(MDACDrawBase, UNAME='MDAC_DWID'  $
      ,SCR_XSIZE=576 ,SCR_YSIZE=512 ,/BUTTON_EVENTS ,/MOTION_EVENTS)

  Widget_Control, /REALIZE, MDACDrawBase

  XManager, 'MDACDrawBase', MDACDrawBase, /NO_BLOCK, /JUST_REG

end
;
; Empty stub procedure used for autoloading.
;
pro MDAC_Draw, GROUP_LEADER=wGroup, _EXTRA=_VWBExtra_
  MDACDrawBase, GROUP_LEADER=wGroup, _EXTRA=_VWBExtra_
end