rosapps/dflat32/watch.c

   1 /* ----------- watch.c ----------- */
   2
   3 #include "dflat.h"
   4
   5 int WatchIconProc(DFWINDOW wnd, DFMESSAGE msg, PARAM p1, PARAM p2)
   6 {
   7     int rtn;
   8     switch (msg)    {
   9         case CREATE_WINDOW:
  10             rtn = DefaultWndProc(wnd, msg, p1, p2);
  11             DfSendMessage(wnd, CAPTURE_MOUSE, 0, 0);
  12             DfSendMessage(wnd, CAPTURE_KEYBOARD, 0, 0);
  13             return rtn;
  14         case PAINT:
  15             SetStandardColor(wnd);
  16             writeline(wnd, " R ", 1, 1, FALSE);
  17             return TRUE;
  18         case BORDER:
  19             rtn = DefaultWndProc(wnd, msg, p1, p2);
  20             writeline(wnd, "Í", 2, 0, FALSE);
  21             return rtn;
  22         case MOUSE_MOVED:
  23             DfSendMessage(wnd, DFM_HIDE_WINDOW, 0, 0);
  24             DfSendMessage(wnd, MOVE, p1, p2);
  25             DfSendMessage(wnd, SHOW_WINDOW, 0, 0);
  26             return TRUE;
  27         case CLOSE_WINDOW:
  28             DfSendMessage(wnd, RELEASE_MOUSE, 0, 0);
  29             DfSendMessage(wnd, RELEASE_KEYBOARD, 0, 0);
  30             break;
  31         default:
  32             break;
  33     }
  34     return DefaultWndProc(wnd, msg, p1, p2);
  35 }
  36
  37 DFWINDOW WatchIcon(void)
  38 {
  39     int mx, my;
  40     DFWINDOW wnd;
  41
  42 /* this won't work !! */
  43 //    DfSendMessage(NULL, DFM_CURRENT_MOUSE_CURSOR,
  44 //                        (PARAM) &mx, (PARAM) &my);
  45
  46     mx = 0;//SCREENWIDTH / 2;
  47     mx = 0;//SCREENHEIGHT / 2;
  48     wnd = DfCreateWindow(
  49                     BOX,
  50                     NULL,
  51                     mx, my, 3, 5,
  52                     NULL,NULL,
  53                     WatchIconProc,
  54                     VISIBLE | HASBORDER | SHADOW | SAVESELF);
  55     return wnd;
  56 }
  57
  58 /* EOF */