]> git.zerfleddert.de Git - micropolis/blame - src/sim/w_date.c
fix modifier problems (like NumLock) by ignoring hateMods
[micropolis] / src / sim / w_date.c
CommitLineData
6a5fa4e0
MG
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
65short NewDate = 0;
66Tcl_HashTable DateCmds;
67int DateUpdateTime = 200;
68
69
70#define DEF_DATE_FONT "-Adobe-Helvetica-Bold-R-Normal-*-140-*"
71#define DEF_DATE_BG_COLOR "#b0b0b0"
72#define DEF_DATE_BG_MONO "#ffffff"
73#define DEF_DATE_BORDER_WIDTH "2"
74#define DEF_DATE_PADY "1"
75#define DEF_DATE_PADX "1"
76#define DEF_DATE_WIDTH "0"
77#define DEF_DATE_MONTHTAB "7"
78#define DEF_DATE_YEARTAB "13"
79
80Tk_ConfigSpec DateConfigSpecs[] = {
81 {TK_CONFIG_FONT, "-font", (char *) NULL, (char *) NULL,
82 DEF_DATE_FONT, Tk_Offset(SimDate, fontPtr), 0},
83 {TK_CONFIG_BORDER, "-background", "background", "Background",
84 DEF_DATE_BG_COLOR, Tk_Offset(SimDate, border),
85 TK_CONFIG_COLOR_ONLY},
86 {TK_CONFIG_BORDER, "-background", "background", "Background",
87 DEF_DATE_BG_MONO, Tk_Offset(SimDate, border),
88 TK_CONFIG_MONO_ONLY},
89 {TK_CONFIG_PIXELS, "-borderwidth", "borderWidth", "BorderWidth",
90 DEF_DATE_BORDER_WIDTH, Tk_Offset(SimDate, borderWidth), 0},
91 {TK_CONFIG_PIXELS, "-padx", "padX", "Pad",
92 DEF_DATE_PADX, Tk_Offset(SimDate, padX), 0},
93 {TK_CONFIG_PIXELS, "-pady", "padY", "Pad",
94 DEF_DATE_PADY, Tk_Offset(SimDate, padY), 0},
95 {TK_CONFIG_INT, "-width", "width", "Width",
96 DEF_DATE_WIDTH, Tk_Offset(SimDate, width), 0},
97 {TK_CONFIG_INT, "-monthtab", "monthtab", "MonthTab",
98 DEF_DATE_MONTHTAB, Tk_Offset(SimDate, monthTab), 0},
99 {TK_CONFIG_INT, "-yeartab", "yeartab", "YearTab",
100 DEF_DATE_YEARTAB, Tk_Offset(SimDate, yearTab), 0},
101 {TK_CONFIG_END, (char *) NULL, (char *) NULL, (char *) NULL,
102 (char *) NULL, 0, 0}
103 };
104
105
106XDisplay *FindXDisplay();
107
108
109static void
110DisplaySimDate(ClientData clientData)
111{
112 SimDate *date = (SimDate *) clientData;
113 Tk_Window tkwin = date->tkwin;
114 Pixmap pm = None;
115 Drawable d;
116
117 date->flags &= ~VIEW_REDRAW_PENDING;
118//fprintf(stderr, "DisplaySimDate cleared VIEW_REDRAW_PENDING\n");
119
120 assert(date->draw_date_token != 0);
121 if (date->draw_date_token != 0) {
122// Tk_DeleteTimerHandler(date->draw_date_token);
123 date->draw_date_token = 0;
124 }
125
126 if (date->visible && (tkwin != NULL) && Tk_IsMapped(tkwin)) {
127 DoUpdateDate(date);
128 }
129}
130
131
132void
133DestroySimDate(ClientData clientData)
134{
135 SimDate *date = (SimDate *) clientData;
136
137 DestroyDate(date);
138}
139
140
141EventuallyRedrawDate(SimDate *date)
142{
143 if (!(date->flags & VIEW_REDRAW_PENDING)) {
144 assert(date->draw_date_token == 0);
145 if (date->draw_date_token == 0) {
146 date->draw_date_token =
147 Tk_CreateTimerHandler(
148 DateUpdateTime,
149 DisplaySimDate,
150 (ClientData) date);
151 date->flags |= VIEW_REDRAW_PENDING;
152//fprintf(stderr, "EventuallyRedrawDate set VIEW_REDRAW_PENDING\n");
153 }
154 }
155}
156
157
158void
159SimDateEventProc(ClientData clientData, XEvent *eventPtr)
160{
161 SimDate *date = (SimDate *) clientData;
162
163 if ((eventPtr->type == Expose) && (eventPtr->xexpose.count == 0)) {
164 date->visible = 1;
165 EventuallyRedrawDate(date);
166 } else if (eventPtr->type == MapNotify) {
167 date->visible = 1;
168 } else if (eventPtr->type == UnmapNotify) {
169 date->visible = 0;
170 } else if (eventPtr->type == VisibilityNotify) {
171 if (eventPtr->xvisibility.state == VisibilityFullyObscured)
172 date->visible = 0;
173 else
174 date->visible = 1;
175 } else if (eventPtr->type == ConfigureNotify) {
176 DoResizeDate(date,
177 eventPtr->xconfigure.width,
178 eventPtr->xconfigure.height);
179 EventuallyRedrawDate(date);
180 } else if (eventPtr->type == DestroyNotify) {
181 Tcl_DeleteCommand(date->interp, Tk_PathName(date->tkwin));
182 date->tkwin = NULL;
183 if (date->flags & VIEW_REDRAW_PENDING) {
184 assert(date->draw_date_token != 0);
185 if (date->draw_date_token != 0) {
186 Tk_DeleteTimerHandler(date->draw_date_token);
187 date->draw_date_token = 0;
188 }
189 date->flags &= ~VIEW_REDRAW_PENDING;
190//fprintf(stderr, "SimDateEventProc cleared VIEW_REDRAW_PENDING\n");
191 }
192 Tk_EventuallyFree((ClientData) date, DestroySimDate);
193 }
194}
195
196
197static void
198ComputeDateGeometry(SimDate *date)
199{
200 XCharStruct bbox;
201 int dummy;
202 unsigned int width, height;
203 int charWidth;
204
205 XTextExtents(date->fontPtr, "0", 1,
206 &dummy, &dummy, &dummy, &bbox);
207 charWidth = (bbox.lbearing + bbox.rbearing);
208
209 if (date->width == 0) {
210 char *maxString = "Date: MMM 1000000";
211 int maxStringLength = strlen(maxString);
212
213 XTextExtents(date->fontPtr, maxString, maxStringLength,
214 &dummy, &dummy, &dummy, &bbox);
215 width = bbox.lbearing + bbox.rbearing;
216 } else {
217 width = date->width * charWidth;
218 }
219
220 height = date->fontPtr->ascent + date->fontPtr->descent;
221
222 width += 2 * date->padX;
223 height += 2 * date->padY;
224
225 Tk_GeometryRequest(
226 date->tkwin,
227 (int) (width + (2 * date->borderWidth) + 2),
228 (int) (height + (2 * date->borderWidth) + 2));
229 Tk_SetInternalBorder(
230 date->tkwin,
231 date->borderWidth);
232
233 date->yearTabX = date->yearTab * charWidth;
234 date->monthTabX = date->monthTab * charWidth;
235}
236
237
238int DateCmdconfigure(DATE_ARGS)
239{
240 int result = TCL_OK;
241
242 if (argc == 2) {
243 result = Tk_ConfigureInfo(interp, date->tkwin, DateConfigSpecs,
244 (char *) date, (char *) NULL, 0);
245 } else if (argc == 3) {
246 result = Tk_ConfigureInfo(interp, date->tkwin, DateConfigSpecs,
247 (char *) date, argv[2], 0);
248 } else {
249 result = ConfigureSimDate(interp, date, argc-2, argv+2,
250 TK_CONFIG_ARGV_ONLY);
251 }
252 return TCL_OK;
253}
254
255
256int DateCmdposition(DATE_ARGS)
257{
258 int result = TCL_OK;
259
260 if ((argc != 2) && (argc != 4)) {
261 return TCL_ERROR;
262 }
263 if (argc == 4) {
264 if ((Tcl_GetInt(interp, argv[2], &date->w_x) != TCL_OK)
265 || (Tcl_GetInt(interp, argv[3], &date->w_y) != TCL_OK)) {
266 return TCL_ERROR;
267 }
268 }
269 sprintf(interp->result, "%d %d", date->w_x, date->w_y);
270 return TCL_OK;
271}
272
273
274int DateCmdsize(DATE_ARGS)
275{
276 if ((argc != 2) && (argc != 4)) {
277 return TCL_ERROR;
278 }
279 if (argc == 4) {
280 int w, h;
281
282 if (Tcl_GetInt(interp, argv[2], &w) != TCL_OK) {
283 return TCL_ERROR;
284 }
285 if (Tcl_GetInt(interp, argv[3], &h) != TCL_OK) {
286 return TCL_ERROR;
287 }
288 date->w_width = w;
289 date->w_height = h;
290 }
291 sprintf(interp->result, "%d %d", date->w_width, date->w_height);
292 return TCL_OK;
293}
294
295
296int DateCmdVisible(DATE_ARGS)
297{
298 int visible;
299
300 if ((argc != 2) && (argc != 3)) {
301 Tcl_AppendResult(interp, "wrong # args", (char *) NULL);
302 return TCL_ERROR;
303 }
304
305 if (argc == 3) {
306 if ((Tcl_GetInt(interp, argv[2], &visible) != TCL_OK) ||
307 (visible < 0) || (visible > 1)) {
308 Tcl_AppendResult(interp, " bogus args", (char *) NULL);
309 return TCL_ERROR;
310 }
311
312 date->visible = visible;
313 }
314
315 sprintf(interp->result, "%d", date->visible);
316
317 return TCL_OK;
318}
319
320
321int DateCmdReset(DATE_ARGS)
322{
323 int range;
324
325 if (argc != 2) {
326 Tcl_AppendResult(interp, "wrong # args", (char *) NULL);
327 return TCL_ERROR;
328 }
329
330 date->reset = 1;
331
332// ComputeDateGeometry(date); // ???
333
334 EventuallyRedrawDate(date);
335
336 return TCL_OK;
337}
338
339
340int DateCmdSet(DATE_ARGS)
341{
342 int range;
343
344 if (argc != 4) {
345 Tcl_AppendResult(interp, "wrong # args", (char *) NULL);
346 return TCL_ERROR;
347 }
348
349 if ((Tcl_GetInt(interp, argv[2], &date->month) != TCL_OK) ||
350 (date->month < 0) ||
351 (date->month >= 12)) {
352 Tcl_AppendResult(interp, " bogus args", (char *) NULL);
353 return TCL_ERROR;
354 }
355
356 if ((Tcl_GetInt(interp, argv[3], &date->year) != TCL_OK) ||
357 (date->year < 0)) {
358 Tcl_AppendResult(interp, " bogus args", (char *) NULL);
359 return TCL_ERROR;
360 }
361
362// ComputeDateGeometry(date); // ???
363
364 EventuallyRedrawDate(date);
365
366 return TCL_OK;
367}
368
369
370int
371DoDateCmd(CLIENT_ARGS)
372{
373 SimDate *date = (SimDate *) clientData;
374 Tcl_HashEntry *ent;
375 int result = TCL_OK;
376 int (*cmd)();
377
378 if (argc < 2) {
379 return TCL_ERROR;
380 }
381
382 if (ent = Tcl_FindHashEntry(&DateCmds, argv[1])) {
383 cmd = (int (*)())ent->clientData;
384 Tk_Preserve((ClientData) date);
385 result = cmd(date, interp, argc, argv);
386 Tk_Release((ClientData) date);
387 } else {
388 Tcl_AppendResult(interp, "unknown command name: \"",
389 argv[0], " ", argv[1], "\".", (char *) NULL);
390 result = TCL_ERROR;
391 }
392 return result;
393}
394
395
396int
397DateViewCmd(CLIENT_ARGS)
398{
399 SimDate *date;
400 Tk_Window tkwin = (Tk_Window) clientData;
401
402 if (argc < 2) {
403 Tcl_AppendResult(interp, "wrong # args: should be \"",
404 argv[0], " pathName ?options?\"", (char *) NULL);
405 return TCL_ERROR;
406 }
407
408 tkwin = Tk_CreateWindowFromPath(interp, tkwin,
409 argv[1], (char *) NULL);
410 if (tkwin == NULL) {
411 return TCL_ERROR;
412 }
413
414 date = (SimDate *)ckalloc(sizeof (SimDate));
415
416 date->tkwin = tkwin;
417 date->interp = interp;
418 date->flags = 0;
419 date->reset = 1;
420 date->month = 0;
421 date->year = 0;
422 date->lastmonth = 0;
423 date->lastyear = 0;
424
425 Tk_SetClass(date->tkwin, "DateView");
426 Tk_CreateEventHandler(date->tkwin,
427 VisibilityChangeMask |
428 ExposureMask |
429 StructureNotifyMask,
430 SimDateEventProc, (ClientData) date);
431 Tcl_CreateCommand(interp, Tk_PathName(date->tkwin),
432 DoDateCmd, (ClientData) date, (void (*)()) NULL);
433
434/*
435 Tk_MakeWindowExist(date->tkwin);
436*/
437
438 if (getenv("XSYNCHRONIZE") != NULL) {
439 XSynchronize(Tk_Display(tkwin), 1);
440 }
441
442 InitNewDate(date);
443 DoNewDate(date);
444
445 if (ConfigureSimDate(interp, date, argc-2, argv+2, 0) != TCL_OK) {
446 /* XXX: destroy date */
447 Tk_DestroyWindow(date->tkwin);
448 return TCL_ERROR;
449 }
450
451 interp->result = Tk_PathName(date->tkwin);
452 return TCL_OK;
453}
454
455
456int
457ConfigureSimDate(Tcl_Interp *interp, SimDate *date,
458 int argc, char **argv, int flags)
459{
460 if (Tk_ConfigureWidget(interp, date->tkwin, DateConfigSpecs,
461 argc, argv, (char *) date, flags) != TCL_OK) {
462 return TCL_ERROR;
463 }
464
465 Tk_SetBackgroundFromBorder(date->tkwin, date->border);
466
467 ComputeDateGeometry(date);
468
469 EventuallyRedrawDate(date);
470
471 return TCL_OK;
472}
473
474
475date_command_init()
476{
477 int new;
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
495InitNewDate(SimDate *date)
496{
497 int d = 8;
498 struct XDisplay *xd;
499
500 date->next = NULL;
501
502/* This stuff was initialized in our caller (DateCmd) */
503/* date->tkwin = NULL; */
504/* date->interp = NULL; */
505/* date->flags = 0; */
506
507 date->x = NULL;
508 date->visible = 0;
509 date->w_x = date->w_y = 0;
510 date->w_width = date->w_height = 0;
511 date->pixmap = None;
512 date->pixels = NULL;
513 date->fontPtr = NULL;
514 date->border = NULL;
515 date->borderWidth = 0;
516 date->padX = 0;
517 date->padY = 0;
518 date->width = 0;
519 date->monthTab = 0;
520 date->monthTabX = 0;
521 date->yearTab = 0;
522 date->yearTabX = 0;
523 date->draw_date_token = 0;
524 date->reset = 1;
525 date->year = 0;
526 date->month = 0;
527 date->lastyear = 0;
528 date->lastmonth = 0;
529
530 date->x = FindXDisplay(date->tkwin);
531 IncRefDisplay(date->x);
532
533 date->pixels = date->x->pixels;
534 date->fontPtr = NULL;
535
536 DoResizeDate(date, 16, 16);
537}
538
539
540DestroyDate(SimDate *date)
541{
542 SimDate **gp;
543
544 for (gp = &sim->date;
545 (*gp) != NULL;
546 gp = &((*gp)->next)) {
547 if ((*gp) == date) {
548 (*gp) = date->next;
549 sim->dates--;
550 break;
551 }
552 }
553
554 if (date->pixmap != None) {
555 XFreePixmap(date->x->dpy, date->pixmap);
556 date->pixmap = None;
557 }
558
559 DecRefDisplay(date->x);
560
561 ckfree((char *) date);
562}
563
564
565DoResizeDate(SimDate *date, int w, int h)
566{
567 int resize = 0;
568
569 date->w_width = w; date->w_height = h;
570
571 if (date->pixmap != None) {
572 XFreePixmap(date->x->dpy, date->pixmap);
573 date->pixmap = None;
574 }
575 date->pixmap = XCreatePixmap(date->x->dpy, date->x->root,
576 w, h, date->x->depth);
577 if (date->pixmap == None) {
578 fprintf(stderr,
579 "Sorry, Micropolis can't create a pixmap on X display \"%s\".\n",
580 date->x->display);
581 sim_exit(1); // Just sets tkMustExit and ExitReturn
582 return;
583 }
584}
585
586
587DoNewDate(SimDate *date)
588{
589 sim->dates++; date->next = sim->date; sim->date = date;
590
591 NewDate = 1;
592}
593
594
595#define BORDER 1
596
597DoUpdateDate(SimDate *date)
598{
599 Display *dpy;
600 GC gc;
601 Pixmap pm;
602 int *pix;
603 int w, h, i, j, x, y;
604 int tx, ty;
605 float sx, sy;
606
607 if (!date->visible) {
608 return;
609 }
610
611 dpy = date->x->dpy;
612 gc = date->x->gc;
613 pm = date->pixmap;
614 pix = date->pixels;
615
616 w = date->w_width;
617 h = date->w_height;
618
619 XSetFont(date->x->dpy, date->x->gc, date->fontPtr->fid);
620
621#if 0
622 if (date->x->color) {
623 XSetForeground(dpy, gc, pix[COLOR_LIGHTGRAY]);
624 } else {
625 XSetForeground(dpy, gc, pix[COLOR_WHITE]);
626 }
627#else
628 XSetForeground(dpy, gc, Tk_3DBorderColor(date->border)->pixel);
629#endif
630
631 XFillRectangle(dpy, pm, gc, 0, 0, w, h);
632
633 tx = BORDER; ty = BORDER;
634
635 if ((w -= (2 * BORDER)) < 1) w = 1;
636 if ((h -= (2 * BORDER)) < 1) h = 1;
637
638 x = date->borderWidth + date->padX + 1;
639 y = date->borderWidth + date->padY + date->fontPtr->ascent;
640
641 if (date->reset) {
642 date->reset = 0;
643 date->lastyear = date->year;
644 date->lastmonth = date->month;
645 }
646
647 {
648 char *dateString = "Date:";
649 char yearString[256];
650 int month = date->month;
651 int year = date->year;
652 int lastmonth = date->lastmonth;
653 int lastyear = date->lastyear;
654 int yearsPassed;
655 int monthsPassed;
656 yearsPassed =
657 (year - lastyear);
658 if (yearsPassed < 0) yearsPassed = 1;
659 if (yearsPassed > 9) yearsPassed = 9;
660 monthsPassed =
661 (month - lastmonth) +
662 (12 * yearsPassed);
663
664 if (monthsPassed > 11) monthsPassed = 11;
665 if (monthsPassed == 1) monthsPassed = 0;
666 if (monthsPassed) {
667 int m = lastmonth;
668 int i;
669
670 XSetForeground(dpy, gc, pix[COLOR_DARKGRAY]);
671
672 for (i = 0; i < monthsPassed; i++) {
673
674 XDrawString(date->x->dpy, pm, date->x->gc,
675 x + date->monthTabX, y,
676 dateStr[m],
677 strlen(dateStr[date->month]));
678
679 m++;
680 if (m == 12) m = 0;
681 }
682
683 if (year != lastyear) {
684 int yy = lastyear;
685 if ((year - yy) > 10) {
686 yy = year - 10;
687 }
688
689 for (i = yy; i < year; i++) {
690 sprintf(
691 yearString,
692 "%d",
693 i);
694
695 XDrawString(date->x->dpy, pm, date->x->gc,
696 x + date->yearTabX, y,
697 yearString,
698 strlen(yearString));
699 }
700 }
701
702 EventuallyRedrawDate(date);
703 }
704
705 date->lastmonth = month;
706 date->lastyear = year;
707
708 XSetForeground(dpy, gc, pix[COLOR_BLACK]);
709
710 XDrawString(date->x->dpy, pm, date->x->gc,
711 x, y,
712 dateString,
713 strlen(dateString));
714
715 XDrawString(date->x->dpy, pm, date->x->gc,
716 x + date->monthTabX, y,
717 dateStr[date->month],
718 strlen(dateStr[date->month]));
719
720 sprintf(
721 yearString,
722 "%d",
723 year);
724
725 XDrawString(date->x->dpy, pm, date->x->gc,
726 x + date->yearTabX, y,
727 yearString,
728 strlen(yearString));
729 }
730
731 XCopyArea(date->x->dpy, date->pixmap,
732 Tk_WindowId(date->tkwin), date->x->gc,
733 0, 0, date->w_width, date->w_height, 0, 0);
734}
735
736
Impressum, Datenschutz