Tongue in Cheek ...
Seems like yesterday ... !!
(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