home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / x / volume21 / pan / part04 < prev    next >
Encoding:
Text File  |  1993-11-08  |  32.1 KB  |  1,103 lines
  1. Newsgroups: comp.sources.x
  2. From: jeff@tasslehoff.interlan.com (Jeff Bailey)
  3. Subject: v21i040:  pan - A post a note program, Part04/06
  4. Message-ID: <1993Nov9.000720.10909@sparky.sterling.com>
  5. X-Md4-Signature: cf18115bf31bd56190d9c563fdfe2c70
  6. Sender: chris@sparky.sterling.com (Chris Olson)
  7. Organization: Sterling Software
  8. Date: Tue, 9 Nov 1993 00:07:20 GMT
  9. Approved: chris@sterling.com
  10.  
  11. Submitted-by: jeff@tasslehoff.interlan.com (Jeff Bailey)
  12. Posting-number: Volume 21, Issue 40
  13. Archive-name: pan/part04
  14. Environment: X11, OpenLook, XView
  15. Supersedes: pan: Volume 16, Issue 137-142
  16.  
  17. ---- Cut Here and feed the following to sh ----
  18. #!/bin/sh
  19. # This is part 04 of a multipart archive
  20. # ============= pan3.0/rmfolder.c ==============
  21. if test ! -d 'pan3.0'; then
  22.     echo 'x - creating directory pan3.0'
  23.     mkdir 'pan3.0'
  24. fi
  25. if test -f 'pan3.0/rmfolder.c' -a X"$1" != X"-c"; then
  26.     echo 'x - skipping pan3.0/rmfolder.c (File already exists)'
  27. else
  28. echo 'x - extracting pan3.0/rmfolder.c (Text)'
  29. sed 's/^X//' << 'SHAR_EOF' > 'pan3.0/rmfolder.c' &&
  30. X/*
  31. XPost A Note V3.0
  32. XCopyright (c) 1993, Jeffrey W. Bailey
  33. XAll rights reserved.
  34. X
  35. XPermission is granted to distribute this program in exact, complete
  36. Xsource form, which includes this copyright notice, as long as no fee
  37. Xother than media and distribution cost is charged.
  38. X
  39. XThis program may not be used in whole, or in part, in any other manner
  40. Xwithout prior written permission from the author.
  41. X
  42. XThis program may not be distributed in modified form without prior
  43. Xwritten permission from the author.  In other words, patches may be
  44. Xdistributed, but modified source may not be distributed.
  45. X
  46. XIf there are any questions, comments or suggestions, the author may be
  47. Xcontacted at:
  48. X
  49. X    jeff@rd1.interlan.com
  50. X
  51. X    or
  52. X
  53. X    Jeffrey Bailey
  54. X    Racal-Datacom, Inc.
  55. X    Mail Stop E-110
  56. X    1601 N. Harrison Parkway
  57. X    Sunrise, FL  33323-2899
  58. X*/
  59. X
  60. X#include "pan.h"
  61. X#include <X11/X.h>
  62. X#include <X11/Xutil.h>
  63. X
  64. Xextern int errno;
  65. Xextern char *sys_errlist[];
  66. X
  67. Xint applydestroy(), destroydone();
  68. XPanel_item fldrlist;
  69. X
  70. Xint rf_resize_proc();
  71. X
  72. Xdestroyfolder(menu, mitem)
  73. X    Menu menu;
  74. X    Menu_item mitem;
  75. X    {
  76. X    Rect rect, *prect;
  77. X    struct SubDir *sp;
  78. X    int  x, y;
  79. X    int  row;
  80. X    Panel destroy_panel;
  81. X    static XClassHint chint;
  82. X
  83. X    w_popupxy(&x, &y, DESTROYWIDTH, DESTROYHEIGHT, DESTROYSPACING);
  84. X    destroy_mitem = mitem;
  85. X    destroy_frame = xv_create(main_frame, FRAME_CMD,
  86. X                           XV_LABEL, "Destroy Folder",
  87. X                           XV_X, x,
  88. X                           XV_Y, y,
  89. X                           FRAME_NO_CONFIRM, TRUE,
  90. X                           FRAME_DONE_PROC, destroydone,
  91. X                           WIN_EVENT_PROC, rf_resize_proc,
  92. X                           WIN_CONSUME_EVENTS,
  93. X                               WIN_RESIZE,
  94. X                               NULL,
  95. X                           NULL);
  96. X    if(destroy_frame == NULL)
  97. X        {
  98. X        notice_prompt(main_frame, NULL,
  99. X            NOTICE_MESSAGE_STRINGS,
  100. X                "Unable to create sub-frame (internal error)",
  101. X                NULL,
  102. X            NOTICE_BUTTON_YES, "Acknowledge",
  103. X            NOTICE_NO_BEEPING, noticenobeep,
  104. X            NULL);
  105. X        return;
  106. X        }
  107. X
  108. X    /* Set up the X class since xview doesn't */
  109. X    chint.res_name = "pan";
  110. X    chint.res_class = "Pan";
  111. X    XSetClassHint((Display *)xv_get(destroy_frame, XV_DISPLAY),
  112. X        xv_get(destroy_frame, XV_XID), &chint);
  113. X
  114. X    destroy_panel = (Panel) xv_get(destroy_frame, FRAME_CMD_PANEL);
  115. X    xv_set(destroy_panel, WIN_RETAINED, FALSE, NULL);
  116. X
  117. X    (void) xv_create(destroy_panel, PANEL_MESSAGE,
  118. X        XV_X, xv_col(destroy_panel, 0),
  119. X        XV_Y, xv_row(destroy_panel, 0),
  120. X        PANEL_LABEL_STRING, "Destroy Folder",
  121. X        NULL);
  122. X    fldrlist = xv_create(destroy_panel, PANEL_LIST,
  123. X        XV_X, xv_col(destroy_panel, 0),
  124. X        XV_Y, xv_row(destroy_panel, 1),
  125. X        PANEL_LIST_DISPLAY_ROWS, 7,
  126. X        PANEL_CHOOSE_ONE, TRUE,
  127. X        PANEL_READ_ONLY, TRUE,
  128. X        NULL);
  129. X    row = 0;
  130. X    sp = (struct SubDir *) LLM_first(&subdir_rt);
  131. X    while(sp != NULL)
  132. X        {
  133. X        xv_set(fldrlist,
  134. X            PANEL_LIST_INSERT, row,
  135. X            PANEL_LIST_STRING, row, sp->subdir, 
  136. X            PANEL_LIST_CLIENT_DATA, row, sp, 
  137. X            NULL);
  138. X        sp = (struct SubDir *) LLM_next(&subdir_rt);
  139. X        row++;
  140. X        }
  141. X
  142. X    prect = (Rect *) xv_get(fldrlist, PANEL_ITEM_RECT);
  143. X
  144. X    destroy_item =  xv_create(destroy_panel, PANEL_BUTTON,
  145. X                 XV_Y, prect->r_top + prect->r_height + 20,
  146. X                 PANEL_LABEL_STRING, "Apply",
  147. X                 PANEL_NOTIFY_PROC, applydestroy,
  148. X                 NULL);
  149. X
  150. X    window_fit(destroy_panel);
  151. X    window_fit(destroy_frame);
  152. X
  153. X    xv_set(destroy_frame, XV_SHOW, TRUE, NULL);
  154. X
  155. X    frame_get_rect(destroy_frame, &rect);
  156. X    prect = (Rect *) xv_get(destroy_item, PANEL_ITEM_RECT);
  157. X    xv_set(destroy_item,
  158. X        XV_X, ((rect.r_width / 2) - (prect->r_width / 2)),
  159. X        NULL);
  160. X    xv_set(fldrlist, PANEL_LIST_WIDTH, rect.r_width - SCROLLWIDTH, NULL);
  161. X
  162. X    (void) xv_set(mitem, MENU_INACTIVE, TRUE, NULL);
  163. X    destroy_up = 1;
  164. X    }
  165. X
  166. Xdestroydone()
  167. X    {
  168. X    xv_destroy_safe(destroy_frame);
  169. X    (void) xv_set(destroy_mitem, MENU_INACTIVE, FALSE, NULL);
  170. X    destroy_up = 0;
  171. X    }
  172. X
  173. Xapplydestroy(item, event)
  174. X    Panel_item item;
  175. X    Event *event;
  176. X    {
  177. X    Menu_item mitem;
  178. X    struct SubDir *sp;
  179. X    struct Note *np;
  180. X    int  i, row;
  181. X    DIR *dp;
  182. X    struct dirent *ent;
  183. X    char buf[MAXBUFLEN];
  184. X
  185. X    row = xv_get(fldrlist, PANEL_LIST_NROWS);
  186. X    for(i = 0; i < row; i++)
  187. X        {
  188. X        if(xv_get(fldrlist, PANEL_LIST_SELECTED, i))
  189. X            {
  190. X            sp = (struct SubDir *) xv_get(fldrlist, PANEL_LIST_CLIENT_DATA, i);
  191. X            }
  192. X        }
  193. X
  194. X#ifdef CONFIDENT
  195. X    if(confirmdestroy)
  196. X        {
  197. X#endif
  198. X        if(notice_prompt(destroy_frame, NULL,
  199. X                     NOTICE_MESSAGE_STRINGS, "Really destroy this folder?",
  200. X                         sp->subdir,
  201. X                         "(This action will destroy all notes in the folder)",
  202. X                         NULL,
  203. X                     NOTICE_BUTTON_YES, "Yes",
  204. X                     NOTICE_BUTTON_NO, "No",
  205. X                     NOTICE_NO_BEEPING, noticenobeep,
  206. X                     NULL) == NOTICE_NO)
  207. X            {
  208. X            if(xv_get(destroy_frame, FRAME_CMD_PUSHPIN_IN) == FALSE)
  209. X                {
  210. X                xv_destroy_safe(destroy_frame);
  211. X                (void) xv_set(destroy_mitem, MENU_INACTIVE, FALSE, NULL);
  212. X                destroy_up = 0;
  213. X                }
  214. X            return;
  215. X            }
  216. X#ifdef CONFIDENT
  217. X        }
  218. X#endif
  219. X
  220. X    np = (struct Note *) LLM_first(&sp->note_rt);
  221. X    while(np != NULL)
  222. X        {
  223. X        if(np->mapped)
  224. X            {
  225. X            textsw_reset(np->textsw, 0, 0);
  226. X            put_win(np);
  227. X            np->mapped = 0;
  228. X            }
  229. X        np = (struct Note *) LLM_next(&sp->note_rt);
  230. X        }
  231. X
  232. X    dp = opendir(sp->subdir);
  233. X    if(dp == NULL)
  234. X        {
  235. X        notice_prompt(main_frame, NULL,
  236. X            NOTICE_MESSAGE_STRINGS,
  237. X                "Couldn't read directory",
  238. X                sp->subdir,
  239. X                sys_errlist[errno],
  240. X                NULL,
  241. X            NOTICE_BUTTON_YES, "Acknowledge",
  242. X            NOTICE_NO_BEEPING, noticenobeep,
  243. X            NULL);
  244. X        if(xv_get(destroy_frame, FRAME_CMD_PUSHPIN_IN) == FALSE)
  245. X            {
  246. X            xv_destroy_safe(destroy_frame);
  247. X            (void) xv_set(destroy_mitem, MENU_INACTIVE, FALSE, NULL);
  248. X            destroy_up = 0;
  249. X            }
  250. X        return;
  251. X        }
  252. X    while((ent = readdir(dp)) != NULL)
  253. X        {
  254. X        if(strcmp(ent->d_name, ".") != 0 && strcmp(ent->d_name, "..") != 0)
  255. X            {
  256. X            sprintf(buf, "%s/%s", sp->subdir, ent->d_name);
  257. X            unlink(buf);
  258. X            }
  259. X        }
  260. X    closedir(dp);
  261. X    if(rmdir(sp->subdir) < 0)
  262. X        {
  263. X        notice_prompt(main_frame, NULL,
  264. X            NOTICE_MESSAGE_STRINGS,
  265. X                "Couldn't remove directory",
  266. X                sp->subdir,
  267. X                sys_errlist[errno],
  268. X                NULL,
  269. X            NOTICE_BUTTON_YES, "Acknowledge",
  270. X            NOTICE_NO_BEEPING, noticenobeep,
  271. X            NULL);
  272. X        }
  273. X
  274. X    mitem = xv_find(main_newnote, MENUITEM, MENU_STRING, sp->subdir, NULL);
  275. X    if(mitem != NULL)
  276. X        {
  277. X        (void) xv_set(main_newnote, MENU_REMOVE_ITEM, mitem, NULL);
  278. X        xv_destroy_safe(mitem);
  279. X        }
  280. X    mitem = xv_find(main_expose, MENUITEM, MENU_STRING, sp->subdir, NULL);
  281. X    if(mitem != NULL)
  282. X        {
  283. X        (void) xv_set(main_expose, MENU_REMOVE_ITEM, mitem, NULL);
  284. X        xv_destroy_safe(mitem);
  285. X        }
  286. X    mitem = xv_find(main_print, MENUITEM, MENU_STRING, sp->subdir, NULL);
  287. X    if(mitem != NULL)
  288. X        {
  289. X        (void) xv_set(main_print, MENU_REMOVE_ITEM, mitem, NULL);
  290. X        xv_destroy_safe(mitem);
  291. X        }
  292. X
  293. X    LLM_free(&sp->note_rt);
  294. X    LLM_delete(&subdir_rt, (char *)sp);
  295. X
  296. X    refresh_popups();
  297. X    if(xv_get(destroy_frame, FRAME_CMD_PUSHPIN_IN) == FALSE)
  298. X        {
  299. X        xv_destroy_safe(destroy_frame);
  300. X        (void) xv_set(destroy_mitem, MENU_INACTIVE, FALSE, NULL);
  301. X        destroy_up = 0;
  302. X        }
  303. X    }
  304. X
  305. Xrefresh_destroy()
  306. X    {
  307. X    int  row, i;
  308. X    struct SubDir *sp;
  309. X
  310. X    if(!destroy_up) return;
  311. X
  312. X    xv_set(fldrlist, XV_SHOW, FALSE, NULL);
  313. X
  314. X    row = xv_get(fldrlist, PANEL_LIST_NROWS);
  315. X    for(i = row - 1; i >= 0; i--)
  316. X        xv_set(fldrlist, PANEL_LIST_DELETE, i, NULL);
  317. X
  318. X    row = 0;
  319. X    sp = (struct SubDir *) LLM_first(&subdir_rt);
  320. X    while(sp != NULL)
  321. X        {
  322. X        xv_set(fldrlist,
  323. X            PANEL_LIST_INSERT, row,
  324. X            PANEL_LIST_STRING, row, sp->subdir, 
  325. X            PANEL_LIST_CLIENT_DATA, row, sp, 
  326. X            NULL);
  327. X        sp = (struct SubDir *) LLM_next(&subdir_rt);
  328. X        row++;
  329. X        }
  330. X
  331. X    xv_set(fldrlist, XV_SHOW, TRUE, NULL);
  332. X    }
  333. X
  334. X/*
  335. X    Center the button here even though we don't allow a resize because of
  336. X    the intermittent failure of frame_get_rect() immediately after frame
  337. X    creation.  Also adjust the list size.
  338. X*/
  339. Xrf_resize_proc(frame, event, arg)
  340. X    Frame frame;
  341. X    Event *event;
  342. X    Notify_arg arg;
  343. X    {
  344. X    Rect rect, *dprect, *prect;
  345. X 
  346. X    if(event_id(event) != WIN_RESIZE) return;
  347. X    frame_get_rect(frame, &rect);
  348. X    rect.r_height -= (topmargin + bottommargin); /* correct for wm title bar */
  349. X    rect.r_width -= (leftmargin + rightmargin);
  350. X 
  351. X    prect = (Rect *) xv_get(fldrlist, PANEL_ITEM_RECT);
  352. X    dprect = (Rect *) xv_get(destroy_item, PANEL_ITEM_RECT);
  353. X    xv_set(destroy_item,
  354. X                 XV_Y, prect->r_top + prect->r_height + 20,
  355. X                 XV_X, rect.r_width / 2 - dprect->r_width / 2,
  356. X                 NULL);
  357. X    xv_set(fldrlist, PANEL_LIST_WIDTH, rect.r_width - SCROLLWIDTH, NULL);
  358. X    }
  359. SHAR_EOF
  360. chmod 0644 pan3.0/rmfolder.c ||
  361. echo 'restore of pan3.0/rmfolder.c failed'
  362. Wc_c="`wc -c < 'pan3.0/rmfolder.c'`"
  363. test 9620 -eq "$Wc_c" ||
  364.     echo 'pan3.0/rmfolder.c: original size 9620, current size' "$Wc_c"
  365. fi
  366. # ============= pan3.0/COPYRIGHT ==============
  367. if test -f 'pan3.0/COPYRIGHT' -a X"$1" != X"-c"; then
  368.     echo 'x - skipping pan3.0/COPYRIGHT (File already exists)'
  369. else
  370. echo 'x - extracting pan3.0/COPYRIGHT (Text)'
  371. sed 's/^X//' << 'SHAR_EOF' > 'pan3.0/COPYRIGHT' &&
  372. XPost A Note V3.0b
  373. XCopyright (c) 1993, Jeffrey W. Bailey
  374. XAll rights reserved.
  375. X
  376. XPermission is granted to distribute this program in exact, complete
  377. Xsource form, which includes this copyright notice, as long as no fee
  378. Xother than media and distribution cost is charged.
  379. X
  380. XThis program may not be used in whole, or in part, in any other manner
  381. Xwithout prior written permission from the author.
  382. X
  383. XThis program may not be distributed in modified form without prior
  384. Xwritten permission from the author.  In other words, patches may be
  385. Xdistributed, but modified source may not be distributed.
  386. X
  387. XIf there are any questions, comments or suggestions, the author may be
  388. Xcontacted at:
  389. X
  390. X    jeff@rd1.interlan.com
  391. X
  392. X    or
  393. X
  394. X    Jeffrey Bailey
  395. X    Racal-Datacom, Inc.
  396. X    Mail Stop E-110
  397. X    1601 N. Harrison Parkway
  398. X    Sunrise, FL  33323-2899
  399. SHAR_EOF
  400. chmod 0644 pan3.0/COPYRIGHT ||
  401. echo 'restore of pan3.0/COPYRIGHT failed'
  402. Wc_c="`wc -c < 'pan3.0/COPYRIGHT'`"
  403. test 823 -eq "$Wc_c" ||
  404.     echo 'pan3.0/COPYRIGHT: original size 823, current size' "$Wc_c"
  405. fi
  406. # ============= pan3.0/panmain.icon ==============
  407. if test -f 'pan3.0/panmain.icon' -a X"$1" != X"-c"; then
  408.     echo 'x - skipping pan3.0/panmain.icon (File already exists)'
  409. else
  410. echo 'x - extracting pan3.0/panmain.icon (Text)'
  411. sed 's/^X//' << 'SHAR_EOF' > 'pan3.0/panmain.icon' &&
  412. X/* Format_version=1, Width=64, Height=64, Depth=1, Valid_bits_per_item=16
  413. X */
  414. X    0x0000,    0x0000,    0x0000,    0x0000,
  415. X    0x0000,    0x0000,    0x0000,    0x0000,
  416. X    0x0000,    0x0000,    0x0000,    0x0000,
  417. X    0x0000,    0x0000,    0x0000,    0x0000,
  418. X    0x0000,    0x0000,    0x0000,    0x0000,
  419. X    0x0000,    0x0000,    0x0000,    0x0000,
  420. X    0x0000,    0x0000,    0x0000,    0x0000,
  421. X    0x1FFF,    0xFFF0,    0x7FFF,    0xFFF8,
  422. X    0x2000,    0x0008,    0x8000,    0x0004,
  423. X    0x5200,    0x9105,    0x5441,    0x2202,
  424. X    0x5AF4,    0xDFB5,    0x70D9,    0xBF6A,
  425. X    0x57D8,    0xBB75,    0x5579,    0x76FA,
  426. X    0x5298,    0x9FA5,    0x55D1,    0x3F52,
  427. X    0x2000,    0x0008,    0x8000,    0x0004,
  428. X    0x1FFF,    0xFFF0,    0x7FFF,    0xFFF8,
  429. X    0x0000,    0x0000,    0x0000,    0x0000,
  430. X    0x0000,    0x0000,    0x0000,    0x0000,
  431. X    0x0000,    0x0000,    0x0000,    0x0000,
  432. X    0x1FFF,    0xFFFF,    0xF81F,    0xFFF0,
  433. X    0x2000,    0x0000,    0x0420,    0x0008,
  434. X    0x5C00,    0x0122,    0x024C,    0x2804,
  435. X    0x597F,    0x59BF,    0x6A4C,    0xF3F4,
  436. X    0x50AD,    0xF976,    0xFA53,    0x2AD4,
  437. X    0x5D77,    0xD13F,    0x5A53,    0xFBD4,
  438. X    0x2020,    0x0000,    0x0420,    0x0008,
  439. X    0x1FFF,    0xFFFF,    0xF81F,    0xFFF0,
  440. X    0x0000,    0x0000,    0x0000,    0x0000,
  441. X    0x0000,    0x0000,    0x0000,    0x0000,
  442. X    0x0000,    0x0000,    0x0000,    0x0000,
  443. X    0x0000,    0x0000,    0x0000,    0x0000,
  444. X    0x0000,    0x0000,    0x0000,    0x0000,
  445. X    0x0000,    0x0000,    0x0000,    0x0000,
  446. X    0x0C00,    0x4000,    0x0000,    0x0000,
  447. X    0x09ED,    0xF800,    0x0000,    0x0000,
  448. X    0x07AA,    0x5000,    0x0000,    0x0000,
  449. X    0x1D6B,    0xD9FF,    0xFFFF,    0xFFF0,
  450. X    0x0000,    0x0000,    0x0000,    0x0000,
  451. X    0x0000,    0x0000,    0x0000,    0x0000,
  452. X    0x0000,    0x0000,    0x0000,    0x0000,
  453. X    0x0000,    0x0000,    0x0000,    0x0000,
  454. X    0x0000,    0x0000,    0x0000,    0x0000,
  455. X    0x0000,    0x0000,    0x0000,    0x0000,
  456. X    0x0000,    0x0000,    0x0000,    0x0000,
  457. X    0x0000,    0x0000,    0x0000,    0x0000,
  458. X    0x0000,    0x0000,    0x0000,    0x0000,
  459. X    0x0000,    0x0000,    0x0000,    0x0000,
  460. X    0x0000,    0x0000,    0x0000,    0x0000,
  461. X    0x0000,    0x0000,    0x0000,    0x0000,
  462. X    0x0000,    0x0000,    0x0000,    0x0000,
  463. X    0x0000,    0x0000,    0x0000,    0x0000,
  464. X    0x0000,    0x0000,    0x0000,    0x0000,
  465. X    0x0000,    0x0000,    0x0000,    0x0000,
  466. X    0x0000,    0x0000,    0x0000,    0x0000,
  467. X    0x0000,    0x0000,    0x0000,    0x0000,
  468. X    0x0000,    0x0000,    0x0000,    0x0000,
  469. X    0x0000,    0x0000,    0x0000,    0x0000,
  470. X    0x0000,    0x0000,    0x0000,    0x0000,
  471. X    0x0000,    0x0000,    0x0000,    0x0000,
  472. X    0x0000,    0x0000,    0x0000,    0x0000,
  473. X    0x0000,    0x0000,    0x0000,    0x0000,
  474. X    0x0000,    0x0000,    0x0000,    0x0000,
  475. X    0x0000,    0x0000,    0x0000,    0x0000,
  476. X    0x0000,    0x0000,    0x0000,    0x0000,
  477. X    0x0000,    0x0000,    0x0000,    0x0000,
  478. SHAR_EOF
  479. chmod 0644 pan3.0/panmain.icon ||
  480. echo 'restore of pan3.0/panmain.icon failed'
  481. Wc_c="`wc -c < 'pan3.0/panmain.icon'`"
  482. test 2190 -eq "$Wc_c" ||
  483.     echo 'pan3.0/panmain.icon: original size 2190, current size' "$Wc_c"
  484. fi
  485. # ============= pan3.0/MANIFEST ==============
  486. if test -f 'pan3.0/MANIFEST' -a X"$1" != X"-c"; then
  487.     echo 'x - skipping pan3.0/MANIFEST (File already exists)'
  488. else
  489. echo 'x - extracting pan3.0/MANIFEST (Text)'
  490. sed 's/^X//' << 'SHAR_EOF' > 'pan3.0/MANIFEST' &&
  491. XCOPYRIGHT
  492. XImakefile
  493. XMANIFEST
  494. XMakefile
  495. XMakefile.std
  496. XREADME
  497. Xcontrol.c
  498. Xdnd.c
  499. Xevent.c
  500. Xfolder.c
  501. Xhidexp.c
  502. Xllm.c
  503. Xmenu.c
  504. Xmisc.c
  505. Xmove.c
  506. Xnote.c
  507. Xnoteaction.c
  508. Xpan.c
  509. Xpan.h
  510. Xpan.icon
  511. Xpan.man
  512. Xpan.mask.icon
  513. Xpancmd
  514. Xpanlog
  515. Xpanmain.icon
  516. Xpanmain.mask.icon
  517. Xparser.c
  518. Xrmfolder.c
  519. Xsearch.c
  520. Xupdate.c
  521. Xwin.c
  522. Xwork.c
  523. SHAR_EOF
  524. chmod 0644 pan3.0/MANIFEST ||
  525. echo 'restore of pan3.0/MANIFEST failed'
  526. Wc_c="`wc -c < 'pan3.0/MANIFEST'`"
  527. test 286 -eq "$Wc_c" ||
  528.     echo 'pan3.0/MANIFEST: original size 286, current size' "$Wc_c"
  529. fi
  530. # ============= pan3.0/note.c ==============
  531. if test -f 'pan3.0/note.c' -a X"$1" != X"-c"; then
  532.     echo 'x - skipping pan3.0/note.c (File already exists)'
  533. else
  534. echo 'x - extracting pan3.0/note.c (Text)'
  535. sed 's/^X//' << 'SHAR_EOF' > 'pan3.0/note.c' &&
  536. X/*
  537. XPost A Note V3.0
  538. XCopyright (c) 1993, Jeffrey W. Bailey
  539. XAll rights reserved.
  540. X
  541. XPermission is granted to distribute this program in exact, complete
  542. Xsource form, which includes this copyright notice, as long as no fee
  543. Xother than media and distribution cost is charged.
  544. X
  545. XThis program may not be used in whole, or in part, in any other manner
  546. Xwithout prior written permission from the author.
  547. X
  548. XThis program may not be distributed in modified form without prior
  549. Xwritten permission from the author.  In other words, patches may be
  550. Xdistributed, but modified source may not be distributed.
  551. X
  552. XIf there are any questions, comments or suggestions, the author may be
  553. Xcontacted at:
  554. X
  555. X    jeff@rd1.interlan.com
  556. X
  557. X    or
  558. X
  559. X    Jeffrey Bailey
  560. X    Racal-Datacom, Inc.
  561. X    Mail Stop E-110
  562. X    1601 N. Harrison Parkway
  563. X    Sunrise, FL  33323-2899
  564. X*/
  565. X
  566. X#include "pan.h"
  567. X
  568. X#include <xview/font.h>
  569. X
  570. X#ifdef PAN_DND
  571. X#include <xview/dragdrop.h>
  572. X#endif
  573. X
  574. X#include <X11/X.h>
  575. X#include <X11/Xutil.h>
  576. X
  577. Xextern int errno;
  578. Xextern char *sys_errlist[];
  579. X
  580. Xextern FILE *errfp;
  581. X
  582. X/*
  583. X    Routine called when new note button is selected
  584. X*/
  585. Xnewnote(menu, mitem)
  586. X    Menu menu;
  587. X    Menu_item mitem;
  588. X    {
  589. X    struct SubDir *sp;
  590. X    char *text;
  591. X
  592. X    text = (char *) xv_get(mitem, MENU_STRING);
  593. X    sp = (struct SubDir *)LLM_first(&subdir_rt);
  594. X    while(sp != NULL)
  595. X        {
  596. X        if(strcmp(text, sp->subdir) == 0) break;
  597. X        sp = (struct SubDir *)LLM_next(&subdir_rt);
  598. X        }
  599. X
  600. X    if(sp == NULL)
  601. X        {
  602. X        notice_prompt(main_frame, NULL,
  603. X            NOTICE_MESSAGE_STRINGS,
  604. X                "Internal failure - couldn't find subdir entry",
  605. X                NULL,
  606. X            NOTICE_BUTTON_YES, "Acknowledge",
  607. X            NOTICE_NO_BEEPING, noticenobeep,
  608. X            NULL);
  609. X        return;
  610. X        }
  611. X
  612. X    w_newnote(sp, Visible, NULL, NULL, NULL, ERRONDISPLAY);
  613. X    }
  614. X
  615. X/*
  616. X    Does the grunt work of setting up internals for the frame for
  617. X    restorenotes().  Only maps visible notes.
  618. X*/
  619. Xsetnote(np)
  620. X    struct Note *np;
  621. X    {
  622. X    int  rl, rt, rw, rh;
  623. X    FILE *fp;
  624. X    char fname[MAXBUFLEN];
  625. X    char att[20];
  626. X    char title[MAXTITLELEN + 1];
  627. X    char cdate[100];
  628. X
  629. X    makeinfoname(fname, np);
  630. X    np->rect.r_left = 0;
  631. X    np->rect.r_top = 0;
  632. X    np->rect.r_width = DEFWIDTH;
  633. X    np->rect.r_height = DEFHEIGHT;
  634. X    fp = fopen(fname, "r");
  635. X    if(fp != NULL)
  636. X        {
  637. X        np->state = Visible;
  638. X
  639. X        fgets(title, sizeof(title), fp);
  640. X        (void) sscanf(title, "%d %d %d %d %7s", &rl,
  641. X            &rt, &rw, &rh, att);
  642. X        np->rect.r_left = rl;
  643. X        np->rect.r_top = rt;
  644. X        np->rect.r_width = rw;
  645. X        np->rect.r_height = rh;
  646. X        *title = 0;
  647. X        fgets(title, sizeof(title), fp);
  648. X        trim(title);
  649. X        *cdate = 0;
  650. X        if(fgets(cdate, sizeof(cdate), fp) != NULL)
  651. X            np->crttime = atoi(cdate);
  652. X
  653. X
  654. X        strcpy(np->ntitle, title);
  655. X
  656. X        if(strncmp(att, "HIDDEN", 6) == 0)
  657. X            np->state = Hidden;
  658. X        if(strncmp(att, "VISIBLE", 7) == 0)
  659. X            np->state = Visible;
  660. X
  661. X        if(np->state != Hidden)
  662. X            {
  663. X            if(!buildnote(np, 1, FALSE))
  664. X                {
  665. X                (void) fclose(fp);
  666. X                return;
  667. X                }
  668. X            xv_set(np->title, PANEL_VALUE, np->ntitle, NULL);
  669. X            set_frame_title(np, np->ntitle);
  670. X            reseticon(np);
  671. X            }
  672. X        else np->mapped = 0;
  673. X
  674. X        (void) fclose(fp);
  675. X        }
  676. X    else
  677. X        {
  678. X        notice_prompt(main_frame, NULL,
  679. X            NOTICE_MESSAGE_STRINGS,
  680. X                "Couldn't open note geometry file",
  681. X                fname,
  682. X                sys_errlist[errno],
  683. X                NULL,
  684. X            NOTICE_BUTTON_YES, "Acknowledge",
  685. X            NOTICE_NO_BEEPING, noticenobeep,
  686. X            NULL);
  687. X        if(!buildnote(np, 1, TRUE)) return;
  688. X        np->state = Visible;
  689. X        }
  690. X    }
  691. X
  692. X/*
  693. X    Creates the actual Xview frame and items for a note.  Called by newnote()
  694. X    and restorenotes().
  695. X*/
  696. Xbuildnote(np, display, adjust)
  697. X    struct Note *np;
  698. X    int  display;
  699. X    int  adjust;
  700. X    {
  701. X    static Xv_Font ft;
  702. X    static int foundfont = 0;
  703. X    Rect *rect;
  704. X    int  x, hx, y;
  705. X    Server_image image, image2;
  706. X    static XClassHint chint;
  707. X    struct tm *tmptr;
  708. X    char title[MAXTITLELEN + 1];
  709. X    char fname[MAXBUFLEN];
  710. X    char buf [30];
  711. X
  712. X    strcpy(title, NOTITLE);
  713. X
  714. X    if(get_win(np))
  715. X        {
  716. X        /* if size not specifically set, make sure panel items visible */
  717. X        if(adjust)
  718. X            {
  719. X#ifndef PAN_DND
  720. X            rect = (Rect *) xv_get(np->cdate, PANEL_ITEM_RECT);
  721. X            hx = rect->r_left + rect->r_width + DEFPANELSPACING;
  722. X#else
  723. X            rect = (Rect *) xv_get(np->drag_tgt, PANEL_ITEM_RECT);
  724. X            hx = rect->r_left + rect->r_width + 2 * DEFPANELSPACING;
  725. X#endif
  726. X            rect = (Rect *) xv_get(np->ctime, PANEL_ITEM_RECT);
  727. X            x = rect->r_left + rect->r_width + DEFPANELSPACING;
  728. X            if(hx > x) x = hx;
  729. X            np->rect.r_width = x;
  730. X            }
  731. X        frame_set_rect(np->frame, &np->rect);
  732. X
  733. X        if(np->crttime != 0)
  734. X            {
  735. X            tmptr = localtime(&np->crttime);
  736. X            sprintf(buf, "Created: %02d/%02d/%02d", tmptr->tm_mon + 1,
  737. X                tmptr->tm_mday, tmptr->tm_year);
  738. X            }
  739. X        else strcpy(buf, "No create time");
  740. X        xv_set(np->cdate, PANEL_LABEL_STRING, buf, NULL);
  741. X
  742. X        if(np->crttime != 0)
  743. X            {
  744. X            tmptr = localtime(&np->crttime);
  745. X            sprintf(buf, "Time:    %02d:%02d:%02d", tmptr->tm_hour,
  746. X                tmptr->tm_min, tmptr->tm_sec);
  747. X            }
  748. X        else *buf = 0;
  749. X        xv_set(np->ctime, PANEL_LABEL_STRING, buf, NULL);
  750. X
  751. X        makename(fname, np);
  752. X        xv_set(np->textsw, TEXTSW_FILE, fname, TEXTSW_FIRST, 0, NULL);
  753. X        xv_set(np->frame, XV_LABEL, title, NULL);
  754. X
  755. X        xv_set(np->panel, PANEL_CARET_ITEM, np->title, NULL);
  756. X
  757. X        xv_set(np->title, PANEL_CLIENT_DATA, np, NULL);
  758. X        xv_set(np->hide, PANEL_CLIENT_DATA, np, NULL);
  759. X        xv_set(np->actionmenu, MENU_CLIENT_DATA, np, NULL);
  760. X
  761. X        xv_set(np->frame, XV_SHOW, TRUE, NULL);
  762. X        np->mapped = 1;
  763. X        return(1);
  764. X        }
  765. X
  766. X    np->frame = xv_create(main_frame, FRAME,
  767. X                              XV_LABEL, title,
  768. X                              FRAME_DONE_PROC, dismissed,
  769. X                              NULL);
  770. X    if(np->frame == NULL)
  771. X        {
  772. X        if(display)
  773. X            {
  774. X            notice_prompt(main_frame, NULL,
  775. X                NOTICE_MESSAGE_STRINGS,
  776. X                    "Couldn't create a new frame (internal error)",
  777. X                    NULL,
  778. X                NOTICE_BUTTON_YES, "Acknowledge",
  779. X                NOTICE_NO_BEEPING, noticenobeep,
  780. X                NULL);
  781. X            }
  782. X        else
  783. X            {
  784. X            fprintf(errfp,
  785. X                "%s:  Couldn't create a new frame (internal error)\n",
  786. X                myname);
  787. X            }
  788. X        return(0);
  789. X        }
  790. X
  791. X    /* Set up the X class since xview doesn't */
  792. X    chint.res_name = "pannote";
  793. X    chint.res_class = "PanNote";
  794. X    XSetClassHint((Display *)xv_get(np->frame, XV_DISPLAY),
  795. X        xv_get(np->frame, XV_XID), &chint);
  796. X
  797. X    xv_set(np->frame, WIN_EVENT_PROC, frameexit, WIN_CONSUME_EVENTS,
  798. X        LOC_WINEXIT, NULL,
  799. X        NULL);
  800. X
  801. X    np->panel = (Panel) xv_create(np->frame, PANEL,
  802. X                     WIN_RETAINED, FALSE, 
  803. X                     NULL);
  804. X
  805. X    if(np->panel == NULL)
  806. X        {
  807. X        xv_destroy_safe(np->frame);
  808. X        return(0);
  809. X        }
  810. X
  811. X    np->title = xv_create(np->panel, PANEL_TEXT,
  812. X                     PANEL_LABEL_STRING, "Title:",
  813. X                     PANEL_VALUE, "",
  814. X                     PANEL_VALUE_DISPLAY_LENGTH, MAXTITLEDISLEN + 1,
  815. X                     PANEL_VALUE_STORED_LENGTH, MAXTITLELEN,
  816. X                     PANEL_NOTIFY_PROC, newtitle,
  817. X                     PANEL_CLIENT_DATA, np,
  818. X                     XV_X, xv_col(np->panel, 0),
  819. X                     XV_Y, xv_row(np->panel, 0),
  820. X                     NULL);
  821. X    if(np->title == NULL)
  822. X        {
  823. X        xv_destroy_safe(np->frame);
  824. X        return(0);
  825. X        }
  826. X    rect = (Rect *) xv_get(np->title, PANEL_ITEM_RECT);
  827. X    hx = rect->r_left + rect->r_width + DEFPANELSPACING;
  828. X
  829. X    if(np->crttime != 0)
  830. X        {
  831. X        tmptr = localtime(&np->crttime);
  832. X        sprintf(buf, "Created: %02d/%02d/%02d", tmptr->tm_mon + 1,
  833. X            tmptr->tm_mday, tmptr->tm_year);
  834. X        }
  835. X    else
  836. X       {
  837. X       strcpy(buf, "No create time");
  838. X       }
  839. X    np->cdate = xv_create(np->panel, PANEL_MESSAGE,
  840. X                 PANEL_LABEL_STRING, buf,
  841. X                 XV_X, hx,
  842. X                 XV_Y, xv_row(np->panel, 0),
  843. X                 NULL);
  844. X
  845. X#ifdef PAN_DND
  846. X    rect = (Rect *) xv_get(np->cdate, PANEL_ITEM_RECT);
  847. X    x = rect->r_left + rect->r_width + 2 * DEFPANELSPACING;
  848. X    np->drag_obj = xv_create(np->panel, DRAGDROP,
  849. X                 NULL);
  850. X    np->drag_tgt = xv_create(np->panel, PANEL_DROP_TARGET,
  851. X                 XV_X, x,
  852. X                 XV_Y, xv_row(np->panel, 0),
  853. X                 PANEL_DROP_DND, np->drag_obj,
  854. X                 PANEL_NOTIFY_PROC, drag_proc,
  855. X                 PANEL_DROP_FULL,   TRUE,
  856. X                 NULL);
  857. X    np->got_itms = 0;
  858. X#endif
  859. X
  860. X    np->hide = xv_create(np->panel, PANEL_BUTTON,
  861. X                     PANEL_NEXT_ROW, -1,
  862. X                     PANEL_LABEL_STRING, "Hide",
  863. X                     PANEL_NOTIFY_PROC, hidenote, 
  864. X                     PANEL_CLIENT_DATA, np,
  865. X                     XV_X, xv_col(np->panel, 0),
  866. X                     XV_Y, xv_row(np->panel, 1),
  867. X                     NULL);
  868. X    if(np->hide == NULL)
  869. X        {
  870. X        xv_destroy_safe(np->frame);
  871. X        return(0);
  872. X        }
  873. X    rect = (Rect *) xv_get(np->hide, PANEL_ITEM_RECT);
  874. X    x = rect->r_left + rect->r_width + DEFPANELSPACING;
  875. X    y = rect->r_top;
  876. X
  877. X    np->actionmenu = (Menu) xv_create(NULL, MENU,
  878. X                     MENU_NOTIFY_PROC, noteaction,
  879. X                     MENU_CLIENT_DATA, np,
  880. X                     MENU_STRINGS, "Print", widthtext, "Destroy", NULL,
  881. X                     NULL);
  882. X    np->action = (Panel_item) xv_create(np->panel, PANEL_BUTTON,
  883. X                     PANEL_LABEL_STRING, "Action",
  884. X                     PANEL_ITEM_MENU, np->actionmenu,
  885. X                     XV_X, x,
  886. X                     XV_Y, y,
  887. X                     NULL);
  888. X    if(np->action == NULL)
  889. X        {
  890. X        xv_destroy_safe(np->frame);
  891. X        return(0);
  892. X        }
  893. X    rect = (Rect *) xv_get(np->action, PANEL_ITEM_RECT);
  894. X    x = rect->r_left + rect->r_width + DEFPANELSPACING;
  895. X    if(x > hx)
  896. X        {
  897. X        hx = x;
  898. X        xv_set(np->cdate, XV_X, hx, NULL);
  899. X        rect = (Rect *) xv_get(np->cdate, PANEL_ITEM_RECT);
  900. X        x = rect->r_left + rect->r_width + 2 * DEFPANELSPACING;
  901. X#ifndef PAN_DND
  902. X        xv_set(np->drag_tgt, XV_X, x, NULL);
  903. X#endif
  904. X        }
  905. X
  906. X    if(np->crttime != 0)
  907. X        {
  908. X        tmptr = localtime(&np->crttime);
  909. X        sprintf(buf, "Time:    %02d:%02d:%02d", tmptr->tm_hour,
  910. X            tmptr->tm_min, tmptr->tm_sec);
  911. X        }
  912. X    else *buf = 0;
  913. X    np->ctime = xv_create(np->panel, PANEL_MESSAGE,
  914. X             PANEL_LABEL_STRING, buf,
  915. X             XV_X, hx,
  916. X             XV_Y, y,
  917. X             NULL);
  918. X
  919. X    window_fit_height(np->panel);
  920. X
  921. X    np->textsw = xv_create(np->frame, TEXTSW,
  922. X                     NULL);
  923. X    if(np->textsw == NULL)
  924. X        {
  925. X        xv_destroy_safe(np->frame);
  926. X        return(0);
  927. X        }
  928. X
  929. X    /* User defined textsw font processing */
  930. X    if(*textfont)
  931. X        {
  932. X        if(foundfont == 0)
  933. X            {
  934. X            ft = xv_find(main_frame, FONT, FONT_NAME, textfont, NULL);
  935. X            if(ft)
  936. X                foundfont = 1;
  937. X            else
  938. X                foundfont = -1;
  939. X            }
  940. X        if(foundfont == 1)
  941. X            {
  942. X            xv_set(np->textsw, TEXTSW_FONT, ft, NULL);
  943. X            }
  944. X        }
  945. X
  946. X
  947. X    xv_set(xv_get(np->textsw, OPENWIN_NTH_VIEW, 0), 
  948. X        WIN_EVENT_PROC, dragdrop,
  949. X        WIN_CONSUME_EVENTS,
  950. X            ACTION_DRAG_LOAD|ACTION_GO_PAGE_FORWARD|ACTION_GO_PAGE_BACKWARD,
  951. X            KBD_DONE,
  952. X            NULL,
  953. X        WIN_RETAINED, FALSE,
  954. X        NULL);
  955. X
  956. X    window_fit(np->textsw);
  957. X    window_fit(np->frame);
  958. X
  959. X    /* if size not specifically set, make sure panel items visible */
  960. X    if(adjust)
  961. X        {
  962. X#ifndef PAN_DND
  963. X        rect = (Rect *) xv_get(np->cdate, PANEL_ITEM_RECT);
  964. X        hx = rect->r_left + rect->r_width + DEFPANELSPACING;
  965. X#else
  966. X        rect = (Rect *) xv_get(np->drag_tgt, PANEL_ITEM_RECT);
  967. X        hx = rect->r_left + rect->r_width + 2 * DEFPANELSPACING;
  968. X#endif
  969. X        rect = (Rect *) xv_get(np->ctime, PANEL_ITEM_RECT);
  970. X        x = rect->r_left + rect->r_width + DEFPANELSPACING;
  971. X        if(hx > x) x = hx;
  972. X        np->rect.r_width = x;
  973. X        }
  974. X
  975. X    frame_set_rect(np->frame, &np->rect);
  976. X
  977. X    image = xv_create(NULL, SERVER_IMAGE, XV_WIDTH, 64, XV_HEIGHT, 64,
  978. X                      SERVER_IMAGE_BITS, myicon, NULL);
  979. X    if(image == NULL)
  980. X        {
  981. X        xv_destroy_safe(np->frame);
  982. X        return(0);
  983. X        }
  984. X    image2 = xv_create(NULL, SERVER_IMAGE, XV_WIDTH, 64, XV_HEIGHT, 64,
  985. X                      SERVER_IMAGE_BITS, myiconmask, NULL);
  986. X    if(image2 == NULL)
  987. X        {
  988. X        xv_destroy_safe(np->frame);
  989. X        return(0);
  990. X        }
  991. X    np->icon = xv_create(NULL, ICON,
  992. X                     ICON_IMAGE, image,
  993. X                     ICON_MASK_IMAGE, image2,
  994. X                     ICON_LABEL, title,
  995. X                     ICON_TRANSPARENT, icontransparent,
  996. X                     NULL);
  997. X    if(np->icon == NULL)
  998. X        {
  999. X        xv_destroy_safe(np->frame);
  1000. X        return(0);
  1001. X        }
  1002. X    xv_set(np->frame, FRAME_ICON, np->icon, NULL);
  1003. X
  1004. X    makename(fname, np);
  1005. X    xv_set(np->textsw, TEXTSW_FILE, fname, TEXTSW_FIRST, 0, NULL);
  1006. X    xv_set(np->frame, XV_SHOW, TRUE, NULL);
  1007. X    np->mapped = 1;
  1008. X
  1009. X    return(1);
  1010. X    }
  1011. X
  1012. X/*
  1013. X    Sets the icon label of a note to its title.
  1014. X*/
  1015. Xreseticon(np)
  1016. X    struct Note *np;
  1017. X    {
  1018. X    char title[MAXTITLELEN + 1];
  1019. X
  1020. X    *title = 0;
  1021. X    strcpy(title, np->ntitle);
  1022. X    if(strlen(title) == 0) strcpy(title, NOTITLE);
  1023. X
  1024. X    xv_set(np->icon, ICON_LABEL, title, NULL);
  1025. X    }
  1026. X
  1027. X/*
  1028. X   Called when the user enters a new title for a note.
  1029. X*/
  1030. Xnewtitle(item, event)
  1031. X    Panel_item item;
  1032. X    Event *event;
  1033. X    {
  1034. X    Xv_Window window;
  1035. X    struct Note *np;
  1036. X    char title[MAXTITLELEN + 1];
  1037. X    char ntitle[MAXBUFLEN];
  1038. X
  1039. X    np = (struct Note *)xv_get(item, PANEL_CLIENT_DATA);
  1040. X
  1041. X    strcpy(title, (char *) xv_get(np->title, PANEL_VALUE));
  1042. X    trim(title);
  1043. X    if(strlen(title))
  1044. X        {
  1045. X        strcpy(ntitle, title);
  1046. X        }
  1047. X    else
  1048. X        {
  1049. X        strcpy(ntitle, NOTITLE);
  1050. X        }
  1051. X    set_frame_title(np, ntitle);
  1052. X    strcpy(np->ntitle, ntitle);
  1053. X    reseticon(np);
  1054. X    adjust_sorted(np);
  1055. X
  1056. X    xv_set(item, PANEL_INACTIVE, TRUE, NULL);
  1057. X    window = (Xv_Window) xv_get(np->textsw, OPENWIN_NTH_VIEW, 0);
  1058. X    win_set_kbd_focus(window, xv_get(window, XV_XID));
  1059. X    xv_set(item, PANEL_INACTIVE, FALSE, NULL);
  1060. X    updateinfo(np, FORCE);
  1061. X    refresh_popups();
  1062. X    return((int)PANEL_NONE);
  1063. X    }
  1064. X
  1065. Xset_frame_title(np, title)
  1066. X    struct Note *np;
  1067. X    char *title;
  1068. X    {
  1069. X    char t_title[MAXTITLELEN + 1];
  1070. X
  1071. X    if(fintitle)
  1072. X        {
  1073. X        sprintf(t_title, "(%s) %s", np->sp->subdir, title);
  1074. X        xv_set(np->frame, XV_LABEL, t_title, NULL);
  1075. X        }
  1076. X    else
  1077. X        xv_set(np->frame, XV_LABEL, title, NULL);
  1078. X    }
  1079. SHAR_EOF
  1080. chmod 0644 pan3.0/note.c ||
  1081. echo 'restore of pan3.0/note.c failed'
  1082. Wc_c="`wc -c < 'pan3.0/note.c'`"
  1083. test 15182 -eq "$Wc_c" ||
  1084.     echo 'pan3.0/note.c: original size 15182, current size' "$Wc_c"
  1085. fi
  1086. true || echo 'restore of pan3.0/pan.c failed'
  1087. echo End of part 4, continue with part 5
  1088. exit 0
  1089.  
  1090. --
  1091. Jeffrey Bailey
  1092. Racal-Datacom, Inc.
  1093. Mail Stop E-110
  1094. 1601 N. Harrison Parkway                  INET : jeff@rd1.interlan.com
  1095. Sunrise, FL 33323-2899                    UUCP : ...uflorida!novavax!rd1!jeff
  1096.  
  1097. exit 0 # Just in case...
  1098. -- 
  1099.   // chris@Sterling.COM           | Send comp.sources.x submissions to:
  1100. \X/  Amiga - The only way to fly! |    sources-x@sterling.com
  1101.  "It's intuitively obvious to the |
  1102.   most casual observer..."        | GCS d+/-- p+ c++ l+ m+ s++/+ g+ w+ t+ r+ x+
  1103.