home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / sun / volume2 / calentool / patch5c / patches05c
Encoding:
Text File  |  1990-02-04  |  56.1 KB  |  2,148 lines
  1. *** /tmp/,RCSt1a16911    Fri Dec 15 17:22:26 1989
  2. --- calentool.c    Fri Dec 15 17:17:03 1989
  3. ***************
  4. *** 1,5
  5.   /*
  6. !  * $Header: calentool.c,v 2.2 89/07/19 20:25:41 billr Exp $
  7.    */
  8.   /*
  9.    * calentool.c
  10.  
  11. --- 1,5 -----
  12.   /*
  13. !  * $Header: calentool.c,v 2.3 89/12/15 17:16:58 billr Exp $
  14.    */
  15.   /*
  16.    * calentool.c
  17. ***************
  18. *** 33,39
  19.   
  20.   extern Pixfont *font, *sfont;
  21.   extern char apts_pathname[], tmpapts_pathname[];
  22. ! extern char todays_date[];
  23.   extern char version[];
  24.   extern Panel_item clock_pi;
  25.   extern Frame fframe;
  26.  
  27. --- 33,39 -----
  28.   
  29.   extern Pixfont *font, *sfont;
  30.   extern char apts_pathname[], tmpapts_pathname[];
  31. ! extern char clockstr[];
  32.   extern char version[];
  33.   extern char *smonthnames[];
  34.   extern Panel_item clock_pi;
  35. ***************
  36. *** 35,40
  37.   extern char apts_pathname[], tmpapts_pathname[];
  38.   extern char todays_date[];
  39.   extern char version[];
  40.   extern Panel_item clock_pi;
  41.   extern Frame fframe;
  42.   extern Panel panel;
  43.  
  44. --- 35,41 -----
  45.   extern char apts_pathname[], tmpapts_pathname[];
  46.   extern char clockstr[];
  47.   extern char version[];
  48. + extern char *smonthnames[];
  49.   extern Panel_item clock_pi;
  50.   extern Frame fframe;
  51.   extern Panel panel;
  52. ***************
  53. *** 38,43
  54.   extern Panel_item clock_pi;
  55.   extern Frame fframe;
  56.   extern Panel panel;
  57.   #ifndef NO_SUN_MOON
  58.   extern Frame sframe;
  59.   #endif
  60.  
  61. --- 39,45 -----
  62.   extern Panel_item clock_pi;
  63.   extern Frame fframe;
  64.   extern Panel panel;
  65. + extern Rect *closed_rect;
  66.   #ifndef NO_SUN_MOON
  67.   extern Frame sframe;
  68.   #endif
  69. ***************
  70. *** 71,77
  71.   int one_based = 0, new_entry = 0, version2 = 0;
  72.   int otherfile = 0;
  73.   char *othername;
  74. ! int beep = 0, show_time = 0;
  75.   int include_old = 0, save_old = 0;
  76.   #ifndef NO_HOLIDAYS
  77.   int holiday_a = 0, holiday_c = 0, holiday_i = 0;
  78.  
  79. --- 73,79 -----
  80.   int one_based = 0, new_entry = 0, version2 = 0;
  81.   int otherfile = 0;
  82.   char *othername;
  83. ! int beep = 0, show_time = 0, beep_open = 0;
  84.   int include_old = 0, save_old = 0;
  85.   #ifndef NO_HOLIDAYS
  86.   int holiday_a = 0, holiday_c = 0, holiday_i = 0;
  87. ***************
  88. *** 86,92
  89.   Cursor wait_cursor;
  90.   char orig_apts_pathname[160];
  91.   int orig_ro;
  92. ! char timestr[16], datestr_day[3], datestr_mon[4];
  93.   struct pr_prpos where;
  94.   int working_msg;
  95.   
  96.  
  97. --- 88,94 -----
  98.   Cursor wait_cursor;
  99.   char orig_apts_pathname[160];
  100.   int orig_ro;
  101. ! char timestr[16], datestr_day[3];
  102.   struct pr_prpos where;
  103.   int working_msg;
  104.   int hour24, monday_first, day_first;
  105. ***************
  106. *** 89,94
  107.   char timestr[16], datestr_day[3], datestr_mon[4];
  108.   struct pr_prpos where;
  109.   int working_msg;
  110.   
  111.   static short icon_data[] = {
  112.   #include "std.icon"
  113.  
  114. --- 91,98 -----
  115.   char timestr[16], datestr_day[3];
  116.   struct pr_prpos where;
  117.   int working_msg;
  118. + int hour24, monday_first, day_first;
  119. + int expire_days = 0;
  120.   
  121.   static short icon_data[] = {
  122.   #include "std.icon"
  123. ***************
  124. *** 146,152
  125.   mpr_static(tri_right_pr, 16, 16, 1, tri_right_data);
  126.   
  127.   char *strcpy(), *strcat(), *rindex();
  128. ! static Notify_value cleanup(), itimer_handler();
  129.   Notify_value myframe_interposer();
  130.   
  131.   main(argc,argv)
  132.  
  133. --- 150,156 -----
  134.   mpr_static(tri_right_pr, 16, 16, 1, tri_right_data);
  135.   
  136.   char *strcpy(), *strcat(), *rindex();
  137. ! static Notify_value leave(), itimer_handler();
  138.   Notify_value myframe_interposer();
  139.   
  140.   main(argc,argv)
  141. ***************
  142. *** 164,169
  143.           progname = *argv;
  144.   
  145.       nr_weekdays = NR_WEEKDAYS;
  146.       n_tslots = (N_TSLOTS > N_SLOTS ? N_SLOTS : N_TSLOTS);
  147.   
  148.       get_today();    /* initial day is today */
  149.  
  150. --- 168,175 -----
  151.           progname = *argv;
  152.   
  153.       nr_weekdays = NR_WEEKDAYS;
  154. +     monday_first = MON_FIRST;
  155. +     hour24 = HOUR_24;
  156.       n_tslots = (N_TSLOTS > N_SLOTS ? N_SLOTS : N_TSLOTS);
  157.   
  158.       get_today();    /* initial day is today */
  159. ***************
  160. *** 169,175
  161.       get_today();    /* initial day is today */
  162.       current = today;
  163.       read_only = 0;
  164. !     working_msg = 1;
  165.   
  166.       /*
  167.        * Check for -p, -P or -m option, which means we don't want
  168.  
  169. --- 175,181 -----
  170.       get_today();    /* initial day is today */
  171.       current = today;
  172.       read_only = 0;
  173. !     working_msg = 0;
  174.   
  175.       /*
  176.        * Check for -p, -P, -m or -M option, which means we don't want
  177. ***************
  178. *** 172,178
  179.       working_msg = 1;
  180.   
  181.       /*
  182. !      * Check for -p, -P or -m option, which means we don't want
  183.        * to create the tool. Also check for -Wp so we can supply
  184.        * a resonable default if the user doesn't supply one.
  185.        */
  186.  
  187. --- 178,184 -----
  188.       working_msg = 0;
  189.   
  190.       /*
  191. !      * Check for -p, -P, -m or -M option, which means we don't want
  192.        * to create the tool. Also check for -Wp so we can supply
  193.        * a resonable default if the user doesn't supply one.
  194.        */
  195. ***************
  196. *** 179,185
  197.       i = argc;
  198.       while (--i > 0) {
  199.           if (!strncmp(argv[i], "-p", 2) || !strcmp(argv[i], "-m")
  200. !             || !strncmp(argv[i], "-P", 2)) {
  201.               /* standard getopt doesn't allow optional
  202.                * arguments, so we do a check here for
  203.                * obsolete usage of the -p option
  204.  
  205. --- 185,191 -----
  206.       i = argc;
  207.       while (--i > 0) {
  208.           if (!strncmp(argv[i], "-p", 2) || !strcmp(argv[i], "-m")
  209. !             || !strncmp(argv[i], "-P", 2) || !strcmp(argv[i], "-M")) {
  210.               /* standard getopt doesn't allow optional
  211.                * arguments, so we do a check here for
  212.                * obsolete usage of the -p option
  213. ***************
  214. *** 205,211
  215.                   0);
  216.       }
  217.   
  218. !     while ((flag = getopt(argc, argv, "57bd:f:im:op:P:rtu:zH:h:w")) != EOF)
  219.           switch (flag) {   
  220.               case 'f':    /* use this file */
  221.               otherfile = 1;
  222.  
  223. --- 211,217 -----
  224.                   0);
  225.       }
  226.   
  227. !     while ((flag = getopt(argc, argv, "1:2:567bBd:eEf:im:M:op:P:rtu:zH:h:wx:")) != EOF)
  228.           switch (flag) {   
  229.               case 'f':    /* use this file */
  230.               otherfile = 1;
  231. ***************
  232. *** 220,225
  233.               read_only = 1;
  234.               break;
  235.               
  236.               case 'p':    /* print and exit */
  237.               read_only = 1;
  238.               switch (*optarg) {
  239.  
  240. --- 226,251 -----
  241.               read_only = 1;
  242.               break;
  243.               
  244. +             case '1':    /* -12 -- 12 hour time */
  245. +             if (*optarg == '2')
  246. +                 hour24 = FALSE;
  247. +             break;
  248. + 
  249. +             case '2':    /* -24 -- 24 hour time */
  250. +             if (*optarg == '4')
  251. +                 hour24 = TRUE;
  252. +             break;
  253. + 
  254. +             case 'e':    /* European calendar Mon-Sun */
  255. +             monday_first = TRUE;
  256. +             break;
  257. + 
  258. +             case 'E':    /* European style */
  259. +             monday_first = TRUE;
  260. +             hour24 = TRUE;
  261. +             day_first = TRUE;
  262. +             break;
  263. + 
  264.               case 'p':    /* print and exit */
  265.               read_only = 1;
  266.               switch (*optarg) {
  267. ***************
  268. *** 268,273
  269.   
  270.               case 'm':    /* mail today's appts and exit */
  271.               read_only = 1;
  272.               printit_dst = DST_MAIL;
  273.               mailto = optarg;
  274.               break;
  275.  
  276. --- 294,301 -----
  277.   
  278.               case 'm':    /* mail today's appts and exit */
  279.               read_only = 1;
  280. +             if (!printit)
  281. +                 printit = PRI_DAY;
  282.               printit_dst = DST_MAIL;
  283.               mailto = optarg;
  284.               break;
  285. ***************
  286. *** 272,277
  287.               mailto = optarg;
  288.               break;
  289.   
  290.               case 'b':    /* beep to console for pending appt */
  291.               beep = 1;
  292.               break;
  293.  
  294. --- 300,314 -----
  295.               mailto = optarg;
  296.               break;
  297.   
  298. +             case 'M':    /* mail today's appts and exit (ignore
  299. +                    some notes) */
  300. +             read_only = 1;
  301. +             if (!printit)
  302. +                 printit = PRI_DAY_XNOTES;
  303. +             printit_dst = DST_MAIL;
  304. +             mailto = optarg;
  305. +             break;
  306. + 
  307.               case 'b':    /* beep to console for pending appt */
  308.               beep = 1;
  309.               break;
  310. ***************
  311. *** 276,281
  312.               beep = 1;
  313.               break;
  314.   
  315.               case 'i':    /* include old appt files */
  316.               include_old = 1;
  317.               break;
  318.  
  319. --- 313,322 -----
  320.               beep = 1;
  321.               break;
  322.   
  323. +             case 'B':    /* beep then open wondow */
  324. +             beep_open = 1;
  325. +             break;
  326. + 
  327.               case 'i':    /* include old appt files */
  328.               include_old = 1;
  329.               break;
  330. ***************
  331. *** 280,286
  332.               include_old = 1;
  333.               break;
  334.   
  335. !             case 'o':    /* save outdate appts to another file */
  336.               save_old = 1;
  337.               break;
  338.   
  339.  
  340. --- 321,327 -----
  341.               include_old = 1;
  342.               break;
  343.   
  344. !             case 'o':    /* save outdated appts to another file */
  345.               save_old = 1;
  346.               break;
  347.   
  348. ***************
  349. *** 292,298
  350.               nr_weekdays = 5;
  351.               break;
  352.   
  353. !             case '7':    /* Sun - Sat week display */
  354.               nr_weekdays = 7;
  355.               break;
  356.   
  357.  
  358. --- 333,343 -----
  359.               nr_weekdays = 5;
  360.               break;
  361.   
  362. !             case '6':    /* Mon - Sat week display */
  363. !             nr_weekdays = 6;
  364. !             break;
  365. ! 
  366. !             case '7':    /* Sun - Sat (or Mon-Sun) week display */
  367.               nr_weekdays = 7;
  368.               break;
  369.   
  370. ***************
  371. *** 300,307
  372.               update_interval = atoi(optarg);
  373.               break;
  374.   
  375. !             case 'w':    /* don't display Working! message */
  376. !             working_msg = 0;
  377.               break;
  378.   
  379.               case 'z':    /* zero offset -- new style appts file */
  380.  
  381. --- 345,352 -----
  382.               update_interval = atoi(optarg);
  383.               break;
  384.   
  385. !             case 'w':    /* display Working! message */
  386. !             working_msg = 1;
  387.               break;
  388.   
  389.               case 'x':    /* eXpire appts after so many days */
  390. ***************
  391. *** 304,309
  392.               working_msg = 0;
  393.               break;
  394.   
  395.               case 'z':    /* zero offset -- new style appts file */
  396.               one_based = 1;
  397.               break;
  398.  
  399. --- 349,358 -----
  400.               working_msg = 1;
  401.               break;
  402.   
  403. +             case 'x':    /* eXpire appts after so many days */
  404. +             expire_days = atoi(optarg);
  405. +             break;
  406. + 
  407.               case 'z':    /* zero offset -- new style appts file */
  408.               one_based = 1;
  409.               break;
  410. ***************
  411. *** 390,396
  412.               fprintf(stderr, " -p <dwm>    // print selected day [d], week [w] or month [m] appts and exit\n");
  413.               fprintf(stderr, " -P <dwm>    // like -p, only don't print marked notes\n");
  414.               fprintf(stderr, " -m <user>    // mail selected days appts to <user>\n");
  415. !             fprintf(stderr, " [-5|-7]    // 5-day or 7-day week display\n");
  416.               fprintf(stderr, " -d <date>    // display appts for <date>\n");
  417.               fprintf(stderr, " -b        // beep and display message when appt is pending\n");
  418.               fprintf(stderr, " -i        // auto-include outdated appts files\n");
  419.  
  420. --- 439,447 -----
  421.               fprintf(stderr, " -p <dwm>    // print selected day [d], week [w] or month [m] appts and exit\n");
  422.               fprintf(stderr, " -P <dwm>    // like -p, only don't print marked notes\n");
  423.               fprintf(stderr, " -m <user>    // mail selected days appts to <user>\n");
  424. !             fprintf(stderr, " -M <user>    // like -m, only don't mail marked notes\n");
  425. !             fprintf(stderr, " [-5|-6|-7]    // 5, 6 or 7-day week display\n");
  426. !             fprintf(stderr, " [-12|-24]    // 12 or 24 hour time format\n");
  427.               fprintf(stderr, " -d <date>    // display appts for <date>\n");
  428.               fprintf(stderr, " -b        // beep and display message when appt is pending\n");
  429.               fprintf(stderr, " -B        // beep and open window when appt is pending\n");
  430. ***************
  431. *** 393,398
  432.               fprintf(stderr, " [-5|-7]    // 5-day or 7-day week display\n");
  433.               fprintf(stderr, " -d <date>    // display appts for <date>\n");
  434.               fprintf(stderr, " -b        // beep and display message when appt is pending\n");
  435.               fprintf(stderr, " -i        // auto-include outdated appts files\n");
  436.               fprintf(stderr, " -o        // create outdated include files\n");
  437.               fprintf(stderr, " -t        // display time below icon\n");
  438.  
  439. --- 444,450 -----
  440.               fprintf(stderr, " [-12|-24]    // 12 or 24 hour time format\n");
  441.               fprintf(stderr, " -d <date>    // display appts for <date>\n");
  442.               fprintf(stderr, " -b        // beep and display message when appt is pending\n");
  443. +             fprintf(stderr, " -B        // beep and open window when appt is pending\n");
  444.               fprintf(stderr, " -i        // auto-include outdated appts files\n");
  445.               fprintf(stderr, " -o        // create outdated include files\n");
  446.               fprintf(stderr, " -t        // display time below icon\n");
  447. ***************
  448. *** 397,403
  449.               fprintf(stderr, " -o        // create outdated include files\n");
  450.               fprintf(stderr, " -t        // display time below icon\n");
  451.               fprintf(stderr, " -u <interval>    // time update interval (seconds)\n");
  452. !             fprintf(stderr, " -w        // don't display 'Working!' message\n");
  453.   #ifndef NO_HOLIDAYS
  454.               fprintf(stderr, " -h <Aacijs>    // display selected computed holidays\n");
  455.               fprintf(stderr, "        // A=All, a=astronomical, c=Christian,\n");
  456.  
  457. --- 449,457 -----
  458.               fprintf(stderr, " -o        // create outdated include files\n");
  459.               fprintf(stderr, " -t        // display time below icon\n");
  460.               fprintf(stderr, " -u <interval>    // time update interval (seconds)\n");
  461. !             fprintf(stderr, " -w        // display 'Working!' message\n");
  462. !             fprintf(stderr, " -e        // Mon-Sun week display\n");
  463. !             fprintf(stderr, " -E        // European options (-e, -24)\n");
  464.   #ifndef NO_HOLIDAYS
  465.               fprintf(stderr, " -h <Aacijs>    // display selected computed holidays\n");
  466.               fprintf(stderr, "        // A=All, a=astronomical, c=Christian,\n");
  467. ***************
  468. *** 404,409
  469.               fprintf(stderr, "        // i=Islamic, j=Jewish, s=secular\n");
  470.               fprintf(stderr, " -H <Aacijs>    // like -h, only flag them as marked\n");
  471.   #endif
  472.               fprintf(stderr, " -z        // conversion flag (see INSTALL)\n");
  473.               fprintf(stderr, " <window_opts>    // Suntools -W options\n");
  474.               exit(1);
  475.  
  476. --- 458,464 -----
  477.               fprintf(stderr, "        // i=Islamic, j=Jewish, s=secular\n");
  478.               fprintf(stderr, " -H <Aacijs>    // like -h, only flag them as marked\n");
  479.   #endif
  480. +             fprintf(stderr, " -x <days>    // expire appts after <days> days\n");
  481.               fprintf(stderr, " -z        // conversion flag (see INSTALL)\n");
  482.               fprintf(stderr, " <window_opts>    // Suntools -W options\n");
  483.               exit(1);
  484. ***************
  485. *** 410,416
  486.               break;
  487.           }
  488.   
  489. ! 
  490.       if (toolrunning) {
  491.           (void) notify_set_signal_func(frame, cleanup, SIGHUP, NOTIFY_ASYNC);
  492.           (void) notify_set_signal_func(frame, cleanup, SIGINT, NOTIFY_ASYNC);
  493.  
  494. --- 465,474 -----
  495.               break;
  496.           }
  497.   
  498. !     if (printit_dst == DST_MAIL && (printit == PRI_MONTH || printit == PRI_MONTH_XNOTES)) {
  499. !         fprintf(stderr, "calentool: can't mail month calendar\n");
  500. !         exit(1);
  501. !     }
  502.       if (toolrunning) {
  503.           (void) notify_set_signal_func(frame, leave, SIGHUP, NOTIFY_ASYNC);
  504.           (void) notify_set_signal_func(frame, leave, SIGINT, NOTIFY_ASYNC);
  505. ***************
  506. *** 412,420
  507.   
  508.   
  509.       if (toolrunning) {
  510. !         (void) notify_set_signal_func(frame, cleanup, SIGHUP, NOTIFY_ASYNC);
  511. !         (void) notify_set_signal_func(frame, cleanup, SIGINT, NOTIFY_ASYNC);
  512. !         (void) notify_set_signal_func(frame, cleanup, SIGTERM, NOTIFY_ASYNC);
  513.       }
  514.   
  515.       /* 
  516.  
  517. --- 470,478 -----
  518.           exit(1);
  519.       }
  520.       if (toolrunning) {
  521. !         (void) notify_set_signal_func(frame, leave, SIGHUP, NOTIFY_ASYNC);
  522. !         (void) notify_set_signal_func(frame, leave, SIGINT, NOTIFY_ASYNC);
  523. !         (void) notify_set_signal_func(frame, leave, SIGTERM, NOTIFY_ASYNC);
  524.       }
  525.   
  526.       /* 
  527. ***************
  528. *** 429,434
  529.       
  530.       if (printit) {
  531.           print_apts(printit, printit_dst);
  532.           exit(0);
  533.       }
  534.   
  535.  
  536. --- 487,494 -----
  537.       
  538.       if (printit) {
  539.           print_apts(printit, printit_dst);
  540. +         if (save_old || expire_days)
  541. +             expire(expire_days);
  542.           exit(0);
  543.       }
  544.   
  545. ***************
  546. *** 478,487
  547.       icon = icon_create(0);
  548.       rev_icon = icon_create(0);
  549.       na_icon = icon_create(0);
  550. !     strncpy(datestr_mon, todays_date+4, 3);
  551. !     datestr_mon[3] = '\0';
  552. !     strncpy(datestr_day, todays_date+8, 2);
  553. !     datestr_day[2] = '\0';
  554.       /* the basic standard icon */
  555.       pr_rop(ic_pr, 0, 0, 64, 64, PIX_SRC, &ic_mpr, 0, 0);
  556.       if (show_time) {
  557.  
  558. --- 538,544 -----
  559.       icon = icon_create(0);
  560.       rev_icon = icon_create(0);
  561.       na_icon = icon_create(0);
  562. !     sprintf(datestr_day, "%2d", today.tm_mday);
  563.       /* the basic standard icon */
  564.       pr_rop(ic_pr, 0, 0, 64, 64, PIX_SRC, &ic_mpr, 0, 0);
  565.       if (show_time) {
  566. ***************
  567. *** 486,495
  568.       pr_rop(ic_pr, 0, 0, 64, 64, PIX_SRC, &ic_mpr, 0, 0);
  569.       if (show_time) {
  570.           /* time string displayed below icon */
  571. !         strcpy(timestr, todays_date+10);
  572. !         if (update_interval == 60) {
  573. !             /* display hh:mm */
  574. !             timestr[6] = '\0';
  575.               ilabel_rect.r_left += 2*sfont->pf_defaultsize.x - 2;
  576.               ilabel_rect.r_width -= 2*sfont->pf_defaultsize.x;
  577.           } else
  578.  
  579. --- 543,551 -----
  580.       pr_rop(ic_pr, 0, 0, 64, 64, PIX_SRC, &ic_mpr, 0, 0);
  581.       if (show_time) {
  582.           /* time string displayed below icon */
  583. !         format_icon_time();
  584. !         if (update_interval >= 60) {
  585. !             /* no seconds displayed, adjust label position */
  586.               ilabel_rect.r_left += 2*sfont->pf_defaultsize.x - 2;
  587.               ilabel_rect.r_width -= 2*sfont->pf_defaultsize.x;
  588.           }
  589. ***************
  590. *** 492,500
  591.               timestr[6] = '\0';
  592.               ilabel_rect.r_left += 2*sfont->pf_defaultsize.x - 2;
  593.               ilabel_rect.r_width -= 2*sfont->pf_defaultsize.x;
  594. !         } else
  595. !             /* display hh:mm:ss */
  596. !             timestr[9] = '\0';
  597.           /* draw a box around the time appendage */
  598.           pr_vector(ic_pr, 0, 64, 63, 64, PIX_SET, 1);
  599.           pr_vector(ic_pr, 63, 64, 63, 76, PIX_SET, 1);
  600.  
  601. --- 548,559 -----
  602.               /* no seconds displayed, adjust label position */
  603.               ilabel_rect.r_left += 2*sfont->pf_defaultsize.x - 2;
  604.               ilabel_rect.r_width -= 2*sfont->pf_defaultsize.x;
  605. !         }
  606. !         if (!hour24) {
  607. !             /* am/pm, increase size of label rect */
  608. !             ilabel_rect.r_left -= sfont->pf_defaultsize.x;
  609. !             ilabel_rect.r_width += sfont->pf_defaultsize.x;
  610. !         }
  611.           /* draw a box around the time appendage */
  612.           pr_vector(ic_pr, 0, 64, 63, 64, PIX_SET, 1);
  613.           pr_vector(ic_pr, 63, 64, 63, 76, PIX_SET, 1);
  614. ***************
  615. *** 520,526
  616.       pf_ttext(where, PIX_SRC, sfont, datestr_day);
  617.       where.pos.x = 39;
  618.       where.pr = ic_pr;
  619. !     pf_ttext(where, PIX_NOT(PIX_SRC), sfont, datestr_mon);
  620.       where.pr = na_ic_pr;
  621.       pf_ttext(where, PIX_NOT(PIX_SRC), sfont, datestr_mon);
  622.       where.pr = rev_ic_pr;
  623.  
  624. --- 579,585 -----
  625.       pf_ttext(where, PIX_SRC, sfont, datestr_day);
  626.       where.pos.x = 39;
  627.       where.pr = ic_pr;
  628. !     pf_ttext(where, PIX_NOT(PIX_SRC), sfont, smonthnames[today.tm_mon]);
  629.       where.pr = na_ic_pr;
  630.       pf_ttext(where, PIX_NOT(PIX_SRC), sfont, smonthnames[today.tm_mon]);
  631.       where.pr = rev_ic_pr;
  632. ***************
  633. *** 522,528
  634.       where.pr = ic_pr;
  635.       pf_ttext(where, PIX_NOT(PIX_SRC), sfont, datestr_mon);
  636.       where.pr = na_ic_pr;
  637. !     pf_ttext(where, PIX_NOT(PIX_SRC), sfont, datestr_mon);
  638.       where.pr = rev_ic_pr;
  639.       pf_ttext(where, PIX_SRC, sfont, datestr_mon);
  640.       (void)icon_init_from_pr(icon, ic_pr);
  641.  
  642. --- 581,587 -----
  643.       where.pr = ic_pr;
  644.       pf_ttext(where, PIX_NOT(PIX_SRC), sfont, smonthnames[today.tm_mon]);
  645.       where.pr = na_ic_pr;
  646. !     pf_ttext(where, PIX_NOT(PIX_SRC), sfont, smonthnames[today.tm_mon]);
  647.       where.pr = rev_ic_pr;
  648.       pf_ttext(where, PIX_SRC, sfont, smonthnames[today.tm_mon]);
  649.       (void)icon_init_from_pr(icon, ic_pr);
  650. ***************
  651. *** 524,530
  652.       where.pr = na_ic_pr;
  653.       pf_ttext(where, PIX_NOT(PIX_SRC), sfont, datestr_mon);
  654.       where.pr = rev_ic_pr;
  655. !     pf_ttext(where, PIX_SRC, sfont, datestr_mon);
  656.       (void)icon_init_from_pr(icon, ic_pr);
  657.       (void)icon_init_from_pr(rev_icon, rev_ic_pr);
  658.       (void)icon_init_from_pr(na_icon, na_ic_pr);
  659.  
  660. --- 583,589 -----
  661.       where.pr = na_ic_pr;
  662.       pf_ttext(where, PIX_NOT(PIX_SRC), sfont, smonthnames[today.tm_mon]);
  663.       where.pr = rev_ic_pr;
  664. !     pf_ttext(where, PIX_SRC, sfont, smonthnames[today.tm_mon]);
  665.       (void)icon_init_from_pr(icon, ic_pr);
  666.       (void)icon_init_from_pr(rev_icon, rev_ic_pr);
  667.       (void)icon_init_from_pr(na_icon, na_ic_pr);
  668. ***************
  669. *** 569,574
  670.                FRAME_ICON, icon,
  671.                0);
  672.   
  673.       create_panel();
  674.       create_main_window();
  675.       create_attr_frame();    /* normally hidden */
  676.  
  677. --- 628,634 -----
  678.                FRAME_ICON, icon,
  679.                0);
  680.   
  681. +     closed_rect = (Rect *)window_get(frame, FRAME_CLOSED_RECT);
  682.       create_panel();
  683.       create_main_window();
  684.       create_attr_frame();    /* normally hidden */
  685. ***************
  686. *** 594,600
  687.   
  688.       window_main_loop(frame);
  689.   
  690. !     cleanup();
  691.   }            
  692.                
  693.   
  694.  
  695. --- 654,660 -----
  696.   
  697.       window_main_loop(frame);
  698.   
  699. !     leave();
  700.   }            
  701.                
  702.   
  703. ***************
  704. *** 613,631
  705.       (void) notify_set_itimer_func(frame, itimer_handler, ITIMER_REAL, &cal_timer, NULL);
  706.       get_today();
  707.       /* update date/time displayed in the panel */
  708. !     panel_set(clock_pi, PANEL_LABEL_STRING, todays_date, 0);
  709. !     if (show_time && (int)window_get(frame, FRAME_CLOSED)) {
  710. !         strcpy(timestr, todays_date+10);
  711. !         if (update_interval == 60)
  712. !             /* display hh:mm */
  713. !             timestr[6] = '\0';
  714. !         else
  715. !             /* display hh:mm:ss */
  716. !             timestr[9] = '\0';
  717. !         cur_icon = (Icon) window_get(frame, FRAME_ICON);
  718. !         icon_set(cur_icon, ICON_LABEL, timestr, 0);
  719. !         window_set(frame, FRAME_ICON, cur_icon, 0);
  720. !     }
  721.   #ifndef NO_SUN_MOON
  722.       /* update data in Sun Data frame (if it's open) */
  723.       if (sframe)
  724.  
  725. --- 673,681 -----
  726.       (void) notify_set_itimer_func(frame, itimer_handler, ITIMER_REAL, &cal_timer, NULL);
  727.       get_today();
  728.       /* update date/time displayed in the panel */
  729. !     panel_set(clock_pi, PANEL_LABEL_STRING, clockstr, 0);
  730. !     if (show_time && (int)window_get(frame, FRAME_CLOSED))
  731. !         update_icon_time();
  732.   #ifndef NO_SUN_MOON
  733.       /* update data in Sun Data frame (if it's open) */
  734.       if (sframe)
  735. ***************
  736. *** 739,745
  737.           }
  738.       } else {
  739.            /* notify the user via the console (once) ... */
  740. !         if (beep && sno != echoed_sno) {
  741.               echoed_sno = sno;
  742.               window_bell(frame);
  743.               if ((console = fopen("/dev/console", "w")) != NULL) {
  744.  
  745. --- 789,795 -----
  746.           }
  747.       } else {
  748.            /* notify the user via the console (once) ... */
  749. !         if ((beep || beep_open) && sno != echoed_sno) {
  750.               echoed_sno = sno;
  751.               window_bell(frame);
  752.               if (beep_open)
  753. ***************
  754. *** 742,751
  755.           if (beep && sno != echoed_sno) {
  756.               echoed_sno = sno;
  757.               window_bell(frame);
  758. !             if ((console = fopen("/dev/console", "w")) != NULL) {
  759. !                 fprintf(console, "%s\n", slots[sno].cur_appt->str);
  760. !                 fclose(console);
  761. !             }
  762.               /*
  763.                * also put a copy in ~/.msgfile, in case
  764.                * nlock(1) is running
  765.  
  766. --- 792,804 -----
  767.           if ((beep || beep_open) && sno != echoed_sno) {
  768.               echoed_sno = sno;
  769.               window_bell(frame);
  770. !             if (beep_open)
  771. !                 window_set(frame, FRAME_CLOSED, FALSE, 0);
  772. !             if (beep)
  773. !                 if ((console = fopen("/dev/console", "w")) != NULL) {
  774. !                     fprintf(console, "<< %s >> %s\n", progname, slots[sno].cur_appt->str);
  775. !                     fclose(console);
  776. !                 }
  777.               /*
  778.                * also put a copy in ~/.msgfile, in case
  779.                * nlock(1) is running
  780. ***************
  781. *** 771,778
  782.               /* so that it opens on today */
  783.               olddate = current = today;
  784.               /* update date field of the icons */
  785. !             strncpy(datestr_mon, todays_date+4, 3);
  786. !             strncpy(datestr_day, todays_date+8, 2);
  787.               /* replace the date */
  788.               where.pr = ic_pr;
  789.               where.pos.x = 13;
  790.  
  791. --- 824,830 -----
  792.               /* so that it opens on today */
  793.               olddate = current = today;
  794.               /* update date field of the icons */
  795. !             sprintf(datestr_day, "%d", today.tm_mday);
  796.               /* replace the date */
  797.               where.pr = ic_pr;
  798.               where.pos.x = 13;
  799. ***************
  800. *** 790,796
  801.               pf_ttext(where, PIX_SRC, sfont, datestr_day);
  802.               where.pos.x = 39;
  803.               where.pr = ic_pr;
  804. !             pf_ttext(where, PIX_NOT(PIX_SRC), sfont, datestr_mon);
  805.               where.pr = na_ic_pr;
  806.               pf_ttext(where, PIX_NOT(PIX_SRC), sfont, datestr_mon);
  807.               where.pr = rev_ic_pr;
  808.  
  809. --- 842,848 -----
  810.               pf_ttext(where, PIX_SRC, sfont, datestr_day);
  811.               where.pos.x = 39;
  812.               where.pr = ic_pr;
  813. !             pf_ttext(where, PIX_NOT(PIX_SRC), sfont, smonthnames[today.tm_mon]);
  814.               where.pr = na_ic_pr;
  815.               pf_ttext(where, PIX_NOT(PIX_SRC), sfont, smonthnames[today.tm_mon]);
  816.               where.pr = rev_ic_pr;
  817. ***************
  818. *** 792,798
  819.               where.pr = ic_pr;
  820.               pf_ttext(where, PIX_NOT(PIX_SRC), sfont, datestr_mon);
  821.               where.pr = na_ic_pr;
  822. !             pf_ttext(where, PIX_NOT(PIX_SRC), sfont, datestr_mon);
  823.               where.pr = rev_ic_pr;
  824.               pf_ttext(where, PIX_SRC, sfont, datestr_mon);
  825.               icon_set(icon, ICON_IMAGE, ic_pr, 0);
  826.  
  827. --- 844,850 -----
  828.               where.pr = ic_pr;
  829.               pf_ttext(where, PIX_NOT(PIX_SRC), sfont, smonthnames[today.tm_mon]);
  830.               where.pr = na_ic_pr;
  831. !             pf_ttext(where, PIX_NOT(PIX_SRC), sfont, smonthnames[today.tm_mon]);
  832.               where.pr = rev_ic_pr;
  833.               pf_ttext(where, PIX_SRC, sfont, smonthnames[today.tm_mon]);
  834.               icon_set(icon, ICON_IMAGE, ic_pr, 0);
  835. ***************
  836. *** 794,800
  837.               where.pr = na_ic_pr;
  838.               pf_ttext(where, PIX_NOT(PIX_SRC), sfont, datestr_mon);
  839.               where.pr = rev_ic_pr;
  840. !             pf_ttext(where, PIX_SRC, sfont, datestr_mon);
  841.               icon_set(icon, ICON_IMAGE, ic_pr, 0);
  842.               icon_set(rev_icon, ICON_IMAGE, rev_ic_pr, 0);
  843.               icon_set(na_icon, ICON_IMAGE, na_ic_pr, 0);
  844.  
  845. --- 846,852 -----
  846.               where.pr = na_ic_pr;
  847.               pf_ttext(where, PIX_NOT(PIX_SRC), sfont, smonthnames[today.tm_mon]);
  848.               where.pr = rev_ic_pr;
  849. !             pf_ttext(where, PIX_SRC, sfont, smonthnames[today.tm_mon]);
  850.               icon_set(icon, ICON_IMAGE, ic_pr, 0);
  851.               icon_set(rev_icon, ICON_IMAGE, rev_ic_pr, 0);
  852.               icon_set(na_icon, ICON_IMAGE, na_ic_pr, 0);
  853. ***************
  854. *** 824,830
  855.   }
  856.   
  857.   static Notify_value
  858. ! cleanup(me, signal, when)
  859.   Notify_client me;
  860.   int signal;
  861.   Notify_signal_mode when;
  862.  
  863. --- 876,882 -----
  864.   }
  865.   
  866.   static Notify_value
  867. ! leave(me, signal, when)
  868.   Notify_client me;
  869.   int signal;
  870.   Notify_signal_mode when;
  871. ***************
  872. *** 831,836
  873.   {
  874.       if (day_is_open)
  875.           close_day();
  876.       if (access(tmpapts_pathname, R_OK) == 0 && unlink(tmpapts_pathname) < 0)
  877.           perror(tmpapts_pathname);
  878.       exit(0);
  879.  
  880. --- 883,894 -----
  881.   {
  882.       if (day_is_open)
  883.           close_day();
  884. + 
  885. +     /* create outdated include files (if necessary) */
  886. +     if (save_old || expire_days)
  887. +         expire(expire_days);
  888. + 
  889. +     /* delete tmp file */
  890.       if (access(tmpapts_pathname, R_OK) == 0 && unlink(tmpapts_pathname) < 0)
  891.           perror(tmpapts_pathname);
  892.       exit(0);
  893. *** /tmp/,RCSt1a16942    Fri Dec 15 17:23:02 1989
  894. --- holidays.c    Fri Dec 15 17:17:37 1989
  895. ***************
  896. *** 1,5
  897.   /*
  898. !  * $Header: holidays.c,v 2.1 89/05/09 14:19:10 billr Exp $
  899.    */
  900.   /*
  901.    * holidays.c
  902.  
  903. --- 1,5 -----
  904.   /*
  905. !  * $Header: holidays.c,v 2.2 89/12/15 17:17:34 billr Exp $
  906.    */
  907.   /*
  908.    * holidays.c
  909. ***************
  910. *** 81,86
  911.   
  912.   extern struct tm current;    /* current day displayed from calentool */
  913.   int    marked_note;
  914.   
  915.   int
  916.   a_dates(appt, flag)
  917.  
  918. --- 81,87 -----
  919.   
  920.   extern struct tm current;    /* current day displayed from calentool */
  921.   int    marked_note;
  922. + int    save_year = -1;
  923.   
  924.   int
  925.   a_dates(appt, flag)
  926. ***************
  927. *** 277,282
  928.       double    day, hday;
  929.       char     *julian_time();
  930.   
  931.       hday = (*func)(current.tm_year+1900);
  932.       gregorian_date(&day, &month, &year, hday);
  933.       if (current.tm_mon == --month && current.tm_mday == (int)day) {
  934.  
  935. --- 278,287 -----
  936.       double    day, hday;
  937.       char     *julian_time();
  938.   
  939. +     if (current.tm_year != save_year) {
  940. +         datelib_init(current.tm_year+1900);
  941. +         save_year = current.tm_year;
  942. +     }
  943.       hday = (*func)(current.tm_year+1900);
  944.       gregorian_date(&day, &month, &year, hday);
  945.       if (current.tm_mon == --month && current.tm_mday == (int)day) {
  946. ***************
  947. *** 284,289
  948.           aptr->month = current.tm_mon;
  949.           aptr->day = current.tm_mday;
  950.           aptr->arrows = aptr->repeat = aptr->lookahead = 0;
  951.           aptr->flags = (A_NOTE | READONLY);
  952.           if (marked_note)
  953.               aptr->flags |= MARKED;
  954.  
  955. --- 289,295 -----
  956.           aptr->month = current.tm_mon;
  957.           aptr->day = current.tm_mday;
  958.           aptr->arrows = aptr->repeat = aptr->lookahead = 0;
  959. +         aptr->runlength = 0;
  960.           aptr->flags = (A_NOTE | READONLY);
  961.           if (marked_note)
  962.               aptr->flags |= MARKED;
  963. ***************
  964. *** 311,316
  965.       int    month, year;
  966.       int    match = 0;
  967.   
  968.       (void)(*func)(current.tm_year+1900, &nr_dates, &date1, &date2, &year1, &year2);
  969.       gregorian_date(&day, &month, &year, date1);
  970.       if (current.tm_mon == --month && current.tm_mday == (int)day)
  971.  
  972. --- 317,326 -----
  973.       int    month, year;
  974.       int    match = 0;
  975.   
  976. +     if (current.tm_year != save_year) {
  977. +         datelib_init(current.tm_year+1900);
  978. +         save_year = current.tm_year;
  979. +     }
  980.       (void)(*func)(current.tm_year+1900, &nr_dates, &date1, &date2, &year1, &year2);
  981.       gregorian_date(&day, &month, &year, date1);
  982.       if (current.tm_mon == --month && current.tm_mday == (int)day)
  983. ***************
  984. *** 325,330
  985.           aptr->month = current.tm_mon;
  986.           aptr->day = current.tm_mday;
  987.           aptr->arrows = aptr->repeat = aptr->lookahead = 0;
  988.           aptr->flags = (A_NOTE | READONLY);
  989.           if (marked_note)
  990.               aptr->flags |= MARKED;
  991.  
  992. --- 335,341 -----
  993.           aptr->month = current.tm_mon;
  994.           aptr->day = current.tm_mday;
  995.           aptr->arrows = aptr->repeat = aptr->lookahead = 0;
  996. +         aptr->runlength = 0;
  997.           aptr->flags = (A_NOTE | READONLY);
  998.           if (marked_note)
  999.               aptr->flags |= MARKED;
  1000. ***************
  1001. *** 352,357
  1002.       double    hday, day;
  1003.       char    buf[32];
  1004.   
  1005.       hday = (*func)(current.tm_year+1900, &jyear);
  1006.       gregorian_date(&day, &month, &year, hday);
  1007.       if (current.tm_mon == --month && current.tm_mday == (int)day) {
  1008.  
  1009. --- 363,372 -----
  1010.       double    hday, day;
  1011.       char    buf[32];
  1012.   
  1013. +     if (current.tm_year != save_year) {
  1014. +         datelib_init(current.tm_year+1900);
  1015. +         save_year = current.tm_year;
  1016. +     }
  1017.       hday = (*func)(current.tm_year+1900, &jyear);
  1018.       gregorian_date(&day, &month, &year, hday);
  1019.       if (current.tm_mon == --month && current.tm_mday == (int)day) {
  1020. ***************
  1021. *** 360,365
  1022.           aptr->month = current.tm_mon;
  1023.           aptr->day = current.tm_mday;
  1024.           aptr->arrows = aptr->repeat = aptr->lookahead = 0;
  1025.           aptr->flags = (A_NOTE | READONLY);
  1026.           if (marked_note)
  1027.               aptr->flags |= MARKED;
  1028.  
  1029. --- 375,381 -----
  1030.           aptr->month = current.tm_mon;
  1031.           aptr->day = current.tm_mday;
  1032.           aptr->arrows = aptr->repeat = aptr->lookahead = 0;
  1033. +         aptr->runlength = 0;
  1034.           aptr->flags = (A_NOTE | READONLY);
  1035.           if (marked_note)
  1036.               aptr->flags |= MARKED;
  1037. *** /tmp/,RCSt1a16948    Fri Dec 15 17:23:08 1989
  1038. --- init.c    Fri Dec 15 17:17:43 1989
  1039. ***************
  1040. *** 1,5
  1041.   /*
  1042. !  * $Header: init.c,v 2.2 89/07/19 20:27:59 billr Exp $
  1043.    */
  1044.   /*
  1045.    * init.c
  1046.  
  1047. --- 1,5 -----
  1048.   /*
  1049. !  * $Header: init.c,v 2.3 89/12/15 17:17:39 billr Exp $
  1050.    */
  1051.   /*
  1052.    * init.c
  1053. ***************
  1054. *** 424,431
  1055.                   return(1);
  1056.           }
  1057.       }
  1058. !     if (access(apts_pathname, W_OK) == -1)
  1059. !         read_only = 1;
  1060.       /*
  1061.        * set permissions on tmp file based on .appointments file
  1062.        * with the expception that we need at least write permission
  1063.  
  1064. --- 424,432 -----
  1065.                   return(1);
  1066.           }
  1067.       }
  1068. !     if (!read_only)
  1069. !         if (access(apts_pathname, W_OK) == -1)
  1070. !             read_only = 1;
  1071.       /*
  1072.        * set permissions on tmp file based on .appointments file
  1073.        * with the expception that we need at least write permission
  1074. *** /tmp/,RCSt1a16953    Fri Dec 15 17:23:13 1989
  1075. --- mpaint.c    Fri Dec 15 17:17:47 1989
  1076. ***************
  1077. *** 1,5
  1078.   /*
  1079. !  * $Header: mpaint.c,v 2.2 89/07/19 20:29:01 billr Exp $
  1080.    */
  1081.   /*
  1082.    * mpaint.c
  1083.  
  1084. --- 1,5 -----
  1085.   /*
  1086. !  * $Header: mpaint.c,v 2.3 89/12/15 17:17:44 billr Exp $
  1087.    */
  1088.   /*
  1089.    * mpaint.c
  1090. ***************
  1091. *** 52,57
  1092.       int read_stat;
  1093.       struct tm Save;
  1094.       struct appt_entry appt;
  1095.   
  1096.       lock_cursors();
  1097.       /* destory future appts popup, if it exists */
  1098.  
  1099. --- 52,58 -----
  1100.       int read_stat;
  1101.       struct tm Save;
  1102.       struct appt_entry appt;
  1103. +     int runl;
  1104.   
  1105.       lock_cursors();
  1106.       /* destory future appts popup, if it exists */
  1107. ***************
  1108. *** 91,97
  1109.       fix_current_day();
  1110.       Last = current;
  1111.       working(FALSE);
  1112. !     while ((read_stat = get_aentry(apts, &appt)) != EOF) {
  1113.           if (read_stat)
  1114.               continue;    /* read error (ignore) */
  1115.           if (appt.flags & A_COMMENT)
  1116.  
  1117. --- 92,98 -----
  1118.       fix_current_day();
  1119.       Last = current;
  1120.       working(FALSE);
  1121. !     while ((read_stat = get_aentry(apts, &appt, FALSE)) != EOF) {
  1122.           if (read_stat)
  1123.               continue;    /* read error (ignore) */
  1124.           if (appt.flags & A_COMMENT)
  1125. ***************
  1126. *** 125,133
  1127.           } else if ((appt.flags & REPEAT) && !(appt.flags & ALL_DAYS)) {
  1128.               if (appt.flags & EVERY_SOMEDAY)
  1129.                   continue;
  1130. !             while (ymd_compare(current, First) < 0) {
  1131. !                 current.tm_mday += appt.repeat;
  1132. !                 fix_current_day();
  1133.               }
  1134.               while (ymd_compare(current, Last) <= 0) {
  1135.                   busy_today[current.tm_mday-1]++;
  1136.  
  1137. --- 126,142 -----
  1138.           } else if ((appt.flags & REPEAT) && !(appt.flags & ALL_DAYS)) {
  1139.               if (appt.flags & EVERY_SOMEDAY)
  1140.                   continue;
  1141. !             if (appt.flags & RUN)
  1142. !                 runl = appt.runlength;
  1143. !             else
  1144. !                 runl = 1;
  1145. !             while (ymd_compare(current, First) < 0 && runl) {
  1146. !                 if (appt.flags & RUN)
  1147. !                     --runl;
  1148. !                 if (runl) {
  1149. !                     current.tm_mday += appt.repeat;
  1150. !                     fix_current_day();
  1151. !                 }
  1152.               }
  1153.               while (ymd_compare(current, Last) <= 0 && runl) {
  1154.                   if (runl) {
  1155. ***************
  1156. *** 129,138
  1157.                   current.tm_mday += appt.repeat;
  1158.                   fix_current_day();
  1159.               }
  1160. !             while (ymd_compare(current, Last) <= 0) {
  1161. !                 busy_today[current.tm_mday-1]++;
  1162. !                 current.tm_mday += appt.repeat;
  1163. !                 fix_current_day();
  1164.               }
  1165.           } else if (current.tm_year == First.tm_year 
  1166.               && current.tm_mon == First.tm_mon) {
  1167.  
  1168. --- 138,151 -----
  1169.                       fix_current_day();
  1170.                   }
  1171.               }
  1172. !             while (ymd_compare(current, Last) <= 0 && runl) {
  1173. !                 if (runl) {
  1174. !                     busy_today[current.tm_mday-1]++;
  1175. !                     current.tm_mday += appt.repeat;
  1176. !                     fix_current_day();
  1177. !                     if (appt.flags & RUN)
  1178. !                         --runl;
  1179. !                 }
  1180.               }
  1181.           } else if (current.tm_year == First.tm_year 
  1182.               && current.tm_mon == First.tm_mon) {
  1183. ***************
  1184. *** 177,184
  1185.   #endif
  1186.   
  1187.       y = top_border;                /* Draw all day boxes. */
  1188. !     x = 64*start_dow + left_border;
  1189. !         days_in_week = start_dow;
  1190.           c[0] = ' ';
  1191.           c[1] = '1';
  1192.           c[2] = ' ';
  1193.  
  1194. --- 190,207 -----
  1195.   #endif
  1196.   
  1197.       y = top_border;                /* Draw all day boxes. */
  1198. !     if (monday_first) {
  1199. !         if (start_dow == SUN) {
  1200. !             x = 64*6 + left_border;
  1201. !             days_in_week = 6;
  1202. !         } else {
  1203. !             x = 64*(start_dow - 1) + left_border;
  1204. !             days_in_week = start_dow -1 ;
  1205. !         }
  1206. !     } else {
  1207. !         x = 64*start_dow + left_border;
  1208. !         days_in_week = start_dow;
  1209. !     }
  1210.           c[0] = ' ';
  1211.           c[1] = '1';
  1212.           c[2] = ' ';
  1213. ***************
  1214. *** 218,226
  1215.           }
  1216.           x = left_border + 27;
  1217.           y = top_border - 16;
  1218. !     for (i=0; i<7; i++) {        /* Sun Mon ... Sat */
  1219. !         pw_char(main_pixwin,x,y,PIX_SRC,bigfont,daynames[i][0]);
  1220. !                 x += 64;
  1221.           }
  1222.   
  1223.       bottom_border = boxlims[n_days-1].highy;
  1224.  
  1225. --- 241,257 -----
  1226.           }
  1227.           x = left_border + 27;
  1228.           y = top_border - 16;
  1229. !     if (monday_first) {
  1230. !         for (i=1; i<7; i++) {        /* Mon ... Sat Sun */
  1231. !             pw_char(main_pixwin,x,y,PIX_SRC,bigfont,daynames[i][0]);
  1232. !             x += 64;
  1233. !         }
  1234. !         pw_char(main_pixwin,x,y,PIX_SRC,bigfont,daynames[0][0]);
  1235. !     } else {
  1236. !         for (i=0; i<7; i++) {        /* Sun Mon ... Sat */
  1237. !             pw_char(main_pixwin,x,y,PIX_SRC,bigfont,daynames[i][0]);
  1238. !             x += 64;
  1239. !         }
  1240.           }
  1241.   
  1242.       bottom_border = boxlims[n_days-1].highy;
  1243. *** /tmp/,RCSt1a16958    Fri Dec 15 17:23:18 1989
  1244. --- notify.c    Fri Dec 15 17:17:55 1989
  1245. ***************
  1246. *** 1,5
  1247.   /*
  1248. !  * $Header: notify.c,v 2.1 89/05/09 14:23:13 billr Exp $
  1249.    */
  1250.   /*
  1251.    * notify.c
  1252.  
  1253. --- 1,5 -----
  1254.   /*
  1255. !  * $Header: notify.c,v 2.2 89/12/15 17:17:49 billr Exp $
  1256.    */
  1257.   /*
  1258.    * notify.c
  1259. ***************
  1260. *** 53,58
  1261.   extern Panel_item repeat_pi, remind_pi, daysel_pi;
  1262.   extern Panel_item everyx_pi, whichwk_pi, marked_pi;
  1263.   extern Panel_item del_choice_pi, setdate_pi;
  1264.   #ifndef NO_SUN_MOON
  1265.   extern Frame mframe, sframe;
  1266.   extern Panel_item moonbutton_pi, sunbutton_pi;
  1267.  
  1268. --- 53,59 -----
  1269.   extern Panel_item repeat_pi, remind_pi, daysel_pi;
  1270.   extern Panel_item everyx_pi, whichwk_pi, marked_pi;
  1271.   extern Panel_item del_choice_pi, setdate_pi;
  1272. + extern Panel_item runl_pi;
  1273.   #ifndef NO_SUN_MOON
  1274.   extern Frame mframe, sframe;
  1275.   extern Panel_item moonbutton_pi, sunbutton_pi;
  1276. ***************
  1277. *** 77,83
  1278.   extern int show_future;
  1279.   extern int show_time;
  1280.   extern int update_interval;
  1281. - extern char todays_date[], timestr[];
  1282.   extern struct appt_entry shelf_appt;
  1283.   
  1284.   int i;
  1285.  
  1286. --- 78,83 -----
  1287.   extern int show_future;
  1288.   extern int show_time;
  1289.   extern int update_interval;
  1290.   extern struct appt_entry shelf_appt;
  1291.   extern int day_first;
  1292.   
  1293. ***************
  1294. *** 79,84
  1295.   extern int update_interval;
  1296.   extern char todays_date[], timestr[];
  1297.   extern struct appt_entry shelf_appt;
  1298.   
  1299.   int i;
  1300.   
  1301.  
  1302. --- 79,85 -----
  1303.   extern int show_time;
  1304.   extern int update_interval;
  1305.   extern struct appt_entry shelf_appt;
  1306. + extern int day_first;
  1307.   
  1308.   int i;
  1309.   
  1310. ***************
  1311. *** 419,425
  1312.                   break;
  1313.   
  1314.               case 5:    /* change date */
  1315. !                 sprintf(date, "%d/%d/%02d", Save.tm_mon+1, Save.tm_mday, Save.tm_year);
  1316.                   panel_set_value(setdate_pi, date);
  1317.                   do {
  1318.                       window_loop(date_frame);
  1319.  
  1320. --- 420,429 -----
  1321.                   break;
  1322.   
  1323.               case 5:    /* change date */
  1324. !                 if (day_first)
  1325. !                     sprintf(date, "%d/%d/%02d", Save.tm_mday, Save.tm_mon+1, Save.tm_year);
  1326. !                 else
  1327. !                     sprintf(date, "%d/%d/%02d", Save.tm_mon+1, Save.tm_mday, Save.tm_year);
  1328.                   panel_set_value(setdate_pi, date);
  1329.                   do {
  1330.                       window_loop(date_frame);
  1331. ***************
  1332. *** 1018,1023
  1333.               new_entry = 1;
  1334.               flag |= LOOKAHEAD;
  1335.               apt->lookahead = value;
  1336.           }
  1337.       }
  1338.   
  1339.  
  1340. --- 1022,1037 -----
  1341.               new_entry = 1;
  1342.               flag |= LOOKAHEAD;
  1343.               apt->lookahead = value;
  1344. +         }
  1345. +     }
  1346. + 
  1347. +     /* get runlength value */
  1348. +     value = atoi((char *)panel_get_value(runl_pi));
  1349. +     if (value > 0) {
  1350. +         if (apt->runlength != value) {
  1351. +             new_entry = 1;
  1352. +             flag |= RUN;
  1353. +             apt->runlength = value;
  1354.           }
  1355.       }
  1356.   
  1357. *** /tmp/,RCSt1a16963    Fri Dec 15 17:23:25 1989
  1358. --- paint.h    Fri Dec 15 17:17:59 1989
  1359. ***************
  1360. *** 1,5
  1361.   /*
  1362. !  * $Header: paint.h,v 2.1 89/05/09 14:25:24 billr Exp $
  1363.    */
  1364.   /*
  1365.    * paint.h
  1366.  
  1367. --- 1,5 -----
  1368.   /*
  1369. !  * $Header: paint.h,v 2.2 89/12/15 17:17:57 billr Exp $
  1370.    */
  1371.   /*
  1372.    * paint.h
  1373. ***************
  1374. *** 22,27
  1375.    * notice remains intact.
  1376.    */
  1377.   
  1378.   #include <suntool/panel.h>
  1379.   
  1380.   extern Pixfont *font, *bigfont;
  1381.  
  1382. --- 22,28 -----
  1383.    * notice remains intact.
  1384.    */
  1385.   
  1386. + #ifndef NOTOOL
  1387.   #include <suntool/panel.h>
  1388.   
  1389.   extern Pixfont *font, *bigfont;
  1390. ***************
  1391. *** 27,34
  1392.   extern Pixfont *font, *bigfont;
  1393.   extern Canvas canvas;
  1394.   extern Pixwin *main_pixwin;
  1395. - extern struct tm current, today, First, Last;
  1396. - extern struct dayslot slots[];
  1397.   extern Pixrect *timeslot_pr, *daybox_pr, *weekarrow_pr,  *weekslot_pr;
  1398.   extern Pixrect *weekarrowshaft_pr, *weekarrowhead_pr;
  1399.   extern Pixrect *triangle_pr;
  1400.  
  1401. --- 28,33 -----
  1402.   extern Pixfont *font, *bigfont;
  1403.   extern Canvas canvas;
  1404.   extern Pixwin *main_pixwin;
  1405.   extern Pixrect *timeslot_pr, *daybox_pr, *weekarrow_pr,  *weekslot_pr;
  1406.   extern Pixrect *weekarrowshaft_pr, *weekarrowhead_pr;
  1407.   extern Pixrect *triangle_pr;
  1408. ***************
  1409. *** 38,44
  1410.   extern struct weekrect week_boxes[];
  1411.   extern int x_coord, y_coord, startx, starty;
  1412.   extern int mainsw_state;
  1413. - extern int dayslot_width, nr_weekdays, max_strlen, n_tslots;
  1414.   extern int dayslot_height, weekslot_height, weekslot_width;
  1415.   extern int ybox_height, ybox_width;
  1416.   extern struct rect_limits boxlims[];
  1417.  
  1418. --- 37,42 -----
  1419.   extern struct weekrect week_boxes[];
  1420.   extern int x_coord, y_coord, startx, starty;
  1421.   extern int mainsw_state;
  1422.   extern int dayslot_height, weekslot_height, weekslot_width;
  1423.   extern int ybox_height, ybox_width;
  1424.   extern struct rect_limits boxlims[];
  1425. ***************
  1426. *** 44,49
  1427.   extern struct rect_limits boxlims[];
  1428.   extern struct rect_limits mboxlims[];
  1429.   extern struct week_arrow week_arrows[];
  1430.   extern char apts_pathname[], tmpapts_pathname[];
  1431.   extern int read_only, day_is_open, version2;
  1432.   extern char *progname;
  1433.  
  1434. --- 42,50 -----
  1435.   extern struct rect_limits boxlims[];
  1436.   extern struct rect_limits mboxlims[];
  1437.   extern struct week_arrow week_arrows[];
  1438. + extern Frame fframe;
  1439. + extern int hour24, monday_first, day_first;
  1440. + #endif  /* NOTOOL */
  1441.   extern char apts_pathname[], tmpapts_pathname[];
  1442.   extern int read_only, day_is_open, version2;
  1443.   extern char *progname;
  1444. ***************
  1445. *** 47,53
  1446.   extern char apts_pathname[], tmpapts_pathname[];
  1447.   extern int read_only, day_is_open, version2;
  1448.   extern char *progname;
  1449. - extern Frame fframe;
  1450.   extern char *daynames[], *monthnames[];
  1451.   #ifndef NO_HOLIDAYS
  1452.   extern int holiday_a, holiday_c, holiday_i, holiday_j, holiday_s;
  1453.  
  1454. --- 48,53 -----
  1455.   extern char apts_pathname[], tmpapts_pathname[];
  1456.   extern int read_only, day_is_open, version2;
  1457.   extern char *progname;
  1458.   extern char *daynames[], *monthnames[];
  1459.   extern int dayslot_width, nr_weekdays, max_strlen, n_tslots;
  1460.   extern struct tm current, today, First, Last;
  1461. ***************
  1462. *** 49,54
  1463.   extern char *progname;
  1464.   extern Frame fframe;
  1465.   extern char *daynames[], *monthnames[];
  1466.   #ifndef NO_HOLIDAYS
  1467.   extern int holiday_a, holiday_c, holiday_i, holiday_j, holiday_s;
  1468.   
  1469.  
  1470. --- 49,57 -----
  1471.   extern int read_only, day_is_open, version2;
  1472.   extern char *progname;
  1473.   extern char *daynames[], *monthnames[];
  1474. + extern int dayslot_width, nr_weekdays, max_strlen, n_tslots;
  1475. + extern struct tm current, today, First, Last;
  1476. + extern struct dayslot slots[];
  1477.   #ifndef NO_HOLIDAYS
  1478.   extern int holiday_a, holiday_c, holiday_i, holiday_j, holiday_s;
  1479.   
  1480. *** /tmp/,RCSt1a16968    Fri Dec 15 17:23:28 1989
  1481. --- patchlevel.h    Fri Dec 15 17:18:02 1989
  1482. ***************
  1483. *** 1,5
  1484.   /*
  1485. !  * $Header: patchlevel.h,v 2.5 89/09/19 06:19:56 billr Exp $
  1486.    */
  1487.   /*
  1488.    * patchlevel.h - current patchlevel of calentool program
  1489.  
  1490. --- 1,5 -----
  1491.   /*
  1492. !  * $Header: patchlevel.h,v 2.6 89/12/15 17:18:00 billr Exp $
  1493.    */
  1494.   /*
  1495.    * patchlevel.h - current patchlevel of calentool program
  1496. ***************
  1497. *** 5,8
  1498.    * patchlevel.h - current patchlevel of calentool program
  1499.    */
  1500.   
  1501. ! #define PATCHLEVEL    4
  1502.  
  1503. --- 5,8 -----
  1504.    * patchlevel.h - current patchlevel of calentool program
  1505.    */
  1506.   
  1507. ! #define PATCHLEVEL    5
  1508. *** /tmp/,RCSt1a16973    Fri Dec 15 17:23:32 1989
  1509. --- put_aentry.c    Fri Dec 15 17:18:06 1989
  1510. ***************
  1511. *** 1,5
  1512.   /*
  1513. !  * $Header: put_aentry.c,v 2.1 89/05/09 14:19:36 billr Exp $
  1514.    */
  1515.   /*
  1516.    * put_aentry - write calentool style files
  1517.  
  1518. --- 1,5 -----
  1519.   /*
  1520. !  * $Header: put_aentry.c,v 2.2 89/12/15 17:18:04 billr Exp $
  1521.    */
  1522.   /*
  1523.    * put_aentry - write calentool style files
  1524. ***************
  1525. *** 91,96
  1526.   
  1527.       if (appt->flags & LOOKAHEAD)
  1528.           fprintf(apts_file, "<%d> ", appt->lookahead);
  1529.       if (appt->flags & DELETED)
  1530.           fprintf(apts_file, "# %s", appt->str);
  1531.       else
  1532.  
  1533. --- 91,98 -----
  1534.   
  1535.       if (appt->flags & LOOKAHEAD)
  1536.           fprintf(apts_file, "<%d> ", appt->lookahead);
  1537. +     if (appt->flags & RUN)
  1538. +         fprintf(apts_file, "+%d ", appt->runlength);
  1539.       if (appt->flags & DELETED)
  1540.           fprintf(apts_file, "# %s", appt->str);
  1541.       else
  1542. *** /tmp/,RCSt1a16978    Fri Dec 15 17:23:36 1989
  1543. --- ras2ps.c    Fri Dec 15 17:18:10 1989
  1544. ***************
  1545. *** 1,5
  1546.   /*
  1547. !  * $Header: ras2ps.c,v 2.2 89/07/19 20:30:25 billr Exp $
  1548.    */
  1549.   /*
  1550.    * ras2ps - convert Sun raster file to RLL Postscript file
  1551.  
  1552. --- 1,5 -----
  1553.   /*
  1554. !  * $Header: ras2ps.c,v 2.3 89/12/15 17:18:07 billr Exp $
  1555.    */
  1556.   /*
  1557.    * ras2ps - convert Sun raster file to RLL Postscript file
  1558. ***************
  1559. *** 91,97
  1560.        sizey = 10.0;
  1561.        transx = transy = 0.5;
  1562.        inv = 0;
  1563. !      rotate = 90.0;
  1564.        ofile = outfile;
  1565.        
  1566.        if (pr_load_header(infile, &rh) != 0)
  1567.  
  1568. --- 91,97 -----
  1569.        sizey = 10.0;
  1570.        transx = transy = 0.5;
  1571.        inv = 0;
  1572. !      rotate = 0.0;
  1573.        ofile = outfile;
  1574.        
  1575.        if (pr_load_header(infile, &rh) != 0)
  1576. *** /tmp/,RCSt1a16983    Fri Dec 15 17:23:40 1989
  1577. --- riseset.c    Fri Dec 15 17:18:14 1989
  1578. ***************
  1579. *** 1,5
  1580.   /*
  1581. !  * $Header: riseset.c,v 2.2 89/07/19 20:31:05 billr Exp $
  1582.    */
  1583.   /*
  1584.    * riseset.c
  1585.  
  1586. --- 1,5 -----
  1587.   /*
  1588. !  * $Header: riseset.c,v 2.3 89/12/15 17:18:11 billr Exp $
  1589.    */
  1590.   /*
  1591.    * riseset.c
  1592. ***************
  1593. *** 46,51
  1594.   #include "riseset.h"
  1595.   
  1596.   extern char *daynames[], *monthnames[];
  1597.   
  1598.   long    UTC, TDT, tim, tim2;
  1599.   double    Julian_Day, MJD, Tu, Ru, T70, Local, GMST, LST;
  1600.  
  1601. --- 46,52 -----
  1602.   #include "riseset.h"
  1603.   
  1604.   extern char *daynames[], *monthnames[];
  1605. + extern int day_first;
  1606.   
  1607.   long    UTC, TDT, tim, tim2;
  1608.   double    Julian_Day, MJD, Tu, Ru, T70, Local, GMST, LST;
  1609. ***************
  1610. *** 134,141
  1611.       ltm = localtime(&UTC);
  1612.       sprintf(riseset_buf[B_LCT], "%.24s Local Civil Time", asctime(ltm));
  1613.   
  1614. !     sprintf(riseset_buf[B_DMY], "%s %s %d, %d", daynames[ltm->tm_wday],
  1615. !         monthnames[ltm->tm_mon], ltm->tm_mday, ltm->tm_year+1900);
  1616.       tim2 = UTC + (long)(Local + Round);    /* Compute Local Solar Time */
  1617.       tdate= gmctime(&tim2);
  1618.       *(tdate+19) = '\0';
  1619.  
  1620. --- 135,146 -----
  1621.       ltm = localtime(&UTC);
  1622.       sprintf(riseset_buf[B_LCT], "%.24s Local Civil Time", asctime(ltm));
  1623.   
  1624. !     if (day_first)
  1625. !         sprintf(riseset_buf[B_DMY], "%s %d %s %d", daynames[ltm->tm_wday],
  1626. !             ltm->tm_mday, monthnames[ltm->tm_mon], ltm->tm_year+1900);
  1627. !     else
  1628. !         sprintf(riseset_buf[B_DMY], "%s %s %d, %d", daynames[ltm->tm_wday],
  1629. !             monthnames[ltm->tm_mon], ltm->tm_mday, ltm->tm_year+1900);
  1630.       tim2 = UTC + (long)(Local + Round);    /* Compute Local Solar Time */
  1631.       tdate= gmctime(&tim2);
  1632.       *(tdate+19) = '\0';
  1633. *** /tmp/,RCSt1a16988    Fri Dec 15 17:23:45 1989
  1634. --- tool.c    Fri Dec 15 17:18:22 1989
  1635. ***************
  1636. *** 1,5
  1637.   /*
  1638. !  * $Header: tool.c,v 2.2 89/07/19 20:31:31 billr Exp $
  1639.    */
  1640.   /*
  1641.    * tool.c
  1642.  
  1643. --- 1,5 -----
  1644.   /*
  1645. !  * $Header: tool.c,v 2.3 89/12/15 17:18:15 billr Exp $
  1646.    */
  1647.   /*
  1648.    * tool.c
  1649. ***************
  1650. *** 45,50
  1651.   Panel_item monthmenu_pi, yearmenu_pi, weekbutton_pi, daybutton_pi;
  1652.   Panel_item previous_pi, next_pi, current_pi, filebutton_pi;
  1653.   Panel_item clock_pi;
  1654.   #ifndef NO_PRINTER
  1655.   Panel_item printbutton_pi;
  1656.   #endif
  1657.  
  1658. --- 45,51 -----
  1659.   Panel_item monthmenu_pi, yearmenu_pi, weekbutton_pi, daybutton_pi;
  1660.   Panel_item previous_pi, next_pi, current_pi, filebutton_pi;
  1661.   Panel_item clock_pi;
  1662. + Panel_item runl_pi;
  1663.   #ifndef NO_PRINTER
  1664.   Panel_item printbutton_pi;
  1665.   #endif
  1666. ***************
  1667. *** 125,130
  1668.   Notify_value check_close();
  1669.   int monthlength();
  1670.   char year_str[NR_YEARS][5]; /* holds strings for year menu */
  1671.   extern Pixwin *main_pixwin;
  1672.   extern Cursor day_cursor, wait_cursor;
  1673.   extern int day_is_open, mainsw_state;
  1674.  
  1675. --- 126,132 -----
  1676.   Notify_value check_close();
  1677.   int monthlength();
  1678.   char year_str[NR_YEARS][5]; /* holds strings for year menu */
  1679. + Rect *closed_rect;
  1680.   extern Pixwin *main_pixwin;
  1681.   extern Cursor day_cursor, wait_cursor;
  1682.   extern int day_is_open, mainsw_state;
  1683. ***************
  1684. *** 128,134
  1685.   extern Pixwin *main_pixwin;
  1686.   extern Cursor day_cursor, wait_cursor;
  1687.   extern int day_is_open, mainsw_state;
  1688. ! extern char todays_date[];
  1689.   extern struct appt_entry future[];
  1690.   extern int findex;
  1691.   extern struct dayslot slots[];
  1692.  
  1693. --- 130,136 -----
  1694.   extern Pixwin *main_pixwin;
  1695.   extern Cursor day_cursor, wait_cursor;
  1696.   extern int day_is_open, mainsw_state;
  1697. ! extern char clockstr[];
  1698.   extern struct appt_entry future[];
  1699.   extern int findex;
  1700.   extern struct dayslot slots[];
  1701. ***************
  1702. *** 136,141
  1703.   extern Pixrect moon_icon_pr, sun_icon_pr;
  1704.   #endif
  1705.   extern char printer[];
  1706.   
  1707.   /* Create and init control panel */
  1708.   create_panel()
  1709.  
  1710. --- 138,144 -----
  1711.   extern Pixrect moon_icon_pr, sun_icon_pr;
  1712.   #endif
  1713.   extern char printer[];
  1714. + extern int day_first;
  1715.   
  1716.   /* Create and init control panel */
  1717.   create_panel()
  1718. ***************
  1719. *** 288,293
  1720.   
  1721.       width = (int)window_get(panel, WIN_WIDTH);
  1722.   
  1723.       clock_pi = panel_create_item(panel, PANEL_MESSAGE,
  1724.               PANEL_ITEM_X, width-150-(strlen(todays_date)*font->pf_defaultsize.x),
  1725.               PANEL_ITEM_Y, ATTR_ROW(2)+3,
  1726.  
  1727. --- 291,297 -----
  1728.   
  1729.       width = (int)window_get(panel, WIN_WIDTH);
  1730.   
  1731. +     get_today();    /* get current date and time */
  1732.       clock_pi = panel_create_item(panel, PANEL_MESSAGE,
  1733.               PANEL_ITEM_X, width-150-(strlen(clockstr)*font->pf_defaultsize.x),
  1734.               PANEL_ITEM_Y, ATTR_ROW(2)+3,
  1735. ***************
  1736. *** 289,295
  1737.       width = (int)window_get(panel, WIN_WIDTH);
  1738.   
  1739.       clock_pi = panel_create_item(panel, PANEL_MESSAGE,
  1740. !             PANEL_ITEM_X, width-150-(strlen(todays_date)*font->pf_defaultsize.x),
  1741.               PANEL_ITEM_Y, ATTR_ROW(2)+3,
  1742.               PANEL_LABEL_STRING, todays_date,
  1743.               PANEL_LABEL_FONT, font,
  1744.  
  1745. --- 293,299 -----
  1746.   
  1747.       get_today();    /* get current date and time */
  1748.       clock_pi = panel_create_item(panel, PANEL_MESSAGE,
  1749. !             PANEL_ITEM_X, width-150-(strlen(clockstr)*font->pf_defaultsize.x),
  1750.               PANEL_ITEM_Y, ATTR_ROW(2)+3,
  1751.               PANEL_LABEL_STRING, clockstr,
  1752.               PANEL_LABEL_FONT, font,
  1753. ***************
  1754. *** 291,297
  1755.       clock_pi = panel_create_item(panel, PANEL_MESSAGE,
  1756.               PANEL_ITEM_X, width-150-(strlen(todays_date)*font->pf_defaultsize.x),
  1757.               PANEL_ITEM_Y, ATTR_ROW(2)+3,
  1758. !             PANEL_LABEL_STRING, todays_date,
  1759.               PANEL_LABEL_FONT, font,
  1760.               0);
  1761.   
  1762.  
  1763. --- 295,301 -----
  1764.       clock_pi = panel_create_item(panel, PANEL_MESSAGE,
  1765.               PANEL_ITEM_X, width-150-(strlen(clockstr)*font->pf_defaultsize.x),
  1766.               PANEL_ITEM_Y, ATTR_ROW(2)+3,
  1767. !             PANEL_LABEL_STRING, clockstr,
  1768.               PANEL_LABEL_FONT, font,
  1769.               0);
  1770.   
  1771. ***************
  1772. *** 479,485
  1773.       if (!fframe) {
  1774.           /* create new frame and control panel */
  1775.           fframe = window_create(frame, FRAME, FRAME_NO_CONFIRM, TRUE,
  1776. !                 WIN_SHOW, TRUE, WIN_X, ATTR_COL(12),
  1777.                   WIN_Y, slots[N_SLOTS-4].slot_pos.top,
  1778.                   FRAME_LABEL, "Future Appointments",
  1779.                   FRAME_SHOW_LABEL, TRUE,
  1780.  
  1781. --- 483,489 -----
  1782.       if (!fframe) {
  1783.           /* create new frame and control panel */
  1784.           fframe = window_create(frame, FRAME, FRAME_NO_CONFIRM, TRUE,
  1785. !                 WIN_X, ATTR_COL(12),
  1786.                   WIN_Y, slots[N_SLOTS-4].slot_pos.top,
  1787.                   FRAME_LABEL, "Future Appointments",
  1788.                   FRAME_SHOW_LABEL, TRUE,
  1789. ***************
  1790. *** 484,489
  1791.                   FRAME_LABEL, "Future Appointments",
  1792.                   FRAME_SHOW_LABEL, TRUE,
  1793.                   WIN_ERROR_MSG, "Can't create future frame.",
  1794.                   0);
  1795.   
  1796.           fcpanel = window_create(fframe, PANEL, 0);
  1797.  
  1798. --- 488,494 -----
  1799.                   FRAME_LABEL, "Future Appointments",
  1800.                   FRAME_SHOW_LABEL, TRUE,
  1801.                   WIN_ERROR_MSG, "Can't create future frame.",
  1802. +                 FRAME_CLOSED_RECT, closed_rect,
  1803.                   0);
  1804.   
  1805.           fcpanel = window_create(fframe, PANEL, 0);
  1806. ***************
  1807. *** 553,558
  1808.                   0);
  1809.       }
  1810.       window_fit(fframe);
  1811.   }
  1812.   
  1813.   /*
  1814.  
  1815. --- 558,564 -----
  1816.                   0);
  1817.       }
  1818.       window_fit(fframe);
  1819. +     window_set(fframe, WIN_SHOW, TRUE, 0);
  1820.   }
  1821.   
  1822.   /*
  1823. ***************
  1824. *** 567,572
  1825.       attr_frame = window_create(frame, FRAME, FRAME_NO_CONFIRM, TRUE,
  1826.               FRAME_SHOW_LABEL, FALSE,
  1827.               WIN_ERROR_MSG, "Can't create attributes frame.",
  1828.               0);
  1829.   
  1830.       attr_panel = window_create(attr_frame, PANEL,
  1831.  
  1832. --- 573,579 -----
  1833.       attr_frame = window_create(frame, FRAME, FRAME_NO_CONFIRM, TRUE,
  1834.               FRAME_SHOW_LABEL, FALSE,
  1835.               WIN_ERROR_MSG, "Can't create attributes frame.",
  1836. +             FRAME_CLOSED_RECT, closed_rect,
  1837.               0);
  1838.   
  1839.       attr_panel = window_create(attr_frame, PANEL,
  1840. ***************
  1841. *** 631,636
  1842.               PANEL_BLINK_CARET, TRUE,
  1843.               0);
  1844.       
  1845.       remind_pi = panel_create_item(attr_panel, PANEL_TEXT,
  1846.               PANEL_SHOW_ITEM, TRUE,
  1847.               PANEL_LABEL_STRING,
  1848.  
  1849. --- 638,654 -----
  1850.               PANEL_BLINK_CARET, TRUE,
  1851.               0);
  1852.       
  1853. +     runl_pi = panel_create_item(attr_panel, PANEL_TEXT,
  1854. +             PANEL_SHOW_ITEM, TRUE,
  1855. +             PANEL_LABEL_STRING,
  1856. +             "Repeat specified number of times (default forever):",
  1857. +             PANEL_VALUE, 0, PANEL_VALUE_STORED_LENGTH, 4,
  1858. +             PANEL_VALUE_DISPLAY_LENGTH, 4,
  1859. +             PANEL_ITEM_X, ATTR_COL(1),
  1860. +             PANEL_ITEM_Y, ATTR_ROW(4),
  1861. +             PANEL_BLINK_CARET, TRUE,
  1862. +             0);
  1863. + 
  1864.       remind_pi = panel_create_item(attr_panel, PANEL_TEXT,
  1865.               PANEL_SHOW_ITEM, TRUE,
  1866.               PANEL_LABEL_STRING,
  1867. ***************
  1868. *** 638,644
  1869.               PANEL_VALUE, 0, PANEL_VALUE_STORED_LENGTH, 4,
  1870.               PANEL_VALUE_DISPLAY_LENGTH, 4,
  1871.               PANEL_ITEM_X, ATTR_COL(1),
  1872. !             PANEL_ITEM_Y, ATTR_ROW(4),
  1873.               PANEL_BLINK_CARET, TRUE,
  1874.               0);
  1875.   
  1876.  
  1877. --- 656,662 -----
  1878.               PANEL_VALUE, 0, PANEL_VALUE_STORED_LENGTH, 4,
  1879.               PANEL_VALUE_DISPLAY_LENGTH, 4,
  1880.               PANEL_ITEM_X, ATTR_COL(1),
  1881. !             PANEL_ITEM_Y, ATTR_ROW(5),
  1882.               PANEL_BLINK_CARET, TRUE,
  1883.               0);
  1884.   
  1885. ***************
  1886. *** 651,657
  1887.               "Mark in month/year display:",
  1888.               PANEL_CHOICE_STRINGS, "Yes", "No", 0,
  1889.               PANEL_ITEM_X, ATTR_COL(1),
  1890. !             PANEL_ITEM_Y, ATTR_ROW(5),
  1891.               0);
  1892.   
  1893.       window_fit(attr_panel);
  1894.  
  1895. --- 669,675 -----
  1896.               "Mark in month/year display:",
  1897.               PANEL_CHOICE_STRINGS, "Yes", "No", 0,
  1898.               PANEL_ITEM_X, ATTR_COL(1),
  1899. !             PANEL_ITEM_Y, ATTR_ROW(6),
  1900.               0);
  1901.   
  1902.       window_fit(attr_panel);
  1903. ***************
  1904. *** 667,672
  1905.       del_frame = window_create(frame, FRAME, FRAME_NO_CONFIRM, TRUE,
  1906.               FRAME_SHOW_LABEL, FALSE,
  1907.               WIN_ERROR_MSG, "Can't create delete frame.",
  1908.               0);
  1909.   
  1910.       del_panel = window_create(del_frame, PANEL,
  1911.  
  1912. --- 685,691 -----
  1913.       del_frame = window_create(frame, FRAME, FRAME_NO_CONFIRM, TRUE,
  1914.               FRAME_SHOW_LABEL, FALSE,
  1915.               WIN_ERROR_MSG, "Can't create delete frame.",
  1916. +             FRAME_CLOSED_RECT, closed_rect,
  1917.               0);
  1918.   
  1919.       del_panel = window_create(del_frame, PANEL,
  1920. ***************
  1921. *** 720,726
  1922.       /* create new frame and canvas */
  1923.       if (!sframe) {
  1924.           sframe = window_create(frame, FRAME, FRAME_NO_CONFIRM, TRUE,
  1925. !                 WIN_SHOW, TRUE, WIN_X, ATTR_COL(12),
  1926.                   FRAME_LABEL, "Solar Data",
  1927.                   FRAME_SHOW_LABEL, TRUE,
  1928.                   FRAME_DONE_PROC, sframe_done,
  1929.  
  1930. --- 739,745 -----
  1931.       /* create new frame and canvas */
  1932.       if (!sframe) {
  1933.           sframe = window_create(frame, FRAME, FRAME_NO_CONFIRM, TRUE,
  1934. !                 WIN_X, ATTR_COL(12),
  1935.                   FRAME_LABEL, "Solar Data",
  1936.                   FRAME_SHOW_LABEL, TRUE,
  1937.                   FRAME_DONE_PROC, sframe_done,
  1938. ***************
  1939. *** 725,730
  1940.                   FRAME_SHOW_LABEL, TRUE,
  1941.                   FRAME_DONE_PROC, sframe_done,
  1942.                   WIN_ERROR_MSG, "Can't create sun data frame.",
  1943.                   0);
  1944.   
  1945.           spanel = window_create(sframe, PANEL, WIN_FONT, font,
  1946.  
  1947. --- 744,750 -----
  1948.                   FRAME_SHOW_LABEL, TRUE,
  1949.                   FRAME_DONE_PROC, sframe_done,
  1950.                   WIN_ERROR_MSG, "Can't create sun data frame.",
  1951. +                 FRAME_CLOSED_RECT, closed_rect,
  1952.                   0);
  1953.   
  1954.           spanel = window_create(sframe, PANEL, WIN_FONT, font,
  1955. ***************
  1956. *** 759,764
  1957.       
  1958.           write_sun_data();
  1959.           window_fit(sframe);
  1960.       } else
  1961.           write_sun_data();
  1962.   }
  1963.  
  1964. --- 779,785 -----
  1965.       
  1966.           write_sun_data();
  1967.           window_fit(sframe);
  1968. +         window_set(sframe, WIN_SHOW, TRUE, 0);
  1969.       } else
  1970.           write_sun_data();
  1971.   }
  1972. ***************
  1973. *** 773,779
  1974.       /* create new frame and canvas */
  1975.       if (!mframe) {
  1976.           mframe = window_create(frame, FRAME, FRAME_NO_CONFIRM, TRUE,
  1977. !                 WIN_SHOW, TRUE, WIN_X, ATTR_COL(12),
  1978.                   FRAME_LABEL, "Lunar Data",
  1979.                   FRAME_SHOW_LABEL, TRUE,
  1980.                   FRAME_INHERIT_COLORS, TRUE,
  1981.  
  1982. --- 794,800 -----
  1983.       /* create new frame and canvas */
  1984.       if (!mframe) {
  1985.           mframe = window_create(frame, FRAME, FRAME_NO_CONFIRM, TRUE,
  1986. !                 WIN_X, ATTR_COL(12),
  1987.                   FRAME_LABEL, "Lunar Data",
  1988.                   FRAME_SHOW_LABEL, TRUE,
  1989.                   FRAME_FOREGROUND_COLOR, &fg_default,
  1990. ***************
  1991. *** 776,782
  1992.                   WIN_SHOW, TRUE, WIN_X, ATTR_COL(12),
  1993.                   FRAME_LABEL, "Lunar Data",
  1994.                   FRAME_SHOW_LABEL, TRUE,
  1995. -                 FRAME_INHERIT_COLORS, TRUE,
  1996.                   FRAME_FOREGROUND_COLOR, &fg_default,
  1997.                   FRAME_BACKGROUND_COLOR, &bg_default,
  1998.                   FRAME_DONE_PROC, mframe_done,
  1999.  
  2000. --- 797,802 -----
  2001.                   WIN_X, ATTR_COL(12),
  2002.                   FRAME_LABEL, "Lunar Data",
  2003.                   FRAME_SHOW_LABEL, TRUE,
  2004.                   FRAME_FOREGROUND_COLOR, &fg_default,
  2005.                   FRAME_BACKGROUND_COLOR, &bg_default,
  2006.                   FRAME_DONE_PROC, mframe_done,
  2007. ***************
  2008. *** 781,786
  2009.                   FRAME_BACKGROUND_COLOR, &bg_default,
  2010.                   FRAME_DONE_PROC, mframe_done,
  2011.                   WIN_ERROR_MSG, "Can't create moon data frame.",
  2012.                   0);
  2013.   
  2014.           mpanel = window_create(mframe, PANEL, WIN_FONT, font,
  2015.  
  2016. --- 801,807 -----
  2017.                   FRAME_BACKGROUND_COLOR, &bg_default,
  2018.                   FRAME_DONE_PROC, mframe_done,
  2019.                   WIN_ERROR_MSG, "Can't create moon data frame.",
  2020. +                 FRAME_CLOSED_RECT, closed_rect,
  2021.                   0);
  2022.   
  2023.           mpanel = window_create(mframe, PANEL, WIN_FONT, font,
  2024. ***************
  2025. *** 816,821
  2026.       
  2027.           write_moon_data();
  2028.           window_fit(mframe);
  2029.       } else
  2030.           write_moon_data();
  2031.   }
  2032.  
  2033. --- 837,843 -----
  2034.       
  2035.           write_moon_data();
  2036.           window_fit(mframe);
  2037. +         window_set(mframe, WIN_SHOW, TRUE, 0);
  2038.       } else
  2039.           write_moon_data();
  2040.   }
  2041. ***************
  2042. *** 833,838
  2043.               FRAME_SHOW_LABEL, TRUE,
  2044.               FRAME_DONE_PROC, fileframe_done,
  2045.               WIN_ERROR_MSG, "Can't create file frame.",
  2046.               0);
  2047.   
  2048.       filepanel = window_create(fileframe, PANEL, WIN_FONT, font,
  2049.  
  2050. --- 855,861 -----
  2051.               FRAME_SHOW_LABEL, TRUE,
  2052.               FRAME_DONE_PROC, fileframe_done,
  2053.               WIN_ERROR_MSG, "Can't create file frame.",
  2054. +             FRAME_CLOSED_RECT, closed_rect,
  2055.               0);
  2056.   
  2057.       filepanel = window_create(fileframe, PANEL, WIN_FONT, font,
  2058. ***************
  2059. *** 925,930
  2060.                   WIN_SHOW, TRUE,
  2061.                   WIN_X, ATTR_COL(15), WIN_Y, ATTR_ROW(15),
  2062.                   WIN_ERROR_MSG, "Can't create error frame.",
  2063.                   0);
  2064.   
  2065.           prompt_panel = window_create(prompt_frame, PANEL,
  2066.  
  2067. --- 948,954 -----
  2068.                   WIN_SHOW, TRUE,
  2069.                   WIN_X, ATTR_COL(15), WIN_Y, ATTR_ROW(15),
  2070.                   WIN_ERROR_MSG, "Can't create error frame.",
  2071. +                 FRAME_CLOSED_RECT, closed_rect,
  2072.                   0);
  2073.   
  2074.           prompt_panel = window_create(prompt_frame, PANEL,
  2075. ***************
  2076. *** 995,1000
  2077.               FRAME_SHOW_LABEL, TRUE,
  2078.               FRAME_DONE_PROC, prframe_done,
  2079.               WIN_ERROR_MSG, "Can't create printer frame.",
  2080.               0);
  2081.   
  2082.       prpanel = window_create(prframe, PANEL, WIN_FONT, font,
  2083.  
  2084. --- 1019,1025 -----
  2085.               FRAME_SHOW_LABEL, TRUE,
  2086.               FRAME_DONE_PROC, prframe_done,
  2087.               WIN_ERROR_MSG, "Can't create printer frame.",
  2088. +             FRAME_CLOSED_RECT, closed_rect,
  2089.               0);
  2090.   
  2091.       prpanel = window_create(prframe, PANEL, WIN_FONT, font,
  2092. ***************
  2093. *** 1039,1044
  2094.               FRAME_SHOW_LABEL, TRUE,
  2095.               FRAME_DONE_PROC, dtframe_done,
  2096.               WIN_ERROR_MSG, "Can't create date frame.",
  2097.               0);
  2098.   
  2099.       dtpanel = window_create(date_frame, PANEL, WIN_FONT, font,
  2100.  
  2101. --- 1064,1070 -----
  2102.               FRAME_SHOW_LABEL, TRUE,
  2103.               FRAME_DONE_PROC, dtframe_done,
  2104.               WIN_ERROR_MSG, "Can't create date frame.",
  2105. +             FRAME_CLOSED_RECT, closed_rect,
  2106.               0);
  2107.   
  2108.       dtpanel = window_create(date_frame, PANEL, WIN_FONT, font,
  2109. ***************
  2110. *** 1057,1063
  2111.               PANEL_SHOW_ITEM, TRUE,
  2112.               PANEL_ITEM_X, ATTR_COL(1),
  2113.               PANEL_ITEM_Y, ATTR_ROW(1)+5,
  2114. !             PANEL_LABEL_STRING, "Enter date (D, M/D, or M/D/Y):",
  2115.               PANEL_LABEL_FONT, font,
  2116.               PANEL_LABEL_BOLD, TRUE,
  2117.               PANEL_VALUE_STORED_LENGTH, 10,
  2118.  
  2119. --- 1083,1089 -----
  2120.               PANEL_SHOW_ITEM, TRUE,
  2121.               PANEL_ITEM_X, ATTR_COL(1),
  2122.               PANEL_ITEM_Y, ATTR_ROW(1)+5,
  2123. !             PANEL_LABEL_STRING, (day_first ? "Enter date (D, D/M, or D/M/Y):" : "Enter date (D, M/D, or M/D/Y):"),
  2124.               PANEL_LABEL_FONT, font,
  2125.               PANEL_LABEL_BOLD, TRUE,
  2126.               PANEL_VALUE_STORED_LENGTH, 10,
  2127. ***************
  2128. *** 1065,1071
  2129.               PANEL_BLINK_CARET, TRUE,
  2130.               0);
  2131.       
  2132. !     sprintf(date, "%d/%d/%02d", current.tm_mon+1, current.tm_mday, current.tm_year);
  2133.       panel_set_value(setdate_pi, date);
  2134.       window_fit(dtpanel);
  2135.       window_fit(date_frame);
  2136.  
  2137. --- 1091,1100 -----
  2138.               PANEL_BLINK_CARET, TRUE,
  2139.               0);
  2140.       
  2141. !     if (day_first)
  2142. !         sprintf(date, "%d/%d/%02d", current.tm_mday, current.tm_mon+1, current.tm_year);
  2143. !     else
  2144. !         sprintf(date, "%d/%d/%02d", current.tm_mon+1, current.tm_mday, current.tm_year);
  2145.       panel_set_value(setdate_pi, date);
  2146.       window_fit(dtpanel);
  2147.       window_fit(date_frame);
  2148.