OptionList SetButtonEnabled not refreshing correctly.

When I do this:

(defun c:dclBolts_optViewNut_OnClicked (nValue /)
  (dcl_Control_SetVisible TMaBolts_dclBolts_OptionList1 T)
  (dcl_OptionList_SetButtonEnabled TMaBolts_dclBolts_OptionList1 3 nil)
  (dcl_OptionList_SetButtonEnabled TMaBolts_dclBolts_OptionList1 4 nil)
)

(defun c:dclBolts_optViewHead_OnClicked (nValue /)
  (dcl_Control_SetVisible TMaBolts_dclBolts_OptionList1 T)
  (dcl_OptionList_SetButtonEnabled TMaBolts_dclBolts_OptionList1 3 T)
  (dcl_OptionList_SetButtonEnabled TMaBolts_dclBolts_OptionList1 4 T)
)


The buttons aren't refreshing when the should. Only when I mouse over & off of them do they refresh.

thx,
Barry

I'm also able to select the disabled button.....

Can you reproduce this in one of the samples by any chance?

In short, not.

The long answer:
The only sample I could find with OptionLists in it, was the MessageBox, so I tried adding this code:


(defun c:MessageBox_MessageBoxes_optIcons_OnSelChanged (ItemIndexOrCount Value /)
(cond
    ((= ItemIndexOrCount 0)
      (dcl_OptionList_SetButtonEnabled MessageBox_MessageBoxes_optButtons 3 T)
      (dcl_OptionList_SetButtonEnabled MessageBox_MessageBoxes_optButtons 4 T)
    )
    ((= ItemIndexOrCount 1)
      (dcl_OptionList_SetButtonEnabled MessageBox_MessageBoxes_optButtons 3 nil)
      (dcl_OptionList_SetButtonEnabled MessageBox_MessageBoxes_optButtons 4 nil)
           
    )
)
)


But it didn't even look like it was firing.... (yes, I checked the OnSelChanged event & saved the project.)
Remember this sample also has the issue of the OptionLists getting bolder every time the mouse passes over them, so I guess this isn't a good test.

I guess I could try making a new test case from scratch....