OpenEuphoria

problem changing font

• Posted by Ron Austin <ronaustin at alltel.net> Jan 02, 2004
• 369 views

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