AfraLisp Blog

The AutoLisp/Visual Lisp/VBA Resource Website

AfraLisp Blog

Home Newsletter Utter Rubbish Coding Tips AutoCAD Tips Contact Downloads WAUN

popup_list.

popup_list

Syntax: 

	: popup_list {
          action alignment edit_width fixed_height
          fixed_width height is_enabled is_tab_stop
          key label list mnemonic tabs value width
        } 

DCL Coding: 
lisp48j : dialog {				//dialog name
          label = "popup_list" ;		//give it a label

     	: popup_list {				//define popup list
        label = "Choose Name:";			//give it a label
        key = "selections";			//give it a name
        value = "5" ;				//initial value
        edit_width = 12;			//fix the width
        }					//end list

        ok_cancel ;				//predefined OK/Cancel button

        }					//end dialog 

AutoLisp Coding: 
(defun C:lisp48j ()
;define function	

  (setq NAMES '("Monday" "Tuesday" "Wednesday" "Thursday"
                "Friday" "Saturday" "Sunday")
  );setq
  ;define list

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

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

      );not

    (exit)
    ;exit if no dialog

  );if

  (start_list "selections")
  ;start the list box

  (mapcar 'add_list NAMES)
  ;fill the list box

  (end_list)
  ;end list

  (action_tile
    "accept"
    ;if O.K. pressed

    (strcat
    ;string 'em together
      "(progn 

      (setq SIZ (atof (get_tile \"selections\")))"
      ;get list selection

      "(done_dialog) (setq userclick T))"	
      ;close dialog

    );strcat

  );action tile

    (action_tile
    "cancel"
    ;if cancel button pressed

    "(done_dialog) (setq userclick nil)"	
    ;close dialog

    );action_tile

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

   (if userclick
   ;check O.K. was selected

    (progn
    ;if it was do the following

      (setq SIZ (fix SIZ))
      ;convert to integer

      (setq SIZ (nth SIZ NAMES))
      ;get the Day

      (alert (strcat "You Selected: " SIZ))			
      ;display the Day

    );progn

  );if userclick


 (princ)

);defun

(princ)
 
The AutoLisp/Visual Lisp/VBA Resource Website

Copyright 1999-Perpetuity by AfraLisp

All rights reserved.
Information in this document is subject to change without notice.
Site created and maintained by Kenny Ramage

The AutoLisp/Visual Lisp/VBA Resource Website