/* 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;
   Object *But_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_OffsetX, 0,
            BITMAP_OffsetY, 0,
            BITMAP_Width, 577,
            BITMAP_Height, 30,
            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,1996 ClassAct Development Team..",
               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,

                  /* Add a button with its imagery read from two
                   * transparent GIF files. BITMAP_Masking,TRUE will
                   * make the imagery appear transparent.
                   */
                  StartMember, But_Object = ButtonObject,
                     GA_ReadOnly, TRUE,
                     GA_Image,image2=BitMapObject,
                        BITMAP_BitMap,bitmap,
                        BITMAP_OffsetX,0,
                        BITMAP_OffsetY,0,
                        BITMAP_Width,120,
                        BITMAP_Height,30,
                        BITMAP_SelectBitMap,bitmap,
                        BITMAP_SelectOffsetX,30,
                        BITMAP_SelectOffsetY,0,
                        BITMAP_SelectWidth,120,
                        BITMAP_SelectHeight,30,
                        BITMAP_Masking,TRUE,
                      EndImage,
                  EndMember,
                  CHILD_WeightedWidth, 0,
                  CHILD_WeightedHeight, 0,

               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 )
                  {
					 SetAttrs(image2, BITMAP_OffsetX, 32, TAG_END);

                     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 );
   
}