AutoLisp Input Box.

This routine is very similar to the Visual Basic Input Box Function.
To use this routine you feed the function 3 arguments, the Input Box
Prompt, the Title of the Input Box, and the Default Value of the Edit Box.

The syntax is straightforward:

	(inputbox "prompt" "title" "default")

For example, the Input Box above was called by using the following command:

	(inputbox "Enter Number" "AfraLisp Inputbox" "342.34")

The Input Box returns a variable "inputvalue" containing the value of the
Edit Box.

Source Coding.

First the DCL Coding:

inputbox : dialog {

	key = "title";

	: text {
	key = "prompt";
	       }
	: edit_box {
	key = "eb1";
		   }
	ok_cancel;

  		 }

---

And next the AutoLisp Coding:

(defun inputbox (prompt title default)

  (setq dcl_id (load_dialog "inputbox.dcl"))
  (if (not (new_dialog "inputbox" dcl_id))
    (exit)
  )

  (set_tile "prompt" prompt)
  (set_tile "title" title)
  (set_tile "eb1" default)
  (mode_tile "eb1" 2)

  (action_tile
    "cancel"
    "(done_dialog)
     (setq result nil)"
  )
  (action_tile
    "accept"
    "(setq inputvalue (get_tile \"eb1\"))
     (done_dialog)
     (setq result T)"
  )
  (start_dialog)
  (unload_dialog dcl_id)
  (princ)
)

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

(princ)

If you would like the source coding for the the Input Box routine, just
place your mouse here, and click....Enjoy.