WINGs/wframe.c

   1
   2 #include "WINGsP.h"
   3
   4
   5 typedef struct W_Frame {
   6     W_Class widgetClass;
   7     W_View *view;
   8
   9     char *caption;
  10
  11
  12     struct {
  13         WMReliefType relief:3;
  14         WMTitlePosition titlePosition:3;
  15     } flags;
  16 } Frame;
  17
  18
  19
  20 struct W_ViewProcedureTable _FrameViewProcedures = {
  21         NULL,
  22         NULL,
  23         NULL
  24 };
  25
  26
  27 #define DEFAULT_RELIEF  WRGroove
  28 #define DEFAULT_TITLE_POSITION  WTPAtTop
  29 #define DEFAULT_WIDTH           40
  30 #define DEFAULT_HEIGHT          40
  31
  32
  33 static void destroyFrame(Frame *fPtr);
  34 static void paintFrame(Frame *fPtr);
  35
  36
  37
  38 void
  39 WMSetFrameTitlePosition(WMFrame *fPtr, WMTitlePosition position)
  40 {
  41     fPtr->flags.titlePosition = position;
  42
  43    if (fPtr->view->flags.realized) {
  44         paintFrame(fPtr);
  45     }
  46 }
  47
  48
  49 void
  50 WMSetFrameRelief(WMFrame *fPtr, WMReliefType relief)
  51 {
  52     fPtr->flags.relief = relief;
  53
  54    if (fPtr->view->flags.realized) {
  55         paintFrame(fPtr);
  56     }
  57 }
  58
  59
  60 void
  61 WMSetFrameTitle(WMFrame *fPtr, char *title)
  62 {
  63     if (fPtr->caption)
  64         free(fPtr->caption);
  65     if (title)
  66         fPtr->caption = wstrdup(title);
  67     else
  68         fPtr->caption = NULL;
  69
  70    if (fPtr->view->flags.realized) {
  71         paintFrame(fPtr);
  72     }
  73 }
  74
  75
  76 static void
  77 paintFrame(Frame *fPtr)
  78 {
  79     W_View *view = fPtr->view;
  80     W_Screen *scrPtr = view->screen;
  81     int tx, ty, tw, th;
  82     int fy, fh;
  83
  84     if (fPtr->caption!=NULL)
  85         th = scrPtr->normalFont->height;
  86     else {
  87         th = 0;
  88     }
  89
  90     fh = view->size.height;
  91     fy = 0;
  92
  93     switch (fPtr->flags.titlePosition) {
  94      case WTPAboveTop:
  95         ty = 0;
  96         fy = th + 4;
  97         fh = view->size.height - fy;
  98         break;
  99
 100      case WTPAtTop:
 101         ty = 0;
 102         fy = th/2;
 103         fh = view->size.height - fy;
 104         break;
 105
 106      case WTPBelowTop:
 107         ty = 4;
 108         fy = 0;
 109         fh = view->size.height;
 110         break;
 111
 112      case WTPAboveBottom:
 113         ty = view->size.height - th - 4;
 114         fy = 0;
 115         fh = view->size.height;
 116         break;
 117
 118      case WTPAtBottom:
 119         ty = view->size.height - th;
 120         fy = 0;
 121         fh = view->size.height - th/2;
 122         break;
 123
 124      case WTPBelowBottom:
 125         ty = view->size.height - th;
 126         fy = 0;
 127         fh = view->size.height - th - 4;
 128         break;
 129
 130      default:
 131         ty = 0;
 132         fy = 0;
 133         fh = view->size.height;
 134     }
 135 /*
 136     XClearArea(scrPtr->display, view->window, fy+2, 2, fh-4, view->size.width-4,
 137                False);
 138  */
 139     XClearWindow(scrPtr->display, view->window);
 140
 141     W_DrawRelief(scrPtr, view->window, 0, fy, view->size.width, fh,
 142                  fPtr->flags.relief);
 143
 144     if (fPtr->caption!=NULL && fPtr->flags.titlePosition!=WTPNoTitle) {
 145
 146
 147         tw = WMWidthOfString(scrPtr->normalFont, fPtr->caption,
 148                          strlen(fPtr->caption));
 149
 150         tx = (view->size.width - tw) / 2;
 151
 152         XFillRectangle(scrPtr->display, view->window, W_GC(scrPtr->gray),
 153                        tx, ty, tw, th);
 154
 155         WMDrawString(scrPtr, view->window, W_GC(scrPtr->black),
 156                      scrPtr->normalFont, tx, ty, fPtr->caption,
 157                      strlen(fPtr->caption));
 158     }
 159 }
 160
 161
 162
 163
 164
 165 static void
 166 handleEvents(XEvent *event, void *data)
 167 {
 168     Frame *fPtr = (Frame*)data;
 169
 170     CHECK_CLASS(data, WC_Frame);
 171
 172     switch (event->type) {
 173      case Expose:
 174         if (event->xexpose.count!=0)
 175             break;
 176         paintFrame(fPtr);
 177         break;
 178
 179      case DestroyNotify:
 180         destroyFrame(fPtr);
 181         break;
 182     }
 183 }
 184
 185
 186 WMFrame*
 187 WMCreateFrame(WMWidget *parent)
 188 {
 189     Frame *fPtr;
 190
 191     fPtr = wmalloc(sizeof(Frame));
 192     memset(fPtr, 0, sizeof(Frame));
 193
 194     fPtr->widgetClass = WC_Frame;
 195
 196     fPtr->view = W_CreateView(W_VIEW(parent));
 197     if (!fPtr->view) {
 198         free(fPtr);
 199         return NULL;
 200     }
 201     fPtr->view->self = fPtr;
 202
 203     WMCreateEventHandler(fPtr->view, ExposureMask|StructureNotifyMask,
 204                          handleEvents, fPtr);
 205
 206
 207     fPtr->flags.relief = DEFAULT_RELIEF;
 208     fPtr->flags.titlePosition = DEFAULT_TITLE_POSITION;
 209
 210     WMResizeWidget(fPtr, DEFAULT_WIDTH, DEFAULT_HEIGHT);
 211
 212     return fPtr;
 213 }
 214
 215
 216 static void
 217 destroyFrame(Frame *fPtr)
 218 {
 219     if (fPtr->caption)
 220         free(fPtr->caption);
 221
 222     free(fPtr);
 223 }