git.zerfleddert.de Git - micropolis/blob - src/sim/w_date.c

   1 /* w_date.c
   2  *
   3  * Micropolis, Unix Version.  This game was released for the Unix platform
   4  * in or about 1990 and has been modified for inclusion in the One Laptop
   5  * Per Child program.  Copyright (C) 1989 - 2007 Electronic Arts Inc.  If
   6  * you need assistance with this program, you may contact:
   7  *   http://wiki.laptop.org/go/Micropolis  or email  micropolis@laptop.org.
   8  *
   9  * This program is free software: you can redistribute it and/or modify
  10  * it under the terms of the GNU General Public License as published by
  11  * the Free Software Foundation, either version 3 of the License, or (at
  12  * your option) any later version.
  13  *
  14  * This program is distributed in the hope that it will be useful, but
  15  * WITHOUT ANY WARRANTY; without even the implied warranty of
  16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  17  * General Public License for more details.  You should have received a
  18  * copy of the GNU General Public License along with this program.  If
  19  * not, see <http://www.gnu.org/licenses/>.
  20  *
  21  *             ADDITIONAL TERMS per GNU GPL Section 7
  22  *
  23  * No trademark or publicity rights are granted.  This license does NOT
  24  * give you any right, title or interest in the trademark SimCity or any
  25  * other Electronic Arts trademark.  You may not distribute any
  26  * modification of this program using the trademark SimCity or claim any
  27  * affliation or association with Electronic Arts Inc. or its employees.
  28  *
  29  * Any propagation or conveyance of this program must include this
  30  * copyright notice and these terms.
  31  *
  32  * If you convey this program (or any modifications of it) and assume
  33  * contractual liability for the program to recipients of it, you agree
  34  * to indemnify Electronic Arts for any liability that those contractual
  35  * assumptions impose on Electronic Arts.
  36  *
  37  * You may not misrepresent the origins of this program; modified
  38  * versions of the program must be marked as such and not identified as
  39  * the original program.
  40  *
  41  * This disclaimer supplements the one included in the General Public
  42  * License.  TO THE FULLEST EXTENT PERMISSIBLE UNDER APPLICABLE LAW, THIS
  43  * PROGRAM IS PROVIDED TO YOU "AS IS," WITH ALL FAULTS, WITHOUT WARRANTY
  44  * OF ANY KIND, AND YOUR USE IS AT YOUR SOLE RISK.  THE ENTIRE RISK OF
  45  * SATISFACTORY QUALITY AND PERFORMANCE RESIDES WITH YOU.  ELECTRONIC ARTS
  46  * DISCLAIMS ANY AND ALL EXPRESS, IMPLIED OR STATUTORY WARRANTIES,
  47  * INCLUDING IMPLIED WARRANTIES OF MERCHANTABILITY, SATISFACTORY QUALITY,
  48  * FITNESS FOR A PARTICULAR PURPOSE, NONINFRINGEMENT OF THIRD PARTY
  49  * RIGHTS, AND WARRANTIES (IF ANY) ARISING FROM A COURSE OF DEALING,
  50  * USAGE, OR TRADE PRACTICE.  ELECTRONIC ARTS DOES NOT WARRANT AGAINST
  51  * INTERFERENCE WITH YOUR ENJOYMENT OF THE PROGRAM; THAT THE PROGRAM WILL
  52  * MEET YOUR REQUIREMENTS; THAT OPERATION OF THE PROGRAM WILL BE
  53  * UNINTERRUPTED OR ERROR-FREE, OR THAT THE PROGRAM WILL BE COMPATIBLE
  54  * WITH THIRD PARTY SOFTWARE OR THAT ANY ERRORS IN THE PROGRAM WILL BE
  55  * CORRECTED.  NO ORAL OR WRITTEN ADVICE PROVIDED BY ELECTRONIC ARTS OR
  56  * ANY AUTHORIZED REPRESENTATIVE SHALL CREATE A WARRANTY.  SOME
  57  * JURISDICTIONS DO NOT ALLOW THE EXCLUSION OF OR LIMITATIONS ON IMPLIED
  58  * WARRANTIES OR THE LIMITATIONS ON THE APPLICABLE STATUTORY RIGHTS OF A
  59  * CONSUMER, SO SOME OR ALL OF THE ABOVE EXCLUSIONS AND LIMITATIONS MAY
  60  * NOT APPLY TO YOU.
  61  */
  62 #include "sim.h"
  63
  64
  65 short NewDate = 0;
  66 Tcl_HashTable DateCmds;
  67 int DateUpdateTime = 200;
  68
  69 void DoUpdateDate(SimDate *date);
  70 void DoNewDate(SimDate *date);
  71 void DoResizeDate(SimDate *date, int w, int h);
  72 void DestroyDate(SimDate *date);
  73 void InitNewDate(SimDate *date);
  74 int ConfigureSimDate(Tcl_Interp *interp, SimDate *date,
  75                   int argc, char **argv, int flags);
  76
  77
  78 #define DEF_DATE_FONT   "-Adobe-Helvetica-Bold-R-Normal-*-140-*"
  79 #define DEF_DATE_BG_COLOR       "#b0b0b0"
  80 #define DEF_DATE_BG_MONO        "#ffffff"
  81 #define DEF_DATE_BORDER_WIDTH   "2"
  82 #define DEF_DATE_PADY           "1"
  83 #define DEF_DATE_PADX           "1"
  84 #define DEF_DATE_WIDTH          "0"
  85 #define DEF_DATE_MONTHTAB       "7"
  86 #define DEF_DATE_YEARTAB        "13"
  87
  88 Tk_ConfigSpec DateConfigSpecs[] = {
  89     {TK_CONFIG_FONT, "-font", (char *) NULL, (char *) NULL,
  90        DEF_DATE_FONT, Tk_Offset(SimDate, fontPtr), 0},
  91     {TK_CONFIG_BORDER, "-background", "background", "Background",
  92        DEF_DATE_BG_COLOR, Tk_Offset(SimDate, border),
  93        TK_CONFIG_COLOR_ONLY},
  94     {TK_CONFIG_BORDER, "-background", "background", "Background",
  95        DEF_DATE_BG_MONO, Tk_Offset(SimDate, border),
  96        TK_CONFIG_MONO_ONLY},
  97     {TK_CONFIG_PIXELS, "-borderwidth", "borderWidth", "BorderWidth",
  98        DEF_DATE_BORDER_WIDTH, Tk_Offset(SimDate, borderWidth), 0},
  99     {TK_CONFIG_PIXELS, "-padx", "padX", "Pad",
 100         DEF_DATE_PADX, Tk_Offset(SimDate, padX), 0},
 101     {TK_CONFIG_PIXELS, "-pady", "padY", "Pad",
 102         DEF_DATE_PADY, Tk_Offset(SimDate, padY), 0},
 103     {TK_CONFIG_INT, "-width", "width", "Width",
 104         DEF_DATE_WIDTH, Tk_Offset(SimDate, width), 0},
 105     {TK_CONFIG_INT, "-monthtab", "monthtab", "MonthTab",
 106         DEF_DATE_MONTHTAB, Tk_Offset(SimDate, monthTab), 0},
 107     {TK_CONFIG_INT, "-yeartab", "yeartab", "YearTab",
 108         DEF_DATE_YEARTAB, Tk_Offset(SimDate, yearTab), 0},
 109     {TK_CONFIG_END, (char *) NULL, (char *) NULL, (char *) NULL,
 110        (char *) NULL, 0, 0}
 111   };
 112
 113
 114 XDisplay *FindXDisplay();
 115
 116
 117 static void
 118 DisplaySimDate(ClientData clientData)
 119 {
 120   SimDate *date = (SimDate *) clientData;
 121   Tk_Window tkwin = date->tkwin;
 122
 123   date->flags &= ~VIEW_REDRAW_PENDING;
 124 //fprintf(stderr, "DisplaySimDate cleared VIEW_REDRAW_PENDING\n");
 125
 126   assert(date->draw_date_token != 0);
 127   if (date->draw_date_token != 0) {
 128 //    Tk_DeleteTimerHandler(date->draw_date_token);
 129     date->draw_date_token = 0;
 130   }
 131
 132   if (date->visible && (tkwin != NULL) && Tk_IsMapped(tkwin)) {
 133     DoUpdateDate(date);
 134   }
 135 }
 136
 137
 138 void
 139 DestroySimDate(ClientData clientData)
 140 {
 141   SimDate *date = (SimDate *) clientData;
 142
 143   DestroyDate(date);
 144 }
 145
 146
 147 void
 148 EventuallyRedrawDate(SimDate *date)
 149 {
 150   if (!(date->flags & VIEW_REDRAW_PENDING)) {
 151     assert(date->draw_date_token == 0);
 152     if (date->draw_date_token == 0) {
 153       date->draw_date_token =
 154         Tk_CreateTimerHandler(
 155           DateUpdateTime,
 156           DisplaySimDate,
 157           (ClientData) date);
 158       date->flags |= VIEW_REDRAW_PENDING;
 159 //fprintf(stderr, "EventuallyRedrawDate set VIEW_REDRAW_PENDING\n");
 160     }
 161   }
 162 }
 163
 164
 165 void
 166 SimDateEventProc(ClientData clientData, XEvent *eventPtr)
 167 {
 168   SimDate *date = (SimDate *) clientData;
 169
 170   if ((eventPtr->type == Expose) && (eventPtr->xexpose.count == 0)) {
 171     date->visible = 1;
 172     EventuallyRedrawDate(date);
 173   } else if (eventPtr->type == MapNotify) {
 174     date->visible = 1;
 175   } else if (eventPtr->type == UnmapNotify) {
 176     date->visible = 0;
 177   } else if (eventPtr->type == VisibilityNotify) {
 178     if (eventPtr->xvisibility.state == VisibilityFullyObscured)
 179       date->visible = 0;
 180     else
 181       date->visible = 1;
 182   } else if (eventPtr->type == ConfigureNotify) {
 183     DoResizeDate(date,
 184                   eventPtr->xconfigure.width,
 185                   eventPtr->xconfigure.height);
 186     EventuallyRedrawDate(date);
 187   } else if (eventPtr->type == DestroyNotify) {
 188     Tcl_DeleteCommand(date->interp, Tk_PathName(date->tkwin));
 189     date->tkwin = NULL;
 190     if (date->flags & VIEW_REDRAW_PENDING) {
 191       assert(date->draw_date_token != 0);
 192       if (date->draw_date_token != 0) {
 193         Tk_DeleteTimerHandler(date->draw_date_token);
 194         date->draw_date_token = 0;
 195       }
 196       date->flags &= ~VIEW_REDRAW_PENDING;
 197 //fprintf(stderr, "SimDateEventProc cleared VIEW_REDRAW_PENDING\n");
 198     }
 199    Tk_EventuallyFree((ClientData) date, DestroySimDate);
 200   }
 201 }
 202
 203
 204 static void
 205 ComputeDateGeometry(SimDate *date)
 206 {
 207     XCharStruct bbox;
 208     int dummy;
 209     unsigned int width, height;
 210     int charWidth;
 211
 212     XTextExtents(date->fontPtr, "0", 1,
 213                  &dummy, &dummy, &dummy, &bbox);
 214     charWidth = (bbox.lbearing + bbox.rbearing);
 215
 216     if (date->width == 0) {
 217       char *maxString = "Date:  MMM    1000000";
 218       int maxStringLength = strlen(maxString);
 219
 220       XTextExtents(date->fontPtr, maxString, maxStringLength,
 221                    &dummy, &dummy, &dummy, &bbox);
 222       width = bbox.lbearing + bbox.rbearing;
 223     } else {
 224       width = date->width * charWidth;
 225     }
 226
 227     height = date->fontPtr->ascent + date->fontPtr->descent;
 228
 229     width += 2 * date->padX;
 230     height += 2 * date->padY;
 231
 232     Tk_GeometryRequest(
 233         date->tkwin,
 234         (int) (width + (2 * date->borderWidth) + 2),
 235         (int) (height + (2 * date->borderWidth) + 2));
 236     Tk_SetInternalBorder(
 237         date->tkwin,
 238         date->borderWidth);
 239
 240     date->yearTabX = date->yearTab * charWidth;
 241     date->monthTabX = date->monthTab * charWidth;
 242 }
 243
 244
 245 int DateCmdconfigure(DATE_ARGS)
 246 {
 247   int result = TCL_OK;
 248
 249   if (argc == 2) {
 250     result = Tk_ConfigureInfo(interp, date->tkwin, DateConfigSpecs,
 251                               (char *) date, (char *) NULL, 0);
 252   } else if (argc == 3) {
 253     result = Tk_ConfigureInfo(interp, date->tkwin, DateConfigSpecs,
 254                               (char *) date, argv[2], 0);
 255   } else {
 256     result = ConfigureSimDate(interp, date, argc-2, argv+2,
 257                             TK_CONFIG_ARGV_ONLY);
 258   }
 259   return TCL_OK;
 260 }
 261
 262
 263 int DateCmdposition(DATE_ARGS)
 264 {
 265     if ((argc != 2) && (argc != 4)) {
 266       return TCL_ERROR;
 267     }
 268     if (argc == 4) {
 269       if ((Tcl_GetInt(interp, argv[2], &date->w_x) != TCL_OK)
 270           || (Tcl_GetInt(interp, argv[3], &date->w_y) != TCL_OK)) {
 271         return TCL_ERROR;
 272       }
 273     }
 274     sprintf(interp->result, "%d %d", date->w_x, date->w_y);
 275     return TCL_OK;
 276 }
 277
 278
 279 int DateCmdsize(DATE_ARGS)
 280 {
 281   if ((argc != 2) && (argc != 4)) {
 282     return TCL_ERROR;
 283   }
 284   if (argc == 4) {
 285     int w, h;
 286
 287     if (Tcl_GetInt(interp, argv[2], &w) != TCL_OK) {
 288       return TCL_ERROR;
 289     }
 290     if (Tcl_GetInt(interp, argv[3], &h) != TCL_OK) {
 291       return TCL_ERROR;
 292     }
 293     date->w_width = w;
 294     date->w_height = h;
 295   }
 296   sprintf(interp->result, "%d %d", date->w_width, date->w_height);
 297   return TCL_OK;
 298 }
 299
 300
 301 int DateCmdVisible(DATE_ARGS)
 302 {
 303   int visible;
 304
 305   if ((argc != 2) && (argc != 3)) {
 306     Tcl_AppendResult(interp, "wrong # args", (char *) NULL);
 307     return TCL_ERROR;
 308   }
 309
 310   if (argc == 3) {
 311     if ((Tcl_GetInt(interp, argv[2], &visible) != TCL_OK) ||
 312         (visible < 0) || (visible > 1)) {
 313       Tcl_AppendResult(interp, " bogus args", (char *) NULL);
 314       return TCL_ERROR;
 315     }
 316
 317     date->visible = visible;
 318   }
 319
 320   sprintf(interp->result, "%d", date->visible);
 321
 322   return TCL_OK;
 323 }
 324
 325
 326 int DateCmdReset(DATE_ARGS)
 327 {
 328   if (argc != 2) {
 329     Tcl_AppendResult(interp, "wrong # args", (char *) NULL);
 330     return TCL_ERROR;
 331   }
 332
 333   date->reset = 1;
 334
 335 //  ComputeDateGeometry(date); // ???
 336
 337   EventuallyRedrawDate(date);
 338
 339   return TCL_OK;
 340 }
 341
 342
 343 int DateCmdSet(DATE_ARGS)
 344 {
 345   if (argc != 4) {
 346     Tcl_AppendResult(interp, "wrong # args", (char *) NULL);
 347     return TCL_ERROR;
 348   }
 349
 350   if ((Tcl_GetInt(interp, argv[2], &date->month) != TCL_OK) ||
 351       (date->month < 0) ||
 352       (date->month >= 12)) {
 353     Tcl_AppendResult(interp, " bogus args", (char *) NULL);
 354     return TCL_ERROR;
 355   }
 356
 357   if ((Tcl_GetInt(interp, argv[3], &date->year) != TCL_OK) ||
 358       (date->year < 0)) {
 359     Tcl_AppendResult(interp, " bogus args", (char *) NULL);
 360     return TCL_ERROR;
 361   }
 362
 363 //  ComputeDateGeometry(date); // ???
 364
 365   EventuallyRedrawDate(date);
 366
 367   return TCL_OK;
 368 }
 369
 370
 371 int
 372 DoDateCmd(CLIENT_ARGS)
 373 {
 374   SimDate *date = (SimDate *) clientData;
 375   Tcl_HashEntry *ent;
 376   int result = TCL_OK;
 377   int (*cmd)();
 378
 379   if (argc < 2) {
 380     return TCL_ERROR;
 381   }
 382
 383   if ((ent = Tcl_FindHashEntry(&DateCmds, argv[1]))) {
 384     cmd = (int (*)())ent->clientData;
 385     Tk_Preserve((ClientData) date);
 386     result = cmd(date, interp, argc, argv);
 387     Tk_Release((ClientData) date);
 388   } else {
 389     Tcl_AppendResult(interp, "unknown command name: \"",
 390                      argv[0], " ", argv[1], "\".", (char *) NULL);
 391     result = TCL_ERROR;
 392   }
 393   return result;
 394 }
 395
 396
 397 int
 398 DateViewCmd(CLIENT_ARGS)
 399 {
 400   SimDate *date;
 401   Tk_Window tkwin = (Tk_Window) clientData;
 402
 403   if (argc < 2) {
 404     Tcl_AppendResult(interp, "wrong # args:  should be \"",
 405                      argv[0], " pathName ?options?\"", (char *) NULL);
 406     return TCL_ERROR;
 407   }
 408
 409   tkwin = Tk_CreateWindowFromPath(interp, tkwin,
 410                                   argv[1], (char *) NULL);
 411   if (tkwin == NULL) {
 412     return TCL_ERROR;
 413   }
 414
 415   date = (SimDate *)ckalloc(sizeof (SimDate));
 416
 417   date->tkwin = tkwin;
 418   date->interp = interp;
 419   date->flags = 0;
 420   date->reset = 1;
 421   date->month = 0;
 422   date->year = 0;
 423   date->lastmonth = 0;
 424   date->lastyear = 0;
 425
 426   Tk_SetClass(date->tkwin, "DateView");
 427   Tk_CreateEventHandler(date->tkwin,
 428                         VisibilityChangeMask |
 429                         ExposureMask |
 430                         StructureNotifyMask,
 431                         SimDateEventProc, (ClientData) date);
 432   Tcl_CreateCommand(interp, Tk_PathName(date->tkwin),
 433                     DoDateCmd, (ClientData) date, (void (*)()) NULL);
 434
 435 /*
 436   Tk_MakeWindowExist(date->tkwin);
 437 */
 438
 439   if (getenv("XSYNCHRONIZE") != NULL) {
 440     XSynchronize(Tk_Display(tkwin), 1);
 441   }
 442
 443   InitNewDate(date);
 444   DoNewDate(date);
 445
 446   if (ConfigureSimDate(interp, date, argc-2, argv+2, 0) != TCL_OK) {
 447     /* XXX: destroy date */
 448     Tk_DestroyWindow(date->tkwin);
 449     return TCL_ERROR;
 450   }
 451
 452   interp->result = Tk_PathName(date->tkwin);
 453   return TCL_OK;
 454 }
 455
 456
 457 int
 458 ConfigureSimDate(Tcl_Interp *interp, SimDate *date,
 459                   int argc, char **argv, int flags)
 460 {
 461   if (Tk_ConfigureWidget(interp, date->tkwin, DateConfigSpecs,
 462                          argc, argv, (char *) date, flags) != TCL_OK) {
 463     return TCL_ERROR;
 464   }
 465
 466   Tk_SetBackgroundFromBorder(date->tkwin, date->border);
 467
 468   ComputeDateGeometry(date);
 469
 470   EventuallyRedrawDate(date);
 471
 472   return TCL_OK;
 473 }
 474
 475
 476 void
 477 date_command_init(void)
 478 {
 479   Tcl_CreateCommand(tk_mainInterp, "dateview", DateViewCmd,
 480                     (ClientData)MainWindow, (void (*)()) NULL);
 481
 482   Tcl_InitHashTable(&DateCmds, TCL_STRING_KEYS);
 483
 484 #define DATE_CMD(name) HASHED_CMD(Date, name)
 485
 486   DATE_CMD(configure);
 487   DATE_CMD(position);
 488   DATE_CMD(size);
 489   DATE_CMD(Visible);
 490   DATE_CMD(Reset);
 491   DATE_CMD(Set);
 492 }
 493
 494
 495 void
 496 InitNewDate(SimDate *date)
 497 {
 498   date->next = NULL;
 499
 500 /* This stuff was initialized in our caller (DateCmd) */
 501 /*  date->tkwin = NULL; */
 502 /*  date->interp = NULL; */
 503 /*  date->flags = 0; */
 504
 505   date->x = NULL;
 506   date->visible = 0;
 507   date->w_x = date->w_y = 0;
 508   date->w_width = date->w_height = 0;
 509   date->pixmap = None;
 510   date->pixels = NULL;
 511   date->fontPtr = NULL;
 512   date->border = NULL;
 513   date->borderWidth = 0;
 514   date->padX = 0;
 515   date->padY = 0;
 516   date->width = 0;
 517   date->monthTab = 0;
 518   date->monthTabX = 0;
 519   date->yearTab = 0;
 520   date->yearTabX = 0;
 521   date->draw_date_token = 0;
 522   date->reset = 1;
 523   date->year = 0;
 524   date->month = 0;
 525   date->lastyear = 0;
 526   date->lastmonth = 0;
 527
 528   date->x = FindXDisplay(date->tkwin);
 529   IncRefDisplay(date->x);
 530
 531   date->pixels = date->x->pixels;
 532   date->fontPtr = NULL;
 533
 534   DoResizeDate(date, 16, 16);
 535 }
 536
 537
 538 void
 539 DestroyDate(SimDate *date)
 540 {
 541   SimDate **gp;
 542
 543   for (gp = &sim->date;
 544        (*gp) != NULL;
 545        gp = &((*gp)->next)) {
 546     if ((*gp) == date) {
 547       (*gp) = date->next;
 548       sim->dates--;
 549       break;
 550     }
 551   }
 552
 553   if (date->pixmap != None) {
 554     XFreePixmap(date->x->dpy, date->pixmap);
 555     date->pixmap = None;
 556   }
 557
 558   DecRefDisplay(date->x);
 559
 560   ckfree((char *) date);
 561 }
 562
 563
 564 void
 565 DoResizeDate(SimDate *date, int w, int h)
 566 {
 567   date->w_width = w; date->w_height = h;
 568
 569   if (date->pixmap != None) {
 570     XFreePixmap(date->x->dpy, date->pixmap);
 571     date->pixmap = None;
 572   }
 573   date->pixmap = XCreatePixmap(date->x->dpy, date->x->root,
 574                                 w, h, date->x->depth);
 575   if (date->pixmap == None) {
 576     fprintf(stderr,
 577             "Sorry, Micropolis can't create a pixmap on X display \"%s\".\n",
 578             date->x->display);
 579     sim_exit(1); // Just sets tkMustExit and ExitReturn
 580     return;
 581   }
 582 }
 583
 584
 585 void
 586 DoNewDate(SimDate *date)
 587 {
 588   sim->dates++; date->next = sim->date; sim->date = date;
 589
 590   NewDate = 1;
 591 }
 592
 593
 594 #define BORDER 1
 595
 596 void
 597 DoUpdateDate(SimDate *date)
 598 {
 599   Display *dpy;
 600   GC gc;
 601   Pixmap pm;
 602   int *pix;
 603   int w, h, x, y;
 604   int tx, ty;
 605
 606   if (!date->visible) {
 607     return;
 608   }
 609
 610   dpy = date->x->dpy;
 611   gc = date->x->gc;
 612   pm = date->pixmap;
 613   pix = date->pixels;
 614
 615   w = date->w_width;
 616   h = date->w_height;
 617
 618   XSetFont(date->x->dpy, date->x->gc, date->fontPtr->fid);
 619
 620 #if 0
 621   if (date->x->color) {
 622     XSetForeground(dpy, gc, pix[COLOR_LIGHTGRAY]);
 623   } else {
 624     XSetForeground(dpy, gc, pix[COLOR_WHITE]);
 625   }
 626 #else
 627   XSetForeground(dpy, gc, Tk_3DBorderColor(date->border)->pixel);
 628 #endif
 629
 630   XFillRectangle(dpy, pm, gc, 0, 0, w, h);
 631
 632   tx = BORDER; ty = BORDER;
 633
 634   if ((w -= (2 * BORDER)) < 1) w = 1;
 635   if ((h -= (2 * BORDER)) < 1) h = 1;
 636
 637   x = date->borderWidth + date->padX + 1;
 638   y = date->borderWidth + date->padY + date->fontPtr->ascent;
 639
 640   if (date->reset) {
 641     date->reset = 0;
 642     date->lastyear = date->year;
 643     date->lastmonth = date->month;
 644   }
 645
 646   {
 647     char *dateString = "Date:";
 648     char yearString[256];
 649     int month = date->month;
 650     int year = date->year;
 651     int lastmonth = date->lastmonth;
 652     int lastyear = date->lastyear;
 653     int yearsPassed;
 654     int monthsPassed;
 655     yearsPassed =
 656         (year - lastyear);
 657     if (yearsPassed < 0) yearsPassed = 1;
 658     if (yearsPassed > 9) yearsPassed = 9;
 659     monthsPassed =
 660       (month - lastmonth) +
 661       (12 * yearsPassed);
 662
 663     if (monthsPassed > 11) monthsPassed = 11;
 664     if (monthsPassed == 1) monthsPassed = 0;
 665     if (monthsPassed) {
 666       int m = lastmonth;
 667       int i;
 668
 669       XSetForeground(dpy, gc, pix[COLOR_DARKGRAY]);
 670
 671       for (i = 0; i < monthsPassed; i++) {
 672
 673         XDrawString(date->x->dpy, pm, date->x->gc,
 674                     x + date->monthTabX, y,
 675                     dateStr[m],
 676                     strlen(dateStr[date->month]));
 677
 678         m++;
 679         if (m == 12) m = 0;
 680       }
 681
 682       if (year != lastyear) {
 683         int yy = lastyear;
 684         if ((year - yy) > 10) {
 685           yy = year - 10;
 686         }
 687
 688         for (i = yy; i < year; i++) {
 689           sprintf(
 690             yearString,
 691             "%d",
 692             i);
 693
 694           XDrawString(date->x->dpy, pm, date->x->gc,
 695                       x + date->yearTabX, y,
 696                       yearString,
 697                       strlen(yearString));
 698         }
 699       }
 700
 701       EventuallyRedrawDate(date);
 702     }
 703
 704     date->lastmonth = month;
 705     date->lastyear = year;
 706
 707     XSetForeground(dpy, gc, pix[COLOR_BLACK]);
 708
 709     XDrawString(date->x->dpy, pm, date->x->gc,
 710                 x, y,
 711                 dateString,
 712                 strlen(dateString));
 713
 714     XDrawString(date->x->dpy, pm, date->x->gc,
 715                 x + date->monthTabX, y,
 716                 dateStr[date->month],
 717                 strlen(dateStr[date->month]));
 718
 719     sprintf(
 720       yearString,
 721       "%d",
 722       year);
 723
 724     XDrawString(date->x->dpy, pm, date->x->gc,
 725                 x + date->yearTabX, y,
 726                 yearString,
 727                 strlen(yearString));
 728   }
 729
 730   XCopyArea(date->x->dpy, date->pixmap,
 731             Tk_WindowId(date->tkwin), date->x->gc,
 732             0, 0, date->w_width, date->w_height, 0, 0);
 733 }
 734
 735