OpenEuphoria

Re: Create window? How?

• Posted by Greg Haberek <ghaberek at gmail.com> Oct 05, 2004
• 421 views

Ya, Derek, that new scriptable interface is nice, but I still stick
with the old, code-it-yourself stuff.

include Win32Lib.ew

constant    Main = create( Window, "My Window", 0, Default, Default,
640, 480, 0 )
constant    Btn1 = create( PushButton, "Click Me", Main, 10, 10, 90, 30, 0 )

procedure Btn1_Click( integer pSelf, integer pEvent, sequence pParams )

    VOID = message_box( "You clicked me!", "My Window", MB_OK )

end procedure
setHandler( Btn1, w32HClick, routine_id("Btn1_Click") )

WinMain( Main, Normal )

On Mon, 04 Oct 2004 14:45:49 -0700, Derek Parnell
<guest at rapideuphoria.com> wrote:
> 
> posted by: Derek Parnell <ddparnell at bigpond.com>
> 
> irv mullins wrote:
> >
> > gunnar wrote:
> > >
> > > How do I create a window whith buttons scrollers and so on?
> > >
> > If you're using EuGTK, it's easy:
> >
> > atom win, btn
> >
> > win = window("Title goes here")
> > btn = button("Push me!")
> > addto(win,btn)
> > show(win)
> > main()
> >
> > If you're using Win32Lib,
> 
> without the IDE the above could be coded ...
> 
> <code>
> include win32lib.ew
> createForm({"Window, Title goes here",
>            "Button, Push me!"})
> include w32start.ew
> </eucode>
{{{

> 
> >then get Judith's IDE, and drop a button
> > where you want it on the window.
> >
> > Both Win32Lib and EuGTK come with short example programs using each of the
> > controls,
> >
> > including scrolled windows, sliders, etc.
> >
> > Without a library such as Win32Lib or EuGTK, creating a Windows window
> > takes about 100 lines of code.
> 
> And there are a few other libraries in the archive that help coders
> write Windows programs.
> 
> --
> Derek Parnell
> Melbourne, Australia
> 
> 
> 
> 
>