OnclickedEvent not launch with BeginDragnDrop allowed on GraphicsButton Control

Hello,

Here is something, maybe not a bug, but something impossible to do with a graphics button.

OnClicked Event is not call with Drag/Drop begin allow checked !

Here is an example :


(dcl_project_load "D:/gb" T)
(defun c:gb_gb:demo_GraphicButton1_OnClicked (/)
  (dcl_MessageBox "To Do: code must be added to event handler\r\nc:gb_gb:demo_GraphicButton1_OnClicked" "To do")
)
(defun c:html_gb:demo_ListBox1_OnDragnDropFromControl (ProjectName FormName ControlName DropPoint /)
  (alert (strcat "\n c:html_gb:demo_ListBox1_OnDragnDropFromControl " ProjectName" " FormName " " ControlName))
)
(dcl_Form_Show gb_gb:demo)

I've added code in Alpha 5 to fake the OnClicked event when no drag/drop takes place.  Excellent sample, by the way -- that makes my job a lot easier.