/* ClassAct Example
 * Copyright 1995 Phantom Development LLC.
 * All Rights Reserved.
 *
 * This Example Shows ClassAct's bitmap.image
 */

#include <proto/intuition.h>

#include <classact.h>

#include <clib/exec_protos.h>
#include <clib/alib_protos.h>
#include <clib/intuition_protos.h>

struct ClassLibrary *WindowBase;
struct ClassLibrary *LayoutBase;
struct ClassLibrary *ButtonBase;
struct ClassLibrary *BitMapBase;

static struct Image *image;
static struct Screen *screen;
static struct Gadget *gadget;

/*-------------------------------------------------------------------------*/

int main( void )
{  Object *Win_Object;
   struct Window *window;
   struct Image *image1=NULL,*image2=NULL,*image3=NULL;
   struct BitMap *bitmap;
   ULONG result,signal;
   BOOL done=FALSE;

   /* Open the classes we will use. Note, classlib.lib SAS/C or DICE autoinit
    * can do this for you automatically.
    */
   if( (WindowBase = (struct ClassLibrary *)OpenLibrary("window.class",0L) )
   &&  (LayoutBase = (struct ClassLibrary *)OpenLibrary("gadgets/layout.gadget",0L) )
   &&  (ButtonBase = (struct ClassLibrary *)OpenLibrary("gadgets/button.gadget",0L) )
   &&  (BitMapBase = (struct ClassLibrary *)OpenLibrary("images/bitmap.image",0L) )
   )
   {
      if(screen=LockPubScreen(NULL))
      {  
         /* Make an image out of an IFF file.
          * The image will be included in the window layout, and is
          * used to clip two other images from
          */
         image1=BitMapObject,
            BITMAP_SourceFile,"progdir:buttons.iff",
            BITMAP_Screen,screen,
         EndImage;
         if(image1)
         {  
            /* Get the bitmap of the image
             */
            GetAttr(BITMAP_BitMap,image1,(ULONG *)&bitmap);

            Win_Object = WindowObject,
               WA_ScreenTitle, "ClassAct Copyright 1995, Phantom Development LLC.",
               WA_Title, "BitMap Example",
               WA_SizeGadget, TRUE,
               WA_Left, 40,
               WA_Top, 30,
               WA_InnerWidth,100,
               WA_DepthGadget, TRUE,
               WA_DragBar, TRUE,
               WA_CloseGadget, TRUE,
               WA_Activate, TRUE,
               WA_PubScreen,screen,
               WINDOW_ParentGroup, VGroupObject,
                  LAYOUT_SpaceOuter, TRUE,
                  LAYOUT_HorizAlignment,LALIGN_CENTER,
                  
                  StartImage,image1,
                  CHILD_NoDispose,TRUE,

                  StartMember,HGroupObject,
                     
                     /* Add a button with its imagery read from two
                      * transparent GIF files. BITMAP_Masking,TRUE will
                      * make the imagery appear transparent.
                      */
                     StartMember,ButtonObject,
                        GA_Image,image2=BitMapObject,
                           BITMAP_SourceFile,"progdir:img1.gif",
                           BITMAP_SelectSourceFile,"progdir:img2.gif",
                           BITMAP_Screen,screen,
                           BITMAP_Masking,TRUE,
                        EndImage,
                     EndMember,
                     
                     /* Add second button. It's imagery is another
                      * bitmap.image that clips its contents from the
                      * bitmap of image1
                      */
                     StartMember,ButtonObject,
                        GA_Image,image3=BitMapObject,
                           BITMAP_BitMap,bitmap,
                           BITMAP_OffsetX,3,
                           BITMAP_OffsetY,3,
                           BITMAP_Width,19,
                           BITMAP_Height,13,
                           BITMAP_SelectBitMap,bitmap,
                           BITMAP_SelectOffsetX,26,
                           BITMAP_SelectOffsetY,3,
                           BITMAP_SelectWidth,19,
                           BITMAP_SelectHeight,13,
                        EndImage,
                     EndMember,
                  EndMember,
               EndMember,
            EndWindow;
             /*  Object creation sucessful?
             */
            if( Win_Object )
            {
               /*  Open the window.
                */
               if( window = (struct Window *) CA_OpenWindow(Win_Object) )
               {
                  ULONG wait;
               
                  /* Obtain the window wait signal mask.
                   */
                  GetAttr( WINDOW_SigMask, Win_Object, &signal );
                   /* Input Event Loop
                   */
                  while( !done )
                  {
                     wait = Wait(signal|SIGBREAKF_CTRL_C);
                  
                     if (wait & SIGBREAKF_CTRL_C) done = TRUE;
                     else
                      while ((result = CA_HandleInput(Win_Object,NULL)) != WMHI_LASTMSG)
                     {
                        switch(result)
                        {
                           case WMHI_CLOSEWINDOW:
                              done = TRUE;
                              break;
                        }
                     }
                  }
               }
                /* 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( Win_Object );
            }
            
            /* Dispose the images ourselves as button.gadget doesn't
             * do this for its GA_Image...
             */
            if(image2) DisposeObject(image2);
            if(image3) DisposeObject(image3);
            if(image1) DisposeObject(image1);
            
         }

         UnlockPubScreen(NULL,screen);
      }
   }

   /* Close the classes.
    */
   if (BitMapBase) CloseLibrary( (struct Library *)BitMapBase );
   if (ButtonBase) CloseLibrary( (struct Library *)ButtonBase );
   if (LayoutBase) CloseLibrary( (struct Library *)LayoutBase );
   if (WindowBase) CloseLibrary( (struct Library *)WindowBase );
   
}