2 * CDE - Common Desktop Environment
4 * Copyright (c) 1993-2012, The Open Group. All rights reserved.
6 * These libraries and programs are free software; you can
7 * redistribute them and/or modify them under the terms of the GNU
8 * Lesser General Public License as published by the Free Software
9 * Foundation; either version 2 of the License, or (at your option)
12 * These libraries and programs are distributed in the hope that
13 * they will be useful, but WITHOUT ANY WARRANTY; without even the
14 * implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
15 * PURPOSE. See the GNU Lesser General Public License for more
18 * You should have received a copy of the GNU Lesser General Public
19 * License along with these libraries and programs; if not, write
20 * to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
21 * Floor, Boston, MA 02110-1301 USA
23 /*******************************************************************************
27 ** $TOG: calendarA.c /main/22 1999/09/20 10:29:08 mgreess $
29 ** RESTRICTED CONFIDENTIAL INFORMATION:
31 ** The information in this document is subject to special
32 ** restrictions in a confidential disclosure agreement between
33 ** HP, IBM, Sun, USL, SCO and Univel. Do not distribute this
34 ** document outside HP, IBM, Sun, USL, SCO, or Univel without
35 ** Sun's specific written approval. This document and all copies
36 ** and derivative works thereof must be returned or destroyed at
39 ** Copyright 1993 Sun Microsystems, Inc. All rights reserved.
41 *******************************************************************************/
44 * (c) Copyright 1993, 1994 Hewlett-Packard Company *
45 * (c) Copyright 1993, 1994 International Business Machines Corp. *
46 * (c) Copyright 1993, 1994 Sun Microsystems, Inc. *
47 * (c) Copyright 1993, 1994 Novell, Inc. *
51 static char sccsid[] = "@(#)calendarA.c 1.196 95/04/12 Copyr 1991 Sun Microsystems, Inc.";
54 #include <EUSCompat.h>
59 #include <sys/param.h> /* MAXPATHLEN defined here */
61 #include <sys/utsname.h> /* SYS_NMLN */
62 #endif /* SVR4 specific includes */
69 #include <sys/signal.h>
72 #include <sys/resource.h>
74 #include <netinet/in.h>
77 #include <Xm/ArrowBG.h>
78 #include <Xm/DrawingA.h>
81 #include <Xm/LabelG.h>
84 #include <Xm/PushBG.h>
85 #include <Xm/ToggleBG.h>
86 #include <Xm/RowColumn.h>
87 #include <Xm/SeparatoG.h>
89 #include <Xm/CascadeBG.h>
90 #include <Xm/CascadeB.h>
91 #include <Dt/HourGlass.h>
93 #include <Xm/RepType.h>
94 #include <Xm/Protocols.h>
95 #include <Dt/EnvControlP.h>
97 #include <LocaleXlate.h> /* under DtHelp */
101 #include "datefield.h"
103 #include "props_pu.h"
109 #include "group_editor.h"
118 #include "dayglance.h"
119 #include "yearglance.h"
120 #include "monthglance.h"
121 #include "weekglance.h"
123 #include "timezone.h"
127 #include "fallback.h"
135 #if defined(__linux__)
140 #ifdef X_NOT_STDC_ENV
144 #define ITIMER_NULL ((struct itimerval *) 0)
145 #define VIEWMARGIN 15
146 #define NUM_MITEMS_PERCOL 27
150 #if !defined(NL_CAT_LOCALE)
151 #define NL_CAT_LOCALE 0
155 extern time_t timelocal(); /* LINT */
156 extern char * getlogin(); /* LINT */
157 extern void(*sigset())();
158 extern int cmtt_init(char *, Calendar *, XtAppContext, Widget);
159 extern void show_about(Widget, XtPointer, XtPointer);
162 static struct itimerval timer;
163 extern u_long gettransient();
164 extern void xtcallback(XtPointer, int *, XtInputId *);
165 extern int getfdset(fd_set);
166 extern Tick prevnday_exacttime();
167 extern void quit_handler(Widget, XtPointer, XtPointer);
168 static void sig_int_handler(int sig);
169 extern void find_cb(Widget, XtPointer, XtPointer);
170 extern void goto_cb(Widget, XtPointer, XtPointer);
171 extern void timezone_cb(Widget, XtPointer, XtPointer);
172 extern void print_cb(Widget, XtPointer, XtPointer);
174 extern int cm_register_calendar(const char *username, const char *location);
175 extern void paint_icon(Calendar *c);
176 extern void load_app_font(Calendar *, Font_Weight, Cal_Font *, Cal_Font *);
177 extern void repaint_damaged_month(Calendar *c, XRectangle *rect);
179 /* routine to get common locale/charset name */
180 extern void _DtI18NXlateOpToStdLocale(
183 char **ret_stdLocale,
187 static void resize_proc(Widget, XtPointer, XtPointer);
188 static void update_handler (CSA_session_handle, CSA_flags, CSA_buffer, CSA_buffer, CSA_extension *);
189 static Boolean init_fonts(Calendar *);
190 static XFontSet get_bold_font(Widget, String);
191 static void logon_retry(XtPointer data, XtIntervalId *dummy);
192 static int newXErrorHandler(Display *, XErrorEvent *);
194 static int (*oldXErrorHandler)(Display *, XErrorEvent *);
206 int gargc; /* saved for tooltalk initialization */
213 destroy_paint_cache(Paint_cache *cache, int num_entries) {
220 for (i = 0; i < num_entries; i++) {
221 if (cache[i].summary)
222 free(cache[i].summary);
229 invalidate_cache(Calendar *c) {
231 Browselist *bl = (Browselist *)c->browselist;
235 if (c->paint_cache) {
236 destroy_paint_cache(c->paint_cache, c->paint_cache_size);
237 c->paint_cache = NULL;
238 c->paint_cache_size = 0;
243 while (bd = (BlistData *)CmDataListGetData(bl->blist_data, i)) {
244 if (bd->cal_handle == c->cal_handle) {
245 destroy_paint_cache(bd->cache, bd->cache_size);
257 allocate_paint_cache(CSA_entry_handle *list, int num_entries, Paint_cache **return_cache) {
258 Dtcm_appointment *appt;
259 Calendar *c=calendar;
260 CSA_return_code stat = CSA_SUCCESS;
261 Paint_cache *cache = (Paint_cache *) calloc(sizeof(Paint_cache), num_entries);
265 appt = allocate_appt_struct(appt_read,
267 CSA_ENTRY_ATTR_START_DATE_I,
268 CSA_ENTRY_ATTR_END_DATE_I,
269 CSA_ENTRY_ATTR_SUMMARY_I,
270 CSA_X_DT_ENTRY_ATTR_SHOWTIME_I,
273 /* loop thru the list of appointments twice, first displaying
274 the no time appointments, and then the appointments with times
277 for (i = 0; i < num_entries; i++) {
279 stat = query_appt_struct(c->cal_handle, list[i], appt);
280 if (stat != CSA_SUCCESS) {
281 destroy_paint_cache(cache, i);
282 *return_cache = NULL;
283 free_appt_struct(&appt);
286 _csa_iso8601_to_tick(appt->time->value->item.date_time_value,
287 &cache[i].start_time);
289 _csa_iso8601_to_tick(appt->end_time->value->item.\
290 date_time_value, &cache[i].end_time);
292 cache[i].end_time = 0;
294 cache[i].summary = strdup(appt->what->value->item.string_value);
295 cache[i].show_time = showtime_set(appt);
298 free_appt_struct(&appt);
299 *return_cache = cache;
304 cache_dims(Calendar *c, Dimension w, Dimension h)
307 Props *p = (Props*)c->properties;
308 int begin = get_int_prop(p, CP_DAYBEGIN);
309 int end = get_int_prop(p, CP_DAYEND);
311 XFontSetExtents regfontextents, boldfontextents;
313 CalFontExtents(c->fonts->viewfont, ®fontextents);
314 CalFontExtents(c->fonts->boldfont, &boldfontextents);
319 margin = c->view->outside_margin;
320 glance = c->view->glance;
323 c->view->boxw = (int)(w-2*margin)/5;
326 c->view->boxw = (int)(w-2*margin)/7;
327 c->view->topoffset = boldfontextents.max_logical_extent.height + 30;
328 c->view->boxh = (int)(h-c->view->topoffset-
329 (margin + boldfontextents.max_logical_extent.height + 6))/c->view->nwks;
332 /* revisit for i18n - is max_bounds correct? */
333 c->view->boxw = 20 * (short)
334 regfontextents.max_logical_extent.width
336 c->view->boxh = 7 * (short)
337 regfontextents.max_ink_extent.height
339 boldfontextents.max_ink_extent.height;
340 c->view->topoffset=20;
343 c->view->topoffset = boldfontextents.max_logical_extent.height + 15;
344 c->view->boxw = APPT_AREA_WIDTH;
345 c->view->boxh = (int)(h - c->view->topoffset)
361 Calendar *c = calendar;
362 Glance glance = c->view->glance;
364 XtVaGetValues(w, XmNwidth, &width, XmNheight, &height, NULL);
365 cache_dims(c, width, height);
367 /* If the weekGlance has been initialized then we need to update
368 * its size information reguardless of the current view.
370 if (glance != weekGlance && c->view->week_info != NULL) {
372 resize_weekview(c, &b);
377 XtUnmapWidget(c->canvas);
378 prepare_to_paint_monthview(c, NULL);
379 XtMapWidget(c->canvas);
385 XtUnmapWidget(c->canvas);
386 resize_weekview(c, &b);
387 XtMapWidget(c->canvas);
392 * If the resize is caused by a Window Manager maximize
393 * or minimize, many of the dayview's lengths need to
405 * repaint_proc: the XmNexposeCallback handler for the main canvas.
407 * Does nothing till the last expose in a possible sequence, then
408 * calls the canvas update procedure paint_canvas.
410 * This could be optimized to only refresh the damaged areas, by
411 * maintaining a smallest-enclosing-rectangle in the Calendar structure
412 * until ev.xexpose.count becomes 0, then setting clip accordingly.
413 * For now, crude but effective will suffice
416 static XRectangle new_clip;
417 static Boolean clip_set = False;
420 repaint_proc(Widget canvas, XtPointer unused, XtPointer data)
422 Calendar *c = calendar;
423 XmDrawingAreaCallbackStruct *cbs = (XmDrawingAreaCallbackStruct *) data;
424 XEvent *ev = cbs->event;
425 int max_height, old_abs_height, new_abs_height;
426 int max_width, old_abs_width, new_abs_width;
427 unsigned long valuemask;
428 XSetWindowAttributes attrs;
429 static short set_bit_gravity = True;
431 if (set_bit_gravity) {
432 set_bit_gravity = False;
434 * Set the bit gravity on the canvas to ForgetGravity to
435 * insure we receive an exposure event when the canvas is
438 valuemask = CWBitGravity;
439 attrs.bit_gravity = ForgetGravity;;
440 XChangeWindowAttributes(calendar->xcontext->display,
441 XtWindow(calendar->canvas), valuemask, &attrs);
444 if (clip_set == True) {
445 old_abs_height = new_clip.y + new_clip.height;
446 new_abs_height = ev->xexpose.height + ev->xexpose.y;
447 max_height = new_abs_height > old_abs_height ? new_abs_height : old_abs_height;
448 old_abs_width = new_clip.x + new_clip.width;
449 new_abs_width = ev->xexpose.width + ev->xexpose.x;
450 max_width = new_abs_width > old_abs_width ? new_abs_width : old_abs_width;
452 if (ev->xexpose.x < new_clip.x)
453 new_clip.x = ev->xexpose.x;
454 if (ev->xexpose.y < new_clip.y)
455 new_clip.y = ev->xexpose.y;
457 new_clip.height = max_height - new_clip.y;
458 new_clip.width = max_width - new_clip.x;
461 new_clip.x = ev->xexpose.x;
462 new_clip.y = ev->xexpose.y;
463 new_clip.height = ev->xexpose.height;
464 new_clip.width = ev->xexpose.width;
469 if (ev->xexpose.count == 0) {
474 if ((xc = c->xcontext)==NULL)
477 XtVaGetValues(canvas, XmNwidth, &w, XmNheight, &h, NULL);
479 gr_set_clip_rectangles(calendar->xcontext, 0, 0,
480 &new_clip, 1, Unsorted);
482 paint_canvas(c, &new_clip, RENDER_REPAINT);
484 clip.x = 0; clip.y = 0; clip.width = w; clip.height = h;
485 gr_set_clip_rectangles(calendar->xcontext, 0, 0, &clip, 1, Unsorted);
495 show_tempbr(Calendar *c)
499 t = (Tempbr*)c->tempbr;
501 if (t == NULL || t->frame == NULL) {
502 c->tempbr = (caddr_t)make_tempbr(c);
503 t = (Tempbr*)c->tempbr;
506 XtManageChild(t->form);
507 XtPopup(t->frame, XtGrabNone);
510 XmProcessTraversal(t->name_text, XmTRAVERSE_CURRENT);
511 XtVaSetValues(t->form, XmNinitialFocus, t->name_text, NULL);
515 show_browser(Calendar *c) {
516 extern void set_entry_date(Calendar *);
518 Props *p = (Props*) c->properties;
519 OrderingType ord_t = get_int_prop(p, CP_DATEORDERING);
520 SeparatorType sep_t = get_int_prop(p, CP_DATESEPARATOR);
524 if (c->browser == NULL)
526 b = (Browser *)c->browser;
529 b->date = c->view->date;
530 format_tick(b->date, ord_t, sep_t, buf);
531 XmTextSetString(b->datetext, buf);
535 XtPopup(b->frame, XtGrabNone);
539 show_goto(Calendar *c)
545 if (g == NULL || g->frame == NULL) {
546 c->goTo = (caddr_t)make_goto(c);
550 XtManageChild(g->form);
551 XtPopup(g->frame, XtGrabNone);
554 XmProcessTraversal(g->datetext, XmTRAVERSE_CURRENT);
555 XtVaSetValues(g->form, XmNinitialFocus, g->datetext, NULL);
557 set_message(g->goto_message, "\0");
561 show_timezone(Calendar *c)
565 t = (Timezone*)c->timezone;
567 if (t == NULL || t->frame == NULL) {
568 c->timezone = (caddr_t)make_timezone(c);
569 t = (Timezone*)c->timezone;
573 XtManageChild(t->form);
574 XtPopup(t->frame, XtGrabNone);
579 show_find(Calendar *c)
585 if (f == NULL || f->frame == NULL) {
586 c->find = (caddr_t)make_find(c);
590 XtManageChild(f->form);
591 XtPopup(f->frame, XtGrabNone);
594 XmProcessTraversal(f->apptstr, XmTRAVERSE_CURRENT);
595 XtVaSetValues(f->form, XmNinitialFocus, f->apptstr, NULL);
597 set_message(f->find_message, "\0");
601 /* revisit - this will have to be hacked for motif
603 event_proc(Notify_client canvas,
606 Notify_event_type when)
613 c = (Calendar *) xv_get(canvas, WIN_CLIENT_DATA);
614 XtVaGetValues(canvas, XmNuserData, c, NULL);
615 p = (Props *) c->properties;
616 glance = c->view->glance;
618 switch(event_action(event)) {
620 (void)p_show_proc(p->frame);
627 month_event(c, event);
630 week_event(c, event);
636 year_event(c, event);
639 c->general->last_canvas_touched = main_win;
641 case ACTION_FIND_FORWARD:
642 case ACTION_FIND_BACKWARD:
644 if (f == NULL || f->frame == NULL) {
645 c->find = (caddr_t)make_find(c);
648 (void)xv_set(f->frame, XV_SHOW, TRUE, NULL);
649 XtVaSetValues(bl->frame, XmNmappedWhenManaged, TRUE, NULL);
655 if (event_action(event) == ACTION_HELP && event_is_up(event))
659 xv_help_show(canvas, "cm:MonthView", event);
662 xv_help_show(canvas, "cm:WeekView", event);
665 xv_help_show(canvas, "cm:DayView", event);
668 xv_help_show(canvas, "cm:YearView", event);
673 return (notify_next_event_func(canvas, (Notify_event)event, arg, when));
678 prev_button(Widget w, XtPointer client_data, XtPointer cbs)
681 Calendar *c = calendar;
683 Editor *e = (Editor *) calendar->editor;
688 switch(c->view->glance) {
690 date = last_ndays(c->view->date, 7);
692 ((date = get_bot()) != c->view->date)) {
693 c->view->olddate = c->view->date;
694 c->view->date = date;
695 c->view->nwks = numwks(c->view->date);
696 paint_weekview(c, NULL);
700 date = previousmonth(c->view->date);
702 XtUnmapWidget(c->canvas);
703 c->view->nwks = numwks(date);
704 c->view->olddate = c->view->date;
705 c->view->date = date;
706 c->view->nwks = numwks(c->view->date);
707 (void)prepare_to_paint_monthview(c, NULL);
708 XtMapWidget(c->canvas);
712 date = lastjan1(c->view->date);
714 c->view->olddate = c->view->date;
715 c->view->date = date;
716 c->view->nwks = numwks(c->view->date);
718 * Since we know year view is already showing, just directly force a new
719 * year to be displayed without first managing all the year stuff.
722 calendar_select(c, monthSelect, NULL);
726 date = last_ndays(c->view->date, 1);
728 c->view->olddate = c->view->date;
729 c->view->date = date;
730 c->view->nwks = numwks(c->view->date);
731 calendar_deselect(c);
733 lowerbound(((Day *)(c->view->day_info))->month1)) {
734 ((Day *)(c->view->day_info))->month3
736 ((Day *)(c->view->day_info))->month2
737 = previousmonth(c->view->date);
738 ((Day *)(c->view->day_info))->month1
739 = previousmonth(((Day *)(c->view->day_info))->month2);
741 paint_dayview(c, True, NULL, False);
743 monthbox_deselect(c);
744 monthbox_datetoxy(c);
745 paint_dayview(c, False, NULL, False);
748 calendar_select(c, hourSelect, NULL);
757 next_button(Widget w, XtPointer client_data, XtPointer cbs)
760 Calendar *c = calendar;
762 Editor *e = (Editor *) calendar->editor;
767 switch(c->view->glance) {
769 date = next_ndays(c->view->date, 7);
771 ((date = get_eot()) != c->view->date)) {
772 c->view->olddate = c->view->date;
773 c->view->date = date;
774 c->view->nwks = numwks(c->view->date);
775 paint_weekview(c, NULL);
779 date = nextmonth(c->view->date);
781 XtUnmapWidget(c->canvas);
782 c->view->olddate = c->view->date;
783 c->view->date = date;
784 c->view->nwks = numwks(date);
785 (void)prepare_to_paint_monthview(c, NULL);
786 XtMapWidget(c->canvas);
790 date = nextjan1(c->view->date);
792 c->view->olddate = c->view->date;
793 c->view->date = date;
794 c->view->nwks = numwks(date);
796 * Since we know year view is already showing, just directly force a new
797 * year to be displayed without first managing all the year stuff.
800 calendar_select(c, monthSelect, NULL);
804 date = next_ndays(c->view->date, 1);
806 c->view->olddate = c->view->date;
807 c->view->date = date;
808 c->view->nwks = numwks(c->view->date);
809 /* beyond month range displayed */
810 if (c->view->date > upperbound(last_dom(
811 (((Day *)(c->view->day_info))->month3)))) {
812 ((Day *)(c->view->day_info))->month1
814 ((Day *)(c->view->day_info))->month2
815 = nextmonth(c->view->date);
816 ((Day *)(c->view->day_info))->month3
817 = nextmonth(((Day *)(c->view->day_info))->month2);
818 calendar_deselect(c);
820 paint_dayview(c, True, NULL, False);
821 calendar_select(c, hourSelect, NULL);
823 calendar_deselect(c);
824 monthbox_deselect(c);
825 monthbox_datetoxy(c);
826 paint_dayview(c, False, NULL, False);
827 calendar_select(c, hourSelect, NULL);
838 today_button(Widget w, XtPointer client_data, XtPointer cbs)
841 Calendar *c = calendar;
845 Editor *e = (Editor *) calendar->editor;
849 date = c->view->date;
850 c->view->olddate = c->view->date;
851 c->view->date = today = now();
853 mo_to = month(today);
854 c->view->nwks = numwks(today);
855 calendar_deselect(c);
856 switch(c->view ->glance) {
858 if (mo_da != mo_to || dom(date) != dom(today) ||
859 year(date) != year(today)) {
860 paint_weekview(c, NULL);
862 calendar_select(c, weekdaySelect, NULL);
865 if (mo_da != mo_to || year(date) != year(today)) {
866 XtUnmapWidget(c->canvas);
868 (void)prepare_to_paint_monthview(c, NULL);
869 XtMapWidget(c->canvas);
871 calendar_select(c, daySelect, (caddr_t)NULL);
875 * Since we know year view is already showing, just directly force a new
876 * year to be displayed without first managing all the year stuff.
878 if (year(date) != year(today))
880 else calendar_deselect(c);
881 xy.y = month_row_col[mo_to-1][ROW];
882 xy.x = month_row_col[mo_to-1][COL];
883 calendar_select(c, monthSelect, (caddr_t)&xy);
886 if (mo_da != mo_to || dom(date) != dom(today) ||
887 year(date) != year(today)) {
888 if (mo_to < month(((Day *)(c->view->day_info))->month1) ||
889 mo_to > month(((Day *)(c->view->day_info))->month3)) {
890 calendar_deselect(c);
893 paint_dayview(c, True, NULL, True);
896 calendar_deselect(c);
897 monthbox_deselect(c);
898 monthbox_datetoxy(c);
899 paint_dayview(c, False, NULL, True);
903 calendar_select(c, hourSelect,(caddr_t)NULL);
917 static Menu pullright;
921 if (pullright == NULL) {
924 path = (char *) xv_get(item, MENU_CLIENT_DATA);
927 XtVaGetArgs(item, XmNuserData, path, NULL);
928 pullright = make_tzmenu(path);
931 case MENU_DISPLAY_DONE :
933 case MENU_NOTIFY_DONE : break ;
940 set_default_view(Calendar *c)
942 /* See if the view is set via a command line option */
943 if (calendar->app_data->default_view) {
944 if (!strcmp(calendar->app_data->default_view, "year"))
945 calendar->view->glance = yearGlance;
946 else if (!strcmp(calendar->app_data->default_view, "month"))
947 calendar->view->glance = monthGlance;
948 else if (!strcmp(calendar->app_data->default_view, "week"))
949 calendar->view->glance = weekGlance;
950 else if (!strcmp(calendar->app_data->default_view, "day"))
951 calendar->view->glance = dayGlance;
953 calendar->view->glance = dayGlance;
955 calendar->view->glance = dayGlance;
959 * Changed the code that calls these to directly call the callbacks
960 * called from here... not sure why there was this indirection.
961 * It should be safe to remove these.
963 void view_day_cb(Widget w, XtPointer data, XtPointer cbs)
965 if ((intptr_t) data == 0)
966 day_button(w, data, cbs);
969 void view_week_cb(Widget w, XtPointer data, XtPointer cbs)
971 if ((intptr_t) data == 0)
972 week_button(w, data, cbs);
975 void view_month_cb(Widget w, XtPointer data, XtPointer cbs)
977 if ((intptr_t) data == 0)
978 month_button(w, data, cbs);
981 void view_year_cb( Widget w, XtPointer data, XtPointer cbs)
983 if ((intptr_t) data == 0)
984 (void) year_button(w, data, cbs);
988 make_view_menu(Calendar *c)
990 void view_appt_cb(), view_todo_cb();
991 Widget view_menu, day, week, month, year, appt_list, tz,
992 view_btn, sep, find, go_to;
993 XmString day_str, week_str, month_str, year_str, tz_str, apptlist_str,
994 todo_str, view_str, findappts, gotodate;
998 day_str = XmStringCreateLocalized(catgets(c->DT_catd, 1, 33, "Day"));
999 week_str = XmStringCreateLocalized(catgets(c->DT_catd, 1, 34, "Week"));
1000 month_str = XmStringCreateLocalized(
1001 catgets(c->DT_catd, 1, 35, "Month"));
1002 year_str = XmStringCreateLocalized(catgets(c->DT_catd, 1, 36, "Year"));
1003 tz_str = XmStringCreateLocalized(
1004 catgets(c->DT_catd, 1, 37, "Time Zone..."));
1005 apptlist_str = XmStringCreateLocalized(
1006 catgets(c->DT_catd, 1, 38, "Appointment List..."));
1007 todo_str = XmStringCreateLocalized(
1008 catgets(c->DT_catd, 1, 965, "To Do List..."));
1009 view_str = XmStringCreateLocalized(catgets(c->DT_catd, 1, 40, "View"));
1010 findappts = XmStringCreateLocalized(
1011 catgets(c->DT_catd, 1, 41, "Find..."));
1012 gotodate = XmStringCreateLocalized(
1013 catgets(c->DT_catd, 1, 42, "Go to Date..."));
1015 view_menu = XmCreatePulldownMenu(c->menu_bar, "viewMenu", NULL, 0);
1018 XtSetArg(al[ac], XmNlabelString, day_str); ac++;
1019 day = XmCreatePushButtonGadget(view_menu, "day", al, ac);
1020 XtAddCallback(day, XmNactivateCallback, day_button, NULL);
1023 XtSetArg(al[ac], XmNlabelString, week_str); ac++;
1024 week = XmCreatePushButtonGadget(view_menu, "week", al, ac);
1025 XtAddCallback(week, XmNactivateCallback, week_button, NULL);
1028 XtSetArg(al[ac], XmNlabelString, month_str); ac++;
1029 month = XmCreatePushButtonGadget(view_menu, "month", al, ac);
1030 XtAddCallback(month, XmNactivateCallback, month_button, NULL);
1033 XtSetArg(al[ac], XmNlabelString, year_str); ac++;
1034 year = XmCreatePushButtonGadget(view_menu, "year", al, ac);
1035 XtAddCallback(year, XmNactivateCallback, year_button, NULL);
1038 sep = XmCreateSeparatorGadget(view_menu, "separator1", al, ac);
1041 XtSetArg(al[ac], XmNlabelString, apptlist_str); ac++;
1042 appt_list = XmCreatePushButtonGadget(view_menu, "apptList", al, ac);
1043 XtAddCallback(appt_list, XmNactivateCallback, view_appt_cb, NULL);
1046 XtSetArg(al[ac], XmNlabelString, todo_str); ac++;
1047 c->todo_view_menu = XmCreatePushButtonGadget(view_menu, "toDoList",
1049 XtAddCallback(c->todo_view_menu, XmNactivateCallback,
1050 view_todo_cb, NULL);
1053 sep = XmCreateSeparatorGadget(view_menu, "separator2", al, ac);
1056 XtSetArg(al[ac], XmNlabelString, findappts); ac++;
1057 find = XmCreatePushButtonGadget(view_menu, "find", al, ac);
1058 XtAddCallback(find, XmNactivateCallback, find_cb, NULL);
1061 XtSetArg(al[ac], XmNlabelString, gotodate); ac++;
1062 go_to = XmCreatePushButtonGadget(view_menu, "goTo", al, ac);
1063 XtAddCallback(go_to, XmNactivateCallback, goto_cb, NULL);
1066 XtSetArg(al[ac], XmNlabelString, tz_str); ac++;
1067 tz = XmCreatePushButtonGadget(view_menu, "timeZone", al, ac);
1068 XtAddCallback(tz, XmNactivateCallback, timezone_cb, NULL);
1070 ManageChildren(view_menu);
1072 XtSetArg(al[ac], XmNsubMenuId, view_menu); ac++;
1073 XtSetArg(al[ac], XmNlabelString, view_str); ac++;
1074 view_btn = (Widget) XmCreateCascadeButton(c->menu_bar, "view", al, ac);
1075 XtAddCallback(view_btn, XmNhelpCallback, (XtCallbackProc)help_cb,
1076 (XtPointer) CALENDAR_HELP_VIEW_BUTTON);
1078 XmStringFree(day_str);
1079 XmStringFree(week_str);
1080 XmStringFree(month_str);
1081 XmStringFree(year_str);
1082 XmStringFree(tz_str);
1083 XmStringFree(apptlist_str);
1084 XmStringFree(todo_str);
1085 XmStringFree(view_str);
1086 XmStringFree(findappts);
1087 XmStringFree(gotodate);
1091 print_cb(Widget ignore1, XtPointer ignore2, XtPointer ignore3)
1093 _DtTurnOnHourGlass(calendar->frame);
1094 post_print_dialog(calendar);
1095 _DtTurnOffHourGlass(calendar->frame);
1099 print_current(Widget widget, XtPointer client_data, XtPointer reason)
1101 _DtTurnOnHourGlass(calendar->frame);
1102 create_print_dialog(calendar);
1103 print_report(calendar);
1104 _DtTurnOffHourGlass(calendar->frame);
1108 edit_cb( Widget w, XtPointer item_no, XtPointer cbs)
1110 Calendar *c = calendar;
1112 _DtTurnOnHourGlass(c->frame);
1113 if ((intptr_t) item_no == 1)
1115 else if ((intptr_t) item_no == 3)
1117 _DtTurnOffHourGlass(c->frame);
1121 find_cb(Widget w, XtPointer item_no, XtPointer cbs)
1123 Calendar *c = calendar;
1125 _DtTurnOnHourGlass(c->frame);
1126 show_find(calendar);
1127 _DtTurnOffHourGlass(c->frame);
1131 goto_cb(Widget w, XtPointer item_no, XtPointer cbs)
1133 Calendar *c = calendar;
1135 _DtTurnOnHourGlass(c->frame);
1136 show_goto(calendar);
1137 _DtTurnOffHourGlass(c->frame);
1141 timezone_cb(Widget w, XtPointer item_no, XtPointer cbs)
1143 Calendar *c = calendar;
1145 _DtTurnOnHourGlass(c->frame);
1146 show_timezone(calendar);
1147 _DtTurnOffHourGlass(c->frame);
1151 view_appt_cb(Widget w, XtPointer item_no, XtPointer cbs)
1153 Calendar *c = calendar;
1155 _DtTurnOnHourGlass(c->frame);
1156 show_editor_view(c, c->view->glance);
1157 _DtTurnOffHourGlass(c->frame);
1161 view_todo_cb(Widget w, XtPointer item_no, XtPointer cbs)
1163 Calendar *c = calendar;
1165 _DtTurnOnHourGlass(c->frame);
1166 show_todo_view(c, VIEW_PENDING);
1167 _DtTurnOffHourGlass(c->frame);
1171 appt_cb(Widget w, XtPointer item_no, XtPointer cbs)
1173 Calendar *c = calendar;
1175 _DtTurnOnHourGlass(c->frame);
1176 switch((intptr_t) item_no) {
1178 show_editor(c, 0, 0, False);
1181 show_geditor(c, 0, 0);
1189 _DtTurnOffHourGlass(c->frame);
1193 show_other_cb(Widget w, XtPointer cl_data, XtPointer cbs)
1195 Calendar *c = calendar;
1197 _DtTurnOnHourGlass(c->frame);
1199 _DtTurnOffHourGlass(c->frame);
1203 compare_cb(Widget w, XtPointer cl_data, XtPointer cbs)
1205 Calendar *c = calendar;
1207 _DtTurnOnHourGlass(c->frame);
1209 _DtTurnOffHourGlass(c->frame);
1213 edit_menu_cb(Widget w, XtPointer cl_data, XtPointer cbs)
1215 Calendar *c = (Calendar *)cl_data;
1217 _DtTurnOnHourGlass(c->frame);
1219 _DtTurnOffHourGlass(c->frame);
1223 browse_cb(Widget w, XtPointer client_data, XtPointer cbs) {
1224 int rcode, idx = (int) (intptr_t) client_data;
1225 char buf[MAXNAMELEN];
1226 Calendar *c = calendar;
1227 Props_pu *p = (Props_pu *)c->properties_pu;
1229 Browselist *bl = (Browselist *)c->browselist;
1231 if (!(bd = (BlistData *)CmDataListGetData(bl->blist_data, idx))) {
1232 char *title = XtNewString(catgets(c->DT_catd, 1, 1072,
1233 "Calendar : Error - Browse"));
1234 char *text = XtNewString(catgets(c->DT_catd, 1, 610,
1235 "Internal error retrieving calendar name."));
1236 char *ident = XtNewString(catgets(c->DT_catd, 1, 95, "Continue"));
1237 dialog_popup(c->frame,
1238 DIALOG_TITLE, title,
1240 BUTTON_IDENT, 1, ident,
1241 DIALOG_IMAGE, p->xm_error_pixmap,
1249 _DtTurnOnHourGlass(c->frame);
1251 if (cmfns_use_fns((Props *)c->properties)) {
1252 rcode = cmfns_lookup_calendar(bd->name, buf, sizeof(buf));
1258 switch_it(c, buf, main_win);
1261 switch_it(c, bd->name, main_win);
1262 _DtTurnOffHourGlass(c->frame);
1266 make_file_menu(Calendar *c)
1268 Widget file_menu, print, pr_current, opts, exit, file_btn, sep;
1273 file_menu = XmCreatePulldownMenu(c->menu_bar, "fileMenu", NULL, 0);
1276 xmstr = XmStringCreateLocalized(
1277 catgets(c->DT_catd, 1, 68, "Print Current View"));
1278 XtSetArg(al[ac], XmNlabelString, xmstr); ac++;
1279 pr_current = XmCreatePushButtonGadget(file_menu, "printCurrent",
1281 XtAddCallback(pr_current, XmNactivateCallback, print_current, NULL);
1282 XmStringFree(xmstr);
1285 xmstr = XmStringCreateLocalized(catgets(c->DT_catd, 1, 69, "Print..."));
1286 XtSetArg(al[ac], XmNlabelString, xmstr); ac++;
1287 print = XmCreatePushButtonGadget(file_menu, "print", al, ac);
1288 XtAddCallback(print, XmNactivateCallback, print_cb, NULL);
1289 XmStringFree(xmstr);
1292 sep = XmCreateSeparatorGadget(file_menu, "separator1", al, ac);
1295 xmstr = XmStringCreateLocalized(
1296 catgets(c->DT_catd, 1, 72, "Options..."));
1297 XtSetArg(al[ac], XmNlabelString, xmstr); ac++;
1298 opts = XmCreatePushButtonGadget(file_menu, "options", al, ac);
1299 XtAddCallback(opts, XmNactivateCallback, edit_cb, (XtPointer) 1);
1300 XmStringFree(xmstr);
1303 sep = XmCreateSeparatorGadget(file_menu, "separator2", al, ac);
1306 xmstr = XmStringCreateLocalized(catgets(c->DT_catd, 1, 73, "Exit"));
1307 XtSetArg(al[ac], XmNlabelString, xmstr); ac++;
1308 exit = XmCreatePushButtonGadget(file_menu, "exit", al, ac);
1309 XtAddCallback(exit, XmNactivateCallback, quit_handler, (XtPointer) c);
1310 XmStringFree(xmstr);
1312 ManageChildren(file_menu);
1315 XtSetArg(al[ac], XmNsubMenuId, file_menu); ac++;
1316 xmstr = XmStringCreateLocalized(catgets(c->DT_catd, 1, 65, "File"));
1317 XtSetArg(al[ac], XmNlabelString, xmstr); ac++;
1318 file_btn = (Widget) XmCreateCascadeButton(c->menu_bar, "file", al, ac);
1319 XtAddCallback(file_btn, XmNhelpCallback, (XtCallbackProc)help_cb,
1320 (XtPointer) CALENDAR_HELP_FILE_BUTTON);
1321 XmStringFree(xmstr);
1325 make_edit_menu(Calendar *c)
1327 Widget edit_menu, edit_button;
1329 XmString edit_str, appt_str, todo_str;
1333 appt_str = XmStringCreateLocalized(
1334 catgets(c->DT_catd, 1, 74, "Appointment..."));
1335 todo_str = XmStringCreateLocalized(
1336 catgets(c->DT_catd, 1, 966, "To Do..."));
1337 edit_str = XmStringCreateLocalized(
1338 catgets(c->DT_catd, 1, 76, "Edit"));
1340 edit_menu = XmCreatePulldownMenu(c->menu_bar, "editMenu", NULL, 0);
1343 XtSetArg(al[ac], XmNlabelString, appt_str); ac++;
1344 appt = XmCreatePushButtonGadget(edit_menu, "appt", al, ac);
1345 XtAddCallback(appt, XmNactivateCallback, appt_cb, (XtPointer) 0);
1348 XtSetArg(al[ac], XmNlabelString, todo_str); ac++;
1349 c->todo_edit_menu = XmCreatePushButtonGadget(edit_menu, "toDo", al, ac);
1350 XtAddCallback(c->todo_edit_menu, XmNactivateCallback,
1351 appt_cb, (XtPointer) 2);
1353 ManageChildren(edit_menu);
1356 XtSetArg(al[ac], XmNsubMenuId, edit_menu); ac++;
1357 XtSetArg(al[ac], XmNlabelString, edit_str); ac++;
1358 edit_button = XmCreateCascadeButton(c->menu_bar, "edit", al, ac);
1359 XtAddCallback(edit_button, XmNhelpCallback, (XtCallbackProc)help_cb,
1360 (XtPointer) CALENDAR_HELP_EDIT_BUTTON);
1362 XmStringFree(appt_str);
1363 XmStringFree(todo_str);
1364 XmStringFree(edit_str);
1368 make_help_menu(Calendar *c)
1372 XmString help, overview, tasks, ref, onitem, using, about;
1373 Widget cascade, help_menu, w_overview, w_tasks, w_ref, w_onitem,
1374 w_using, w_about, w_sep;
1376 help = XmStringCreateLocalized(catgets(c->DT_catd, 1, 77, "Help"));
1377 overview = XmStringCreateLocalized(
1378 catgets(c->DT_catd, 1, 612, "Overview..."));
1379 tasks = XmStringCreateLocalized(catgets(c->DT_catd, 1, 79, "Tasks..."));
1380 ref = XmStringCreateLocalized(
1381 catgets(c->DT_catd, 1, 80, "Reference..."));
1382 onitem = XmStringCreateLocalized(
1383 catgets(c->DT_catd, 1, 964, "On Item"));
1384 using = XmStringCreateLocalized(
1385 catgets(c->DT_catd, 1, 82, "Using Help..."));
1386 about = XmStringCreateLocalized(
1387 catgets(c->DT_catd, 1, 613, "About Calendar..."));
1389 help_menu = XmCreatePulldownMenu(c->menu_bar, "helpMenu", NULL, 0);
1392 XtSetArg(al[ac], XmNlabelString, overview); ac++;
1393 w_overview = XmCreatePushButtonGadget(help_menu, "overview", al, ac);
1394 XtAddCallback(w_overview, XmNactivateCallback, show_main_help,
1395 (XtPointer)HELP_OVERVIEW);
1398 w_sep = XmCreateSeparatorGadget(help_menu, "separator1", al, ac);
1401 XtSetArg(al[ac], XmNlabelString, tasks); ac++;
1402 w_tasks = XmCreatePushButtonGadget(help_menu, "tasks", al, ac);
1403 XtAddCallback(w_tasks, XmNactivateCallback, show_main_help,
1404 (XtPointer)HELP_TASKS);
1407 XtSetArg(al[ac], XmNlabelString, ref); ac++;
1408 w_ref = XmCreatePushButtonGadget(help_menu, "reference", al, ac);
1409 XtAddCallback(w_ref, XmNactivateCallback, show_main_help,
1410 (XtPointer)HELP_REFERENCE);
1413 XtSetArg(al[ac], XmNlabelString, onitem); ac++;
1414 w_onitem = XmCreatePushButtonGadget(help_menu, "onItem", al, ac);
1415 XtAddCallback(w_onitem, XmNactivateCallback, show_main_help,
1416 (XtPointer)HELP_ONITEM);
1419 w_sep = XmCreateSeparatorGadget(help_menu, "separator2", al, ac);
1422 XtSetArg(al[ac], XmNlabelString, using); ac++;
1423 w_using = XmCreatePushButtonGadget(help_menu, "using", al, ac);
1424 XtAddCallback(w_using, XmNactivateCallback, show_main_help,
1425 (XtPointer)HELP_USINGHELP);
1428 w_sep = XmCreateSeparatorGadget(help_menu, "separator2", al, ac);
1431 XtSetArg(al[ac], XmNlabelString, about); ac++;
1432 w_about = XmCreatePushButtonGadget(help_menu, "about", al, ac);
1433 XtAddCallback(w_about, XmNactivateCallback, show_about,
1435 XtAddCallback(w_about, XmNactivateCallback, show_main_help,
1436 (XtPointer)HELP_ABOUTCALENDAR);
1438 ManageChildren(help_menu);
1441 XtSetArg(al[ac], XmNlabelString, help); ac++;
1442 XtSetArg(al[ac], XmNsubMenuId, help_menu); ac++;
1443 cascade = (Widget)XmCreateCascadeButton(c->menu_bar, "help", al, ac);
1444 XtAddCallback(cascade, XmNhelpCallback, (XtCallbackProc)help_cb,
1445 (XtPointer) CALENDAR_HELP_HELP_BUTTON);
1448 XtSetArg(al[ac], XmNmenuHelpWidget, cascade); ac++;
1449 XtSetValues(c->menu_bar, al, ac);
1452 XmStringFree(overview);
1453 XmStringFree(tasks);
1455 XmStringFree(onitem);
1456 XmStringFree(using);
1457 XmStringFree(about);
1461 map_browse_menu(Widget menu, XtPointer client_data, XtPointer call_data)
1466 short maxcols, newcols, columns;
1467 int screenheight = HeightOfScreen(XtScreen(menu));
1468 int fudgefact = 20; /* to allow for decorations on menu */
1474 XmNnumColumns, &columns,
1478 if ((int) (h + fudgefact) > ((int) screenheight / 2)) {
1480 /* the menu is taller than half the screen. We need to find out how
1481 many more columns to specify for the menu to make it fit. */
1483 newcols = (columns * (int) ((int) (h + fudgefact)/(int) (screenheight/2))) + 1;
1484 maxcols = WidthOfScreen(XtScreen(menu))/(int) ((int)w/(int)columns);
1486 if (newcols > maxcols)
1489 XtVaSetValues(menu, XmNnumColumns, newcols, NULL);
1496 * This a separate routine so that it may be called when a new name is added
1497 * from the edit list
1500 update_browse_menu_names(Calendar *c) {
1507 Browselist *bl = (Browselist *)c->browselist;
1510 XmCreatePulldownMenu(c->menu_bar, "browseMenu", NULL, 0);
1511 XtVaSetValues(c->browse_menu,
1513 XmNpacking, XmPACK_COLUMN,
1514 XmNorientation, XmVERTICAL,
1518 xmstr = XmStringCreateLocalized(catgets(c->DT_catd, 1, 84,
1519 "Show Other Calendar..."));
1520 XtSetArg(al[ac], XmNlabelString, xmstr); ac++;
1521 item = XmCreatePushButtonGadget(c->browse_menu, "showOther", al, ac);
1522 XtAddCallback(item, XmNactivateCallback, show_other_cb, NULL);
1523 XmStringFree(xmstr);
1526 xmstr = XmStringCreateLocalized(catgets(c->DT_catd, 1, 85,
1527 "Compare Calendars..."));
1528 XtSetArg(al[ac], XmNlabelString, xmstr); ac++;
1529 item = XmCreatePushButtonGadget(c->browse_menu, "compare", al, ac);
1530 XtAddCallback(item, XmNactivateCallback, compare_cb, NULL);
1531 XmStringFree(xmstr);
1534 xmstr = XmStringCreateLocalized(catgets(c->DT_catd, 1, 86,
1536 XtSetArg(al[ac], XmNlabelString, xmstr); ac++;
1537 item = XmCreatePushButtonGadget(c->browse_menu, "editMenu", al, ac);
1538 XtAddCallback(item, XmNactivateCallback, edit_menu_cb, (XtPointer)c);
1539 XmStringFree(xmstr);
1542 item = XmCreateSeparatorGadget(c->browse_menu, "separator", al, ac);
1544 blist_clean(bl, TRUE);
1545 blist_init_names(c);
1546 for (i = 1; i <= bl->blist_data->count; i++) {
1547 bd = (BlistData *)CmDataListGetData(bl->blist_data, i);
1548 if (!bd || blank_buf(bd->name) || bd->tag != BLIST_ACTIVE)
1552 xmstr = XmStringCreateLocalized(bd->name);
1553 XtSetArg(al[ac], XmNlabelString, xmstr); ac++;
1554 str = (!strcmp(bd->name, c->calname)) ? "calName" : "myName";
1555 item = XmCreatePushButtonGadget(c->browse_menu, str, al, ac);
1556 XtAddCallback(item, XmNactivateCallback, browse_cb,
1557 (XtPointer) (intptr_t) i);
1558 XmStringFree(xmstr);
1561 XtAddCallback(c->browse_menu, XmNmapCallback, map_browse_menu, NULL);
1562 ManageChildren(c->browse_menu);
1567 make_browse_menu(Calendar *c) {
1573 * This needs to be a separate routine so it can be called when the
1574 * edit list changes the browse menu
1576 update_browse_menu_names(c);
1578 xmstr = XmStringCreateLocalized(catgets(c->DT_catd, 1, 87, "Browse"));
1579 XtSetArg(al[ac], XmNsubMenuId, c->browse_menu); ac++;
1580 XtSetArg(al[ac], XmNlabelString, xmstr); ac++;
1581 c->browse_button = XmCreateCascadeButton(c->menu_bar, "browse", al, ac);
1582 XtAddCallback(c->browse_button, XmNhelpCallback,(XtCallbackProc)help_cb,
1583 (XtPointer)CALENDAR_HELP_BROWSE_BUTTON);
1584 XtManageChild(c->browse_button);
1585 XmStringFree(xmstr);
1589 * Create the menu bar and all the pulldowns it manages
1590 * Menu bar is associated with its MainWindow parent after this returns
1593 make_menus(Calendar *c)
1598 XtSetArg(al[ac], XmNtopAttachment, XmATTACH_FORM); ac++;
1599 XtSetArg(al[ac], XmNrightAttachment, XmATTACH_FORM); ac++;
1600 XtSetArg(al[ac], XmNleftAttachment, XmATTACH_FORM); ac++;
1601 c->menu_bar = XmCreateMenuBar(c->form, "menuBar", al, ac);
1606 make_browse_menu(c);
1608 ManageChildren(c->menu_bar);
1612 * Create the toolbar in the main window
1615 make_buttons(Calendar *c)
1620 Dimension today_width;
1622 Props_pu *pu = (Props_pu *)c->properties_pu;
1626 today_str = XmStringCreateLocalized(
1627 catgets(c->DT_catd, 1, 88, "Today"));
1629 XtSetArg(al[ac], XmNleftAttachment, XmATTACH_FORM); ac++;
1630 XtSetArg(al[ac], XmNrightAttachment, XmATTACH_FORM); ac++;
1631 XtSetArg(al[ac], XmNtopAttachment, XmATTACH_WIDGET); ac++;
1632 XtSetArg(al[ac], XmNtopWidget, c->menu_bar); ac++;
1633 calendar->toolbar = XmCreateFrame(c->form, "toolbar", al, ac);
1635 s = XtScreen(calendar->toolbar);
1636 XtVaGetValues(calendar->toolbar,
1641 pu->appt_button_xbm = XmGetPixmap(s, "DtCMapt.s.pm", fg, bg);
1642 pu->todo_button_xbm = XmGetPixmap(s, "DtCMtdo.s.pm", fg, bg);
1643 pu->year_button_xbm = XmGetPixmap(s, "DtCMyr.s.pm", fg, bg);
1644 pu->month_button_xbm = XmGetPixmap(s, "DtCMmth.s.pm", fg, bg);
1645 pu->week_button_xbm = XmGetPixmap(s, "DtCMwk.s.pm", fg, bg);
1646 pu->day_button_xbm = XmGetPixmap(s, "DtCMday.s.pm", fg, bg);
1649 XtSetArg(al[ac], XmNfractionBase, 100); ac++;
1650 toolform = XmCreateForm(c->toolbar, "toolform", al, ac);
1653 XtSetArg(al[ac], XmNlabelString, today_str); ac++;
1654 XtSetArg(al[ac], XmNtopAttachment, XmATTACH_FORM); ac++;
1655 XtSetArg(al[ac], XmNbottomAttachment, XmATTACH_FORM); ac++;
1656 XtSetArg(al[ac], XmNleftAttachment, XmATTACH_POSITION); ac++;
1657 XtSetArg(al[ac], XmNleftPosition, 50); ac++;
1658 XtSetArg(al[ac], XmNnavigationType, XmTAB_GROUP); ac++;
1659 c->today = XmCreatePushButton(toolform, "today", al, ac);
1660 XmStringFree(today_str);
1661 XtAddCallback(calendar->today, XmNactivateCallback, today_button, NULL);
1662 XtAddCallback(c->today, XmNhelpCallback, (XtCallbackProc)help_cb,
1663 (XtPointer) CALENDAR_HELP_TODAY_BUTTON);
1666 * Need to centre the today button, as it shrink-wraps its
1667 * label, and will now be out of position. Unpleasant, but
1668 * necessary because XmForm doesn't provide direct means of centring.
1670 XtVaGetValues(c->today, XmNwidth, &today_width, NULL);
1671 XtVaSetValues(c->today, XmNleftOffset, (int) today_width/-2, NULL);
1674 XtSetArg(al[ac], XmNarrowDirection, XmARROW_LEFT); ac++;
1675 XtSetArg(al[ac], XmNtopAttachment, XmATTACH_FORM); ac++;
1676 XtSetArg(al[ac], XmNbottomAttachment, XmATTACH_FORM); ac++;
1677 XtSetArg(al[ac], XmNrightAttachment, XmATTACH_WIDGET); ac++;
1678 XtSetArg(al[ac], XmNrightWidget, c->today); ac++;
1679 XtSetArg(al[ac], XmNnavigationType, XmTAB_GROUP); ac++;
1680 c->previous = XmCreateArrowButtonGadget(toolform, "previous", al, ac);
1681 XtAddCallback(c->previous, XmNactivateCallback, prev_button, NULL);
1682 XtAddCallback(c->previous, XmNhelpCallback, (XtCallbackProc)help_cb,
1683 (XtPointer) CALENDAR_HELP_PREV_BUTTON);
1686 XtSetArg(al[ac], XmNarrowDirection, XmARROW_RIGHT); ac++;
1687 XtSetArg(al[ac], XmNtopAttachment, XmATTACH_FORM); ac++;
1688 XtSetArg(al[ac], XmNbottomAttachment, XmATTACH_FORM); ac++;
1689 XtSetArg(al[ac], XmNleftAttachment, XmATTACH_WIDGET); ac++;
1690 XtSetArg(al[ac], XmNleftWidget, c->today); ac++;
1691 XtSetArg(al[ac], XmNnavigationType, XmTAB_GROUP); ac++;
1692 c->next = XmCreateArrowButtonGadget(toolform, "next", al, ac);
1693 XtAddCallback(c->next, XmNactivateCallback, next_button, NULL);
1694 XtAddCallback(c->next, XmNhelpCallback, (XtCallbackProc)help_cb,
1695 (XtPointer) CALENDAR_HELP_NEXT_BUTTON);
1697 /* toolbar "editor" buttons */
1699 XtSetArg(al[ac], XmNtopAttachment, XmATTACH_FORM); ac++;
1700 XtSetArg(al[ac], XmNbottomAttachment, XmATTACH_FORM); ac++;
1701 XtSetArg(al[ac], XmNleftAttachment, XmATTACH_FORM); ac++;
1702 XtSetArg(al[ac], XmNlabelType, XmPIXMAP); ac++;
1703 XtSetArg(al[ac], XmNlabelPixmap, pu->appt_button_xbm); ac++;
1704 XtSetArg(al[ac], XmNnavigationType, XmTAB_GROUP); ac++;
1705 c->appt_btn = XmCreatePushButtonGadget(toolform, "appt", al, ac);
1706 XtAddCallback(c->appt_btn, XmNactivateCallback, appt_cb, (XtPointer) 0);
1707 XtAddCallback(c->appt_btn, XmNhelpCallback, (XtCallbackProc)help_cb,
1708 (XtPointer) CALENDAR_HELP_APPT_BUTTON);
1711 XtSetArg(al[ac], XmNtopAttachment, XmATTACH_FORM); ac++;
1712 XtSetArg(al[ac], XmNbottomAttachment, XmATTACH_FORM); ac++;
1713 XtSetArg(al[ac], XmNleftAttachment, XmATTACH_WIDGET); ac++;
1714 XtSetArg(al[ac], XmNleftWidget, c->appt_btn); ac++;
1715 XtSetArg(al[ac], XmNlabelType, XmPIXMAP); ac++;
1716 XtSetArg(al[ac], XmNlabelPixmap, pu->todo_button_xbm); ac++;
1717 XtSetArg(al[ac], XmNnavigationType, XmTAB_GROUP); ac++;
1718 c->todo_btn = XmCreatePushButtonGadget(toolform, "todo", al, ac);
1719 XtAddCallback(c->todo_btn, XmNactivateCallback, appt_cb, (XtPointer) 2);
1720 XtAddCallback(c->todo_btn, XmNhelpCallback, (XtCallbackProc)help_cb,
1721 (XtPointer) CALENDAR_HELP_TODO_BUTTON);
1724 XtSetArg(al[ac], XmNtopAttachment, XmATTACH_FORM); ac++;
1725 XtSetArg(al[ac], XmNbottomAttachment, XmATTACH_FORM); ac++;
1726 XtSetArg(al[ac], XmNrightAttachment, XmATTACH_FORM); ac++;
1727 XtSetArg(al[ac], XmNorientation, XmHORIZONTAL); ac++;
1728 c->radio = XmCreateRadioBox(toolform, "radio", al, ac);
1730 /* toolbar "scope navigation" buttons */
1732 XtSetArg(al[ac], XmNlabelType, XmPIXMAP); ac++;
1733 XtSetArg(al[ac], XmNlabelPixmap, pu->day_button_xbm); ac++;
1734 XtSetArg(al[ac], XmNfillOnSelect, True); ac++;
1735 XtSetArg(al[ac], XmNindicatorOn, False); ac++;
1736 XtSetArg(al[ac], XmNshadowThickness, 1); ac++;
1737 XtSetArg(al[ac], XmNnavigationType, XmTAB_GROUP); ac++;
1738 c->day_scope = XmCreateToggleButtonGadget(c->radio, "day", al, ac);
1739 XtAddCallback(c->day_scope, XmNvalueChangedCallback, day_button, NULL);
1740 XtAddCallback(c->day_scope, XmNhelpCallback, (XtCallbackProc)help_cb,
1741 (XtPointer) CALENDAR_HELP_DAY_BUTTON);
1744 XtSetArg(al[ac], XmNlabelType, XmPIXMAP); ac++;
1745 XtSetArg(al[ac], XmNlabelPixmap, pu->week_button_xbm); ac++;
1746 XtSetArg(al[ac], XmNfillOnSelect, True); ac++;
1747 XtSetArg(al[ac], XmNindicatorOn, False); ac++;
1748 XtSetArg(al[ac], XmNshadowThickness, 1); ac++;
1749 XtSetArg(al[ac], XmNnavigationType, XmTAB_GROUP); ac++;
1750 c->week_scope = XmCreateToggleButtonGadget(c->radio, "week", al, ac);
1751 XtAddCallback(c->week_scope, XmNvalueChangedCallback,
1753 XtAddCallback(c->week_scope, XmNhelpCallback, (XtCallbackProc)help_cb,
1754 (XtPointer) CALENDAR_HELP_WEEK_BUTTON);
1757 XtSetArg(al[ac], XmNlabelType, XmPIXMAP); ac++;
1758 XtSetArg(al[ac], XmNlabelPixmap, pu->month_button_xbm); ac++;
1759 XtSetArg(al[ac], XmNfillOnSelect, True); ac++;
1760 XtSetArg(al[ac], XmNindicatorOn, False); ac++;
1761 XtSetArg(al[ac], XmNshadowThickness, 1); ac++;
1762 XtSetArg(al[ac], XmNnavigationType, XmTAB_GROUP); ac++;
1763 c->month_scope = XmCreateToggleButtonGadget(c->radio, "month", al, ac);
1764 XtAddCallback(c->month_scope, XmNvalueChangedCallback,
1765 month_button, NULL);
1766 XtAddCallback(c->month_scope, XmNhelpCallback, (XtCallbackProc)help_cb,
1767 (XtPointer) CALENDAR_HELP_MONTH_BUTTON);
1770 XtSetArg(al[ac], XmNlabelType, XmPIXMAP); ac++;
1771 XtSetArg(al[ac], XmNlabelPixmap, pu->year_button_xbm); ac++;
1772 XtSetArg(al[ac], XmNfillOnSelect, True); ac++;
1773 XtSetArg(al[ac], XmNindicatorOn, False); ac++;
1774 XtSetArg(al[ac], XmNshadowThickness, 1); ac++;
1775 XtSetArg(al[ac], XmNnavigationType, XmTAB_GROUP); ac++;
1776 c->year_scope = XmCreateToggleButtonGadget(c->radio, "year", al, ac);
1777 XtAddCallback(c->year_scope, XmNvalueChangedCallback,
1779 XtAddCallback(c->year_scope, XmNhelpCallback, (XtCallbackProc)help_cb,
1780 (XtPointer) CALENDAR_HELP_YEAR_BUTTON);
1782 ManageChildren(c->radio);
1783 ManageChildren(toolform);
1784 XtManageChild(toolform);
1789 * Ask the server for the list of reminders
1791 static CSA_return_code
1792 get_next_reminder(Calendar *c, time_t tick, CSA_uint32 *num_reminders, CSA_reminder_reference **reminders) {
1793 CSA_return_code stat;
1794 char buffer[BUFSIZ];
1796 _csa_tick_to_iso8601(tick, buffer);
1798 stat = csa_read_next_reminder(c->my_cal_handle, 0, NULL, buffer, num_reminders, reminders, NULL);
1803 static char *daystring[31] = {"1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20","21","22","23","24","25","26","27","28","29","30","31"};
1807 ** Reset the reminders
1810 reset_alarm(Calendar *c)
1812 if (c->view->next_alarm != NULL) {
1813 csa_free(c->view->next_alarm);
1814 c->view->next_alarm = NULL;
1820 ** Set the timer to call the reminder_driver for the next reminder.
1822 extern CSA_return_code
1823 reset_timer(Calendar *c) {
1825 CSA_reminder_reference *last_r = c->view->next_alarm;
1826 CSA_return_code stat;
1827 CSA_reminder_reference *reminders;
1828 CSA_uint32 num_reminders;
1832 * set the reference time to now() or the time the
1833 * last reminder is to happen whichever is earlier
1837 _csa_iso8601_to_tick(last_r->run_time, &reminder_tick);
1839 if (last_r != NULL) {
1840 if (tick > reminder_tick)
1841 tick = reminder_tick;
1844 c->view->next_alarm = NULL;
1847 stat = get_next_reminder(c, tick, &num_reminders, &reminders);
1848 if (stat == SUCCESS && num_reminders > 0) {
1849 if (c->view->next_alarm_id)
1850 XtRemoveTimeOut(c->view->next_alarm_id);
1851 c->view->next_alarm = reminders;
1852 c->view->next_alarm_count = num_reminders;
1853 _csa_iso8601_to_tick(reminders[0].run_time, &reminder_tick);
1854 c->view->next_alarm_id = XtAppAddTimeOut(c->xcontext->app,
1855 (max(reminder_tick - now(), 1) * 1000), reminder_driver, c);
1862 center_today_button(Calendar *c)
1869 * Need to re-centre the today button, as it shrink-wraps its
1870 * label, and will now be out of position. Unpleasant, but
1871 * necessary because XmForm doesn't provide direct means of centring.
1873 XtVaGetValues(c->today, XmNwidth, &width, NULL);
1874 XtVaSetValues(c->today, XmNleftOffset, (int) width/-2, NULL);
1878 move_to_new_day(XtPointer data, XtIntervalId *dummy)
1881 unsigned long tomorrow;
1882 Calendar *c = (Calendar *) data;
1884 if (c->form==NULL) return;
1886 /* figure out time for next timeout invocation */
1887 midnight = next_ndays(now(), 1)+30;
1888 tomorrow = (max(midnight-now(), 1));
1889 tomorrow = tomorrow * 1000;
1891 /* if date displayed is yesterday, update it to today */
1892 if (next_ndays(c->view->date, 1) == next_ndays(now()-daysec, 1)) {
1893 c->view->olddate = c->view->date;
1894 c->view->date = next_ndays(c->view->olddate, 1);
1895 invalidate_cache(c);
1896 paint_canvas(c, NULL, RENDER_UNMAP);
1899 /* update the icon */
1902 /* reinstall this function as timeout handler for tomorrow */
1903 XtAppAddTimeOut(c->xcontext->app, tomorrow, move_to_new_day, c);
1907 setup_new_day_handler(c)
1911 unsigned long next_day;
1913 if (c->form==NULL) return;
1914 midnight = next_ndays(now(), 1)+30;
1915 next_day = (max(midnight-now(), 1));
1916 next_day = next_day * 1000;
1917 XtAppAddTimeOut(c->xcontext->app, next_day, move_to_new_day, c);
1924 wait3_handler(frame, pid, status, rusage)
1925 Notify_client frame;
1928 struct rusage *rusage;
1936 * Miscellaneous cleanup before the application exits.
1937 * Unregister current calendar.
1939 * This is used as the activateCallback handler form the File->Exit
1940 * menu item, and overloaded as the handler from termination by Motif/Xt as
1941 * the XmAddWMProtocolCallback handler for delete_window.
1944 quit_handler(Widget w, XtPointer cdata, XtPointer cbs) {
1945 Calendar *c = (Calendar *)cdata;
1948 fprintf(stderr, "%s", catgets(c->DT_catd, 1, 89, "in quit_handler\n"));
1950 if (editor_showing((Editor*) c->editor) ||
1951 todo_showing((ToDo*) c->todo))
1953 if (editor_showing((Editor*) c->editor))
1954 show_editor(c, 0, 0, False);
1955 if (todo_showing((ToDo*) c->todo))
1957 if (NULL != c->frame)
1958 XBell(XtDisplayOfObject(c->frame), 50);
1962 if (c->view->next_alarm)
1963 csa_free(c->view->next_alarm);
1965 props_clean_up((Props *)c->properties);
1966 if (c->cal_handle != c->my_cal_handle)
1967 csa_logoff(c->cal_handle, NULL);
1968 csa_logoff(c->my_cal_handle, NULL);
1977 if (!calendar) exit(1);
1979 if (calendar->cal_handle != calendar->my_cal_handle)
1980 csa_logoff(calendar->cal_handle, NULL);
1982 if (calendar->my_cal_handle)
1983 csa_logoff(calendar->my_cal_handle, NULL);
1988 static int myabort(dpy, event)
1993 char buffer[MAXNAMELEN];
1994 char mesg[MAXNAMELEN];
1996 char *mtype = "XlibMessage";
1999 XGetErrorText( dpy, event->error_code, buffer, MAXNAMELEN );
2000 XGetErrorDatabaseText( dpy, mtype, "XError", "X Error (intercepted)",
2002 ( void )fprintf( fp, "%s: %s\n ", mesg, buffer );
2003 XGetErrorDatabaseText( dpy, mtype, "MajorCode", "Request Major code %d",
2005 ( void )fprintf( fp, mesg, event->request_code );
2006 sprintf( number, "%d", event->request_code );
2007 XGetErrorDatabaseText( dpy, "XRequest", number, "", buffer, MAXNAMELEN );
2008 ( void )fprintf(fp, " (%s)", buffer );
2010 XGetErrorDatabaseText( dpy, mtype, "MinorCode", "Request Minor code",
2012 ( void )fprintf( fp, mesg, event->minor_code );
2014 XGetErrorDatabaseText( dpy, mtype, "ResourceID", "ResourceID 0x%x",
2016 ( void )fprintf(fp, mesg, event->resourceid );
2018 XGetErrorDatabaseText( dpy, mtype, "ErrorSerial", "Error Serial #%d",
2020 ( void )fprintf( fp, mesg, event->serial );
2022 XGetErrorDatabaseText( dpy, mtype, "CurrentSerial", "Current Serial #%d",
2024 ( void )fprintf( fp, mesg, NextRequest(dpy)-1 );
2032 error_open(Calendar *c) {
2033 char buf[MAXNAMELEN], buf2[MAXNAMELEN];
2035 Props_pu *p = (Props_pu *)c->properties_pu;
2037 char *nl_user = XtNewString(catgets(c->DT_catd, 1, 92, "User name"));
2038 char *nl_host = XtNewString(catgets(c->DT_catd, 1, 93, "Host"));
2039 char *ident = XtNewString(catgets(c->DT_catd, 1, 95, "Continue"));
2041 XtNewString(catgets(c->DT_catd, 1, 94, "Calendar : Error"));
2043 name = cm_target2name(c->calname);
2044 host = cm_target2host(c->calname);
2046 sprintf(buf, "%s %s", catgets(c->DT_catd, 1, 90,
2047 "Error opening Calendar file"), c->calname);
2048 set_message(c->message_text, buf);
2050 sprintf(buf, "%s\n%s: %s, %s: %s", catgets(c->DT_catd, 1, 91,
2051 "rpc.cmsd is not responding for your user name.\nMake sure the inetd process is running and the entry\nin inetd.conf for rpc.cmsd is correct for your host."),
2055 dialog_popup(c->frame,
2056 DIALOG_TITLE, title,
2058 BUTTON_IDENT, 1, ident,
2059 BUTTON_HELP, CMSD_ERROR_HELP,
2060 DIALOG_IMAGE, p->xm_error_pixmap,
2073 error_noloc(Calendar *c, char *name)
2076 Props_pu *p = (Props_pu *)c->properties_pu;
2078 char *ident = XtNewString(catgets(c->DT_catd, 1, 95, "Continue"));
2080 XtNewString(catgets(c->DT_catd, 1, 94, "Calendar : Error"));
2082 sprintf(buf, "%s %s",
2083 catgets(c->DT_catd, 1, 108, "No Calendar Location specified for"),
2085 set_message(c->message_text, buf);
2087 sprintf(buf, "%s", catgets(c->DT_catd, 1, 109, "No location specified; add a hostname to the\nInitial Calendar View in Properties/Display Settings. If\nyou ran Calendar (dtcm) with the -c option, verify you specified a hostname."));
2088 dialog_popup(c->frame,
2089 DIALOG_TITLE, title,
2091 BUTTON_IDENT, 1, ident,
2092 BUTTON_HELP, CAL_LOCATION_ERROR_HELP,
2093 DIALOG_IMAGE, p->xm_error_pixmap,
2100 * this routine is used to logon to user's own calendar.
2101 * If the calendar does not exist, it will create it and logon to it.
2102 * It then registers callback for updates.
2103 * If it fails to logon due to server timeout and retry is True,
2104 * it will set a timer to retry.
2107 open_user_calendar(Calendar *c, Boolean retry)
2109 char buf[MAXNAMELEN], *loc, *user;
2110 CSA_return_code status;
2111 CSA_calendar_user csa_user;
2113 CSA_extension cb_ext;
2114 CSA_extension logon_ext;
2116 CSA_attribute_value val;
2119 c->general->version = 0;
2120 if ((loc = cm_target2location(c->calname)) == NULL) {
2121 error_noloc(c, c->calname);
2124 if ((user = cm_target2name(c->calname)) == NULL) {
2125 error_noloc(c, c->calname);
2131 if (cmfns_use_fns((Props *)c->properties)) {
2132 cm_register_calendar(c->calname, loc);
2136 csa_user.user_name = c->calname;
2137 csa_user.user_type = 0;
2138 csa_user.calendar_user_extensions = NULL;
2139 csa_user.calendar_address = c->calname;
2141 logon_ext.item_code = CSA_X_DT_GET_USER_ACCESS_EXT;
2142 logon_ext.item_data = 0;
2143 logon_ext.item_reference = NULL;
2144 logon_ext.extension_flags = CSA_EXT_LAST_ELEMENT;
2146 status = csa_logon(NULL, &csa_user, NULL, NULL, NULL,
2147 &c->my_cal_handle, &logon_ext);
2149 if (status == CSA_E_CALENDAR_NOT_EXIST) {
2150 /* get common locale/charset name */
2151 attr.name = CSA_CAL_ATTR_CHARACTER_SET;
2153 attr.attribute_extensions = NULL;
2154 val.type = CSA_VALUE_STRING;
2155 val.item.string_value = NULL;
2156 _DtI18NXlateOpToStdLocale(DtLCX_OPER_SETLOCALE,
2157 setlocale(LC_CTYPE, NULL), &val.item.string_value,
2160 /* create the calendar */
2161 if ((status = csa_add_calendar(0, &csa_user, 1, &attr, NULL))
2162 == CSA_E_UNSUPPORTED_ATTRIBUTE) {
2163 /* server with version 4 or less does not support
2164 * the CSA_CAL_ATTR_CHARACTER_SET cal attribute
2166 status = csa_add_calendar(0, &csa_user, 0, NULL,
2169 if (val.item.string_value) free(val.item.string_value);
2171 if (status == CSA_SUCCESS)
2172 status = csa_logon(NULL, &csa_user, NULL, NULL, NULL,
2173 &c->my_cal_handle, &logon_ext);
2179 viewother = strcmp(c->calname, c->view->current_calendar);
2181 if (status != CSA_SUCCESS) {
2182 if (status == CSA_X_DT_E_SERVER_TIMEOUT && retry) {
2183 XtAppAddTimeOut(c->xcontext->app,
2184 (viewother ? 15*1000 : 0), logon_retry, c);
2191 c->my_access = logon_ext.item_data;
2193 c->my_cal_version = get_data_version(c->my_cal_handle);
2195 flags = CSA_CB_ENTRY_ADDED | CSA_CB_ENTRY_DELETED |
2196 CSA_CB_ENTRY_UPDATED;
2197 cb_ext.item_code = CSA_X_XT_APP_CONTEXT_EXT;
2198 cb_ext.item_data = (CSA_uint32)c->xcontext->app;
2199 cb_ext.extension_flags = CSA_EXT_LAST_ELEMENT;
2200 csa_register_callback(c->my_cal_handle, flags, update_handler,
2203 if (c->my_cal_version < DTCM_DATA_VER)
2204 set_message(c->message_text, catgets(c->DT_catd, 1, 186,
2205 "Calendar (dtcm) and rpc.cmsd versions are different."));
2210 Message 113 : ``Calendar'' is used in the main titlebar
2211 of the tool: Calendar : user@host.
2213 sprintf(buf, "%s : %s", catgets(c->DT_catd, 1, 113, "Calendar"),
2215 XtVaSetValues(c->frame, XmNtitle, buf, NULL);
2222 open_initial_calendar(
2224 CSA_return_code *status)
2226 char buf[MAXNAMELEN], *loc, *user;
2227 CSA_flags flags = 0;
2228 CSA_extension cb_ext;
2229 CSA_extension logon_ext;
2230 CSA_calendar_user csa_user;
2232 if ((user = cm_target2name(c->view->current_calendar)) == NULL) {
2233 error_noloc(c, c->view->current_calendar);
2237 if ((loc = cm_target2location(c->view->current_calendar)) == NULL) {
2238 error_noloc(c, c->view->current_calendar);
2242 csa_user.user_name = c->view->current_calendar;
2243 csa_user.user_type = 0;
2244 csa_user.calendar_user_extensions = NULL;
2245 csa_user.calendar_address = c->view->current_calendar;
2247 logon_ext.item_code = CSA_X_DT_GET_USER_ACCESS_EXT;
2248 logon_ext.item_data = 0;
2249 logon_ext.item_reference = NULL;
2250 logon_ext.extension_flags = CSA_EXT_LAST_ELEMENT;
2252 *status = csa_logon(NULL, &csa_user, NULL, NULL, NULL, &c->cal_handle,
2256 if (*status != CSA_SUCCESS)
2259 c->user_access = logon_ext.item_data;
2262 * Get the version number of the new calendar
2265 c->general->version = get_data_version(c->cal_handle);
2267 if (c->general->version < DTCM_DATA_VER)
2268 set_message(c->message_text, catgets(c->DT_catd, 1, 186,
2269 "Calendar (dtcm) and rpc.cmsd versions are different."));
2272 flags = CSA_CB_ENTRY_ADDED | CSA_CB_ENTRY_DELETED |
2273 CSA_CB_ENTRY_UPDATED;
2274 cb_ext.item_code = CSA_X_XT_APP_CONTEXT_EXT;
2275 cb_ext.item_data = (CSA_uint32)c->xcontext->app;
2276 cb_ext.extension_flags = CSA_EXT_LAST_ELEMENT;
2277 csa_register_callback(c->cal_handle, flags,
2278 update_handler, NULL, &cb_ext);
2280 sprintf(buf, "%s : %s", catgets(c->DT_catd, 1, 113, "Calendar"),
2281 c->view->current_calendar);
2282 XtVaSetValues(c->frame, XmNtitle, buf, NULL);
2288 * try to logon to user's own calendar
2291 logon_retry(XtPointer data, XtIntervalId *dummy)
2293 Calendar *c = (Calendar *)data;
2295 if (c->my_cal_handle == 0 && (open_user_calendar(c, False) == True))
2297 _DtTurnOnHourGlass(c->frame);
2299 if (!strcmp(c->calname, c->view->current_calendar)) {
2300 c->cal_handle = c->my_cal_handle;
2301 c->user_access = c->my_access;
2302 c->general->version = c->my_cal_version;
2303 invalidate_cache(c);
2304 paint_canvas((Calendar *)data, NULL, RENDER_UNMAP);
2306 _DtTurnOffHourGlass(c->frame);
2311 view_event(Widget w, XtPointer client_data, XtPointer cbs)
2313 Calendar *c = calendar;
2314 XEvent *event = (XEvent *) client_data;
2318 if (c->view->glance == monthGlance)
2320 else if (c->view->glance == weekGlance)
2322 else if (c->view->glance == dayGlance)
2325 else if (c->view->glance == yearGlance)
2333 (void)fprintf(stderr, "Usage: dtcm [ -c calendar ] [-v view ]");
2334 (void)fprintf(stderr, " [ -p printer ] [ generic-tool-arguments ]\n" );
2336 (void)kill(child, SIGKILL);
2341 * Calculation of default calendar name for the application
2342 * Must return srting value in val_ret->addr
2343 * Invoked by the XtRCallProc resource initialization mechanism.
2346 def_cal(Widget w, int offset, XrmValue *val_ret)
2348 val_ret->addr = cm_strdup(get_char_prop((Props *)calendar->properties,
2353 def_view(Widget w, int offset, XrmValue *val_ret)
2357 value_p = get_int_prop((Props *)calendar->properties, CP_DEFAULTVIEW);
2360 val_ret->addr = cm_strdup("year");
2363 val_ret->addr = cm_strdup("month");
2366 val_ret->addr = cm_strdup("week");
2369 val_ret->addr = cm_strdup("day");
2375 * Command line options definition
2377 static XrmOptionDescRec options[] = {
2378 { "-v", "__defaultView", XrmoptionSepArg, NULL },
2379 { "-c", "__defaultCalendar", XrmoptionSepArg, NULL },
2380 { "-p", "__defaultPrinter", XrmoptionSepArg, NULL },
2381 { "-trace", "__trace", XrmoptionNoArg, (caddr_t)"FALSE" },
2382 { "-session", "__session", XrmoptionSepArg, NULL }
2386 * Application-defined resources
2388 static XtResource resources[] = {
2390 { "__defaultView", "__DefaultView", XtRString, sizeof(String),
2391 XtOffset(DtCmAppResourcesPtr, default_view), XtRCallProc,
2392 (XtPointer)def_view},
2393 /* default calendar */
2394 { "__defaultCalendar", "__DefaultCalendar", XtRString, sizeof(String),
2395 XtOffset(DtCmAppResourcesPtr, default_calendar), XtRCallProc,
2396 (XtPointer)def_cal},
2397 /* default printer */
2398 { "__defaultPrinter", "__DefaultPrinter", XtRString, sizeof(String),
2399 XtOffset(DtCmAppResourcesPtr, default_printer), XtRString,
2402 { "labelFont", "LabelFont", XmRFontList, sizeof(XmFontList),
2403 XtOffset(DtCmAppResourcesPtr, labelfontlist), XtRString,
2405 { "labelFont", "LabelFont", XtRString, sizeof(String),
2406 XtOffset(DtCmAppResourcesPtr, labelfont), XtRString,
2409 { "viewFont", "ViewFont", XmRFontList, sizeof(XmFontList),
2410 XtOffset(DtCmAppResourcesPtr, viewfontlist), XtRString,
2412 /* user font (backup for view font */
2413 { "userFont", "UserFont", XtRString, sizeof(String),
2414 XtOffset(DtCmAppResourcesPtr, userfont), XtRString,
2415 "-b&h-lucidatypewriter-medium-r-*-sans-*-120-*-*-*-*-*-*:"},
2416 { "userFont", "UserFont", XmRFontList, sizeof(XmFontList),
2417 XtOffset(DtCmAppResourcesPtr, userfontlist), XtRString,
2418 "-b&h-lucidatypewriter-medium-r-*-sans-*-120-*-*-*-*-*-*:"},
2419 /* system font (backup for label font */
2420 { "systemFont", "SystemFont", XmRFontList, sizeof(XmFontList),
2421 XtOffset(DtCmAppResourcesPtr, systemfontlist), XtRString,
2422 "-b&h-lucida-medium-r-*-sans-*-120-*-*-*-*-*-*:"},
2423 { "systemFont", "SystemFont", XtRString, sizeof(String),
2424 XtOffset(DtCmAppResourcesPtr, systemfont), XtRString,
2425 "-b&h-lucida-medium-r-*-sans-*-120-*-*-*-*-*-*:"},
2427 { "boldFont", "BoldFont", XmRFontList, sizeof(XmFontList),
2428 XtOffset(DtCmAppResourcesPtr, boldfontlist), XtRString,
2431 { "iconFont", "IconFont", XmRFontList, sizeof(XmFontList),
2432 XtOffset(DtCmAppResourcesPtr, iconfontlist), XtRString,
2434 /* application font family */
2435 { "applicationFontFamily", "ApplicationFontFamily", XtRString,
2436 sizeof(XmString), XtOffset(DtCmAppResourcesPtr, app_font_family),
2437 XtRString, "application"},
2438 /* Session file from -session option */
2439 { "__session", "__Session", XtRString,
2440 sizeof(XmString), XtOffset(DtCmAppResourcesPtr, session_file),
2443 { "__trace", "__trace", XtRBoolean,
2444 sizeof(Boolean), XtOffset(DtCmAppResourcesPtr, debug),
2449 * This routine returns the user's calendar in the format, user@location.
2450 * "user" is the user's login name. If the calendar location is not
2451 * specified in the "user calendar location" option, "location" defaults
2452 * to the local host.
2457 char *name, *uname, *loc;
2458 Boolean needfree = False;
2460 uname = cm_get_uname();
2461 if ((loc = get_char_prop((Props *)calendar->properties, CP_CALLOC)) &&
2466 loc = cm_get_local_host();
2468 name = malloc(strlen(uname) + strlen(loc) + 2);
2469 sprintf(name, "%s@%s", uname, loc);
2471 if (needfree) free(loc);
2477 init_calendar(argc, argv)
2478 int argc; char **argv;
2482 register char *s_ptr, *d_ptr;
2485 char bind_home[MAXPATHLEN];
2487 Dimension w, h, label_width;
2488 String translations =
2489 "<Btn1Down>: view_event() \n\
2490 <Btn1Motion>: view_event()";
2491 static XtActionsRec action_table[] = {
2492 {(String) "view_event", (XtActionProc) view_event},
2493 {(String) "TranslationDragStart",
2494 TranslationDragStart},
2495 {"dtcm-process-press",
2498 DtCmAppResources app_data;
2499 Atom xa_WM_SAVE_YOURSELF;
2500 unsigned long valuemask;
2501 XSetWindowAttributes attrs;
2508 calendar = (Calendar*) ckalloc(sizeof(Calendar));
2509 calendar->view = (View*) ckalloc(sizeof(View));
2510 calendar->general = (General*) ckalloc(sizeof(General));
2511 calendar->view->nwks = numwks(today);
2512 calendar->app_data = (DtCmAppResourcesPtr)
2513 ckalloc(sizeof(DtCmAppResources));
2514 calendar->editor = (caddr_t)ckalloc(sizeof(Editor));
2515 calendar->geditor = (caddr_t)ckalloc(sizeof(GEditor));
2516 calendar->todo = (caddr_t)ckalloc(sizeof(ToDo));
2517 calendar->browselist = (caddr_t)ckalloc(sizeof(Browselist));
2518 calendar->fonts = (Cal_Fonts *) ckalloc(sizeof(Cal_Fonts));
2519 calendar->fonts->labelfont = (Cal_Font *) ckalloc(sizeof(Cal_Font));
2520 calendar->fonts->viewfont = (Cal_Font *) ckalloc(sizeof(Cal_Font));
2521 calendar->fonts->boldfont = (Cal_Font *) ckalloc(sizeof(Cal_Font));
2522 calendar->fonts->iconfont = (Cal_Font *) ckalloc(sizeof(Cal_Font));
2523 calendar->fonts->userfont = (Cal_Font *) ckalloc(sizeof(Cal_Font));
2526 * Save the argv list into a WM_COMMAND format string for
2527 * later use when the application is asked to save itself.
2528 * The format is a buffer with a series of null terminated
2529 * strings within it, one for each string in the argv list.
2530 * Thus the total length is that of the arguments plus a null
2531 * byte for each argument.
2533 for (i = 0, calendar->view->wm_cmdstrlen = 0; i < argc; i++) {
2534 /* Do not record the -session option as we add that
2535 * automatically when we save the session.
2537 if (!strcmp("-session", argv[i])) {
2541 calendar->view->wm_cmdstrlen += strlen(argv[i]) + 1;
2544 d_ptr = calendar->view->wm_cmdstr =
2545 malloc(calendar->view->wm_cmdstrlen);
2546 for (i = 0; i < argc; i++)
2548 char *s_ptr = argv[i];
2550 /* Do not record the -session option as we add that
2551 * automatically when we save the session.
2553 if (!strcmp("-session", argv[i])) {
2559 *d_ptr++ = *s_ptr++;
2564 p = (Props *)ckalloc(sizeof(Props));
2565 calendar->properties = (caddr_t)p;
2566 calendar->properties_pu = (caddr_t) ckalloc(sizeof(Props_pu));
2567 calendar->items = (Items *) ckalloc(sizeof(Items));
2569 cal_convert_cmrc(p);
2570 if ((start = get_int_prop(p, CP_DAYBEGIN)) < 0)
2572 else if (start > 23)
2574 if ((stop = get_int_prop(p, CP_DAYEND)) <= start)
2578 set_int_prop(p, CP_DAYBEGIN, start);
2579 set_int_prop(p, CP_DAYEND, stop);
2581 calendar->frame = XtVaAppInitialize(&app, "Dtcm",
2582 options, XtNumber(options), &argc, argv,
2584 XmNwidth, 650, XmNheight, 730,
2585 XmNmappedWhenManaged, False,
2591 dpy = XtDisplayOfObject(calendar->frame);
2594 * Initialize DtSvc for drag and drop stuff
2596 DtInitialize(dpy, calendar->frame, argv[0], "Dtcm");
2599 * Add X error handler to handle BadAlloc errors on the print server.
2601 oldXErrorHandler = XSetErrorHandler(newXErrorHandler);
2604 * Load the application resources and set the quit handler for the main
2607 XtGetApplicationResources(calendar->frame, calendar->app_data,
2608 resources, XtNumber(resources), NULL, 0);
2610 /* Handle the -session option */
2611 if (calendar->app_data->session_file)
2612 GetSessionInfo(calendar);
2614 if (!init_fonts(calendar)) {
2615 fprintf (stderr, "%s: Failed to find required fonts ", argv[0]);
2616 fprintf (stderr, "(``fixed'' and ``variable'')...exiting.\n");
2620 setup_quit_handler(calendar->frame, quit_handler, (caddr_t)calendar);
2623 * Setup the handlers for the saving of session information
2625 xa_WM_SAVE_YOURSELF = XInternAtom(dpy, "WM_SAVE_YOURSELF", False);
2626 XmAddWMProtocolCallback(calendar->frame, xa_WM_SAVE_YOURSELF,
2627 CMSaveSessionCB, NULL);
2630 * Must call this to cause Motif to recognise tear_off_enabled in a
2631 * resource file. Mmm... :-)
2633 XmRepTypeInstallTearOffModelConverter();
2635 calendar->view->date = today;
2636 calendar->view->outside_margin = VIEWMARGIN;
2637 calendar->view->current_selection = (caddr_t)ckalloc(sizeof(Selection));
2638 calendar->user = cm_get_credentials();
2640 #if 0 /* use this when we go with mapped names */
2641 cm_get_yptarget(cm_get_uname(), &calendar->calname);
2642 if (calendar->calname == NULL)
2643 /* No mapping in NIS+ db */
2644 calendar->calname = cm_get_deftarget();
2647 calendar->calname = get_user_calendar();
2648 calendar->view->current_calendar =
2649 cm_strdup(calendar->app_data->default_calendar);
2651 /* Open the message catalog for internationalization */
2652 calendar->DT_catd = catopen(DTCM_CAT, NL_CAT_LOCALE);
2655 XtSetArg(al[ac], XmNfractionBase, 100); ac++;
2656 XtSetArg(al[ac], XmNmarginWidth, 0); ac++;
2657 calendar->form = XmCreateForm(calendar->frame, "form", al, ac);
2659 make_menus(calendar);
2660 create_all_pixmaps((Props_pu *)calendar->properties_pu,
2661 calendar->menu_bar);
2662 make_buttons(calendar);
2665 XtSetArg(al[ac], XmNtranslations,
2666 XtParseTranslationTable(translations)); ac++;
2667 XtSetArg(al[ac], XmNresizePolicy, XmRESIZE_ANY); ac++;
2668 XtSetArg(al[ac], XmNtopAttachment, XmATTACH_WIDGET); ac++;
2669 XtSetArg(al[ac], XmNtopWidget, calendar->previous); ac++;
2670 XtSetArg(al[ac], XmNrightAttachment, XmATTACH_FORM); ac++;
2671 XtSetArg(al[ac], XmNleftAttachment, XmATTACH_FORM); ac++;
2672 XtSetArg(al[ac], XmNleftOffset, 1); ac++;
2673 calendar->canvas = XmCreateDrawingArea(calendar->form, "canvas",
2675 XtAddCallback(calendar->canvas, XmNhelpCallback,
2676 (XtCallbackProc)help_view_cb, NULL);
2678 XtSetArg(al[ac], XmNalignment, XmALIGNMENT_BEGINNING); ac++;
2679 XtSetArg(al[ac], XmNrightAttachment, XmATTACH_FORM); ac++;
2680 XtSetArg(al[ac], XmNbottomAttachment, XmATTACH_FORM); ac++;
2681 XtSetArg(al[ac], XmNleftAttachment, XmATTACH_FORM); ac++;
2682 XtSetArg(al[ac], XmNmarginHeight, 0); ac++;
2683 calendar->message_text = XmCreateLabelGadget(calendar->form, "message",
2685 set_message(calendar->message_text, " ");
2687 XtVaSetValues(calendar->canvas,
2688 XmNbottomAttachment, XmATTACH_WIDGET,
2689 XmNbottomWidget, calendar->message_text,
2692 XtAppAddActions(app, (XtActionList) &action_table,
2693 XtNumber(action_table));
2695 ManageChildren(calendar->form);
2696 XtManageChild(calendar->form);
2699 * Enforce a "reasonable" size. Things are unreadable and ugly any
2700 * smaller than 400x400, including the grids. (The text will likely
2701 * be unreadable even at this size, but it's all a matter of giving
2702 * enough rope. No particular reason for the numbers used for maximums.
2704 XtRealizeWidget(calendar->frame);
2706 XtVaGetValues(calendar->frame, XmNwidth, &w, XmNheight, &h, NULL);
2707 XtVaSetValues(calendar->frame,
2708 XmNminWidth, min(400,w),
2709 XmNminHeight, min(450,h),
2712 XtMapWidget(calendar->frame);
2714 XtAddCallback(calendar->canvas, XmNresizeCallback, resize_proc, NULL);
2715 XtAddCallback(calendar->canvas, XmNinputCallback, view_event, NULL);
2716 XtAddCallback(calendar->canvas, XmNexposeCallback, repaint_proc, NULL);
2718 cm_register_drop_site(calendar, calendar->form);
2720 calendar->xcontext = gr_create_xcontext(calendar, calendar->canvas,
2723 gr_init(calendar->xcontext, calendar->canvas);
2724 set_default_view(calendar);
2726 init_strings(); /* strings in timeops.c */
2728 calendar->view->day_info = (caddr_t) ckalloc(sizeof(Day));
2732 /* Initialized FNS */
2736 status = cmtt_init("Calendar", calendar, app, calendar->frame);
2737 if (TT_OK != status) {
2739 errfmt = catgets(calendar->DT_catd, 2, 2,
2740 "Could not connect to ToolTalk:\n%s\n");
2741 DieFromToolTalkError( calendar, errfmt, status );
2745 * This needs to be done before we open the calendar because
2746 * if we fail to open the calendar an error dialog is displayed.
2747 * This causes the main canvas to be painted but this doesn't
2748 * happen correctly if we haven't cached the diminsions.
2750 XtVaGetValues(calendar->canvas, XmNwidth, &w, XmNheight, &h, NULL);
2751 cache_dims(calendar, w, h);
2754 * Paint the icon before we log into the calendar to avoid the
2755 * user seeing the default icon while the logon process is
2758 paint_icon(calendar);
2761 * set version of cms and register client
2763 _DtTurnOnHourGlass(calendar->frame);
2765 if (open_user_calendar(calendar, True) == True)
2766 reset_timer(calendar);
2768 if (strcmp(calendar->calname, calendar->view->current_calendar)) {
2769 CSA_return_code status = CSA_SUCCESS;
2771 if (open_initial_calendar(calendar, &status) == False) {
2772 /* failed to logon to the initial calendar,
2773 * display user's own calendar instead
2775 free(calendar->view->current_calendar);
2776 calendar->view->current_calendar =
2777 cm_strdup(calendar->calname);
2779 if (calendar->my_cal_handle) {
2780 char buf[MAXNAMELEN];
2782 calendar->cal_handle = calendar->my_cal_handle;
2783 calendar->user_access = calendar->my_access;
2784 calendar->general->version =
2785 calendar->my_cal_version;
2786 sprintf(buf, "%s : %s",
2787 catgets(calendar->DT_catd, 1, 113,
2790 XtVaSetValues(calendar->frame, XmNtitle, buf,
2793 backend_err_msg(calendar->frame,
2794 calendar->view->current_calendar, status,
2796 calendar->properties_pu)->xm_error_pixmap);
2799 calendar->cal_handle = calendar->my_cal_handle;
2800 calendar->user_access = calendar->my_access;
2801 calendar->general->version = calendar->my_cal_version;
2804 signal(SIGINT, sig_int_handler);
2806 /* A cache will be allocated if error dialog has been displayed
2807 * this call is to clear the cache so that the main view
2808 * can be properly updated
2810 invalidate_cache(calendar);
2812 _DtTurnOffHourGlass(calendar->frame);
2814 setup_new_day_handler(calendar);
2815 center_today_button(calendar);
2817 /* Twiddle controls for old versions */
2819 if (calendar->general->version && calendar->general->version < DATAVER2)
2821 if (todo_showing((ToDo *)calendar->todo))
2822 XtPopdown(((ToDo *)calendar->todo)->frame);
2823 XtUnmanageChild(calendar->todo_btn);
2824 XtSetSensitive(calendar->todo_edit_menu, False);
2825 XtSetSensitive(calendar->todo_view_menu, False);
2828 XtManageChild(calendar->todo_btn);
2829 XtSetSensitive(calendar->todo_edit_menu, True);
2830 XtSetSensitive(calendar->todo_view_menu, True);
2835 newXErrorHandler(Display *dsp, XErrorEvent *event)
2837 if ((event->error_code == BadAlloc) &&
2838 (dsp == pd_get_print_display(calendar)))
2840 pd_set_bad_alloc_error(calendar, True);
2844 return (*oldXErrorHandler)(dsp, event);
2848 main(int argc, char **argv) {
2849 /* Handle SIGCHLD for dtcm */
2851 struct sigaction sa, osa;
2853 sa.sa_handler = SIG_IGN;
2854 # ifdef SA_NOCLDWAIT
2855 sa.sa_flags = SA_NOCLDWAIT;
2859 sigemptyset(&sa.sa_mask);
2861 sigaction(SIGCHLD, &sa, &osa);
2863 XtSetLanguageProc(NULL, NULL, NULL);
2864 _DtEnvControl(DT_ENV_SET); /* set up environment variables */
2866 init_calendar(argc, argv);
2868 XtAppMainLoop (app);
2875 extern CSA_return_code
2879 Render_Type render_type)
2881 /* REPAINT, CLEAR_FIRST, UNMAP */
2882 Glance glance = c->view->glance;
2883 CSA_return_code stat = CSA_SUCCESS;
2887 switch (render_type) {
2888 case RENDER_REPAINT:
2889 repaint_damaged_month(c, rect);
2891 case RENDER_CLEAR_FIRST:
2892 gr_clear_area(c->xcontext, 0, 0,
2893 c->view->winw, c->view->winh);
2894 repaint_damaged_month(c, rect);
2897 XtUnmapWidget(c->canvas);
2898 prepare_to_paint_monthview(c, rect);
2899 XtMapWidget(c->canvas);
2904 stat = paint_year(c);
2907 paint_weekview(c, rect);
2914 paint_grid(c, rect);
2925 static char *CM_name;
2927 /* we now make a composite name for the tool, combining
2928 * "Calendar Manager" with a release identifier
2930 if (CM_name == NULL) {
2931 sprintf(s, "%s", catgets(calendar->DT_catd, 1, 113, "Calendar"));
2932 CM_name = (char*)ckalloc(cm_strlen(s) + 2);
2934 sprintf(CM_name, "%s", s);
2937 return (char*)CM_name;
2942 in_range(time_t start, time_t stop, time_t tick) {
2943 if (tick >= start && tick <= stop)
2949 today_inrange(Calendar *c, time_t day_in_range) {
2951 Boolean inrange = False;
2953 /* is today in range of current view? */
2954 get_range(c->view->glance, day_in_range, &start, &stop);
2955 inrange = in_range(start, stop, time(0));
2961 char *display_lang="C";
2963 months[1] = strdup(catgets(calendar->DT_catd, 1, 114, "January"));
2964 months[2] = strdup(catgets(calendar->DT_catd, 1, 115, "February"));
2965 months[3] = strdup(catgets(calendar->DT_catd, 1, 116, "March"));
2966 months[4] = strdup(catgets(calendar->DT_catd, 1, 117, "April"));
2967 months[5] = strdup(catgets(calendar->DT_catd, 1, 118, "May"));
2968 months[6] = strdup(catgets(calendar->DT_catd, 1, 119, "June"));
2969 months[7] = strdup(catgets(calendar->DT_catd, 1, 120, "July"));
2970 months[8] = strdup(catgets(calendar->DT_catd, 1, 121, "August"));
2971 months[9] = strdup(catgets(calendar->DT_catd, 1, 122, "September"));
2972 months[10] = strdup(catgets(calendar->DT_catd, 1, 123, "October"));
2973 months[11] = strdup(catgets(calendar->DT_catd, 1, 124, "November"));
2974 months[12] = strdup(catgets(calendar->DT_catd, 1, 125, "December"));
2976 months2[1] = strdup(catgets(calendar->DT_catd, 1, 126, "Jan"));
2977 months2[2] = strdup(catgets(calendar->DT_catd, 1, 127, "Feb"));
2978 months2[3] = strdup(catgets(calendar->DT_catd, 1, 128, "Mar"));
2979 months2[4] = strdup(catgets(calendar->DT_catd, 1, 129, "Apr"));
2980 months2[5] = strdup(catgets(calendar->DT_catd, 1, 130, "May"));
2981 months2[6] = strdup(catgets(calendar->DT_catd, 1, 131, "Jun"));
2982 months2[7] = strdup(catgets(calendar->DT_catd, 1, 132, "Jul"));
2983 months2[8] = strdup(catgets(calendar->DT_catd, 1, 133, "Aug"));
2984 months2[9] = strdup(catgets(calendar->DT_catd, 1, 134, "Sep"));
2985 months2[10] = strdup(catgets(calendar->DT_catd, 1, 135, "Oct"));
2986 months2[11] = strdup(catgets(calendar->DT_catd, 1, 136, "Nov"));
2987 months2[12] = strdup(catgets(calendar->DT_catd, 1, 137, "Dec"));
2990 Attention Translator:
2992 The strings (message number 138-144) are abbreviations to
2993 the days of the week:
3005 days[0] = strdup(catgets(calendar->DT_catd, 1, 138, "Sun"));
3006 days[1] = strdup(catgets(calendar->DT_catd, 1, 139, "Mon"));
3007 days[2] = strdup(catgets(calendar->DT_catd, 1, 140, "Tue"));
3008 days[3] = strdup(catgets(calendar->DT_catd, 1, 141, "Wed"));
3009 days[4] = strdup(catgets(calendar->DT_catd, 1, 142, "Thu"));
3010 days[5] = strdup(catgets(calendar->DT_catd, 1, 143, "Fri"));
3011 days[6] = strdup(catgets(calendar->DT_catd, 1, 144, "Sat"));
3012 days[7] = strdup(catgets(calendar->DT_catd, 1, 138, "Sun"));
3014 days2[0] = strdup(catgets(calendar->DT_catd, 1, 146, "Sunday"));
3015 days2[1] = strdup(catgets(calendar->DT_catd, 1, 147, "Monday"));
3016 days2[2] = strdup(catgets(calendar->DT_catd, 1, 148, "Tuesday"));
3017 days2[3] = strdup(catgets(calendar->DT_catd, 1, 149, "Wednesday"));
3018 days2[4] = strdup(catgets(calendar->DT_catd, 1, 150, "Thursday"));
3019 days2[5] = strdup(catgets(calendar->DT_catd, 1, 151, "Friday"));
3020 days2[6] = strdup(catgets(calendar->DT_catd, 1, 152, "Saturday"));
3021 days2[7] = strdup(catgets(calendar->DT_catd, 1, 146, "Sunday"));
3024 Attention Translator:
3026 The strings (message number 154-160, 168) are one letter
3027 abbreviations to the days of the week:
3029 S --> Sunday (message 154)
3035 S --> Saturday (message 160)
3038 days3[0] = strdup(catgets(calendar->DT_catd, 1, 154, "S"));
3039 days3[1] = strdup(catgets(calendar->DT_catd, 1, 155, "M"));
3040 days3[2] = strdup(catgets(calendar->DT_catd, 1, 156, "T"));
3041 days3[3] = strdup(catgets(calendar->DT_catd, 1, 157, "W"));
3042 days3[4] = strdup(catgets(calendar->DT_catd, 1, 158, "T"));
3043 days3[5] = strdup(catgets(calendar->DT_catd, 1, 159, "F"));
3044 days3[6] = strdup(catgets(calendar->DT_catd, 1, 160, "S"));
3045 days3[7] = strdup(catgets(calendar->DT_catd, 1, 154, "S"));
3048 Attention Translator:
3050 The strings (message number 170-176) are abbreviations to
3051 the days of the week:
3062 days4[0] = strdup(catgets(calendar->DT_catd, 1, 170, "SUN"));
3063 days4[1] = strdup(catgets(calendar->DT_catd, 1, 171, "MON"));
3064 days4[2] = strdup(catgets(calendar->DT_catd, 1, 172, "TUE"));
3065 days4[3] = strdup(catgets(calendar->DT_catd, 1, 173, "WED"));
3066 days4[4] = strdup(catgets(calendar->DT_catd, 1, 174, "THU"));
3067 days4[5] = strdup(catgets(calendar->DT_catd, 1, 175, "FRI"));
3068 days4[6] = strdup(catgets(calendar->DT_catd, 1, 176, "SAT"));
3069 days4[7] = strdup(catgets(calendar->DT_catd, 1, 170, "SUN"));
3074 switch_it(Calendar *c, char *new_calendar, WindowType win)
3077 char buf[MAXNAMELEN], *loc, *user;
3078 Tempbr *tb = (Tempbr*)c->tempbr;
3079 CSA_return_code status;
3080 CSA_session_handle new_cal_handle;
3082 CSA_calendar_user csa_user;
3083 CSA_extension logon_ext;
3085 set_message(c->message_text, "\0");
3088 * Check to see if we're already browsing the requested calendar ...
3089 * If we have a valid calendar handle, we can return otherwise
3092 if (strcmp(new_calendar, c->view->current_calendar) == 0 &&
3094 sprintf(buf, catgets(c->DT_catd, 1, 178,
3095 "You Are Already Browsing %s"), new_calendar);
3096 set_message(c->message_text, buf);
3097 if (tb && tb->show_message)
3098 set_message(tb->show_message, buf);
3102 invalidate_cache(c);
3105 * Open the new calendar for browsing (or use my_cal_handle if we're
3106 * switching to our calendar).
3108 if (strcmp(new_calendar, c->calname) == 0) {
3109 if (c->my_cal_handle == 0) {
3110 if (open_user_calendar(c, False) == True)
3115 new_cal_handle = c->my_cal_handle;
3116 c->user_access = c->my_access;
3118 if ((user = cm_target2name(new_calendar)) == NULL) {
3119 if (!strcmp(new_calendar, ""))
3120 sprintf(buf, "%s", catgets(c->DT_catd, 1, 619, "Please enter a calendar name in the format: <user>@<hostname>"));
3122 sprintf(buf, catgets(c->DT_catd, 1, 620,
3123 "Unknown calendar. Calendar name needed: <name>%s"),
3125 set_message(c->message_text, buf);
3126 if (win == tempbrowser)
3127 set_message(tb->show_message, buf);
3131 if ((loc = cm_target2location(new_calendar)) == NULL) {
3132 if (!strcmp(new_calendar, ""))
3133 sprintf(buf, "%s", catgets(c->DT_catd, 1, 619, "Please enter a calendar name in the format: <user>@<hostname>"));
3135 sprintf(buf, catgets(c->DT_catd, 1, 622,
3136 "Unknown calendar. Hostname needed: %s@<hostname>"),
3138 set_message(c->message_text, buf);
3139 if (win == tempbrowser)
3140 set_message(tb->show_message, buf);
3146 * Note this assumes your calendar has already been opened;
3147 * this should have been done at start-up by open_user_calendar.
3150 csa_user.user_name = new_calendar;
3151 csa_user.user_type = 0;
3152 csa_user.calendar_user_extensions = NULL;
3153 csa_user.calendar_address = new_calendar;
3155 logon_ext.item_code = CSA_X_DT_GET_USER_ACCESS_EXT;
3156 logon_ext.item_data = 0;
3157 logon_ext.item_reference = NULL;
3158 logon_ext.extension_flags = CSA_EXT_LAST_ELEMENT;
3160 status = csa_logon(NULL, &csa_user, NULL, NULL, NULL,
3161 &new_cal_handle, &logon_ext);
3165 if (status != CSA_SUCCESS) {
3166 backend_err_msg(c->frame, new_calendar, status,
3167 ((Props_pu *)c->properties_pu)->xm_error_pixmap);
3168 if (tb && tb->show_message)
3169 set_message(tb->show_message, "\0");
3172 c->user_access = logon_ext.item_data;
3175 set_message(((Editor *)c->editor)->message_text, " ");
3176 set_message(((GEditor *)c->geditor)->message_text, " ");
3177 set_message(((ToDo *)c->todo)->message_text, " ");
3180 * Get the version number of the new calendar
3183 new_version = get_data_version(new_cal_handle);
3185 if (new_version < DTCM_DATA_VER)
3186 set_message(c->message_text, catgets(c->DT_catd, 1, 186,
3187 "Calendar (dtcm) and rpc.cmsd versions are different."));
3190 * Close the calendar we were currently browsing (note we don't ever
3191 * close our calendar) and set the callback for the new calendar.
3193 if (c->cal_handle != c->my_cal_handle)
3194 csa_logoff(c->cal_handle, NULL);
3196 if (new_cal_handle != c->my_cal_handle) {
3199 CSA_flags flags = 0;
3200 CSA_extension cb_ext;
3202 flags = CSA_CB_ENTRY_ADDED | CSA_CB_ENTRY_DELETED |
3203 CSA_CB_ENTRY_UPDATED;
3204 cb_ext.item_code = CSA_X_XT_APP_CONTEXT_EXT;
3205 cb_ext.item_data = (CSA_uint32)c->xcontext->app;
3206 cb_ext.extension_flags = CSA_EXT_LAST_ELEMENT;
3207 csa_register_callback(new_cal_handle, flags,
3208 update_handler, NULL, &cb_ext);
3213 * Set variables in the Calendar structure for the new calendar and
3216 c->cal_handle = new_cal_handle;
3217 c->general->version = new_version;
3218 if (c->view->current_calendar != NULL)
3219 free(c->view->current_calendar);
3220 c->view->current_calendar = cm_strdup(new_calendar);
3221 paint_canvas(c, NULL, RENDER_CLEAR_FIRST);
3224 * Set the title bars on all the windows!
3226 sprintf(buf, "%s : %s", catgets(c->DT_catd, 1, 113, "Calendar"),
3228 XtVaSetValues(c->frame, XmNtitle, buf, NULL);
3230 set_editor_title((Editor *)c->editor, new_calendar);
3231 add_all_appt((Editor *)c->editor);
3232 set_geditor_title((GEditor *)c->geditor, new_calendar);
3233 add_all_gappt((GEditor *)c->geditor);
3234 set_todo_title((ToDo *)c->todo, new_calendar);
3235 add_all_todo((ToDo *)c->todo);
3237 /* set up the repeat menus for all the editors. */
3239 if (c->editor && (((Editor *)c->editor)->rfp.repeat_menu))
3240 rfp_set_repeat_values(&((Editor *)c->editor)->rfp);
3242 if (c->geditor && (((GEditor *)c->geditor)->rfp.repeat_menu))
3243 rfp_set_repeat_values(&((GEditor *)c->geditor)->rfp);
3245 if (c->todo && (((ToDo *)c->todo)->rfp.repeat_menu))
3246 rfp_set_repeat_values(&((ToDo *)c->todo)->rfp);
3248 if (c->general->version < DATAVER2) {
3249 if (todo_showing((ToDo *)calendar->todo))
3250 XtPopdown(((ToDo *)calendar->todo)->frame);
3251 XtUnmanageChild(c->todo_btn);
3252 XtSetSensitive(c->todo_edit_menu, False);
3253 XtSetSensitive(c->todo_view_menu, False);
3256 XtManageChild(c->todo_btn);
3257 XtSetSensitive(c->todo_edit_menu, True);
3258 XtSetSensitive(c->todo_view_menu, True);
3261 if (tb && tb->show_message) {
3264 XtNewString(catgets(c->DT_catd, 1, 919, "Calendar"));
3266 sprintf (buf, "%s %s %s",
3269 catgets(c->DT_catd, 1, 920, "displayed."));
3271 set_message(tb->show_message, buf);
3276 * calendar callback function
3278 * CSA callback that handles main canvas.
3279 * A separate one is used for the browser canvas (browser.c/mb_update_handler)
3280 * They get invoked from libcsa when there are changes to calendars we
3281 * have registered them on.
3283 * This is a simple callback routine: it doesn't care what the
3284 * reason is for the call... it always refreshes all data & display.
3285 * An optimization would be to only refresh the canvas region affected
3286 * by the data changed.
3289 update_handler(CSA_session_handle cal, CSA_flags reason,
3290 CSA_buffer call_data, CSA_buffer client_data, CSA_extension *ext)
3292 Calendar *c = calendar;
3295 invalidate_cache(c);
3296 paint_canvas(c, NULL, RENDER_CLEAR_FIRST);
3300 if (editor_showing((Editor *)c->editor))
3301 add_all_appt((Editor *)c->editor);
3302 if (todo_showing((ToDo *)calendar->todo))
3303 add_all_todo((ToDo *)calendar->todo);
3312 Cal_Font systemfont,
3316 * Some of the scrolling lists contain formatted text and thus
3317 * require a fixed width font to display the text correctly.
3318 * We want to use the fixed width font defined by *.userFont as
3319 * it will be localized to the system calendar is running on.
3321 db = XtScreenDatabase(XtScreen(cal->frame));
3323 XrmPutStringResource(&db, "*find_list.fontList",
3324 cal->app_data->userfont);
3325 XrmPutStringResource(&db, "*view_list.fontList",
3326 cal->app_data->userfont);
3327 XrmPutStringResource(&db, "*todo_list.fontList",
3328 cal->app_data->userfont);
3329 XrmPutStringResource(&db, "*ge_appt_list.fontList",
3330 cal->app_data->userfont);
3331 XrmPutStringResource(&db, "*access_list.fontList",
3332 cal->app_data->userfont);
3333 XrmPutStringResource(&db, "*browseList.fontList",
3334 cal->app_data->userfont);
3335 XrmPutStringResource(&db, "Dtcm*canvas*week2day.fontList",
3336 cal->app_data->systemfont);
3337 if (cal->app_data->labelfont)
3338 XrmPutStringResource(&db, "*monthLabel.fontList",
3339 cal->app_data->labelfont);
3341 XrmPutStringResource(&db, "*monthLabel.fontList",
3342 cal->app_data->systemfont);
3343 if (cal->app_data->labelfont)
3344 XrmPutStringResource(&db, "*yearLabel.fontList",
3345 cal->app_data->labelfont);
3347 XrmPutStringResource(&db, "*yearLabel.fontList",
3348 cal->app_data->systemfont);
3351 if (!fontlist_to_font(cal->app_data->systemfontlist, &systemfont)) {
3352 /* Couldn't convert the system fontlist to a font - bad news. */
3353 if (!(systemfont.f.cf_font =
3354 XLoadQueryFont(XtDisplay(cal->frame), "variable")))
3357 systemfont.cf_type = XmFONT_IS_FONT;
3359 if (!fontlist_to_font(cal->app_data->userfontlist, &userfont)) {
3360 /* Couldn't convert the user fontlist to a font - bad news. */
3361 if (!(userfont.f.cf_font =
3362 XLoadQueryFont(XtDisplay(cal->frame), "fixed")))
3365 userfont.cf_type = XmFONT_IS_FONT;
3368 *cal->fonts->userfont = userfont;
3371 * If the application resources for the view, label, icon or bold
3372 * font are not set, default to the system/user font or application
3373 * font for the views.
3375 if (cal->app_data->viewfontlist) {
3376 if (!fontlist_to_font(cal->app_data->viewfontlist,
3377 cal->fonts->viewfont))
3378 *cal->fonts->viewfont = userfont;
3380 load_app_font(cal, MEDIUM, &userfont,
3381 cal->fonts->viewfont);
3384 if (cal->app_data->labelfontlist) {
3385 if (!fontlist_to_font(cal->app_data->labelfontlist,
3386 cal->fonts->labelfont))
3387 *cal->fonts->labelfont = systemfont;
3389 *cal->fonts->labelfont = systemfont;
3392 if (cal->app_data->iconfontlist) {
3393 if (!fontlist_to_font(cal->app_data->iconfontlist,
3394 cal->fonts->iconfont))
3395 *cal->fonts->iconfont = systemfont;
3397 *cal->fonts->iconfont = systemfont;
3400 if (cal->app_data->boldfontlist) {
3401 if (!fontlist_to_font(cal->app_data->boldfontlist,
3402 cal->fonts->boldfont))
3403 *cal->fonts->boldfont = userfont;
3405 load_app_font(cal, BOLD, &userfont,
3406 cal->fonts->boldfont);