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

; 
; Generated on:	11/14/102 20:27.13
; 
pro WID_BASE_0_event, Event

  wWidget =  Event.top

  case Event.id of

    else:
  endcase

end

pro WID_BASE_0, GROUP_LEADER=wGroup, _EXTRA=_VWBExtra_

  Resolve_Routine, 'meter_eventcb'     ; Load event callback routines
  
  WID_BASE_0 = Widget_Base( GROUP_LEADER=wGroup, UNAME='WID_BASE_0'  $
      ,SCR_XSIZE=300 ,SCR_YSIZE=200 ,TITLE='IDL' ,SPACE=3 ,XPAD=3  $
      ,YPAD=3)

  
  WID_DRAW_0 = Widget_Draw(WID_BASE_0, UNAME='WID_DRAW_0'  $
      ,SCR_XSIZE=213 ,SCR_YSIZE=18 ,COLORS=200)

  Widget_Control, /REALIZE, WID_BASE_0

  XManager, 'WID_BASE_0', WID_BASE_0  

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