(use-package :OLI)

(sd-defdialog 'inqview
  :dialog-title "inqview"
  :toolbox-button t 
  :variables 
  '(
	(view
            :selection  *sd-anno-view-seltype*  
           	:title "view"
           	:initial-value nil
		    :after-input (doit))) 

 :local-functions
 '(
   (doit ()
	 
	(sd-call-cmds (am_delete :docu_text :by_view_docu_rest view) :failure nil)
   ))
 :ok-action
 '(doit)
 
 )