16.6 Using with-accept-help: some examples

(clim:with-accept-help 

    ((:subhelp "This is a test.")) 

  (clim:accept 'pathname))

[ACCEPT does this]
 ==>  You are being asked to enter a pathname.

[done via :SUBHELP]
     This is a test.

(clim:with-accept-help ((:top-level-help "This is a test.")) 

  (clim:accept 'pathname))

[done via :TOP-LEVEL-HELP]
 ==> This is a test.

(clim:with-accept-help (((:subhelp :override) "This is a test.")) 

  (clim:accept 'pathname))

[ACCEPT does this]
   ==> You are being asked to enter a pathname.

[done via :SUBHELP]
      This is a test.

(clim:define-presentation-type test ()) 

(clim:define-presentation-method clim:accept 

    ((type test) stream view &key) 

  (values (clim:with-accept-help 

              ((:subhelp "A test is made up of three things:")) 

            (clim:completing-from-suggestions (...) ...))))

(clim:accept 'test)

==> You are being asked to enter a test. 

    A test is made up of three things: