OpenEuphoria

1. real trivia...

• Posted by wolfgang fritz <wolfritz at KING.IGS.NET> Jan 19, 1999
• 677 views

It's NOT that it doesn't work, JUST that it doesn't work SO WELL !
I just thought I'd share it, with apologies...

--game5.exw
include win32lib.ew
constant
  GameWin = create( Window, "..beats me..five times..", 0, 0, 0, 641, 450, 0
),
  Label1   = create(CText, "", GameWin, 0, 431, 641, 20, 0)
  setFont( Label1, "Times New Roman", 12, 1 )
  setTextColor(Label1, BLUE )
  setText(Label1,"Escape to exit.")
procedure onPaint_GameWin(integer x1, integer y1, integer x2, integer y2)
  setWindowBackColor( GameWin, GREEN )
  setPenColor( GameWin, RED )
  drawRectangle( GameWin, 1 ,0, 370, 640, 379)
end procedure
onPaint[GameWin] = routine_id("onPaint_GameWin")
WinMain( GameWin )
--end game5.exw 
http://www.king.igs.net/~wolfritz     ...www.king.igs.net/~wolfritz/tutor.htm