OpenEuphoria

Re: return statement

• Posted by Dan Moyer <DANIELMOYER at prodigy.net> Apr 16, 2002
• 374 views

jvandal,

The following demo isn't exactly what you specified, but it's close & maybe
a start:

-- CODE STARTS:
--  code generated by Win32Lib IDE v0.10.6

include Win32Lib.ew
without warning

----------------------------------------------------------------------------
----
--  Window Window1
global constant Window1 = create( Window, "Enter info into each field, press
finished", 0, Default, Default, 400, 300, 0 )
global constant StatusBar9 = create( StatusBar, "StatusBar9", Window1, 0, 0,
0, 0, 0 )
global constant EditText2 = create( EditText, "", Window1, 24, 20, 50, 20,
0 )
global constant EditText3 = create( EditText, "", Window1, 120, 20, 50, 20,
0 )
global constant EditText4 = create( EditText, "", Window1, 212, 20, 50, 20,
0 )
global constant EditText5 = create( EditText, "", Window1, 28, 68, 50, 20,
0 )
global constant EditText6 = create( EditText, "", Window1, 124, 68, 50, 20,
0 )
global constant EditText7 = create( EditText, "", Window1, 216, 68, 50, 20,
0 )
global constant PushButton8 = create( PushButton, "Finished", Window1, 104,
116, 90, 30, 0 )
----
procedure PushButton8_onClick ()
if length(getText(EditText2)) = 0 or
   length(getText(EditText3)) = 0 or
   length(getText(EditText4)) = 0 or
   length(getText(EditText5)) = 0 or
   length(getText(EditText6)) = 0 or
   length(getText(EditText7)) = 0 then
        setText(StatusBar9, "Please enter data into all fields")
else
  setText(StatusBar9, "ok")
end if
end procedure
onClick[PushButton8] = routine_id("PushButton8_onClick")



WinMain( Window1, Normal )

-- CODE ENDS

----- Original Message -----
From: <sixs at ida.net>
To: "EUforum" <EUforum at topica.com>
Sent: Monday, April 15, 2002 11:15 PM
Subject: return statement



I have a Windows program where I am checking several fields and if the
fields are not entered, I want to tell the user to input the data in the
field and then proceed to the next field. If the user does not like what he
has entered he can change it and leave the other fields as entered. I have
these several input statements in a procedure. If the field needs to be
entered the program seems to return to the starting point  at the beginning
of the procedure, and does not return just to the statement being executed.
Is this is what is happening, or is there a way to force it to return to the
statement?

jvandal