OpenEuphoria

Re: Clear Screen in Window

• Posted by Dan B Moyer <DANMOYER at PRODIGY.NET> Sep 10, 2000
• 414 views

Bob,

Ok, maybe I've misunderstood what you are trying to do, but if not, here is
something which works:

<code follows>

include win32lib.ew


constant SimpleWin =
    create( Window, "Simple Window", 0, 0, 0, 500, 300, 0 )


global constant DataLabel  = create( CText, "aLabel", SimpleWin, 100, 40,
80, 230, 0 )

global constant
WriteButton1 = create( DefPushButton, "WriteSomeText", SimpleWin, 40, 10,
120, 30, 0 ),
 WriteButton2 = create( DefPushButton, "WriteOtherText", SimpleWin, 180, 10,
120, 30, 0 ),
 WriteButton3 = create( DefPushButton, "EraseText", SimpleWin, 320, 10, 120,
30, 0 )


global procedure onClick_WriteButton1()
  for n = 1 to 10 do
    setPosition(DataLabel, 10, n*20)
    wPuts(DataLabel,"abcdefg")
  end for
end procedure

onClick[WriteButton1] = routine_id( "onClick_WriteButton1" )

global procedure onClick_WriteButton2()
    setText(DataLabel, "")
  for n = 1 to 10 do
    setPosition(DataLabel, 10, n*20)
    wPuts(DataLabel,"1234567890")
  end for
end procedure

onClick[WriteButton2] = routine_id( "onClick_WriteButton2" )

global procedure onClick_WriteButton3()
    setText(DataLabel, "")
end procedure

onClick[WriteButton3] = routine_id( "onClick_WriteButton3" )


WinMain( SimpleWin, Normal )

<code ends>


----- Original Message -----
From: "bobspringett" <bobspringett at WANADOO.FR>
To: <EUPHORIA at LISTSERV.MUOHIO.EDU>
Sent: Sunday, September 10, 2000 3:26 AM
Subject: Clear Screen in Window


> I need to overwrite a lot of text in a non-editable window( a label type).
> I've used repaintWindow(Win) but don't like it very much because it
appears
> to flash. I've tried to setText(Win,"") and setText(Win,"      ") but
can't get it to work. Does anyone have any other ideas?.Thanks
> in advance.
> Regards
> Bob