data/qcsrc/menu/voret/dialog_credits.c

   1 #ifdef INTERFACE\r
   2 CLASS(VoretCreditsDialog) EXTENDS(VoretDialog)\r
   3         METHOD(VoretCreditsDialog, fill, void(entity))\r
   4         METHOD(VoretCreditsDialog, focusEnter, void(entity))\r
   5         ATTRIB(VoretCreditsDialog, title, string, "Credits")\r
   6         ATTRIB(VoretCreditsDialog, color, vector, SKINCOLOR_DIALOG_CREDITS)\r
   7         ATTRIB(VoretCreditsDialog, intendedWidth, float, SKINWIDTH_CREDITS)\r
   8         ATTRIB(VoretCreditsDialog, rows, float, SKINROWS_CREDITS)\r
   9         ATTRIB(VoretCreditsDialog, columns, float, 2)\r
  10         ATTRIB(VoretCreditsDialog, creditsList, entity, NULL)\r
  11 ENDCLASS(VoretCreditsDialog)\r
  12 #endif\r
  13 \r
  14 #ifdef IMPLEMENTATION\r
  15 void fillVoretCreditsDialog(entity me)\r
  16 {\r
  17         entity e;\r
  18         me.TR(me);\r
  19                 me.TD(me, me.rows - 1, me.columns, me.creditsList = makeVoretCreditsList());\r
  20         me.gotoRC(me, me.rows - 1, 0);\r
  21                 me.TD(me, 1, me.columns, e = makeVoretButton("OK", '0 0 0'));\r
  22                         e.onClick = Dialog_Close;\r
  23                         e.onClickEntity = me;\r
  24 }\r
  25 void focusEnterVoretCreditsDialog(entity me)\r
  26 {\r
  27         me.creditsList.scrolling = time + 1;\r
  28 }\r
  29 #endif\r