OpenEuphoria

Re: Win32lib question

• Posted by Derek Parnell <ddparnell at bigpond.com> Mar 26, 2002
• 472 views

---- Original Message -----
From: <dmccu at connect.ab.ca>
To: "EUforum" <EUforum at topica.com>
Subject: Win32lib question


>
> Hi everyone,
>
> As a new registered user of Euphoria I am finding the language pretty
> much perfect for my needs,  and the quick and helpful support from
> Robert Craig and this board is something that I am very happy with.  I
> wonder though about Win32 development,  is Win32lib being worked on or
> what is the story?  I notice the date of March 5/01 as the last update
> on the archives.  I am not getting on anyone here,  I am just wondering
> about this,  as Euphoria is the perfect language to have a good solid
> Win32 development tool with it,  and one that is updated on a regular
> basis.  If this topic has already been discussed I apologize, I tried to
> search this list but had no luck.  I hope I have not stepped on any toes
> here.
>
> Now for my newbie windows question,  How do you have multiple windows in
> Win32lib? You only have one Winmain statement but I need to go from one
> window to the next.  Do I have to make child windows of the main window
> all the time?
>

All you need to do is create more than one window and organise a
triggering action to open the others. The window referenced in WinMain
() is the "prime" window. Other windows can be true children to the prime
one or independant windows. The only catch is that when the prime window is
closed, all others are too.


Here is some sample code:
----------------------
include win32lib.ew
constant wmain = create(Window,"Main",0,0,0,400,400,0),
         wother = create(Window,"Other", 0, 50,50,150,150,0)

procedure activate_main(integer self, integer event, sequence p)
    openWindow(wother, Normal)
end procedure
setHandler(wmain, w32HActivate, routine_id("activate_main"))

WinMain(wmain, Normal)

-----------
Derek