workbench/demos/coolbutton.c

   1 #include <intuition/intuition.h>
   2 #include <intuition/gadgetclass.h>
   3 #include <proto/exec.h>
   4 #include <proto/intuition.h>
   5 #include <proto/graphics.h>
   6 #include <proto/cybergraphics.h>
   7
   8 /* Look in this file (compiler/coolimages/include/coolimages.h) to
   9    see which images are available in coolimages lib. */
  10
  11 #include <linklibs/coolimages.h>
  12
  13 #include <stdio.h>
  14 #include <stdlib.h>
  15 #include <string.h>
  16
  17 struct IntuitionBase    *IntuitionBase;
  18 struct GfxBase          *GfxBase;
  19 struct UtilityBase      *UtilityBase;
  20 struct Library          *CyberGfxBase;
  21
  22 static struct Window    *win;
  23 static struct Screen    *scr;
  24 static struct DrawInfo  *dri;
  25 static struct Gadget    *gad;
  26 static WORD             winwidth, winheight;
  27
  28 static void cleanup(char *msg)
  29 {
  30     if (msg) printf("coolbutton: %s\n", msg);
  31
  32     if (win)
  33     {
  34         /* It's always better to remove gadgets before closing window.
  35            You *must* do this, if you want to kill (DisposeObject) a
  36            gadget, when the window is supposed to stay open, or when
  37            the window is killed after the gadget is killed. */
  38
  39         if (gad) RemoveGadget(win, gad);
  40         CloseWindow(win);
  41     }
  42
  43     if (gad) DisposeObject((Object *)gad);
  44
  45     CleanupCoolButtonClass();
  46
  47     if (dri) FreeScreenDrawInfo(scr, dri);
  48     if (scr) UnlockPubScreen(NULL, scr);
  49
  50     if (CyberGfxBase) CloseLibrary(CyberGfxBase);
  51     if (UtilityBase) CloseLibrary((struct Library *)UtilityBase);
  52     if (GfxBase) CloseLibrary((struct Library *)GfxBase);
  53     if (IntuitionBase) CloseLibrary((struct Library *)IntuitionBase);
  54
  55     exit(0);
  56 }
  57
  58 static void openlibs(void)
  59 {
  60     /* coolimages.lib needs this 3 libraries to be open, otherwise
  61        InitCoolButtonClass() will fail and return FALSE */
  62
  63     IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library", 39);
  64     GfxBase       = (struct GfxBase *)OpenLibrary("graphics.library", 40);
  65     UtilityBase   = (struct UtilityBase *)OpenLibrary("utility.library", 39);
  66
  67     if (!IntuitionBase || !GfxBase || !UtilityBase) cleanup("Error opening library!");
  68
  69     /* cybergraphics.library is optional, but at the moment coolimages.lib has not yet support
  70        for rendering on indexed screens. So rendering will for now only work on hicolor
  71        or truecolor screens. And this requires cybergraphics.library */
  72
  73     CyberGfxBase = OpenLibrary("cybergraphics.library", 39);
  74 }
  75
  76 static void getvisual(void)
  77 {
  78     scr = LockPubScreen(NULL);
  79     if (!scr) cleanup("Can't lock pub screen!");
  80
  81     dri = GetScreenDrawInfo(scr);
  82     if (!dri) cleanup("Can't get screen drawinfo!");
  83 }
  84
  85 static void makegadget(void)
  86 {
  87     struct RastPort         temprp;
  88     const struct CoolImage  *image = &cool_switchimage;
  89     char                    *buttontext = "Hello world";
  90     WORD                    x, y, w, h, ih;
  91
  92     /* Calc. the size of the button. The coolbuttonclass for now always
  93        uses the screen font */
  94
  95     InitRastPort(&temprp);
  96     SetFont(&temprp, dri->dri_Font); /* dri_Font is screen font */
  97
  98     /* gadget width */
  99
 100     w = TextLength(&temprp, buttontext, strlen(buttontext));
 101     w += image->width;
 102     /* add some extra width */
 103     w += 20;
 104
 105     /* gadget height */
 106
 107     h  = dri->dri_Font->tf_YSize;
 108     ih = image->height;
 109
 110     if (h > ih)
 111     {
 112         /* Font is higher than image */
 113
 114         h += 6;
 115     }
 116     else
 117     {
 118         /* Image is higher than font. Add some smaller extra height */
 119         h = ih + 4;
 120     }
 121
 122     DeinitRastPort(&temprp);
 123
 124     /* Calc. inner window size */
 125
 126     winwidth  = w + 8;
 127     winheight = h + 8;
 128
 129     /* Calc. gadget pos */
 130
 131     x = scr->WBorLeft + 4;
 132     y = scr->WBorTop + scr->Font->ta_YSize + 1 + 4; /* scr->Font is the TextAttr of Screen font. I could also use dri->dri_Font->tf_YSize  */
 133
 134     /* Create gadget.
 135
 136        GA_Immediate -> want IDCMP_GADGETDOWN msgs.
 137        GA_RelVerify -> want IDCMP_GADGETUP msgs
 138     */
 139
 140     gad = (struct Gadget *)NewObject(cool_buttonclass, NULL, GA_Left         , x                ,
 141                                                              GA_Top          , y                ,
 142                                                              GA_Width        , w                ,
 143                                                              GA_Height       , h                ,
 144                                                              GA_Text         , (IPTR)buttontext ,
 145                                                              GA_Immediate    , TRUE             ,
 146                                                              GA_RelVerify    , TRUE             ,
 147                                                              COOLBT_CoolImage, (IPTR)image      ,
 148                                                              TAG_DONE);
 149
 150     if (!gad) cleanup("Can't create gadget!");
 151 }
 152
 153 static void makewin(void)
 154 {
 155     /* Make window. Gadget is directly specified with WA_Gadgets. If
 156        we wanted to add the gadget after the window is created:
 157
 158        AddGadget(win, gad, -1);
 159        RefreshGList(gad, win, NULL, 1);
 160     */
 161
 162     win = OpenWindowTags(NULL, WA_PubScreen     , (IPTR)scr             ,
 163                                WA_Title         , (IPTR)"Cool Button"           ,
 164                                WA_InnerWidth    , winwidth              ,
 165                                WA_InnerHeight   , winheight             ,
 166                                WA_CloseGadget   , TRUE                  ,
 167                                WA_DragBar       , TRUE                  ,
 168                                WA_DepthGadget   , TRUE                  ,
 169                                WA_Activate      , TRUE                  ,
 170                                WA_IDCMP         , IDCMP_CLOSEWINDOW |
 171                                                   IDCMP_GADGETUP    |
 172                                                   IDCMP_GADGETDOWN      ,
 173                                WA_Gadgets       , (IPTR)gad             ,
 174                                TAG_DONE);
 175
 176     if (!win) cleanup("Error creating window!");
 177 }
 178
 179
 180 static void handleall(void)
 181 {
 182     struct IntuiMessage *msg;
 183     BOOL                quitme = FALSE;
 184
 185     while (!quitme)
 186     {
 187         WaitPort(win->UserPort);
 188
 189         /* If you have also gadtools gadgets in your window, you would
 190            use GT_GetIMsg/GT_ReplyIMsg */
 191
 192         while ((msg = (struct IntuiMessage *)GetMsg(win->UserPort)))
 193         {
 194             switch (msg->Class)
 195             {
 196                 case IDCMP_CLOSEWINDOW:
 197                     quitme = TRUE;
 198                     break;
 199
 200                 case IDCMP_GADGETDOWN:
 201                     printf("Button clicked\n");
 202                     break;
 203
 204                 case IDCMP_GADGETUP:
 205                     printf("Button released\n");
 206                     break;
 207             }
 208
 209             ReplyMsg((struct Message *)msg);
 210         }
 211     }
 212 }
 213
 214 int main(void)
 215 {
 216     openlibs();
 217     getvisual();
 218
 219     if (!InitCoolButtonClass(CyberGfxBase))
 220     {
 221         cleanup("Can't init cool button class!");
 222     }
 223
 224     makegadget();
 225     makewin();
 226     handleall();
 227     cleanup(NULL);
 228
 229     return 0;
 230 }
 231