OpenEuphoria

Re: What am I doing wrong?

• Posted by Virtual B <behaviorself at netzero.net> Sep 29, 2003
• 604 views

Hi Louis,

I'm not sure about why this is happening, and I don't have time right now to
check into it.  But if you just want to put text into a window you might
want to consider putting an LText where you want the text, and then use
setText() to add your text.  I'm not sure if this is the "proper" way to do
what you want to do, but it works fine for me.

Virtual B

----- Original Message -----
From: <Louis at cwshop.com>
Subject: What am I doing wrong?


>
>
> Although an experienced programmer, I know nothing about Windows
programming except what is in the Win32Lib documentation.
>
> I am trying to put text into a window that also has a button in it.  This
is my test program:
>
> constant -- Win32 Setup
> Win = create(Window, "Window Title", 0,
> {0.5,-150}, {0.5, -220}, 300, 220, 0)
>
> --constant
> -- Done = create(PushButton, {"Exit","Close window and exit."},
> -- Win, 150, 160, 60, 25, w32AUTOCLOSE)
>
> procedure onPaint_Win(integer x1, integer y1, integer x2, integer y2)
> wPuts(Win, "This is some text")
> end procedure
>
> onPaint[Win] = routine_id("onPaint_Win")
>
> WinMain(Win, Normal)
>
> This displays the text OK, but if I uncomment the lines to create a
button, the text disappears.  Why?
>
> I tried putting the wPuts in "Load_Win" which is called as:
>
> setHandler(Win, w32HActivate, routine_id("Load_Win"))
>
> And that worked, except if I minimize the window then bring it back, the
text is gone.  Why?
>
> I tried changing "W32HActivate" to "W32HOpen", but that never worked at
all.  Why?  Because the window had not opened yet?
>
> Louis.
>
> --^----------------------------------------------------------------
> This email was sent to: behaviorself at netzero.net
>
>
> TOPICA - Start your own email discussion group. FREE!
>
>