Label and On_clicked event.

[Cider]

Hi, somehow I can't get a label with the On_Clicked event to work. I'm using Version 4.0.3.1 and the Form the labels reside is modeless.
All the text & radio buttons work as expected. EventInvoke = 1. Am I missing something here? Any help would be appreciated.

Fine software, btw!

S!

Martin

[Kerry]

Works for me with Ver 4.1.2.0 (latest)
By the way; ver 4.0.3.0 is 4 months old .. may be time to update :-)


Tested with both Modal and modeless ..
With EventInvoke set to either 0 or 1 for the modeless.

Code Select Expand

;;---------------------------------------------------------------------------------
;; Modal Form.
(DEFUN C:LabelTest (/)
    (DCL_LOADPROJECT "20071009-LabelTest" T)
    (DCL_FORM_SHOW 20071009-LabelTest_Form1)
    (PRINC)
)
;;--------------------------------------
(DEFUN c:20071009-LabelTest_Form1_Label1_OnClicked (/)
    (DCL_MESSAGEBOX (STRCAT "To Do: code must be added to event handler\r\n"
                            "c:20071009-LabelTest_Form1_Label1_OnClicked"
                            "To do"
                    )
    )
)
(DEFUN c:20071009-LabelTest_Form1_TextButton4_OnClicked (/)
    (DCL_MESSAGEBOX "To Do: code must be added to event handler\r\n"
                    "c:20071009-LabelTest_Form1_TextButton4_OnClicked"
                    "To do"
    )
)
;;---------------------------------------------------------------------------------
;;---------------------------------------------------------------------------------
;; Modeless Form.
(DEFUN C:LabelTest2 (/)
    (DCL_LOADPROJECT "20071009-LabelTest" T)
    (DCL_FORM_SHOW 20071009-LabelTest_Form2)
    (PRINC)
)
;;--------------------------------------

(DEFUN c:20071009-LabelTest_Form2_Label1_OnClicked (/)
    (DCL_MESSAGEBOX (STRCAT "To Do: code must be added to event handler\r\n"
                            "c:20071009-LabelTest_Form2_Label1_OnClicked"
                            "To do"
                    )
    )
)

Edit:
Code attachments and Picture. (for members)

[attachment deleted by admin]

[Cider]

Thanks Kerry, Ver.4.1.2.0 does the trick.

S!

Martin

[Kerry]

You're Welcome.