OpenEuphoria

Re: problem changing font

• Posted by "Juergen Luethje" <j.lue at gmx.de> Jan 02, 2004
• 381 views

Ron wrote
(some lines indented by me, to make the code better readable):

> I want to change the size of the the screen and the font points when my
> app runs at 800 X 600 vs 1024 X 768.  Why does this work:
>
> without warning
> include win32lib.ew
> constant win=createEx (Window,"Test",0,Center,Center,500,500,0,0)
> procedure print_it( integer self, integer event, sequence params)
>    setFont(win,"Roman",18,1)
>    wPuts(win,"Hello")
> end procedure
> setHandler(win, w32HPaint, routine_id( "print_it" ))
> WinMain(win,Normal)
>
> and this dont?
>
> without warning
> include win32lib.ew
> constant win=createEx (Window,"Test",0,Center,Center,500,500,0,0)
> procedure print_it( integer self, integer event, sequence params)
>    setFont(win,"Roman",18,1)
>    sequence name
>    name="Ron"
>    wPuts( {win, 40, 40}, name)
> end procedure
> setHandler(win, w32HPaint, routine_id( "print_it" ))
> WinMain(win,Normal)
>
> I get a syntax error - expected to see possibly 'end', not a type
> sequence name


When you go to http://www.rapideuphoria.com/refman_2.htm#42, and then
scroll down a little, you'll find the explanation:
"Variable declarations inside a subroutine must all appear at the
beginning, before the executable statements of the subroutine."

Regards,
   Juergen

-- 
 /"\  ASCII ribbon campain  |  This message has been ROT-13 encrypted
 \ /  against HTML in       |  twice for higher security.
  X   e-mail and news,      |
 / \  and unneeded MIME     |  http://home.arcor.de/luethje/prog/