OpenEuphoria

RE: CText not displaying

• Posted by Evan Marshall <evan at net-link.net> Dec 04, 2001
• 392 views

This works:
------------------------------
include win32lib.ew

constant 
Win  = create(Window, "Window", 0, 0, 0, 600, 600, Normal),
myCText = create(CText, "This is CText", Win,  250, 200, 100, 15, 0)

setVisible(myCText, False)

procedure Display()
      setVisible(myCText, True)
end procedure
onActivate[Win] = routine_id( "Display" )

procedure ClearText()
     setVisible(myCText, False)
end procedure
onClick[Win] = routine_id( "ClearText" )

WinMain(Win, Normal)

include win32lib.ew

constant 
Win  = create(Window, "Window", 0, 0, 0, 600, 600, Normal),
myCText = create(CText, "This is CText", Win,  250, 200, 100, 15, 0)

setVisible(myCText, False)

procedure Display()
      setVisible(myCText, True)
end procedure

procedure ClearText()
     Display()
     for t = 1 to 100000000 do end for
     setVisible(myCText, False)
end procedure
onActivate[Win] = routine_id( "ClearText" )

WinMain(Win, Normal)