This may look long, but please look this over for me. i am new this lisp
and dcl
stuff. I am trying to put up a edit box that the user can type in some
text and when he hits ok it will put the text in a predefined spot. however
this is not working
can sombody tell me why and how to fix it ?
; text.lsp
(defun paste( / value )
(setq edit_value (get_tile "edit_tile"))
(setq text edit_value)
(done_dialog)
)
(if (> (setq index_value (load_dialog "show")) 0)
(progn
(if (new_dialog "show" index_value)
(progn
;; initalize the tiles
(mode_tile "edit tile" 2)
(action_tile "insert_button" "(paste )")
(action_tile "accept" "(done_dialog 1)")
(start_dialog)
;; process actions after the dialog box is
closed.
)
(prompt "Unable to display dialog box")
)
(unload_dialog index_value)
( command "text" )
)
)
(prompt "Unable to open dialog box")
)
;;; completed dialog driver
;;; shown after the UNLOAD_DIALOG
************************ dcl code below **************************
show : dialog
{
label = "Text Insert97 : app. by - Brad Rose";
inital_focus = "edit_tile";
: text
{
label = "Enter a string of characters up to 30";
key = "text_tile";
}
: edit_box
{
key = "edit_tile";
label = "Type: ";
edit_width = 30;
edit_limit = 30;
}
: button
{
key = "insert_button";
label = "Place Text";
}
: button
{
key = "OK";
label = "accept";
is_default = true;
}
}
Thank You,
Brad R.
Carpei Diem