;/* Execute me to compile with DICE V3.0
dcc window.c -proto -mi -ms -mRR -lbgui
quit
*/
/*
**         $RCSfile: window.c,v $
**      Description: Simple demonstration of handling IDCMP
**                   events with the BGUI window class.
**        Copyright: (C) Copyright 1994 Jaba Development.
**                   (C) Copyright 1994 Jan van den Baard.
**                   All Rights Reserved.
**
**          $Author: jaba $
**        $Revision: 1.2 $
**            $Date: 1994/08/03 11:42:08 $
**/

#include <libraries/bgui.h>
#include <libraries/bgui_macros.h>
#include <libraries/gadtools.h>

#include <clib/alib_protos.h>

#include <proto/exec.h>
#include <proto/bgui.h>
#include <proto/intuition.h>

#include <stdio.h>
#include <stdlib.h>

/*
**      Library base pointer.
**      NOTE: The intuition.library is opened by DICE
**      it's auto-init code.
**/
struct Library                  *BGUIBase;

/*
**      Object ID's.
**/
#define ID_QUIT                 1


int main( int argc, char *argv[] )
{
        struct Window           *window;
        Object                  *WO_Window, *GO_Quit, *GO_Status;
        ULONG                    signal = 0, rc, tmp = 0;
        BOOL                     running = TRUE;

        /*
        **      Open the library.
        **/
        if ( BGUIBase = OpenLibrary( BGUINAME, BGUIVERSION )) {
                /*
                **      Create the window object.
                **/
                WO_Window = WindowObject,
                        WINDOW_Title,           "Window Demo",
                        WINDOW_SizeGadget,      FALSE,
                        WINDOW_MasterGroup,
                                VGroupObject, HOffset( 4 ), VOffset( 4 ), Spacing( 4 ),
                                        StartMember, GO_Status = InfoFixed( NULL, ISEQ_C "Window Demo\n(C) Copyright 1993-1994 Jaba Development", NULL, 2 ), EndMember,
                                        StartMember,
                                                HGroupObject,
                                                        VarSpace( 50 ),
                                                        StartMember, GO_Quit  = KeyButton( "_Quit",  ID_QUIT  ), EndMember,
                                                        VarSpace( 50 ),
                                                EndObject,
                                        EndMember,
                                EndObject,
                EndObject;

                /*
                **      Object created OK?
                **/
                if ( WO_Window ) {
                        /*
                        **      Assign a key to the button.
                        **/
                        tmp = GadgetKey( WO_Window, GO_Quit,  "q" );
                        /*
                        **      OK?
                        **/
                        if ( tmp ) {
                                /*
                                **      try to open the window.
                                **/
                                if ( window = WindowOpen( WO_Window )) {
                                        /*
                                        **      Obtain it's wait mask.
                                        **/
                                        GetAttr( WINDOW_SigMask, WO_Window, &signal );
                                        /*
                                        **      Event loop...
                                        **/
                                        do {
                                                Wait( signal );
                                                /*
                                                **      Handle events.
                                                **/
                                                while (( rc = HandleEvent( WO_Window )) != WMHI_NOMORE ) {
                                                        /*
                                                        **      Evaluate return code.
                                                        **/
                                                        switch ( rc ) {

                                                                case    WMHI_CLOSEWINDOW:
                                                                case    ID_QUIT:
                                                                        running = FALSE;
                                                                        break;

                                                                case    WMHI_INACTIVE:
                                                                        SetAttrs( WO_Window, WINDOW_Title, "Window de-activated", TAG_END );
                                                                        break;

                                                                case    WMHI_ACTIVE:
                                                                        SetAttrs( WO_Window, WINDOW_Title, "Window activated", TAG_END );
                                                                        break;
                                                        }
                                                }
                                        } while ( running );
                                } else
                                        puts ( "Could not open the window" );
                        } else
                                puts( "Could not assign gadget keys" );
                        /*
                        **      Disposing of the window object will
                        **      also close the window if it is
                        **      already opened and it will dispose of
                        **      all objects attached to it.
                        **/
                        DisposeObject( WO_Window );
                } else
                        puts( "Could not create the window object" );
                CloseLibrary( BGUIBase );
        } else
                puts( "Unable to open the bgui.library" );

        return( 0 );
}

#ifdef _DCC
int wbmain( struct WBStartup *wbs )
{
        return( main( 0, NULL ));
}
#endif

/*
 *      $Log: window.c,v $
 * Revision 1.2  1994/08/03  11:42:08  jaba
 * Switched from clib/ to proto/.
 *
 * Revision 1.1  1994/06/20  16:43:03  jaba
 * Initial revision
 *
 */