?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
revert between 56095 -> 55830 in arch
[AROS.git] / workbench / classes / zune / calendar / calendar.c
blobe9fa9071d741cb8abc642eb9b7609346309f585a
1 /*
2 Copyright © 1995-2011, The AROS Development Team. All rights reserved.
3 $Id$
4 */
5
6 #include <utility/date.h>
7 #include <libraries/mui.h>
8
9 #include <proto/alib.h>
10 #include <proto/muimaster.h>
11 #include <proto/graphics.h>
12 #include <proto/intuition.h>
13 #include <proto/utility.h>
14 #include <proto/locale.h>
15 #include <proto/timer.h>
16
17 #include <aros/debug.h>
18 #include <aros/asmcall.h>
19
20 #include <string.h>
21 #include <stdio.h>
22
23 #include "calendar.h"
24 #include "calendar_private.h"
25
26 #define CELL_EXTRAWIDTH 6
27 #define CELL_EXTRAHEIGHT 4
28
29 STRPTR def_daylabels[] =
30 {
31 "Sun",
32 "Mon",
33 "Tue",
34 "Wed",
35 "Thu",
36 "Fri",
37 "Sat"
38 };
39
40 /*** Methods ****************************************************************/
41
42 IPTR Calendar__OM_NEW(Class *cl, Object *obj, struct opSet *msg)
43 {
44 struct Calendar_DATA *data;
45 struct TagItem *ti;
46
47 obj = (Object *)DoSuperMethodA(cl, obj, (Msg)msg);
48 if (!obj) return 0;
49
50 data = INST_DATA(cl, obj);
51
52 data->daylabels = (CONST_STRPTR *)GetTagData(MUIA_Calendar_DayLabels, 0, msg->ops_AttrList);
53 if (!data->daylabels)
54 {
55 struct Locale *locale;
56 WORD i;
57
58 locale = LocaleBase ? OpenLocale(NULL) : NULL;
59
60 data->daylabels = data->defdaylabels;
61 for(i = 0; i < 7; i++)
62 {
63 if (locale)
64 {
65 data->defdaylabels[i] = GetLocaleStr(locale, ABDAY_1 + i);
66 data->firstweekday = locale->loc_CalendarType;
67 }
68 else
69 {
70 data->defdaylabels[i] = def_daylabels[i];
71 data->firstweekday = 0;
72 }
73 }
74
75 if (locale) CloseLocale(locale);
76 }
77
78 if ((ti = FindTagItem(MUIA_Calendar_Date, msg->ops_AttrList)))
79 {
80 struct ClockData *cd = (struct ClockData *)ti->ti_Data;
81
82 data->clockdata = *cd;
83 }
84 else
85 {
86 struct timeval tv;
87
88 GetSysTime(&tv);
89 Amiga2Date(tv.tv_secs, &data->clockdata);
90 }
91
92 data->ehn.ehn_Events = IDCMP_MOUSEBUTTONS | IDCMP_RAWKEY;
93 data->ehn.ehn_Priority = 0;
94 data->ehn.ehn_Flags = 0;
95 data->ehn.ehn_Object = obj;
96 data->ehn.ehn_Class = cl;
97
98 return (IPTR)obj;
99 }
100
101
102 IPTR Calendar__OM_DISPOSE(Class *cl, Object *obj, Msg msg)
103 {
104 return DoSuperMethodA(cl, obj, msg);
105 }
106
107 LONG NumMonthDays(struct ClockData *cd)
108 {
109 struct ClockData cd2;
110 ULONG secs;
111 LONG monthday = 28;
112
113 cd2 = *cd;
114
115 while(monthday < 32)
116 {
117 cd2.mday = monthday;
118
119 secs = Date2Amiga(&cd2);
120 secs += 24 * 60 * 60; /* day++ */
121
122 Amiga2Date(secs, &cd2);
123
124 if (cd2.month != cd->month) break;
125
126 monthday++;
127 }
128
129 return monthday;
130 }
131
132 IPTR Calendar__OM_SET(Class *cl, Object *obj, struct opSet *msg)
133 {
134 struct Calendar_DATA *data = INST_DATA(cl, obj);
135 struct ClockData old_clockdata;
136 struct TagItem *tags = msg->ops_AttrList;
137 struct TagItem *tag;
138 BOOL redraw = FALSE;
139
140 old_clockdata = data->clockdata;
141
142 while ((tag = NextTagItem(&tags)) != NULL)
143 {
144 switch(tag->ti_Tag)
145 {
146 case MUIA_Calendar_Date:
147 data->clockdata = *(struct ClockData *)tag->ti_Data;
148 redraw = TRUE;
149 break;
150
151 case MUIA_Calendar_Year:
152 data->clockdata.year = tag->ti_Data;
153 redraw = TRUE;
154 break;
155
156 case MUIA_Calendar_Month:
157 data->clockdata.month = tag->ti_Data;
158 redraw = TRUE;
159 break;
160
161 case MUIA_Calendar_Month0:
162 data->clockdata.month = tag->ti_Data + 1;
163 redraw = TRUE;
164 break;
165
166 case MUIA_Calendar_MonthDay:
167 data->clockdata.mday = tag->ti_Data;
168 redraw = TRUE;
169 break;
170
171 case MUIA_Calendar_MonthDay0:
172 data->clockdata.mday = tag->ti_Data + 1;
173 redraw = TRUE;
174 break;
175
176 } /* switch(tag->ti_Tag) */
177
178 } /* while ((tag = NextTagItem(&tags)) != NULL) */
179
180 if (redraw)
181 {
182 struct ClockData cd2;
183 ULONG secs;
184
185 cd2 = data->clockdata;
186 cd2.mday = 1;
187
188 if (data->clockdata.mday > NumMonthDays(&cd2))
189 {
190 data->clockdata.mday = NumMonthDays(&cd2);
191 }
192
193 secs = Date2Amiga(&data->clockdata);
194
195 Amiga2Date(secs, &data->clockdata);
196
197 if ((data->clockdata.year != old_clockdata.year) ||
198 (data->clockdata.month != old_clockdata.month) ||
199 (data->clockdata.mday != old_clockdata.mday))
200 {
201 if ((data->clockdata.year == old_clockdata.year) &&
202 (data->clockdata.month == old_clockdata.month))
203 {
204 data->old_mday = old_clockdata.mday;
205 }
206 MUI_Redraw(obj, MADF_DRAWUPDATE);
207 data->old_mday = 0;
208 }
209 }
210
211 return DoSuperMethodA(cl, obj, (Msg)msg);
212 }
213
214
215 IPTR Calendar__OM_GET(Class *cl, Object *obj, struct opGet *msg)
216 {
217 struct Calendar_DATA *data = INST_DATA(cl, obj);
218 IPTR retval = TRUE;
219
220 switch(msg->opg_AttrID)
221 {
222 case MUIA_Calendar_Date:
223 *(struct ClockData **)msg->opg_Storage = &data->clockdata;
224 break;
225
226 case MUIA_Calendar_MonthDay:
227 *msg->opg_Storage = data->clockdata.mday;
228 break;
229
230 case MUIA_Calendar_MonthDay0:
231 *msg->opg_Storage = data->clockdata.mday - 1;
232 break;
233
234 case MUIA_Calendar_Month:
235 *msg->opg_Storage = data->clockdata.month;
236 break;
237
238 case MUIA_Calendar_Month0:
239 *msg->opg_Storage = data->clockdata.month - 1;
240 break;
241
242 case MUIA_Calendar_Year:
243 *msg->opg_Storage = data->clockdata.year;
244 break;
245
246 default:
247 retval = DoSuperMethodA(cl, obj, (Msg)msg);
248 break;
249
250 }
251
252 return retval;
253 }
254
255
256 IPTR Calendar__MUIM_Setup(Class *cl, Object *obj, struct MUIP_Setup *msg)
257 {
258 struct Calendar_DATA *data = INST_DATA(cl, obj);
259 struct RastPort rp;
260 WORD i, w;
261
262 if (!DoSuperMethodA(cl, obj, (Msg)msg)) return FALSE;
263
264 InitRastPort(&rp);
265 SetFont(&rp, _font(obj));
266
267 data->cellheight = _font(obj)->tf_YSize + CELL_EXTRAHEIGHT;
268
269 SetSoftStyle(&rp, FSF_BOLD, AskSoftStyle(&rp));
270
271 for(i = 0; i < 7; i++)
272 {
273 w = TextLength(&rp, data->daylabels[i], strlen(data->daylabels[i]));
274 if (w > data->cellwidth) data->cellwidth = w;
275 }
276
277 SetSoftStyle(&rp, FS_NORMAL, AskSoftStyle(&rp));
278
279 for(i = 1; i <= 31; i++)
280 {
281 char s[3];
282
283 sprintf(s, "%d", i);
284
285 w = TextLength(&rp, s, strlen(s));
286 if (w > data->cellwidth) data->cellwidth = w;
287 }
288
289 data->cellwidth += CELL_EXTRAWIDTH;
290
291 data->base_cellwidth = data->cellwidth;
292 data->base_cellheight = data->cellheight;
293
294 DoMethod(_win(obj), MUIM_Window_AddEventHandler, (IPTR) &data->ehn);
295
296 return TRUE;
297 }
298
299
300 IPTR Calendar__MUIM_Cleanup(Class *cl, Object *obj, struct MUIP_Cleanup *msg)
301 {
302 struct Calendar_DATA *data = INST_DATA(cl, obj);
303
304 DoMethod(_win(obj), MUIM_Window_RemEventHandler, (IPTR) &data->ehn);
305
306 return DoSuperMethodA(cl, obj, (Msg)msg);
307 }
308
309
310 IPTR Calendar__MUIM_AskMinMax(Class *cl, Object *obj, struct MUIP_AskMinMax *msg)
311 {
312 struct Calendar_DATA *data = INST_DATA(cl, obj);
313
314 DoSuperMethodA(cl, obj, (Msg)msg);
315
316 msg->MinMaxInfo->MinWidth += data->cellwidth * 7 + 2;
317 msg->MinMaxInfo->MinHeight += data->cellheight * 7 + 1;
318 msg->MinMaxInfo->DefWidth += data->cellwidth * 7 + 2;
319 msg->MinMaxInfo->DefHeight += data->cellheight * 7 + 1;
320 msg->MinMaxInfo->MaxWidth = MUI_MAXMAX;
321 msg->MinMaxInfo->MaxHeight = MUI_MAXMAX;
322
323
324 return TRUE;
325 }
326
327
328 IPTR Calendar__MUIM_Draw(Class *cl, Object *obj, struct MUIP_Draw *msg)
329 {
330 struct Calendar_DATA *data = INST_DATA(cl, obj);
331 struct Region *region;
332 struct Rectangle rect;
333 APTR clip = NULL;
334 WORD x, y, offx, offy, day, mdays;
335
336 x = (_mwidth(obj) - 2) / 7;
337 y = x * data->base_cellheight / data->base_cellwidth;
338
339 data->cellheight = (_mheight(obj) - 1) / 7;
340 data->cellwidth = data->cellheight * data->base_cellwidth / data->base_cellheight;
341
342 if ((data->cellwidth > x) || (data->cellheight > y))
343 {
344 data->cellwidth = x;
345 data->cellheight = y;
346 }
347
348 offx = _mleft(obj) + (_mwidth(obj) - data->cellwidth * 7 - 2) / 2 + 1;
349 offy = _mtop(obj) + (_mheight(obj) - data->cellheight * 7 - 1) / 2;
350
351 region = NewRegion();
352 if (region)
353 {
354 rect.MinX = _left(obj);
355 rect.MinY = _top(obj);
356 rect.MaxX = _right(obj);
357 rect.MaxY = _bottom(obj);
358
359 OrRectRegion(region, &rect);
360
361 rect.MinX = offx - 1;
362 rect.MinY = offy;
363 rect.MaxX = offx + data->cellwidth * 7;
364 rect.MaxY = offy + data->cellheight * 7;
365
366 ClearRectRegion(region, &rect);
367
368 clip = MUI_AddClipRegion(muiRenderInfo(obj), region);
369 }
370
371 DoSuperMethodA(cl, obj, (Msg)msg);
372
373 if (region)
374 {
375 MUI_RemoveClipRegion(muiRenderInfo(obj), clip);
376 }
377
378 if (!(msg->flags & (MADF_DRAWOBJECT | MADF_DRAWUPDATE))) return 0;
379
380 data->mwday =
381 (data->clockdata.wday - (data->clockdata.mday - 1) % 7 + 7) % 7;
382
383 mdays = NumMonthDays(&data->clockdata);
384
385 //kprintf("actdate = %d.%d.%d wday = %d\n", data->clockdata.mday, data->clockdata.month, data->clockdata.year, data->clockdata.wday);
386
387 //kprintf("mwday = %d mdays = %d\n", data->mwday, mdays);
388
389 day = data->firstweekday - data->mwday + 1 - 7;
390 if (day > -6) day -= 7;
391
392 SetFont(_rp(obj), _font(obj));
393 SetDrMd(_rp(obj), JAM1);
394
395 if (!(msg->flags & MADF_DRAWUPDATE))
396 {
397 SetAPen(_rp(obj), _dri(obj)->dri_Pens[SHADOWPEN]);
398 Move(_rp(obj), offx - 1,
399 offy);
400 Draw(_rp(obj), offx - 1,
401 offy + data->cellheight * 7);
402 Draw(_rp(obj), offx + data->cellwidth * 7,
403 offy + data->cellheight * 7);
404 Draw(_rp(obj), offx + data->cellwidth * 7,
405 offy);
406 }
407
408 for(y = 0; y < 7; y++)
409 {
410 if (!y && (msg->flags & MADF_DRAWUPDATE))
411 {
412 day += 7;
413 continue;
414 }
415
416 for(x = 0; x < 7; x++)
417 {
418 CONST_STRPTR text;
419 UBYTE buf[7];
420
421 if (data->old_mday && (day != data->old_mday) && (day != data->clockdata.mday))
422 {
423 day++;
424 continue;
425 }
426
427 text = NULL;
428 if (day == data->clockdata.mday)
429 {
430 SetAPen(_rp(obj), _pens(obj)[MPEN_FILL]);
431 }
432 else
433 {
434 SetAPen(_rp(obj), _dri(obj)->dri_Pens[y ? SHINEPEN : SHADOWPEN]);
435 }
436
437 RectFill(_rp(obj), x * data->cellwidth + 1 + offx,
438 y * data->cellheight + 1 + offy,
439 x * data->cellwidth + data->cellwidth - 2 + offx,
440 y * data->cellheight + data->cellheight - 2 + offy);
441
442 SetAPen(_rp(obj), _dri(obj)->dri_Pens[SHADOWPEN]);
443 Move(_rp(obj), x * data->cellwidth + offx,
444 y * data->cellheight + offy);
445 Draw(_rp(obj), x * data->cellwidth + data->cellwidth - 1 + offx,
446 y * data->cellheight + offy);
447 Draw(_rp(obj), x * data->cellwidth + data->cellwidth - 1 + offx,
448 y * data->cellheight + data->cellheight - 1 + offy);
449 Draw(_rp(obj), x * data->cellwidth + offx,
450 y * data->cellheight + data->cellheight - 1 + offy);
451 Draw(_rp(obj), x * data->cellwidth + offx,
452 y * data->cellheight + offy);
453
454 if (y > 0)
455 {
456 if ((day >= 1) && (day <= mdays))
457 {
458 sprintf(buf, "%d", day);
459 SetSoftStyle(_rp(obj), FS_NORMAL, AskSoftStyle(_rp(obj)));
460 SetAPen(_rp(obj), _dri(obj)->dri_Pens[day == data->clockdata.mday ? SHADOWPEN : FILLTEXTPEN]);
461 text = buf;
462 }
463 }
464 else
465 {
466 SetSoftStyle(_rp(obj), FSF_BOLD, AskSoftStyle(_rp(obj)));
467 SetAPen(_rp(obj), _dri(obj)->dri_Pens[SHINEPEN]);
468
469 text = data->daylabels[(x + data->firstweekday) % 7];
470 }
471
472 if (text)
473 {
474 WORD tx, ty, tw;
475
476 tw = TextLength(_rp(obj), text, strlen(text));
477 tx = offx + x * data->cellwidth + (data->cellwidth - tw) / 2;
478 ty = offy + y * data->cellheight + (data->cellheight - _font(obj)->tf_YSize) / 2;
479
480 Move(_rp(obj), tx, ty + _font(obj)->tf_Baseline);
481 Text(_rp(obj), text, strlen(text));
482 }
483
484 day++;
485
486 } /* for(x = 0; x < 7; x++) */
487
488 } /* for(y = 0; y < 7; y++) */
489
490 return 0;
491 }
492
493
494 static WORD DayUnderMouse(Object *obj, struct Calendar_DATA *data, struct IntuiMessage *imsg)
495 {
496 WORD x, y, offx, offy, i;
497
498 offx = (_mwidth(obj) - data->cellwidth * 7 - 2) / 2 + 1;
499 offy = (_mheight(obj) - data->cellheight * 7 - 1) / 2 + data->cellheight;
500
501 x = imsg->MouseX - _mleft(obj) - offx;
502 y = imsg->MouseY - _mtop(obj) - offy;
503
504 if (x < 0) x = 0;
505 if (y < 0) y = 0;
506 if (x >= data->cellwidth * 7) x = data->cellwidth * 7 - 1;
507 if (y >= data->cellheight * 6) y = data->cellheight * 6 - 1;
508
509 x /= data->cellwidth;
510 y /= data->cellheight;
511
512 i = data->firstweekday - data->mwday + 1;
513 if (i > 1) i -= 7;
514
515 i += y * 7 + x;
516
517 if (i < 1)
518 {
519 i = 1;
520 }
521 else if (i > NumMonthDays(&data->clockdata))
522 {
523 i = NumMonthDays(&data->clockdata);
524 }
525
526 return i;
527 }
528
529
530 #define _between(a,x,b) ((x)>=(a) && (x)<=(b))
531
532
533 IPTR Calendar__MUIM_HandleEvent(Class *cl, Object *obj, struct MUIP_HandleEvent *msg)
534 {
535 struct Calendar_DATA *data = INST_DATA(cl, obj);
536
537 if (msg->muikey != MUIKEY_NONE)
538 {
539 UWORD day = data->clockdata.mday;
540
541 switch(msg->muikey)
542 {
543 case MUIKEY_LEFT:
544 if (day > 1)
545 {
546 set(obj, MUIA_Calendar_MonthDay, day - 1);
547 return MUI_EventHandlerRC_Eat;
548 }
549 break;
550
551 case MUIKEY_RIGHT:
552 if (day < NumMonthDays(&data->clockdata))
553 {
554 set(obj, MUIA_Calendar_MonthDay, day + 1);
555 return MUI_EventHandlerRC_Eat;
556 }
557 break;
558
559 case MUIKEY_UP:
560 {
561 UWORD newday = (day > 7) ? day - 7 : 1;
562
563 if (newday != day)
564 {
565 set(obj, MUIA_Calendar_MonthDay, newday);
566 return MUI_EventHandlerRC_Eat;
567 }
568 }
569 break;
570
571 case MUIKEY_DOWN:
572 {
573 UWORD newday = (day < NumMonthDays(&data->clockdata) - 7) ?
574 day + 7 : NumMonthDays(&data->clockdata);
575
576 if (newday != day)
577 {
578 set(obj, MUIA_Calendar_MonthDay, newday);
579 return MUI_EventHandlerRC_Eat;
580 }
581 }
582 break;
583
584 case MUIKEY_TOP:
585 case MUIKEY_LINESTART:
586 if (day != 1)
587 {
588 set(obj, MUIA_Calendar_MonthDay, 1);
589 return MUI_EventHandlerRC_Eat;
590 }
591 break;
592
593 case MUIKEY_BOTTOM:
594 case MUIKEY_LINEEND:
595 if (day != NumMonthDays(&data->clockdata))
596 {
597 set(obj, MUIA_Calendar_MonthDay, NumMonthDays(&data->clockdata));
598 return MUI_EventHandlerRC_Eat;
599 }
600 break;
601
602 }
603 }
604 else
605 {
606 WORD x1 = _mleft(obj) + (_mwidth(obj) - data->cellwidth * 7 - 2) / 2 + 1;
607 WORD y1 = _mtop(obj) + (_mheight(obj) - data->cellheight * 7 - 1) / 2 + data->cellheight;
608 WORD x2 = x1 + data->cellwidth * 7 - 1;
609 WORD y2 = y1 + data->cellheight * 6 - 1;
610 WORD day;
611
612 BOOL in = _between(x1, msg->imsg->MouseX, x2) && _between(y1, msg->imsg->MouseY, y2);
613
614 switch(msg->imsg->Class)
615 {
616 case IDCMP_MOUSEBUTTONS:
617 switch(msg->imsg->Code)
618 {
619 case SELECTDOWN:
620 if (in)
621 {
622 day = DayUnderMouse(obj, data, msg->imsg);
623 if (day != data->clockdata.mday)
624 {
625 set(obj, MUIA_Calendar_MonthDay, day);
626 }
627 DoMethod(_win(obj), MUIM_Window_RemEventHandler, (IPTR)&data->ehn);
628 data->ehn.ehn_Events |= IDCMP_MOUSEMOVE;
629 DoMethod(_win(obj), MUIM_Window_AddEventHandler, (IPTR)&data->ehn);
630 return 0;
631 }
632 break;
633
634 case SELECTUP:
635 if (data->ehn.ehn_Events & IDCMP_MOUSEMOVE)
636 {
637 DoMethod(_win(obj), MUIM_Window_RemEventHandler, (IPTR)&data->ehn);
638 data->ehn.ehn_Events &= ~IDCMP_MOUSEMOVE;
639 DoMethod(_win(obj), MUIM_Window_AddEventHandler, (IPTR)&data->ehn);
640 return 0;
641 }
642 break;
643 }
644 break;
645
646 case IDCMP_MOUSEMOVE:
647 if (data->ehn.ehn_Events & IDCMP_MOUSEMOVE)
648 {
649 day = DayUnderMouse(obj, data, msg->imsg);
650 if (day != data->clockdata.mday)
651 {
652 set(obj, MUIA_Calendar_MonthDay, day);
653 }
654 return 0;
655 }
656 break;
657
658 } /* switch(msg->imsg->Class) */
659
660 } /* if (msg->muikey == MUIKEY_NONE) */
661
662 return 0;
663 }
Mirror of AROS' svn.