OpenEuphoria

RE: CText not displaying

• Posted by Brian Broker <bkb at cnw.com> Dec 04, 2001
• 373 views

Hi Evan,

I'm not seeing a problem with setVisible.  What version of Win32Lib are 
you using?  Does this program work for you?

-- ctext.exw --
without warning
include Win32Lib.ew

constant
   Win = create(Window, "Click Window to toggle CText", 
                         0, Default, Default, 300, 100, 0 ),
   Msg = create(CText, "A CText Message", Win, 0, 20, 300, 20, 0),
   Stat = create(StatusBar,sprintf("Win32Lib Version %d.%d.%d",
                                   {Win32LibVersion[1],
                                    Win32LibVersion[2],
                                    Win32LibVersion[3]}), 
                           Win, 0, 0, 0, 0, 0 )
  
procedure onClick_Win()
   setVisible( Msg, not isVisible(Msg) )
end procedure
onClick[Win] = routine_id( "onClick_Win" )

WinMain(Win, Normal)
-- end program --

Are you sure your variable 'var' is not zero?
-- Brian

Evan Marshall wrote:
> Some CText is not displaying with setVisible.  I moved it so that part 
> of it
> covered another CText area that is working fine and it erased that area, 
> so
> I know it's "there".  Any ideas on why the text isn't showing up?  The
> attributes are all the same as every other CText I've got.
> 
> constant
> Win = create(Window, "Win", 0, 0, 0, 600, 600, Normal)
> Msg = create(CText, "Message", Win, 250, 300, 100, 20, 0)
> 
> 
> procedure Program()
>     setVisible(Msg, False)
>       .. do some stuff
>      if var then
>         setVisible(Msg, True)
>     end if
> end procedure
> onActivate[Win] = routine_id( "Program" )
> 
> WinMain(Win, Normal)