Enabled and Visible controls

[Kerry]

I've been doing some testing for 6.0.0.10
(refer 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.

Code (autolisp) Select Expand


;; 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")

[owenwengerd]

Did you attach the wrong .lsp file?

[Kerry]

yes !

sorry :-[

rectified.