Non reliable cases with Slider

[Slavko Ivanovic]

I have notice some things about slider.
Need opinion.
Copy this code and load.

Code (autolisp) Select Expand


;; Events
(defun c:slider_Form1_Slider1_OnScroll (Value /)
(dcl_MessageBox
  "To Do: code must be added to event handler\r\nc:slider_Form1_Slider1_OnScroll"
  "To do"
)
)
(defun c:slider_Form2_Slider1_OnScroll (Value /)
(dcl_MessageBox
  "To Do: code must be added to event handler\r\nc:slider_Form2_Slider1_OnScroll"
  "To do"
)
)
(defun c:slider_Form1_OnInitialize (/) (dcl_Control_SetValue slider_Form1_Slider1 5))
(defun c:slider_Form2_OnInitialize (/) (dcl_Control_SetValue slider_Form2_Slider1 5))

;; Load and show
(dcl_project_import
'("YWt6A9MeAAC7eV1aBuKTJjURYjtugFi6lV9IdDQ+Byb/K3YefWWTtc/zenk+Nj48IFnGOhXR80mn"
"puydRvZ1eXBeDH53uvfhvi2cXw+aeknQNmJGXPt+WVDu5tEUWaWjy6gSQqCmVZpjsxIBLaNDQyMh"
"K4lJxSkR0FxHDemuOn0Lshx3RX6CSnaiswFPYOf6YitgrdIsO387Yh0X/NtUtVugUY7S3/wP6LTK"
"sGwxzrBi8WyB2Ret+dM08Z3SLR/hHOMe174M7xNUpB3zqMSIJpmvzLBYU7TmnMu8FXNNZr7uCmQP"
"3sUayoVuOUQAWh1hBmD1Atv1Yj0Cfce6bjfdhh39KXKA4KNZJlCPUbgAW75dTQZsgErg/QWIR+K6"
"fCCep75MseSoBf2LnCJqiITxB7SVeIH+Q8mgUQevhnIIvIW7Ech4UsGhRqGPYPmhbIXJcBWD0XOA"
"uJ7RcoCpQzFyj6Vmwvspmwdx+1AG6NEF99E0aYJmJm7xxOBhHjfjR/K6592o5/0Zw5dTC0SW1OfU"
"+L+NfwBOox+fzSRwQjW0U88w7TkCw0PIKJFJpc1sl9KCn87wkImIUsuOb62AsYgiypIVRgR5nMht"
"QlmBW+0ArJ/dHKEb4prvns6e8fKDQBnpJ/ORCYYXv9ligCuOQPm7JY8A+cvB/ROZyrgFpKcbYJxP"
"jYI92IMf/dFnlEKSkmvPwZKOV79RZ6xgSYb6v1Fk8lZioV0YQui08eSJj9aDTWwUNfVfxw2qLEUJ"
"4j9MM8xL+6bJkQTzkeMY1ENUYmridWALFvDCIFyN6e9Z4fubTca+jMIMA+jbL4wA7wLpZFA8uG5x"
"5hpLElySde33wErtjMfXgee/4WSC97/oqnW/5XPhHvqYB7CVOkgnAPCpqW7hSc/GFo47aQUBtfIg"
"TojYv6HHZ8BQixNYjPwTyZ658/nCnuxpiv0VAco4WI38mQPXoVOppqIa/bmY5BDHt3XIKW94pWYE"
"bhKVdtgJnnvt0mvXvyqQmtabzpvam96b1pvai8Ob9Jvsm+Sb3JvUmzyB0kWj7PHQdR+Mp4Vq/Qz/"
"t1uhz96Yl85r4OwIxFjs0ve+eJBEfCspO1EucTqf1IhgrCnXjXZ9mX5ISQ6g+2lGibbjyr7Xiux2"
"DZZevBr98LCVVArn1TU9V5+RuIxa/RLtUZX0CjuJ7gdQ8DGOxNLwIzY2yqjIRNFFsBvTVUPxEdEj"
"Z6jQBe9gbMzpjz0cEenLNbbN6xXpzqBxv2sSEHZwO+DU6EZtayXbJGiTIt5s4B7H1mQmNBurvtwD"
"WSsrqScB9Ik7gTDVIFBPyuLUaFsjW6vVwiUdw/zUmR3UsDsr6abEvi0ktcNny/PN4eTolaQMrCmr"
"3JksKgtH7WDLvKV0DVW60wCzUrq1FzwC3dTG5Q7JPEHd9FAJkEYE1dTNlbBcBNVFkTzmIDjc85ew"
"Ga4loyc85jCwnrCUMAOhC5SwRYnv2qJ5YTeo29TJ+74od/9vCpKBSIxr3HG7v/l2LesSyIOqXX02"
"NVvRXjJb8d+xKwuRtt/ltoHzNIJ+X2/QXFo8yUvb/+52hH8R7SucCNiyxnSj8NSg4KXTJPuohnRP"
"64tVOk+FCfZTNiTnCsKrk1c31WEKy4KAferOz6s="))
(dcl_form_show slider_form1)
(dcl_MessageBox "Case two is same, but reversed" "Now")
(dcl_form_show slider_form2)


also, i find some very small cosmetics:
missing left parenthesis in copy-ready event in studio

Code (autolisp) Select Expand


(defun c:slider_Form2_Slider1_OnReleasedCapture Value /)
  (dcl_MessageBox "To Do: code must be added to event handler\r\nc:slider_Form2_Slider1_OnReleasedCapture" "To do")
)



Slavko

[owenwengerd]

Good catch. I've fixed the scroll event bug for beta 3, and added the missing parenthesis in the help file.