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:

1. Gets the TEXTVAL property from the edit box control and assigns it to the variable Text (using short hand notation), and then

2. Calls End_Dialog() and returns the variable Text to the calling window.