Welcome to the Southern African Autolisp Website.

Afra-lISP

You are Visitor Number since 11th June 1999.

dialog.

dialog

Syntax:

	: dialog {
	  initial_focus label value
	}

DCL Coding:


lisp48ab : dialog {				//dialog name
          label = "dialog" ;			//give it a label

        ok_cancel ;				//predefined OK/Cancel button

        }					//end dialog

AutoLisp Coding:

(defun C:lisp48ab ()
;define function	

  (setq dcl_id (load_dialog "lisp48ab.dcl"))
  ;load dialog

  (if (not (new_dialog "lisp48ab" dcl_id)
  ;test for dialog

      );not

    (exit)
    ;exit if no dialog

  );if

  (action_tile
      "accept"	
      ;if O.K. pressed
					
      "(done_dialog) (setq userclick T)"
      ;close dialog, set flag
	
   );action tile

    (action_tile
    "cancel"
    ;if cancel button pressed

    "(done_dialog) (setq userclick nil)"	
    ;close dialog, lower flag

    );action_tile

  (start_dialog)	
  ;start dialog
				
  (unload_dialog dcl_id)
  ;unload	

  (if userclick
  ;if OK selected

     (alert "You selected OK")
     ;inform the user

     (alert "You selected Cancel")
     ;inform the user

  );if			

 (princ)

);defun

(princ)

All Tutorials and Code are provided "as-is" for purposes of instruction and
utility and may be used by anyone for any purpose entirely at their own risk.
Please respect the intellectual rights of others.
All material provided here is unsupported and without warranty of any kind.
No responsibility will be taken for any direct or indirect consequences
resulting from or associated with the use of these Tutorials or Code.
Copyright © 1999 by Kenny Ramage
All rights reserved.
Information in this document is subject to change without notice.
Site created and maintained by Kenny Ramage.