OpenEuphoria

Re: return statement

• Posted by sixs at ida.net Apr 16, 2002
• 388 views

Dan Moyer
Thanks for the example
Jvandal
----- Original Message -----
From: Dan Moyer <DANIELMOYER at prodigy.net>
Subject: Re: return statement


>
> 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
>
>
>
>