PRO mark_db_help_event, ev ;Empty! END PRO mark_db_help item_labels=['Introduction','Field descriptions','Retrieving data', $ 'Editing data','Adding data','Quit'] base=WIDGET_BASE(TITLE='CME DBase Manager Help', /COLUMN) item_list=WIDGET_LIST(base,EVENT_FUNC='mark_db_help_get', $ YSIZE=6,/FRAME, value=item_labels) help_text='' text_space=WIDGET_TEXT(base,value=help_text,/SCROLL,/WRAP,XSIZE=40,YSIZE=10) state={text_space:text_space,item_list:item_list} WIDGET_CONTROL,item_list,SET_UVALUE=state WIDGET_CONTROL,text_space,SET_UVALUE=state WIDGET_CONTROL,base,/REALIZE XMANAGER,'mark_db_help',base END