pro oneline, manage=manage, delete=delete
;
;+
;   Name: oneline
;
;   Purpose: widget front end to fastdoc
;
;   History: 
;      10-Jan-1994 (SLF) 
;-
;
common oneline_blk, baseid

managed=keyword_set(manage)

; *** unstructured exits *** 
if n_elements(baseid) ne 0 then begin
   if keyword_set(delete) then begin
      widget_control,baseid,/destroy,bad_id=destroyed
      delvarx,baseid
   endif else widget_control,baseid, /map, /sens, bad_id=destroyed
   return
endif

baseid=widget_base(/column,title='ONE LINERS') 

if managed then xmenu,['QUIT'],baseid
olfile=concat_dir('$DIR_GEN_DOC','oneline.doc')
message,/info,'Reading one liner file,...'
list = rd_tfile(olfile)
files=strcompress(strmid(list,0,15),/remove)

b1a=widget_base(/column,baseid,/frame)
if managed then plabel=widget_label(b1a,value='Select Routine Details') $
   else plabel=0
plist=widget_list(b1a,ysize=45, value = list, uvalue=files)


top_struct=''
if managed then begin
;   b1b=widget_base(/column,baseid,/frame)
    xmenu,['Show Header','Show Source Code'],b1a,/row,/exclusive,buttons=mbuts
    widget_control,mbuts(0),/set_button
;   tlabel=widget_label(b1b,value='DOCUMENT HEADER')
;   ttext=widget_text(b1b,ysize=30)

   top_struct={topbase:baseid,	$
	    mbuts:mbuts,	$
	    olbase:b1a,		$
	    ollabel:plabel,	$
	    ollist:plist,	$
	    docbase:0l,	$
            doclabel:0l,	$
	    doctext:0l,		$
	    docmode:0		}

endif
widget_control,baseid,/realize,set_uvalue=top_struct
if managed then xmanager,'oneline',baseid

return
end