Problem with Tutorial

hi,

I'm new in OpenDCL and I love it from the first place, I'm doing the tutorials but there is something I can't figure it out by myself. in Page 8 of tutorials for the level 1 when you have:

(defun c:HelloWorld_Form1_TextButton1_OnClicked (/)
  (setq sText (dcl_Control_GetText HelloWorld_Form1_TextBox1))
  (dcl_messagebox (strcat "You Typed: " sText))
  (dcl_Form_Close HelloWorld_Form1)
)

if you click on the text button it works fine, but if you fill in the text box and click enter on keyboard the form just closes without any messagebox. What am I missing?

Hello and welcome anishtain4,

in some development languages you can set a dialogresult to a control (like a button). So it is not in OpenDCL, as I remember. There are events like OnOk or OnCancel. You can activate them to catch the events. But I have no experience in that.

For the case the user hits Enter in a focussed TextBox, Grid or ListView I catch OnCancelClose where I get also the hint if the user pressed ESC. If not, I can decide whether the form should be closed (for instance in a form with a single textbox) or not (in forms with a grid in editing state).

I believe the tutorial was made to get into the way using OpenDCL with lisp. Catching Enter will be the next step after working through the tutorial :) .
You will find a sample for that {2}.

Regards, Fred

Thanks Fred,

I have two more questions on the intermediate tutorial:

1.in the code below:


(defun c:AUBlockTool_PalBlkTool_cmdMInsBlk_OnClicked ( / CSel BlkName X Y Z rot pt)
(setq CSel (dcl_ListBox_GetCurSel AUBlockTool_PalBlkTool_BlockNameList))
(setq BlkName (dcl_ListBox_GetText AUBlockTool_PalBlkTool_BlockNameList CSel))
(setq X (dcl_Control_GetValue AUBlockTool_PalBlkTool_SliderBarXScale))
(setq Y (dcl_Control_GetValue AUBlockTool_PalBlkTool_SliderBarYScale))
(setq Z (dcl_Control_GetValue AUBlockTool_PalBlkTool_SliderBarZScale))
(setq rot (dcl_Control_GetValue AUBlockTool_PalBlkTool_AngleSliderBlkRot))
(setq *blocks* (ssadd))
(while (setq pt (getpoint "Select base point\\Right-click to exit: "))
(command ".insert" BlkName "X" X "Y" Y "Z" Z "R" rot pt)
(ssadd (entlast) *blocks*)
(UpdateSStext)
)
(princ)
)

the values from the sliders should be read, but when I have set up these from the first and there is no other code available for them it reads them zero, I checked the minval property in studio and it is set to 1!! I used a (setq x (max x 1)) to pass this point

2. I for the last slider I have:

(defun c:AuBlockTool_PalBlkTool_SliderBarXScale_OnScroll (nValue /)
  (dcl_Control_SetText AUBlockTool_PalBlkTool_TxtScaleX (itoa nValue))
  (DoScale 41 nValue)
  (UpdateLinks (itoa nValue))
  (princ)
)

(defun c:AuBlockTool_PalBlkTool_SliderBarYScale_OnScroll (nValue /)
  (dcl_Control_SetText AUBlockTool_PalBlkTool_txtScaleY (itoa nValue))
  (DoScale 42 nValue)
  (princ)
)

(defun c:AuBlockTool_PalBlkTook_SliderBarZScale_OnScroll (nValue /)
  (dcl_Control_SetText AUBlockTool_PalBlkTool_txtScaleZ (itoa nValue))
  (DoScale 43 nValue)
  (princ)
)

but when I move the Z slider value of x and y change in a linked manner!!! I'm sure name of the scroll I'm sliding is right and there is no (updatelink) in that's event function. I couldn't figure this one out

Got it, I set all the options of x slider then I copied that and changed the name, but the event name was the same, I had to change that one too.