Tongue in Cheek ...

[Kerry]

Tongue in Cheek ...

Seems like yesterday ... !!

Code (autolisp) Select Expand


(defun c:test22 ()
 ;; kwb 200307
 (if (not (member "objectdcl.arx" (arx)))
   (arxload "objectdcl.arx" "ObjectDCL.arx not found.")
 )
 ;;-----------------
 (defun c:Test22_DclForm1_OnInitialize ()
   (odcl_messagebox "To Do: code must be added to Test22" "To do")
   (odcl_combobox_insertstring Test22_ComboBox1 0 "Line 01")
 )
 (defun c:Test22_Scarper_OnClicked ()
   (odcl_messagebox "To Do: code must be added to Scarper" "To do")
 )
 ;;-----------------
 
 ;; main entry point
 (if (not (odcl_form_isactive test22))
   (progn
          (odcl_loadproject "test22" t)                    ; remove reload flag later
          (odcl_form_show test22)
          ;;(kps-30-startup)
   )
   (prompt "\n Form F00 is active")
 )  
)


PLEASE NOTE .. This is not intended as a best practice code example  :)

The attached picture explains it all