Coding the OK Button CLICK Event in the Zoom Window

Add the following procedural event handler for the CLICK event for the OK button in the ZOOM window.

Text = .eb_Text->TEXTVAL

call End_Dialog(@window, Text)

RETURN 0

The code above:

• Gets the TEXTVAL property from the edit box control and assigns it to the variable Text (using short hand notation), and then
• Calls End_Dialog() and returns the variable Text to the calling window.