I've been doing some testing for 6.0.0.10
(refer http://www.opendcl.com/forum/index.php?topic=992.0 (http://www.opendcl.com/forum/index.php?topic=992.0) )
and this grew out of it.
... thought it may be usefull for some.
ensure the ODCL is somewhere on your search path
ie: (findfile "kdub60010.odcl") should return the qualified path\file.
;; Test kdub60010.lsp
;; 20091107
;|<<Main>>|;
(defun c:Test60010 (/ DialogReturn)
(command "_OPENDCL")
(dcl_Project_Load "kdub60010.odcl" T)
;; Show the main form
(setq DialogReturn (dcl_Form_Show kdub60010_Main))
;;------
(cond
((= DialogReturn 1) (princ " .... Dialog Closed \n"))
((= DialogReturn 2) (princ " .... Dialog Cancelled [ ESC] \n"))
((= DialogReturn 102) (princ " .... Dialog Cancelled From MessageBox \n"))
((= DialogReturn 106) (princ " .... User Quit to make Coffee \n"))
)
(princ)
)
;|<<Support>>|;
;|<<OpenDCL Event Handlers>>|;
(defun c:Untitled_Main_OnInitialize (/)
(dcl_Control_SetVisible kdub60010_Main_TextButton1 nil)
(dcl_Control_SetEnabled kdub60010_Main_TextBox1 nil)
)
;;-----------
(defun c:kdub60010_Main_VisibleToggle_OnClicked (Value /)
(if (= Value 1) ; if ON
(dcl_Control_SetVisible kdub60010_Main_TextButton1 T) ; Visible
;; else
(dcl_Control_SetVisible kdub60010_Main_TextButton1 nil) ; NOT Visible
)
)
;;-----------
(defun c:kdub60010_Main_EnableToggle_OnClicked (Value /)
(if (= Value 1) ; if ON
(dcl_Control_SetEnabled kdub60010_Main_TextBox1 T) ; Enabled
;; else
(dcl_Control_SetEnabled kdub60010_Main_TextBox1 nil) ; NOT Enabled
)
)
;;-----------
(defun c:kdub60010_Main_TextButton1_OnClicked (/ response)
(setq
reponse (dcl_MessageBox "To Do: Go and make a coffee." "Stuff To do" 26 3)
)
(if (or (= reponse 2) ; Cancel
(= reponse 6) ; Yes
)
(dcl_Form_Close kdub60010_Main (+ 100 reponse))
)
)
;;-----------
(defun c:kdub60010_Main_Bye_OnClicked (/)
(dcl_Form_Close kdub60010_Main 1)
)
;;-----------
;;-----------
(princ " << Enter 'Test60010' command to run >> \n")
Did you attach the wrong .lsp file?
yes !
sorry :-[
rectified.