Warning Label on Face

Note: This is an example file showing concepts of the Integration Kit. The code itself is not supported and will never be supported.

|#


(in-package :EXAMPLES)
(use-package :OLI)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(sd-defdialog 'warning-label
  :variables
  '((A_FACE :value-type :face
	    :incl-position :3d
	    :prompt-text "Specify Face."))
  :dialog-control :sequential
  :ok-action
  '(sd-call-cmds
    (l3d_text "Warning !!!"
	      :add_ref_elem (list (first A_FACE)) (second A_FACE)
	      :dp_position :par_face :face (list (first A_FACE))
	      :face_pt (second A_FACE) :offset 20 :done 0,0)))

;;