home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / x / volume10 / contool / patch2 < prev    next >
Internet Message Format  |  1990-12-08  |  58KB
  1. Path: uunet!snorkelwacker.mit.edu!apple!sun-barr!newstop!exodus!appserv!melmac.harris-atd.com
  2. From: chuck@melmac.harris-atd.com (Chuck Musciano)
  3. Newsgroups: comp.sources.x
  4. Subject: v10i078: contool -- replacement for cmdtool -C, Patch2, Part01/01
  5. Message-ID: <316@appserv.Eng.Sun.COM>
  6. Date: 21 Nov 90 18:25:55 GMT
  7. References: <csx-10i078:contool@uunet.UU.NET>
  8. Sender: news@exodus.Eng.Sun.COM
  9. Lines: 1964
  10. Approved: argv@sun.com
  11.  
  12. Submitted-by: chuck@melmac.harris-atd.com (Chuck Musciano)
  13. Posting-number: Volume 10, Issue 78
  14. Archive-name: contool/patch2
  15. Patch-To: contool: Volume 10, Issue 34-40 (10/29/90)
  16.  
  17. *** Makefile.orig    Thu Nov  1 15:09:31 1990
  18. --- Makefile    Thu Nov  1 14:51:23 1990
  19. ***************
  20. *** 8,13 ****
  21. --- 8,16 ----
  22.   # Where to install the help file
  23.   HELPDIR        = /usr/local/lib/help
  24.   
  25. + # Mailer you use
  26. + MAILER        = /usr/ucb/mail
  27. + 
  28.   # paths to be searched for icons
  29.   ICON_PATH    = .:./icons:/usr/local/images:/usr/include/images
  30.   
  31. ***************
  32. *** 18,26 ****
  33.   LDFLAGS        = -L$(OPENWINHOME)/lib
  34.   
  35.   # Where your XView include files are installed
  36. ! CPPFLAGS    = -I$(OPENWINHOME)/include
  37.   
  38. ! CONTOOL        = contool.o contool_ui.o error.o expand.o filters.o load.o load_icon.o logging.o misc.o parse.o props.o regexp.o store.o window_misc.o
  39.   
  40.   OPTIONS        = -O
  41.   
  42. --- 21,31 ----
  43.   LDFLAGS        = -L$(OPENWINHOME)/lib
  44.   
  45.   # Where your XView include files are installed
  46. ! CPPFLAGS    = -I$(OPENWINHOME)/include -DMAILER=\"$(MAILER)\"
  47.   
  48. ! CONTOOL        = about.o busy.o contool.o contool_ui.o error.o expand.o filename_completion.o \
  49. !           filters.o load.o load_icon.o logging.o misc.o parse.o \
  50. !           pinned_menu_notify.o place_dialog.o props.o regexp.o send_mail.o store.o
  51.   
  52.   OPTIONS        = -O
  53.   
  54. ***************
  55. *** 50,55 ****
  56. --- 55,64 ----
  57.   
  58.   #dependencies
  59.   
  60. + about.o: contool_ui.h manifest.h
  61. + 
  62. + busy.o: manifest.h
  63. + 
  64.   contool.o: manifest.h contool.h contool_ui.h icons/default_good.icon \
  65.        icons/default_bad.icon icons/default_flash.icon icons/mask.icon
  66.   
  67. ***************
  68. *** 59,70 ****
  69.   
  70.   expand.o: manifest.h
  71.   
  72.   filters.o: manifest.h contool.h contool_ui.h images/single.icon \
  73.        images/range.icon images/empty.icon
  74.   
  75.   load.o: manifest.h contool.h contool_ui.h
  76.   
  77. ! load_icon.o: manifest.h contool.h
  78.   
  79.   logging.o: manifest.h contool.h contool_ui.h
  80.   
  81. --- 68,81 ----
  82.   
  83.   expand.o: manifest.h
  84.   
  85. + filename_completion.o: manifest.h
  86. + 
  87.   filters.o: manifest.h contool.h contool_ui.h images/single.icon \
  88.        images/range.icon images/empty.icon
  89.   
  90.   load.o: manifest.h contool.h contool_ui.h
  91.   
  92. ! load_icon.o: manifest.h
  93.   
  94.   logging.o: manifest.h contool.h contool_ui.h
  95.   
  96. ***************
  97. *** 72,81 ****
  98.   
  99.   parse.o: manifest.h contool.h lex.c
  100.   
  101.   props.o: manifest.h contool.h contool_ui.h
  102.   
  103.   regexp.o: manifest.h contool.h
  104.   
  105. ! store.o: manifest.h contool.h contool_ui.h
  106.   
  107. ! window_misc.o: manifest.h contool_ui.h
  108. --- 83,96 ----
  109.   
  110.   parse.o: manifest.h contool.h lex.c
  111.   
  112. + pinned_menu_notify.o: manifest.h
  113. + 
  114. + place_dialog.o: manifest.h
  115. + 
  116.   props.o: manifest.h contool.h contool_ui.h
  117.   
  118.   regexp.o: manifest.h contool.h
  119.   
  120. ! send_mail.o: contool_ui.h manifest.h
  121.   
  122. ! store.o: manifest.h contool.h contool_ui.h
  123. *** Imakefile.orig    Thu Nov  1 15:09:34 1990
  124. --- Imakefile    Thu Nov  1 14:51:22 1990
  125. ***************
  126. *** 2,20 ****
  127.   
  128.   HELPDIR        = /usr/local/lib/help
  129.   
  130.   LOCAL_LIBRARIES = -lxview -lolgx $(XLIB)
  131.   
  132.   LDOPTIONS    = -L$(OPENWINHOME)/lib
  133.   
  134. ! CFLAGS        = -O -I$(OPENWINHOME)/include
  135.   
  136. ! SRCS        = contool.c contool_ui.c error.c expand.c filters.c \
  137. !           load.c load_icon.c logging.c misc.c parse.y props.c \
  138. !           regexp.c store.c window_misc.c
  139.   
  140. ! OBJS        = contool.o contool_ui.o error.o expand.o filters.o \
  141. !           load.o load_icon.o logging.o misc.o parse.o props.o \
  142. !           regexp.o store.o window_misc.o
  143.   
  144.   ComplexProgramTarget(contool)
  145.   
  146. --- 2,22 ----
  147.   
  148.   HELPDIR        = /usr/local/lib/help
  149.   
  150. + MAILER        = /usr/ucb/mail
  151. + 
  152.   LOCAL_LIBRARIES = -lxview -lolgx $(XLIB)
  153.   
  154.   LDOPTIONS    = -L$(OPENWINHOME)/lib
  155.   
  156. ! CFLAGS        = -O -I$(OPENWINHOME)/include -DMAILER=\"$(MAILER)\"
  157.   
  158. ! SRCS        = about.c busy.c contool.c contool_ui.c error.c expand.c filename_completion.c \
  159. !           filters.c load.c load_icon.c logging.c misc.c parse.y \
  160. !           pinned_menu_notify.c place_dialog.c props.c regexp.c send_mail.c store.c
  161.   
  162. ! OBJS        = about.o busy.o contool.o contool_ui.o error.o expand.o filename_completion.o \
  163. !           filters.o load.o load_icon.o logging.o misc.o parse.o \
  164. !           pinned_menu_notify.o place_dialog.o props.o regexp.o send_mail.o store.o
  165.   
  166.   ComplexProgramTarget(contool)
  167.   
  168. *** README.orig    Thu Nov  1 15:09:35 1990
  169. --- README    Thu Nov  1 13:39:35 1990
  170. ***************
  171. *** 54,59 ****
  172. --- 54,61 ----
  173.           HELPDIR        Where the context-sensitive help file
  174.                   will be stored.
  175.   
  176. +         MAILER        The full path of your system mailer.
  177. + 
  178.           ICON_PATH    Path to search (at runtime) for other
  179.                   icon files.  This path will only be used
  180.                   if the user does not have the ICON_PATH
  181. ***************
  182. *** 178,180 ****
  183. --- 180,185 ----
  184.                   Fixed handling of dialog boxes under
  185.                      window managers other than olwm.
  186.                   Add Imakefile.
  187. +     3.0b            Fixed "tiny icon" bug.
  188. +                 Added "About contool..." dialog.
  189. +                 Source restructuring for maintainability.
  190. *** contool.info.orig    Thu Nov  1 15:09:37 1990
  191. --- contool.info    Thu Nov  1 13:47:28 1990
  192. ***************
  193. *** 281,283 ****
  194. --- 281,364 ----
  195.   # 
  196.   :accept_store
  197.   The Store button writes the desired items to the configuration file.  The entire file is overwritten with the data.  Thus, a file containing properties and filters will be completely rewritten, even if you only write the filters to it.
  198. + # 
  199. + :about_controls
  200. + This window gives you some details about the development of contool, encourages you to correspond with the developer to improve future versions of contool, and delineates the restrictions placed on the contool source code.
  201. + # 
  202. + :message1
  203. + This window gives you some details about the development of contool, encourages you to correspond with the developer to improve future versions of contool, and delineates the restrictions placed on the contool source code.
  204. + # 
  205. + :message5
  206. + This window gives you some details about the development of contool, encourages you to correspond with the developer to improve future versions of contool, and delineates the restrictions placed on the contool source code.
  207. + # 
  208. + :message6
  209. + This window gives you some details about the development of contool, encourages you to correspond with the developer to improve future versions of contool, and delineates the restrictions placed on the contool source code.
  210. + # 
  211. + :message7
  212. + This window gives you some details about the development of contool, encourages you to correspond with the developer to improve future versions of contool, and delineates the restrictions placed on the contool source code.
  213. + # 
  214. + :message8
  215. + This window gives you some details about the development of contool, encourages you to correspond with the developer to improve future versions of contool, and delineates the restrictions placed on the contool source code.
  216. + # 
  217. + :message9
  218. + This window gives you some details about the development of contool, encourages you to correspond with the developer to improve future versions of contool, and delineates the restrictions placed on the contool source code.
  219. + # 
  220. + :message10
  221. + This window gives you some details about the development of contool, encourages you to correspond with the developer to improve future versions of contool, and delineates the restrictions placed on the contool source code.
  222. + # 
  223. + :message15
  224. + This window gives you some details about the development of contool, encourages you to correspond with the developer to improve future versions of contool, and delineates the restrictions placed on the contool source code.
  225. + # 
  226. + :message11
  227. + This window gives you some details about the development of contool, encourages you to correspond with the developer to improve future versions of contool, and delineates the restrictions placed on the contool source code.
  228. + # 
  229. + :message12
  230. + This window gives you some details about the development of contool, encourages you to correspond with the developer to improve future versions of contool, and delineates the restrictions placed on the contool source code.
  231. + # 
  232. + :message13
  233. + This window gives you some details about the development of contool, encourages you to correspond with the developer to improve future versions of contool, and delineates the restrictions placed on the contool source code.
  234. + # 
  235. + :message14
  236. + This window gives you some details about the development of contool, encourages you to correspond with the developer to improve future versions of contool, and delineates the restrictions placed on the contool source code.
  237. + # 
  238. + :message16
  239. + This window gives you some details about the development of contool, encourages you to correspond with the developer to improve future versions of contool, and delineates the restrictions placed on the contool source code.
  240. + # 
  241. + :message17
  242. + This window gives you some details about the development of contool, encourages you to correspond with the developer to improve future versions of contool, and delineates the restrictions placed on the contool source code.
  243. + # 
  244. + :message18
  245. + This window gives you some details about the development of contool, encourages you to correspond with the developer to improve future versions of contool, and delineates the restrictions placed on the contool source code.
  246. + # 
  247. + :message19
  248. + This window gives you some details about the development of contool, encourages you to correspond with the developer to improve future versions of contool, and delineates the restrictions placed on the contool source code.
  249. + # 
  250. + :message20
  251. + This window gives you some details about the development of contool, encourages you to correspond with the developer to improve future versions of contool, and delineates the restrictions placed on the contool source code.
  252. + # 
  253. + :send_mail
  254. + Clicking this button will open another window in which you can compose and send mail to the developer of contool.
  255. + # 
  256. + :mail_controls
  257. + This window allows you to send mail concerning contool to its developer.  You are encouraged to send comments and suggestions in order to make contool a better tool.
  258. + # 
  259. + :message21
  260. + This window allows you to send mail concerning contool to its developer.  You are encouraged to send comments and suggestions in order to make contool a better tool.
  261. + # 
  262. + :message22
  263. + This window allows you to send mail concerning contool to its developer.  You are encouraged to send comments and suggestions in order to make contool a better tool.
  264. + # 
  265. + :address
  266. + This choice item lets you select the address to which your mail will be sent.  If your machine understands Internet-style addresses, you should use the first choice item.  If you are a UUCP-based site, you should use the second item.  If neither address works, use the third item to enter a valid address.
  267. + # 
  268. + :other_address
  269. + This text field is used to enter an e-mail address to which your mail will be sent.  It should only be used if the two default addresses do not work from your site.
  270. + # 
  271. + :mail_controls1
  272. + This window allows you to send mail concerning contool to its developer.  You are encouraged to send comments and suggestions in order to make contool a better tool.
  273. + # 
  274. + :accept_send
  275. + Clicking this button will send your mail message to contool's developer.
  276. + # 
  277. + :cancel_mail
  278. + Clicking this button cancels the message you were going to send.
  279. *** about.c.orig    Thu Nov  1 15:09:38 1990
  280. --- about.c    Thu Nov  1 11:46:52 1990
  281. ***************
  282. *** 0 ****
  283. --- 1,35 ----
  284. + /************************************************************************/
  285. + /*                                    */
  286. + /*    about.c        display a little information window        */
  287. + /*                                    */
  288. + /************************************************************************/
  289. + 
  290. + #include    <stdio.h>
  291. + #include    <sys/param.h>
  292. + #include    <sys/types.h>
  293. + #include    <xview/xview.h>
  294. + #include    <xview/panel.h>
  295. + #include    "contool_ui.h"
  296. + 
  297. + #include    "manifest.h"
  298. + 
  299. + PUBLIC    contool_base_objects    *contool_base;
  300. + 
  301. + PRIVATE    contool_about_objects    *dialog = NULL;
  302. + 
  303. + /************************************************************************/
  304. + EXPORT    Menu_item    popup_about_contool(item, op)
  305. + 
  306. + Menu_item    item;
  307. + Menu_generate    op;
  308. + 
  309. + {
  310. +     if (op == MENU_NOTIFY) {
  311. +        if (dialog == NULL) {
  312. +           dialog = contool_about_objects_initialize(NULL, contool_base->base);
  313. +           place_dialog(contool_base->base, dialog->about);
  314. +           }
  315. +        xv_set(dialog->about, XV_SHOW, TRUE, NULL);
  316. +        }
  317. +     return item;
  318. + }
  319. *** busy.c.orig    Thu Nov  1 15:09:39 1990
  320. --- busy.c    Tue Oct 23 08:03:24 1990
  321. ***************
  322. *** 0 ****
  323. --- 1,65 ----
  324. + /************************************************************************/
  325. + /*    Copyright 1988-1990 by Chuck Musciano and Harris Corporation    */
  326. + /*                                    */
  327. + /*    Permission to use, copy, modify, and distribute this software    */
  328. + /*    and its documentation for any purpose and without fee is    */
  329. + /*    hereby granted, provided that the above copyright notice    */
  330. + /*    appear in all copies and that both that copyright notice and    */
  331. + /*    this permission notice appear in supporting documentation, and    */
  332. + /*    that the name of Chuck Musciano and Harris Corporation not be    */
  333. + /*    used in advertising or publicity pertaining to distribution    */
  334. + /*    of the software without specific, written prior permission.    */
  335. + /*    Chuck Musciano and Harris Corporation make no representations    */
  336. + /*    about the suitability of this software for any purpose.  It is    */
  337. + /*    provided "as is" without express or implied warranty.  This     */
  338. + /*    software may not be sold without the prior explicit permission    */
  339. + /*    of Harris Corporation.                        */
  340. + /************************************************************************/
  341. + 
  342. + /************************************************************************/
  343. + /*                                    */
  344. + /*    busy.c    turn frame busy attribute on and off            */
  345. + /*                                    */
  346. + /************************************************************************/
  347. + 
  348. + #include    <stdio.h>
  349. + #include    <xview/xview.h>
  350. + #include    <xview/panel.h>
  351. + 
  352. + #include    "manifest.h"
  353. + 
  354. + /************************************************************************/
  355. + PRIVATE    set_busy(base, busy, skip)
  356. + 
  357. + Frame    base;
  358. + int    busy;
  359. + Frame    skip;
  360. + 
  361. + {    Frame    subframe;
  362. +     int    i;
  363. + 
  364. +     for (i = 1; subframe = (Frame) xv_get(base, FRAME_NTH_SUBFRAME, i); i++)
  365. +        if (subframe != skip)
  366. +           if (xv_get(subframe, XV_SHOW))
  367. +              xv_set(subframe, FRAME_BUSY, busy, NULL);
  368. +     xv_set(base, FRAME_BUSY, busy, NULL);
  369. + }
  370. + 
  371. + /************************************************************************/
  372. + EXPORT    lets_get_busy(base, busy, skip)
  373. + 
  374. + Frame    base;
  375. + int    busy;
  376. + Frame    skip;
  377. + 
  378. + {    static    int    depth = 0;
  379. + 
  380. +     if (busy) {
  381. +        if (depth == 0)
  382. +           set_busy(base, TRUE, skip);
  383. +        depth++;
  384. +        }
  385. +     else if (depth > 0)
  386. +        if (--depth == 0)
  387. +           set_busy(base, FALSE, NULL);
  388. + }
  389. *** contool.c.orig    Thu Nov  1 15:09:40 1990
  390. --- contool.c    Thu Nov  1 11:46:51 1990
  391. ***************
  392. *** 176,182 ****
  393.          else if ((cmd = popen(defaults.print_filter, "w")) == NULL)
  394.             error("Could not execute %s", defaults.print_filter);
  395.          else {
  396. !           xv_set(contool_base->base, FRAME_BUSY, TRUE, NULL);
  397.             size = (int) xv_get(contool_base->display, TEXTSW_LENGTH);
  398.             buf = (char *) malloc(size);
  399.             xv_get(contool_base->display, TEXTSW_CONTENTS, 0, buf, size);
  400. --- 176,182 ----
  401.          else if ((cmd = popen(defaults.print_filter, "w")) == NULL)
  402.             error("Could not execute %s", defaults.print_filter);
  403.          else {
  404. !           lets_get_busy(contool_base->base, TRUE, NULL);
  405.             size = (int) xv_get(contool_base->display, TEXTSW_LENGTH);
  406.             buf = (char *) malloc(size);
  407.             xv_get(contool_base->display, TEXTSW_CONTENTS, 0, buf, size);
  408. ***************
  409. *** 183,189 ****
  410.             if (fwrite(buf, 1, size, cmd) != size)
  411.                error("Could not write console contents to printer");
  412.             pclose(cmd);
  413. !           xv_set(contool_base->base, FRAME_BUSY, FALSE, NULL);
  414.             }
  415.          }
  416.       return item;
  417. --- 183,190 ----
  418.             if (fwrite(buf, 1, size, cmd) != size)
  419.                error("Could not write console contents to printer");
  420.             pclose(cmd);
  421. !           free(buf);
  422. !           lets_get_busy(contool_base->base, FALSE, NULL);
  423.             }
  424.          }
  425.       return item;
  426. ***************
  427. *** 258,266 ****
  428.       if (flash && flash != default_flash_icon)
  429.          xv_destroy(flash);
  430.   
  431. !     good  = (defaults.good_icon  == NULL)? default_good_icon  : load_icon(defaults.good_icon, msg);
  432. !     bad   = (defaults.bad_icon   == NULL)? default_bad_icon   : load_icon(defaults.bad_icon, msg);
  433.       flash = (defaults.flash_icon == NULL)? default_flash_icon : load_icon(defaults.flash_icon, msg);
  434.   
  435.       if (!blinking)
  436.          change_icon(good, good == default_good_icon);
  437. --- 259,279 ----
  438.       if (flash && flash != default_flash_icon)
  439.          xv_destroy(flash);
  440.   
  441. !     good = (defaults.good_icon == NULL)? default_good_icon : load_icon(defaults.good_icon, msg);
  442. !     if (good == NULL) {
  443. !        internal_error("Cannot load default \"All is well\" icon %s: %s", defaults.good_icon, msg);
  444. !        good = default_good_icon;
  445. !        }
  446. !     bad = (defaults.bad_icon == NULL)? default_bad_icon : load_icon(defaults.bad_icon, msg);
  447. !     if (bad == NULL) {
  448. !        internal_error("Cannot load default \"Check console\" icon %s: %s", defaults.bad_icon, msg);
  449. !        bad = default_bad_icon;
  450. !        }
  451.       flash = (defaults.flash_icon == NULL)? default_flash_icon : load_icon(defaults.flash_icon, msg);
  452. +     if (flash == NULL) {
  453. +        internal_error("Cannot load default \"Flash\" icon %s: %s", defaults.flash_icon, msg);
  454. +        flash = default_flash_icon;
  455. +        }
  456.   
  457.       if (!blinking)
  458.          change_icon(good, good == default_good_icon);
  459. ***************
  460. *** 267,273 ****
  461.   }
  462.   
  463.   /************************************************************************/
  464. ! /*    Now, filter  handlers                        */
  465.   /************************************************************************/
  466.   
  467.   /************************************************************************/
  468. --- 280,286 ----
  469.   }
  470.   
  471.   /************************************************************************/
  472. ! /*    Now, filter handlers                        */
  473.   /************************************************************************/
  474.   
  475.   /************************************************************************/
  476. *** contool_ui.c.orig    Thu Nov  1 15:09:42 1990
  477. --- contool_ui.c    Thu Nov  1 13:47:30 1990
  478. ***************
  479. *** 33,38 ****
  480. --- 33,39 ----
  481.       extern Menu_item    start_logging();
  482.       extern Menu_item    stop_logging();
  483.       extern Menu_item    print_messages();
  484. +     extern Menu_item    popup_about_contool();
  485.       Xv_opaque    obj;
  486.       
  487.       obj = xv_create(XV_NULL, MENU_COMMAND_MENU,
  488. ***************
  489. *** 62,67 ****
  490. --- 63,73 ----
  491.               MENU_STRING, "Print",
  492.               MENU_GEN_PROC, print_messages,
  493.               NULL,
  494. +         MENU_ITEM,
  495. +             XV_KEY_DATA, INSTANCE, ip,
  496. +             MENU_STRING, "About contool...",
  497. +             MENU_GEN_PROC, popup_about_contool,
  498. +             NULL,
  499.           MENU_DEFAULT, 2,
  500.           MENU_GEN_PIN_WINDOW, (Xv_opaque) ip[0], "File",
  501.           NULL);
  502. ***************
  503. *** 307,313 ****
  504.           XV_KEY_DATA, INSTANCE, ip,
  505.           XV_WIDTH, 575,
  506.           XV_HEIGHT, 246,
  507. !         XV_LABEL, "Contool 3.0a",
  508.           FRAME_CLOSED, FALSE,
  509.           FRAME_SHOW_FOOTER, TRUE,
  510.           FRAME_SHOW_RESIZE_CORNER, TRUE,
  511. --- 313,319 ----
  512.           XV_KEY_DATA, INSTANCE, ip,
  513.           XV_WIDTH, 575,
  514.           XV_HEIGHT, 246,
  515. !         XV_LABEL, "Contool 3.0b",
  516.           FRAME_CLOSED, FALSE,
  517.           FRAME_SHOW_FOOTER, TRUE,
  518.           FRAME_SHOW_RESIZE_CORNER, TRUE,
  519. ***************
  520. *** 661,667 ****
  521.       caddr_t        ip;
  522.       Xv_opaque    owner;
  523.   {
  524. !     extern Panel_setting    file_completion();
  525.       Xv_opaque    obj;
  526.       
  527.       obj = xv_create(owner, PANEL_TEXT,
  528. --- 667,673 ----
  529.       caddr_t        ip;
  530.       Xv_opaque    owner;
  531.   {
  532. !     extern Panel_setting    filename_completion();
  533.       Xv_opaque    obj;
  534.       
  535.       obj = xv_create(owner, PANEL_TEXT,
  536. ***************
  537. *** 678,684 ****
  538.           PANEL_VALUE_DISPLAY_LENGTH, 35,
  539.           PANEL_VALUE_STORED_LENGTH, 256,
  540.           PANEL_READ_ONLY, FALSE,
  541. !         PANEL_NOTIFY_PROC, file_completion,
  542.           NULL);
  543.       return obj;
  544.   }
  545. --- 684,690 ----
  546.           PANEL_VALUE_DISPLAY_LENGTH, 35,
  547.           PANEL_VALUE_STORED_LENGTH, 256,
  548.           PANEL_READ_ONLY, FALSE,
  549. !         PANEL_NOTIFY_PROC, filename_completion,
  550.           NULL);
  551.       return obj;
  552.   }
  553. ***************
  554. *** 752,758 ****
  555.       caddr_t        ip;
  556.       Xv_opaque    owner;
  557.   {
  558. !     extern Panel_setting    file_completion();
  559.       Xv_opaque    obj;
  560.       
  561.       obj = xv_create(owner, PANEL_TEXT,
  562. --- 758,764 ----
  563.       caddr_t        ip;
  564.       Xv_opaque    owner;
  565.   {
  566. !     extern Panel_setting    filename_completion();
  567.       Xv_opaque    obj;
  568.       
  569.       obj = xv_create(owner, PANEL_TEXT,
  570. ***************
  571. *** 769,775 ****
  572.           PANEL_VALUE_DISPLAY_LENGTH, 35,
  573.           PANEL_VALUE_STORED_LENGTH, 256,
  574.           PANEL_READ_ONLY, FALSE,
  575. !         PANEL_NOTIFY_PROC, file_completion,
  576.           NULL);
  577.       return obj;
  578.   }
  579. --- 775,781 ----
  580.           PANEL_VALUE_DISPLAY_LENGTH, 35,
  581.           PANEL_VALUE_STORED_LENGTH, 256,
  582.           PANEL_READ_ONLY, FALSE,
  583. !         PANEL_NOTIFY_PROC, filename_completion,
  584.           NULL);
  585.       return obj;
  586.   }
  587. ***************
  588. *** 783,789 ****
  589.       caddr_t        ip;
  590.       Xv_opaque    owner;
  591.   {
  592. !     extern Panel_setting    file_completion();
  593.       Xv_opaque    obj;
  594.       
  595.       obj = xv_create(owner, PANEL_TEXT,
  596. --- 789,795 ----
  597.       caddr_t        ip;
  598.       Xv_opaque    owner;
  599.   {
  600. !     extern Panel_setting    filename_completion();
  601.       Xv_opaque    obj;
  602.       
  603.       obj = xv_create(owner, PANEL_TEXT,
  604. ***************
  605. *** 800,806 ****
  606.           PANEL_VALUE_DISPLAY_LENGTH, 35,
  607.           PANEL_VALUE_STORED_LENGTH, 256,
  608.           PANEL_READ_ONLY, FALSE,
  609. !         PANEL_NOTIFY_PROC, file_completion,
  610.           NULL);
  611.       return obj;
  612.   }
  613. --- 806,812 ----
  614.           PANEL_VALUE_DISPLAY_LENGTH, 35,
  615.           PANEL_VALUE_STORED_LENGTH, 256,
  616.           PANEL_READ_ONLY, FALSE,
  617. !         PANEL_NOTIFY_PROC, filename_completion,
  618.           NULL);
  619.       return obj;
  620.   }
  621. ***************
  622. *** 814,820 ****
  623.       caddr_t        ip;
  624.       Xv_opaque    owner;
  625.   {
  626. !     extern Panel_setting    file_completion();
  627.       Xv_opaque    obj;
  628.       
  629.       obj = xv_create(owner, PANEL_TEXT,
  630. --- 820,826 ----
  631.       caddr_t        ip;
  632.       Xv_opaque    owner;
  633.   {
  634. !     extern Panel_setting    filename_completion();
  635.       Xv_opaque    obj;
  636.       
  637.       obj = xv_create(owner, PANEL_TEXT,
  638. ***************
  639. *** 831,837 ****
  640.           PANEL_VALUE_DISPLAY_LENGTH, 35,
  641.           PANEL_VALUE_STORED_LENGTH, 256,
  642.           PANEL_READ_ONLY, FALSE,
  643. !         PANEL_NOTIFY_PROC, file_completion,
  644.           NULL);
  645.       return obj;
  646.   }
  647. --- 837,843 ----
  648.           PANEL_VALUE_DISPLAY_LENGTH, 35,
  649.           PANEL_VALUE_STORED_LENGTH, 256,
  650.           PANEL_READ_ONLY, FALSE,
  651. !         PANEL_NOTIFY_PROC, filename_completion,
  652.           NULL);
  653.       return obj;
  654.   }
  655. ***************
  656. *** 1683,1689 ****
  657.       caddr_t        ip;
  658.       Xv_opaque    owner;
  659.   {
  660. !     extern Panel_setting    file_completion();
  661.       Xv_opaque    obj;
  662.       
  663.       obj = xv_create(owner, PANEL_TEXT,
  664. --- 1689,1695 ----
  665.       caddr_t        ip;
  666.       Xv_opaque    owner;
  667.   {
  668. !     extern Panel_setting    filename_completion();
  669.       Xv_opaque    obj;
  670.       
  671.       obj = xv_create(owner, PANEL_TEXT,
  672. ***************
  673. *** 1700,1706 ****
  674.           PANEL_VALUE_DISPLAY_LENGTH, 35,
  675.           PANEL_VALUE_STORED_LENGTH, 256,
  676.           PANEL_READ_ONLY, FALSE,
  677. !         PANEL_NOTIFY_PROC, file_completion,
  678.           NULL);
  679.       return obj;
  680.   }
  681. --- 1706,1712 ----
  682.           PANEL_VALUE_DISPLAY_LENGTH, 35,
  683.           PANEL_VALUE_STORED_LENGTH, 256,
  684.           PANEL_READ_ONLY, FALSE,
  685. !         PANEL_NOTIFY_PROC, filename_completion,
  686.           NULL);
  687.       return obj;
  688.   }
  689. ***************
  690. *** 1841,1847 ****
  691.       caddr_t        ip;
  692.       Xv_opaque    owner;
  693.   {
  694. !     extern Panel_setting    file_completion();
  695.       Xv_opaque    obj;
  696.       
  697.       obj = xv_create(owner, PANEL_TEXT,
  698. --- 1847,1853 ----
  699.       caddr_t        ip;
  700.       Xv_opaque    owner;
  701.   {
  702. !     extern Panel_setting    filename_completion();
  703.       Xv_opaque    obj;
  704.       
  705.       obj = xv_create(owner, PANEL_TEXT,
  706. ***************
  707. *** 1858,1864 ****
  708.           PANEL_VALUE_DISPLAY_LENGTH, 35,
  709.           PANEL_VALUE_STORED_LENGTH, 256,
  710.           PANEL_READ_ONLY, FALSE,
  711. !         PANEL_NOTIFY_PROC, file_completion,
  712.           NULL);
  713.       return obj;
  714.   }
  715. --- 1864,1870 ----
  716.           PANEL_VALUE_DISPLAY_LENGTH, 35,
  717.           PANEL_VALUE_STORED_LENGTH, 256,
  718.           PANEL_READ_ONLY, FALSE,
  719. !         PANEL_NOTIFY_PROC, filename_completion,
  720.           NULL);
  721.       return obj;
  722.   }
  723. ***************
  724. *** 1884,1889 ****
  725. --- 1890,2715 ----
  726.           XV_HEIGHT, 20,
  727.           PANEL_LABEL_STRING, "Store",
  728.           PANEL_NOTIFY_PROC, store_filters,
  729. +         NULL);
  730. +     return obj;
  731. + }
  732. + 
  733. + /*
  734. +  * Initialize an instance of object `about'.
  735. +  */
  736. + contool_about_objects *
  737. + contool_about_objects_initialize(ip, owner)
  738. +     contool_about_objects    *ip;
  739. +     Xv_opaque    owner;
  740. + {
  741. +     if (!ip && !(ip = (contool_about_objects *) calloc(1, sizeof (contool_about_objects))))
  742. +         return (contool_about_objects *) NULL;
  743. +     if (!ip->about)
  744. +         ip->about = contool_about_about_create(ip, owner);
  745. +     if (!ip->about_controls)
  746. +         ip->about_controls = contool_about_about_controls_create(ip, ip->about);
  747. +     if (!ip->message1)
  748. +         ip->message1 = contool_about_message1_create(ip, ip->about_controls);
  749. +     if (!ip->message5)
  750. +         ip->message5 = contool_about_message5_create(ip, ip->about_controls);
  751. +     if (!ip->message6)
  752. +         ip->message6 = contool_about_message6_create(ip, ip->about_controls);
  753. +     if (!ip->message7)
  754. +         ip->message7 = contool_about_message7_create(ip, ip->about_controls);
  755. +     if (!ip->message8)
  756. +         ip->message8 = contool_about_message8_create(ip, ip->about_controls);
  757. +     if (!ip->message9)
  758. +         ip->message9 = contool_about_message9_create(ip, ip->about_controls);
  759. +     if (!ip->message10)
  760. +         ip->message10 = contool_about_message10_create(ip, ip->about_controls);
  761. +     if (!ip->message15)
  762. +         ip->message15 = contool_about_message15_create(ip, ip->about_controls);
  763. +     if (!ip->message11)
  764. +         ip->message11 = contool_about_message11_create(ip, ip->about_controls);
  765. +     if (!ip->message12)
  766. +         ip->message12 = contool_about_message12_create(ip, ip->about_controls);
  767. +     if (!ip->message13)
  768. +         ip->message13 = contool_about_message13_create(ip, ip->about_controls);
  769. +     if (!ip->message14)
  770. +         ip->message14 = contool_about_message14_create(ip, ip->about_controls);
  771. +     if (!ip->message16)
  772. +         ip->message16 = contool_about_message16_create(ip, ip->about_controls);
  773. +     if (!ip->message17)
  774. +         ip->message17 = contool_about_message17_create(ip, ip->about_controls);
  775. +     if (!ip->message18)
  776. +         ip->message18 = contool_about_message18_create(ip, ip->about_controls);
  777. +     if (!ip->message19)
  778. +         ip->message19 = contool_about_message19_create(ip, ip->about_controls);
  779. +     if (!ip->message20)
  780. +         ip->message20 = contool_about_message20_create(ip, ip->about_controls);
  781. +     if (!ip->send_mail)
  782. +         ip->send_mail = contool_about_send_mail_create(ip, ip->about_controls);
  783. +     return ip;
  784. + }
  785. + 
  786. + /*
  787. +  * Create object `about' in the specified instance.
  788. + 
  789. +  */
  790. + Xv_opaque
  791. + contool_about_about_create(ip, owner)
  792. +     caddr_t        ip;
  793. +     Xv_opaque    owner;
  794. + {
  795. +     Xv_opaque    obj;
  796. +     
  797. +     obj = xv_create(owner, FRAME_CMD,
  798. +         XV_KEY_DATA, INSTANCE, ip,
  799. +         XV_WIDTH, 509,
  800. +         XV_HEIGHT, 392,
  801. +         XV_LABEL, "Contool: About contool",
  802. +         XV_SHOW, FALSE,
  803. +         FRAME_SHOW_FOOTER, FALSE,
  804. +         FRAME_SHOW_RESIZE_CORNER, FALSE,
  805. +         FRAME_CMD_PUSHPIN_IN, TRUE,
  806. +         NULL);
  807. +     xv_set(xv_get(obj, FRAME_CMD_PANEL), WIN_SHOW, FALSE, NULL);
  808. +     return obj;
  809. + }
  810. + 
  811. + /*
  812. +  * Create object `about_controls' in the specified instance.
  813. + 
  814. +  */
  815. + Xv_opaque
  816. + contool_about_about_controls_create(ip, owner)
  817. +     caddr_t        ip;
  818. +     Xv_opaque    owner;
  819. + {
  820. +     Xv_opaque    obj;
  821. +     
  822. +     obj = xv_create(owner, PANEL,
  823. +         XV_KEY_DATA, INSTANCE, ip,
  824. +         XV_HELP_DATA, "contool:about_controls",
  825. +         XV_X, 0,
  826. +         XV_Y, 0,
  827. +         XV_WIDTH, WIN_EXTEND_TO_EDGE,
  828. +         XV_HEIGHT, WIN_EXTEND_TO_EDGE,
  829. +         WIN_BORDER, FALSE,
  830. +         NULL);
  831. +     return obj;
  832. + }
  833. + 
  834. + /*
  835. +  * Create object `message1' in the specified instance.
  836. + 
  837. +  */
  838. + Xv_opaque
  839. + contool_about_message1_create(ip, owner)
  840. +     caddr_t        ip;
  841. +     Xv_opaque    owner;
  842. + {
  843. +     Xv_opaque    obj;
  844. +     
  845. +     obj = xv_create(owner, PANEL_MESSAGE,
  846. +         XV_KEY_DATA, INSTANCE, ip,
  847. +         XV_HELP_DATA, "contool:message1",
  848. +         XV_X, 210,
  849. +         XV_Y, 14,
  850. +         XV_WIDTH, 85,
  851. +         XV_HEIGHT, 13,
  852. +         PANEL_LABEL_STRING, "Contool 3.0b",
  853. +         PANEL_LABEL_BOLD, TRUE,
  854. +         NULL);
  855. +     return obj;
  856. + }
  857. + 
  858. + /*
  859. +  * Create object `message5' in the specified instance.
  860. + 
  861. +  */
  862. + Xv_opaque
  863. + contool_about_message5_create(ip, owner)
  864. +     caddr_t        ip;
  865. +     Xv_opaque    owner;
  866. + {
  867. +     Xv_opaque    obj;
  868. +     
  869. +     obj = xv_create(owner, PANEL_MESSAGE,
  870. +         XV_KEY_DATA, INSTANCE, ip,
  871. +         XV_HELP_DATA, "contool:message5",
  872. +         XV_X, 177,
  873. +         XV_Y, 30,
  874. +         XV_WIDTH, 152,
  875. +         XV_HEIGHT, 13,
  876. +         PANEL_LABEL_STRING, "Copyright 1988 - 1990",
  877. +         PANEL_LABEL_BOLD, TRUE,
  878. +         NULL);
  879. +     return obj;
  880. + }
  881. + 
  882. + /*
  883. +  * Create object `message6' in the specified instance.
  884. + 
  885. +  */
  886. + Xv_opaque
  887. + contool_about_message6_create(ip, owner)
  888. +     caddr_t        ip;
  889. +     Xv_opaque    owner;
  890. + {
  891. +     Xv_opaque    obj;
  892. +     
  893. +     obj = xv_create(owner, PANEL_MESSAGE,
  894. +         XV_KEY_DATA, INSTANCE, ip,
  895. +         XV_HELP_DATA, "contool:message6",
  896. +         XV_X, 117,
  897. +         XV_Y, 46,
  898. +         XV_WIDTH, 274,
  899. +         XV_HEIGHT, 13,
  900. +         PANEL_LABEL_STRING, "Chuck Musciano and Harris Corporation",
  901. +         PANEL_LABEL_BOLD, TRUE,
  902. +         NULL);
  903. +     return obj;
  904. + }
  905. + 
  906. + /*
  907. +  * Create object `message7' in the specified instance.
  908. + 
  909. +  */
  910. + Xv_opaque
  911. + contool_about_message7_create(ip, owner)
  912. +     caddr_t        ip;
  913. +     Xv_opaque    owner;
  914. + {
  915. +     Xv_opaque    obj;
  916. +     
  917. +     obj = xv_create(owner, PANEL_MESSAGE,
  918. +         XV_KEY_DATA, INSTANCE, ip,
  919. +         XV_HELP_DATA, "contool:message7",
  920. +         XV_X, 185,
  921. +         XV_Y, 62,
  922. +         XV_WIDTH, 135,
  923. +         XV_HEIGHT, 13,
  924. +         PANEL_LABEL_STRING, "All Rights Reserved",
  925. +         PANEL_LABEL_BOLD, TRUE,
  926. +         NULL);
  927. +     return obj;
  928. + }
  929. + 
  930. + /*
  931. +  * Create object `message8' in the specified instance.
  932. + 
  933. +  */
  934. + Xv_opaque
  935. + contool_about_message8_create(ip, owner)
  936. +     caddr_t        ip;
  937. +     Xv_opaque    owner;
  938. + {
  939. +     Xv_opaque    obj;
  940. +     
  941. +     obj = xv_create(owner, PANEL_MESSAGE,
  942. +         XV_KEY_DATA, INSTANCE, ip,
  943. +         XV_HELP_DATA, "contool:message8",
  944. +         XV_X, 14,
  945. +         XV_Y, 94,
  946. +         XV_WIDTH, 457,
  947. +         XV_HEIGHT, 13,
  948. +         PANEL_LABEL_STRING, "Contool was written using Sun's Devguide interface builder and the XView",
  949. +         PANEL_LABEL_BOLD, FALSE,
  950. +         NULL);
  951. +     return obj;
  952. + }
  953. + 
  954. + /*
  955. +  * Create object `message9' in the specified instance.
  956. + 
  957. +  */
  958. + Xv_opaque
  959. + contool_about_message9_create(ip, owner)
  960. +     caddr_t        ip;
  961. +     Xv_opaque    owner;
  962. + {
  963. +     Xv_opaque    obj;
  964. +     
  965. +     obj = xv_create(owner, PANEL_MESSAGE,
  966. +         XV_KEY_DATA, INSTANCE, ip,
  967. +         XV_HELP_DATA, "contool:message9",
  968. +         XV_X, 14,
  969. +         XV_Y, 110,
  970. +         XV_WIDTH, 447,
  971. +         XV_HEIGHT, 13,
  972. +         PANEL_LABEL_STRING, "OPEN LOOK toolkit.  It originated as a SunView application in early 1987,",
  973. +         PANEL_LABEL_BOLD, FALSE,
  974. +         NULL);
  975. +     return obj;
  976. + }
  977. + 
  978. + /*
  979. +  * Create object `message10' in the specified instance.
  980. + 
  981. +  */
  982. + Xv_opaque
  983. + contool_about_message10_create(ip, owner)
  984. +     caddr_t        ip;
  985. +     Xv_opaque    owner;
  986. + {
  987. +     Xv_opaque    obj;
  988. +     
  989. +     obj = xv_create(owner, PANEL_MESSAGE,
  990. +         XV_KEY_DATA, INSTANCE, ip,
  991. +         XV_HELP_DATA, "contool:message10",
  992. +         XV_X, 14,
  993. +         XV_Y, 126,
  994. +         XV_WIDTH, 464,
  995. +         XV_HEIGHT, 13,
  996. +         PANEL_LABEL_STRING, "was released into the public domain in 1988, and was ported to X Windows",
  997. +         PANEL_LABEL_BOLD, FALSE,
  998. +         NULL);
  999. +     return obj;
  1000. + }
  1001. + 
  1002. + /*
  1003. +  * Create object `message15' in the specified instance.
  1004. + 
  1005. +  */
  1006. + Xv_opaque
  1007. + contool_about_message15_create(ip, owner)
  1008. +     caddr_t        ip;
  1009. +     Xv_opaque    owner;
  1010. + {
  1011. +     Xv_opaque    obj;
  1012. +     
  1013. +     obj = xv_create(owner, PANEL_MESSAGE,
  1014. +         XV_KEY_DATA, INSTANCE, ip,
  1015. +         XV_HELP_DATA, "contool:message15",
  1016. +         XV_X, 14,
  1017. +         XV_Y, 142,
  1018. +         XV_WIDTH, 51,
  1019. +         XV_HEIGHT, 13,
  1020. +         PANEL_LABEL_STRING, "in 1990.",
  1021. +         PANEL_LABEL_BOLD, FALSE,
  1022. +         NULL);
  1023. +     return obj;
  1024. + }
  1025. + 
  1026. + /*
  1027. +  * Create object `message11' in the specified instance.
  1028. + 
  1029. +  */
  1030. + Xv_opaque
  1031. + contool_about_message11_create(ip, owner)
  1032. +     caddr_t        ip;
  1033. +     Xv_opaque    owner;
  1034. + {
  1035. +     Xv_opaque    obj;
  1036. +     
  1037. +     obj = xv_create(owner, PANEL_MESSAGE,
  1038. +         XV_KEY_DATA, INSTANCE, ip,
  1039. +         XV_HELP_DATA, "contool:message11",
  1040. +         XV_X, 14,
  1041. +         XV_Y, 174,
  1042. +         XV_WIDTH, 460,
  1043. +         XV_HEIGHT, 13,
  1044. +         PANEL_LABEL_STRING, "I welcome comments, criticism, suggestions, and bug reports.  Almost every",
  1045. +         PANEL_LABEL_BOLD, FALSE,
  1046. +         NULL);
  1047. +     return obj;
  1048. + }
  1049. + 
  1050. + /*
  1051. +  * Create object `message12' in the specified instance.
  1052. + 
  1053. +  */
  1054. + Xv_opaque
  1055. + contool_about_message12_create(ip, owner)
  1056. +     caddr_t        ip;
  1057. +     Xv_opaque    owner;
  1058. + {
  1059. +     Xv_opaque    obj;
  1060. +     
  1061. +     obj = xv_create(owner, PANEL_MESSAGE,
  1062. +         XV_KEY_DATA, INSTANCE, ip,
  1063. +         XV_HELP_DATA, "contool:message12",
  1064. +         XV_X, 14,
  1065. +         XV_Y, 190,
  1066. +         XV_WIDTH, 462,
  1067. +         XV_HEIGHT, 13,
  1068. +         PANEL_LABEL_STRING, "feature in this version of contool was added as the result of a user request. ",
  1069. +         PANEL_LABEL_BOLD, FALSE,
  1070. +         NULL);
  1071. +     return obj;
  1072. + }
  1073. + 
  1074. + /*
  1075. +  * Create object `message13' in the specified instance.
  1076. + 
  1077. +  */
  1078. + Xv_opaque
  1079. + contool_about_message13_create(ip, owner)
  1080. +     caddr_t        ip;
  1081. +     Xv_opaque    owner;
  1082. + {
  1083. +     Xv_opaque    obj;
  1084. +     
  1085. +     obj = xv_create(owner, PANEL_MESSAGE,
  1086. +         XV_KEY_DATA, INSTANCE, ip,
  1087. +         XV_HELP_DATA, "contool:message13",
  1088. +         XV_X, 14,
  1089. +         XV_Y, 206,
  1090. +         XV_WIDTH, 467,
  1091. +         XV_HEIGHT, 13,
  1092. +         PANEL_LABEL_STRING, "User feedback is the single best driving force in the evolution of my tools.  I ",
  1093. +         PANEL_LABEL_BOLD, FALSE,
  1094. +         NULL);
  1095. +     return obj;
  1096. + }
  1097. + 
  1098. + /*
  1099. +  * Create object `message14' in the specified instance.
  1100. + 
  1101. +  */
  1102. + Xv_opaque
  1103. + contool_about_message14_create(ip, owner)
  1104. +     caddr_t        ip;
  1105. +     Xv_opaque    owner;
  1106. + {
  1107. +     Xv_opaque    obj;
  1108. +     
  1109. +     obj = xv_create(owner, PANEL_MESSAGE,
  1110. +         XV_KEY_DATA, INSTANCE, ip,
  1111. +         XV_HELP_DATA, "contool:message14",
  1112. +         XV_X, 14,
  1113. +         XV_Y, 222,
  1114. +         XV_WIDTH, 205,
  1115. +         XV_HEIGHT, 13,
  1116. +         PANEL_LABEL_STRING, "look forward to hearing from you!",
  1117. +         PANEL_LABEL_BOLD, FALSE,
  1118. +         NULL);
  1119. +     return obj;
  1120. + }
  1121. + 
  1122. + /*
  1123. +  * Create object `message16' in the specified instance.
  1124. + 
  1125. +  */
  1126. + Xv_opaque
  1127. + contool_about_message16_create(ip, owner)
  1128. +     caddr_t        ip;
  1129. +     Xv_opaque    owner;
  1130. + {
  1131. +     Xv_opaque    obj;
  1132. +     
  1133. +     obj = xv_create(owner, PANEL_MESSAGE,
  1134. +         XV_KEY_DATA, INSTANCE, ip,
  1135. +         XV_HELP_DATA, "contool:message16",
  1136. +         XV_X, 14,
  1137. +         XV_Y, 254,
  1138. +         XV_WIDTH, 481,
  1139. +         XV_HEIGHT, 13,
  1140. +         PANEL_LABEL_STRING, "Contool has been placed in the public domain, but the copyright on the source",
  1141. +         PANEL_LABEL_BOLD, FALSE,
  1142. +         NULL);
  1143. +     return obj;
  1144. + }
  1145. + 
  1146. + /*
  1147. +  * Create object `message17' in the specified instance.
  1148. + 
  1149. +  */
  1150. + Xv_opaque
  1151. + contool_about_message17_create(ip, owner)
  1152. +     caddr_t        ip;
  1153. +     Xv_opaque    owner;
  1154. + {
  1155. +     Xv_opaque    obj;
  1156. +     
  1157. +     obj = xv_create(owner, PANEL_MESSAGE,
  1158. +         XV_KEY_DATA, INSTANCE, ip,
  1159. +         XV_HELP_DATA, "contool:message17",
  1160. +         XV_X, 14,
  1161. +         XV_Y, 270,
  1162. +         XV_WIDTH, 472,
  1163. +         XV_HEIGHT, 13,
  1164. +         PANEL_LABEL_STRING, "code is retained by myself and Harris Corporation, my employer.  This means",
  1165. +         PANEL_LABEL_BOLD, FALSE,
  1166. +         NULL);
  1167. +     return obj;
  1168. + }
  1169. + 
  1170. + /*
  1171. +  * Create object `message18' in the specified instance.
  1172. + 
  1173. +  */
  1174. + Xv_opaque
  1175. + contool_about_message18_create(ip, owner)
  1176. +     caddr_t        ip;
  1177. +     Xv_opaque    owner;
  1178. + {
  1179. +     Xv_opaque    obj;
  1180. +     
  1181. +     obj = xv_create(owner, PANEL_MESSAGE,
  1182. +         XV_KEY_DATA, INSTANCE, ip,
  1183. +         XV_HELP_DATA, "contool:message18",
  1184. +         XV_X, 14,
  1185. +         XV_Y, 286,
  1186. +         XV_WIDTH, 460,
  1187. +         XV_HEIGHT, 13,
  1188. +         PANEL_LABEL_STRING, "that you can give the source code to anyone but you cannot sell any part of",
  1189. +         PANEL_LABEL_BOLD, FALSE,
  1190. +         NULL);
  1191. +     return obj;
  1192. + }
  1193. + 
  1194. + /*
  1195. +  * Create object `message19' in the specified instance.
  1196. + 
  1197. +  */
  1198. + Xv_opaque
  1199. + contool_about_message19_create(ip, owner)
  1200. +     caddr_t        ip;
  1201. +     Xv_opaque    owner;
  1202. + {
  1203. +     Xv_opaque    obj;
  1204. +     
  1205. +     obj = xv_create(owner, PANEL_MESSAGE,
  1206. +         XV_KEY_DATA, INSTANCE, ip,
  1207. +         XV_HELP_DATA, "contool:message19",
  1208. +         XV_X, 14,
  1209. +         XV_Y, 302,
  1210. +         XV_WIDTH, 455,
  1211. +         XV_HEIGHT, 13,
  1212. +         PANEL_LABEL_STRING, "the source code, nor can you incorporate any part of the source code into a",
  1213. +         PANEL_LABEL_BOLD, FALSE,
  1214. +         NULL);
  1215. +     return obj;
  1216. + }
  1217. + 
  1218. + /*
  1219. +  * Create object `message20' in the specified instance.
  1220. + 
  1221. +  */
  1222. + Xv_opaque
  1223. + contool_about_message20_create(ip, owner)
  1224. +     caddr_t        ip;
  1225. +     Xv_opaque    owner;
  1226. + {
  1227. +     Xv_opaque    obj;
  1228. +     
  1229. +     obj = xv_create(owner, PANEL_MESSAGE,
  1230. +         XV_KEY_DATA, INSTANCE, ip,
  1231. +         XV_HELP_DATA, "contool:message20",
  1232. +         XV_X, 14,
  1233. +         XV_Y, 318,
  1234. +         XV_WIDTH, 219,
  1235. +         XV_HEIGHT, 13,
  1236. +         PANEL_LABEL_STRING, "product which is subsequently sold.",
  1237. +         PANEL_LABEL_BOLD, FALSE,
  1238. +         NULL);
  1239. +     return obj;
  1240. + }
  1241. + 
  1242. + /*
  1243. +  * Create object `send_mail' in the specified instance.
  1244. + 
  1245. +  */
  1246. + Xv_opaque
  1247. + contool_about_send_mail_create(ip, owner)
  1248. +     caddr_t        ip;
  1249. +     Xv_opaque    owner;
  1250. + {
  1251. +     extern void        popup_send_mail();
  1252. +     Xv_opaque    obj;
  1253. +     
  1254. +     obj = xv_create(owner, PANEL_BUTTON,
  1255. +         XV_KEY_DATA, INSTANCE, ip,
  1256. +         XV_HELP_DATA, "contool:send_mail",
  1257. +         XV_X, 215,
  1258. +         XV_Y, 352,
  1259. +         XV_WIDTH, 78,
  1260. +         XV_HEIGHT, 20,
  1261. +         PANEL_LABEL_STRING, "Send Mail",
  1262. +         PANEL_NOTIFY_PROC, popup_send_mail,
  1263. +         NULL);
  1264. +     return obj;
  1265. + }
  1266. + 
  1267. + /*
  1268. +  * Initialize an instance of object `mail'.
  1269. +  */
  1270. + contool_mail_objects *
  1271. + contool_mail_objects_initialize(ip, owner)
  1272. +     contool_mail_objects    *ip;
  1273. +     Xv_opaque    owner;
  1274. + {
  1275. +     if (!ip && !(ip = (contool_mail_objects *) calloc(1, sizeof (contool_mail_objects))))
  1276. +         return (contool_mail_objects *) NULL;
  1277. +     if (!ip->mail)
  1278. +         ip->mail = contool_mail_mail_create(ip, owner);
  1279. +     if (!ip->mail_controls)
  1280. +         ip->mail_controls = contool_mail_mail_controls_create(ip, ip->mail);
  1281. +     if (!ip->message21)
  1282. +         ip->message21 = contool_mail_message21_create(ip, ip->mail_controls);
  1283. +     if (!ip->message22)
  1284. +         ip->message22 = contool_mail_message22_create(ip, ip->mail_controls);
  1285. +     if (!ip->address)
  1286. +         ip->address = contool_mail_address_create(ip, ip->mail_controls);
  1287. +     if (!ip->other_address)
  1288. +         ip->other_address = contool_mail_other_address_create(ip, ip->mail_controls);
  1289. +     if (!ip->message)
  1290. +         ip->message = contool_mail_message_create(ip, ip->mail);
  1291. +     if (!ip->mail_controls1)
  1292. +         ip->mail_controls1 = contool_mail_mail_controls1_create(ip, ip->mail);
  1293. +     if (!ip->accept_send)
  1294. +         ip->accept_send = contool_mail_accept_send_create(ip, ip->mail_controls1);
  1295. +     if (!ip->cancel_mail)
  1296. +         ip->cancel_mail = contool_mail_cancel_mail_create(ip, ip->mail_controls1);
  1297. +     return ip;
  1298. + }
  1299. + 
  1300. + /*
  1301. +  * Create object `mail' in the specified instance.
  1302. + 
  1303. +  */
  1304. + Xv_opaque
  1305. + contool_mail_mail_create(ip, owner)
  1306. +     caddr_t        ip;
  1307. +     Xv_opaque    owner;
  1308. + {
  1309. +     Xv_opaque    obj;
  1310. +     
  1311. +     obj = xv_create(owner, FRAME_CMD,
  1312. +         XV_KEY_DATA, INSTANCE, ip,
  1313. +         XV_WIDTH, 506,
  1314. +         XV_HEIGHT, 338,
  1315. +         XV_LABEL, "Contool: Send mail",
  1316. +         XV_SHOW, FALSE,
  1317. +         FRAME_SHOW_FOOTER, FALSE,
  1318. +         FRAME_SHOW_RESIZE_CORNER, FALSE,
  1319. +         FRAME_CMD_PUSHPIN_IN, FALSE,
  1320. +         NULL);
  1321. +     xv_set(xv_get(obj, FRAME_CMD_PANEL), WIN_SHOW, FALSE, NULL);
  1322. +     return obj;
  1323. + }
  1324. + 
  1325. + /*
  1326. +  * Create object `mail_controls' in the specified instance.
  1327. + 
  1328. +  */
  1329. + Xv_opaque
  1330. + contool_mail_mail_controls_create(ip, owner)
  1331. +     caddr_t        ip;
  1332. +     Xv_opaque    owner;
  1333. + {
  1334. +     Xv_opaque    obj;
  1335. +     
  1336. +     obj = xv_create(owner, PANEL,
  1337. +         XV_KEY_DATA, INSTANCE, ip,
  1338. +         XV_HELP_DATA, "contool:mail_controls",
  1339. +         XV_X, 0,
  1340. +         XV_Y, 0,
  1341. +         XV_WIDTH, WIN_EXTEND_TO_EDGE,
  1342. +         XV_HEIGHT, 92,
  1343. +         WIN_BORDER, FALSE,
  1344. +         NULL);
  1345. +     return obj;
  1346. + }
  1347. + 
  1348. + /*
  1349. +  * Create object `message21' in the specified instance.
  1350. + 
  1351. +  */
  1352. + Xv_opaque
  1353. + contool_mail_message21_create(ip, owner)
  1354. +     caddr_t        ip;
  1355. +     Xv_opaque    owner;
  1356. + {
  1357. +     Xv_opaque    obj;
  1358. +     
  1359. +     obj = xv_create(owner, PANEL_MESSAGE,
  1360. +         XV_KEY_DATA, INSTANCE, ip,
  1361. +         XV_HELP_DATA, "contool:message21",
  1362. +         XV_X, 14,
  1363. +         XV_Y, 14,
  1364. +         XV_WIDTH, 478,
  1365. +         XV_HEIGHT, 13,
  1366. +         PANEL_LABEL_STRING, "Your feedback is appreciated.  To ensure that your message reaches me, check",
  1367. +         PANEL_LABEL_BOLD, FALSE,
  1368. +         NULL);
  1369. +     return obj;
  1370. + }
  1371. + 
  1372. + /*
  1373. +  * Create object `message22' in the specified instance.
  1374. + 
  1375. +  */
  1376. + Xv_opaque
  1377. + contool_mail_message22_create(ip, owner)
  1378. +     caddr_t        ip;
  1379. +     Xv_opaque    owner;
  1380. + {
  1381. +     Xv_opaque    obj;
  1382. +     
  1383. +     obj = xv_create(owner, PANEL_MESSAGE,
  1384. +         XV_KEY_DATA, INSTANCE, ip,
  1385. +         XV_HELP_DATA, "contool:message22",
  1386. +         XV_X, 14,
  1387. +         XV_Y, 30,
  1388. +         XV_WIDTH, 395,
  1389. +         XV_HEIGHT, 13,
  1390. +         PANEL_LABEL_STRING, "that the \"To\" address is valid for your site before clicking \"Send\".",
  1391. +         PANEL_LABEL_BOLD, FALSE,
  1392. +         NULL);
  1393. +     return obj;
  1394. + }
  1395. + 
  1396. + /*
  1397. +  * Create object `address' in the specified instance.
  1398. + 
  1399. +  */
  1400. + Xv_opaque
  1401. + contool_mail_address_create(ip, owner)
  1402. +     caddr_t        ip;
  1403. +     Xv_opaque    owner;
  1404. + {
  1405. +     extern int        handle_address();
  1406. +     Xv_opaque    obj;
  1407. +     
  1408. +     obj = xv_create(owner, PANEL_CHOICE, PANEL_DISPLAY_LEVEL, PANEL_CURRENT,
  1409. +         XV_KEY_DATA, INSTANCE, ip,
  1410. +         XV_HELP_DATA, "contool:address",
  1411. +         XV_X, 14,
  1412. +         XV_Y, 64,
  1413. +         XV_WIDTH, 278,
  1414. +         XV_HEIGHT, 23,
  1415. +         PANEL_VALUE_X, 43,
  1416. +         PANEL_VALUE_Y, 64,
  1417. +         PANEL_LAYOUT, PANEL_HORIZONTAL,
  1418. +         PANEL_CHOICE_NROWS, 1,
  1419. +         PANEL_LABEL_STRING, "To:",
  1420. +         PANEL_NOTIFY_PROC, handle_address,
  1421. +         PANEL_CHOICE_STRINGS,
  1422. +             "chuck@trantor.harris-atd.com",
  1423. +             "uunet!trantor.harris-atd.com!chuck",
  1424. +             "Other:",
  1425. +             0,
  1426. +         NULL);
  1427. +     return obj;
  1428. + }
  1429. + 
  1430. + /*
  1431. +  * Create object `other_address' in the specified instance.
  1432. + 
  1433. +  */
  1434. + Xv_opaque
  1435. + contool_mail_other_address_create(ip, owner)
  1436. +     caddr_t        ip;
  1437. +     Xv_opaque    owner;
  1438. + {
  1439. +     Xv_opaque    obj;
  1440. +     
  1441. +     obj = xv_create(owner, PANEL_TEXT,
  1442. +         XV_KEY_DATA, INSTANCE, ip,
  1443. +         XV_HELP_DATA, "contool:other_address",
  1444. +         XV_X, 105,
  1445. +         XV_Y, 69,
  1446. +         XV_WIDTH, 385,
  1447. +         XV_HEIGHT, 15,
  1448. +         PANEL_VALUE_X, 114,
  1449. +         PANEL_VALUE_Y, 69,
  1450. +         PANEL_LAYOUT, PANEL_HORIZONTAL,
  1451. +         PANEL_VALUE_DISPLAY_LENGTH, 47,
  1452. +         PANEL_VALUE_STORED_LENGTH, 256,
  1453. +         PANEL_READ_ONLY, FALSE,
  1454. +         NULL);
  1455. +     return obj;
  1456. + }
  1457. + 
  1458. + /*
  1459. +  * Create object `message' in the specified instance.
  1460. + 
  1461. +  */
  1462. + Xv_opaque
  1463. + contool_mail_message_create(ip, owner)
  1464. +     caddr_t        ip;
  1465. +     Xv_opaque    owner;
  1466. + {
  1467. +     Xv_opaque    obj;
  1468. +     
  1469. +     obj = xv_create(owner, TEXTSW,
  1470. +         XV_KEY_DATA, INSTANCE, ip,
  1471. +         XV_X, 0,
  1472. +         XV_Y, 92,
  1473. +         XV_WIDTH, WIN_EXTEND_TO_EDGE,
  1474. +         XV_HEIGHT, 188,
  1475. +         OPENWIN_SHOW_BORDERS, TRUE,
  1476. +         NULL);
  1477. +     return obj;
  1478. + }
  1479. + 
  1480. + /*
  1481. +  * Create object `mail_controls1' in the specified instance.
  1482. + 
  1483. +  */
  1484. + Xv_opaque
  1485. + contool_mail_mail_controls1_create(ip, owner)
  1486. +     caddr_t        ip;
  1487. +     Xv_opaque    owner;
  1488. + {
  1489. +     Xv_opaque    obj;
  1490. +     
  1491. +     obj = xv_create(owner, PANEL,
  1492. +         XV_KEY_DATA, INSTANCE, ip,
  1493. +         XV_HELP_DATA, "contool:mail_controls1",
  1494. +         XV_X, 0,
  1495. +         XV_Y, 280,
  1496. +         XV_WIDTH, WIN_EXTEND_TO_EDGE,
  1497. +         XV_HEIGHT, WIN_EXTEND_TO_EDGE,
  1498. +         WIN_BORDER, FALSE,
  1499. +         NULL);
  1500. +     return obj;
  1501. + }
  1502. + 
  1503. + /*
  1504. +  * Create object `accept_send' in the specified instance.
  1505. + 
  1506. +  */
  1507. + Xv_opaque
  1508. + contool_mail_accept_send_create(ip, owner)
  1509. +     caddr_t        ip;
  1510. +     Xv_opaque    owner;
  1511. + {
  1512. +     extern void        send_mail();
  1513. +     Xv_opaque    obj;
  1514. +     
  1515. +     obj = xv_create(owner, PANEL_BUTTON,
  1516. +         XV_KEY_DATA, INSTANCE, ip,
  1517. +         XV_HELP_DATA, "contool:accept_send",
  1518. +         XV_X, 193,
  1519. +         XV_Y, 18,
  1520. +         XV_WIDTH, 48,
  1521. +         XV_HEIGHT, 20,
  1522. +         PANEL_LABEL_STRING, "Send",
  1523. +         PANEL_NOTIFY_PROC, send_mail,
  1524. +         NULL);
  1525. +     return obj;
  1526. + }
  1527. + 
  1528. + /*
  1529. +  * Create object `cancel_mail' in the specified instance.
  1530. + 
  1531. +  */
  1532. + Xv_opaque
  1533. + contool_mail_cancel_mail_create(ip, owner)
  1534. +     caddr_t        ip;
  1535. +     Xv_opaque    owner;
  1536. + {
  1537. +     extern void        cancel_mail();
  1538. +     Xv_opaque    obj;
  1539. +     
  1540. +     obj = xv_create(owner, PANEL_BUTTON,
  1541. +         XV_KEY_DATA, INSTANCE, ip,
  1542. +         XV_HELP_DATA, "contool:cancel_mail",
  1543. +         XV_X, 253,
  1544. +         XV_Y, 18,
  1545. +         XV_WIDTH, 59,
  1546. +         XV_HEIGHT, 20,
  1547. +         PANEL_LABEL_STRING, "Cancel",
  1548. +         PANEL_NOTIFY_PROC, cancel_mail,
  1549.           NULL);
  1550.       return obj;
  1551.   }
  1552. *** contool_ui.h.orig    Thu Nov  1 15:09:48 1990
  1553. --- contool_ui.h    Thu Nov  1 13:47:26 1990
  1554. ***************
  1555. *** 151,154 ****
  1556. --- 151,226 ----
  1557.   extern Xv_opaque    contool_store_store_type_create();
  1558.   extern Xv_opaque    contool_store_store_file_create();
  1559.   extern Xv_opaque    contool_store_accept_store_create();
  1560. + 
  1561. + typedef struct {
  1562. +     Xv_opaque    about;
  1563. +     Xv_opaque    about_controls;
  1564. +     Xv_opaque    message1;
  1565. +     Xv_opaque    message5;
  1566. +     Xv_opaque    message6;
  1567. +     Xv_opaque    message7;
  1568. +     Xv_opaque    message8;
  1569. +     Xv_opaque    message9;
  1570. +     Xv_opaque    message10;
  1571. +     Xv_opaque    message15;
  1572. +     Xv_opaque    message11;
  1573. +     Xv_opaque    message12;
  1574. +     Xv_opaque    message13;
  1575. +     Xv_opaque    message14;
  1576. +     Xv_opaque    message16;
  1577. +     Xv_opaque    message17;
  1578. +     Xv_opaque    message18;
  1579. +     Xv_opaque    message19;
  1580. +     Xv_opaque    message20;
  1581. +     Xv_opaque    send_mail;
  1582. + } contool_about_objects;
  1583. + 
  1584. + extern contool_about_objects    *contool_about_objects_initialize();
  1585. + 
  1586. + extern Xv_opaque    contool_about_about_create();
  1587. + extern Xv_opaque    contool_about_about_controls_create();
  1588. + extern Xv_opaque    contool_about_message1_create();
  1589. + extern Xv_opaque    contool_about_message5_create();
  1590. + extern Xv_opaque    contool_about_message6_create();
  1591. + extern Xv_opaque    contool_about_message7_create();
  1592. + extern Xv_opaque    contool_about_message8_create();
  1593. + extern Xv_opaque    contool_about_message9_create();
  1594. + extern Xv_opaque    contool_about_message10_create();
  1595. + extern Xv_opaque    contool_about_message15_create();
  1596. + extern Xv_opaque    contool_about_message11_create();
  1597. + extern Xv_opaque    contool_about_message12_create();
  1598. + extern Xv_opaque    contool_about_message13_create();
  1599. + extern Xv_opaque    contool_about_message14_create();
  1600. + extern Xv_opaque    contool_about_message16_create();
  1601. + extern Xv_opaque    contool_about_message17_create();
  1602. + extern Xv_opaque    contool_about_message18_create();
  1603. + extern Xv_opaque    contool_about_message19_create();
  1604. + extern Xv_opaque    contool_about_message20_create();
  1605. + extern Xv_opaque    contool_about_send_mail_create();
  1606. + 
  1607. + typedef struct {
  1608. +     Xv_opaque    mail;
  1609. +     Xv_opaque    mail_controls;
  1610. +     Xv_opaque    message21;
  1611. +     Xv_opaque    message22;
  1612. +     Xv_opaque    address;
  1613. +     Xv_opaque    other_address;
  1614. +     Xv_opaque    message;
  1615. +     Xv_opaque    mail_controls1;
  1616. +     Xv_opaque    accept_send;
  1617. +     Xv_opaque    cancel_mail;
  1618. + } contool_mail_objects;
  1619. + 
  1620. + extern contool_mail_objects    *contool_mail_objects_initialize();
  1621. + 
  1622. + extern Xv_opaque    contool_mail_mail_create();
  1623. + extern Xv_opaque    contool_mail_mail_controls_create();
  1624. + extern Xv_opaque    contool_mail_message21_create();
  1625. + extern Xv_opaque    contool_mail_message22_create();
  1626. + extern Xv_opaque    contool_mail_address_create();
  1627. + extern Xv_opaque    contool_mail_other_address_create();
  1628. + extern Xv_opaque    contool_mail_message_create();
  1629. + extern Xv_opaque    contool_mail_mail_controls1_create();
  1630. + extern Xv_opaque    contool_mail_accept_send_create();
  1631. + extern Xv_opaque    contool_mail_cancel_mail_create();
  1632.   #endif
  1633. *** filename_completion.c.orig    Thu Nov  1 15:09:50 1990
  1634. --- filename_completion.c    Tue Oct 23 08:20:50 1990
  1635. ***************
  1636. *** 0 ****
  1637. --- 1,52 ----
  1638. + /************************************************************************/
  1639. + /*    Copyright 1988-1990 by Chuck Musciano and Harris Corporation    */
  1640. + /*                                    */
  1641. + /*    Permission to use, copy, modify, and distribute this software    */
  1642. + /*    and its documentation for any purpose and without fee is    */
  1643. + /*    hereby granted, provided that the above copyright notice    */
  1644. + /*    appear in all copies and that both that copyright notice and    */
  1645. + /*    this permission notice appear in supporting documentation, and    */
  1646. + /*    that the name of Chuck Musciano and Harris Corporation not be    */
  1647. + /*    used in advertising or publicity pertaining to distribution    */
  1648. + /*    of the software without specific, written prior permission.    */
  1649. + /*    Chuck Musciano and Harris Corporation make no representations    */
  1650. + /*    about the suitability of this software for any purpose.  It is    */
  1651. + /*    provided "as is" without express or implied warranty.  This     */
  1652. + /*    software may not be sold without the prior explicit permission    */
  1653. + /*    of Harris Corporation.                        */
  1654. + /************************************************************************/
  1655. + 
  1656. + /************************************************************************/
  1657. + /*                                    */
  1658. + /*    filename_completion.c    completion handler for text items    */
  1659. + /*                                    */
  1660. + /************************************************************************/
  1661. + 
  1662. + #include    <stdio.h>
  1663. + #include    <sys/param.h>
  1664. + #include    <sys/types.h>
  1665. + #include    <xview/xview.h>
  1666. + #include    <xview/panel.h>
  1667. + 
  1668. + #include    "manifest.h"
  1669. + 
  1670. + /************************************************************************/
  1671. + EXPORT    Panel_setting    filename_completion(item, event)
  1672. + 
  1673. + Panel_item    item;
  1674. + Event        *event;
  1675. + 
  1676. + {    char    *p, *expand_filename();
  1677. + 
  1678. +     switch (event_action(event)) {
  1679. +        case '\n' :
  1680. +        case '\r' :
  1681. +        case ' '  : if ((p = expand_filename((char *) xv_get(item, PANEL_VALUE))) == NULL)
  1682. +                  window_bell(xv_get(item, XV_OWNER));
  1683. +                   else
  1684. +                      xv_set(item, PANEL_VALUE, p, 0);
  1685. +                   return(PANEL_NONE);
  1686. +        case '\t' : return(event_shift_is_down(event)? PANEL_PREVIOUS : PANEL_NEXT);
  1687. +        default   : return(panel_text_notify(item, event));
  1688. +        }
  1689. + }
  1690. *** load_icon.c.orig    Thu Nov  1 15:09:55 1990
  1691. --- load_icon.c    Thu Nov  1 09:07:38 1990
  1692. ***************
  1693. *** 23,29 ****
  1694.   #include    <xview/icon_load.h>
  1695.   
  1696.   #include    "manifest.h"
  1697. ! #include    "contool.h"
  1698.   
  1699.   PUBLIC    char    *getenv();
  1700.   
  1701. --- 23,32 ----
  1702.   #include    <xview/icon_load.h>
  1703.   
  1704.   #include    "manifest.h"
  1705. ! 
  1706. ! #if !defined(ICON_PATH)
  1707. ! #define        ICON_PATH        ".:./icons:/usr/local/images:/usr/include/images"
  1708. ! #endif
  1709.   
  1710.   PUBLIC    char    *getenv();
  1711.   
  1712. *** patchlevel.h.orig    Thu Nov  1 15:10:00 1990
  1713. --- patchlevel.h    Thu Nov  1 09:08:10 1990
  1714. ***************
  1715. *** 2,8 ****
  1716. --- 2,12 ----
  1717.   /*                                    */
  1718.   /*    Patch        Comments                    */
  1719.   /*      0        Initial release for XView            */
  1720. + /*               comp.sources.x: Volume 10, Issues 34-39    */
  1721.   /*                                    */
  1722.   /*      1        Bug fixes; see README for details        */
  1723. + /*               comp.sources.x: Volume 10, Issue 40        */
  1724. + /*                                    */
  1725. + /*      2        Bug fixes; see README for details        */
  1726.   /*                                    */
  1727.   /************************************************************************/
  1728. *** pinned_menu_notify.c.orig    Thu Nov  1 15:10:00 1990
  1729. --- pinned_menu_notify.c    Tue Oct 23 08:03:27 1990
  1730. ***************
  1731. *** 0 ****
  1732. --- 1,52 ----
  1733. + /************************************************************************/
  1734. + /*    Copyright 1988-1990 by Chuck Musciano and Harris Corporation    */
  1735. + /*                                    */
  1736. + /*    Permission to use, copy, modify, and distribute this software    */
  1737. + /*    and its documentation for any purpose and without fee is    */
  1738. + /*    hereby granted, provided that the above copyright notice    */
  1739. + /*    appear in all copies and that both that copyright notice and    */
  1740. + /*    this permission notice appear in supporting documentation, and    */
  1741. + /*    that the name of Chuck Musciano and Harris Corporation not be    */
  1742. + /*    used in advertising or publicity pertaining to distribution    */
  1743. + /*    of the software without specific, written prior permission.    */
  1744. + /*    Chuck Musciano and Harris Corporation make no representations    */
  1745. + /*    about the suitability of this software for any purpose.  It is    */
  1746. + /*    provided "as is" without express or implied warranty.  This     */
  1747. + /*    software may not be sold without the prior explicit permission    */
  1748. + /*    of Harris Corporation.                        */
  1749. + /************************************************************************/
  1750. + 
  1751. + /************************************************************************/
  1752. + /*                                    */
  1753. + /*    pinned_menu_notify.c    GUIDE callback for pinned menus        */
  1754. + /*                                    */
  1755. + /************************************************************************/
  1756. + 
  1757. + #include    <stdio.h>
  1758. + #include    <sys/param.h>
  1759. + #include    <sys/types.h>
  1760. + #include    <xview/xview.h>
  1761. + 
  1762. + #include    "manifest.h"
  1763. + 
  1764. + /************************************************************************/
  1765. + EXPORT    void    pinned_menu_notify(menu, item)
  1766. + 
  1767. + Menu        menu;
  1768. + Menu_item    item;
  1769. + 
  1770. + {    Xv_opaque    pin_window     = (Xv_opaque) xv_get(menu, MENU_PIN_WINDOW);
  1771. +     void        (*menu_notify)() = (void (*)()) xv_get(menu, MENU_GEN_PROC);
  1772. +     void        (*item_notify)() = (void (*)()) xv_get(item, MENU_GEN_PROC);
  1773. +     
  1774. +     if (pin_window && xv_get(pin_window, XV_SHOW)) {
  1775. +        if (menu_notify)
  1776. +           (*menu_notify)(menu, MENU_NOTIFY);
  1777. +        if (item_notify)
  1778. +           (*item_notify)(item, MENU_NOTIFY);
  1779. +        if (item_notify)
  1780. +           (*item_notify)(item, MENU_NOTIFY_DONE);
  1781. +        if (menu_notify)
  1782. +           (*menu_notify)(menu, MENU_NOTIFY_DONE);
  1783. +     }
  1784. + }
  1785. *** place_dialog.c.orig    Thu Nov  1 15:10:01 1990
  1786. --- place_dialog.c    Tue Oct 23 08:03:26 1990
  1787. ***************
  1788. *** 0 ****
  1789. --- 1,65 ----
  1790. + /************************************************************************/
  1791. + /*    Copyright 1988-1990 by Chuck Musciano and Harris Corporation    */
  1792. + /*                                    */
  1793. + /*    Permission to use, copy, modify, and distribute this software    */
  1794. + /*    and its documentation for any purpose and without fee is    */
  1795. + /*    hereby granted, provided that the above copyright notice    */
  1796. + /*    appear in all copies and that both that copyright notice and    */
  1797. + /*    this permission notice appear in supporting documentation, and    */
  1798. + /*    that the name of Chuck Musciano and Harris Corporation not be    */
  1799. + /*    used in advertising or publicity pertaining to distribution    */
  1800. + /*    of the software without specific, written prior permission.    */
  1801. + /*    Chuck Musciano and Harris Corporation make no representations    */
  1802. + /*    about the suitability of this software for any purpose.  It is    */
  1803. + /*    provided "as is" without express or implied warranty.  This     */
  1804. + /*    software may not be sold without the prior explicit permission    */
  1805. + /*    of Harris Corporation.                        */
  1806. + /************************************************************************/
  1807. + 
  1808. + /************************************************************************/
  1809. + /*                                    */
  1810. + /*    place_dialog.c    position a dialog box at the right place    */
  1811. + /*                                    */
  1812. + /************************************************************************/
  1813. + 
  1814. + #include    <stdio.h>
  1815. + #include    <sys/param.h>
  1816. + #include    <sys/types.h>
  1817. + #include    <xview/xview.h>
  1818. + #include    <X11/Xutil.h>
  1819. + 
  1820. + #include    "manifest.h"
  1821. + 
  1822. + /************************************************************************/
  1823. + EXPORT    void    place_dialog(base, dialog)
  1824. + 
  1825. + Xv_opaque    base;
  1826. + Xv_opaque    dialog;
  1827. + 
  1828. + {    Rect        br, dr, sr;
  1829. +     XWMHints    *hints;
  1830. + 
  1831. +     sr = *((Rect *) xv_get(base, WIN_SCREEN_RECT));
  1832. +     frame_get_rect(base, &br);
  1833. +     frame_get_rect(dialog, &dr);
  1834. +     if (rect_right(&br) + dr.r_width < sr.r_width) {
  1835. +        dr.r_left = rect_right(&br);
  1836. +        dr.r_top = br.r_top;
  1837. +        }
  1838. +     else if (dr.r_width <= br.r_left) {
  1839. +        dr.r_left = br.r_left - dr.r_width;
  1840. +        dr.r_top = br.r_top;
  1841. +        }
  1842. +     else {
  1843. +        dr.r_left = br.r_left + 32;
  1844. +        dr.r_top = br.r_top + 32;
  1845. +        }
  1846. +     frame_set_rect(dialog, &dr);
  1847. + 
  1848. +     hints = XGetWMHints(xv_get(dialog, XV_DISPLAY), xv_get(dialog, XV_XID));
  1849. +     hints->flags |= StateHint;
  1850. +     hints->initial_state = NormalState;
  1851. +     XSetWMHints(xv_get(dialog, XV_DISPLAY), xv_get(dialog, XV_XID), hints);
  1852. +     XFree(hints);
  1853. + }
  1854. + 
  1855. *** send_mail.c.orig    Thu Nov  1 15:10:04 1990
  1856. --- send_mail.c    Thu Nov  1 13:39:36 1990
  1857. ***************
  1858. *** 0 ****
  1859. --- 1,112 ----
  1860. + /************************************************************************/
  1861. + /*                                    */
  1862. + /*    send_mail.c    display a little information window        */
  1863. + /*                                    */
  1864. + /************************************************************************/
  1865. + 
  1866. + #include    <stdio.h>
  1867. + #include    <sys/param.h>
  1868. + #include    <sys/types.h>
  1869. + #include    <xview/xview.h>
  1870. + #include    <xview/panel.h>
  1871. + #include    <xview/textsw.h>
  1872. + #include    "contool_ui.h"
  1873. + 
  1874. + #include    "manifest.h"
  1875. + 
  1876. + PUBLIC    contool_base_objects    *contool_base;
  1877. + 
  1878. + PRIVATE    contool_mail_objects    *dialog = NULL;
  1879. + 
  1880. + /************************************************************************/
  1881. + EXPORT    popup_send_mail(item, event)
  1882. + 
  1883. + Panel_item    item;
  1884. + Event        *event;
  1885. + 
  1886. + {
  1887. +     if (dialog == NULL) {
  1888. +        dialog = contool_mail_objects_initialize(NULL, contool_base->base);
  1889. +        place_dialog(contool_base->base, dialog->mail);
  1890. +        xv_set(dialog->other_address, WIN_SHOW, FALSE, NULL);
  1891. +        }
  1892. +     xv_set(dialog->mail, XV_SHOW, TRUE, NULL);
  1893. +     xv_set(item, PANEL_NOTIFY_STATUS, XV_OK, 0);
  1894. + }
  1895. + 
  1896. + /************************************************************************/
  1897. + EXPORT    void    handle_address(item, value, event)
  1898. + 
  1899. + Panel_item    item;
  1900. + int        value;
  1901. + Event        *event;
  1902. + 
  1903. + {
  1904. +     if (value == 2) {
  1905. +        xv_set(dialog->other_address, WIN_SHOW, TRUE, NULL);
  1906. +        panel_paint(dialog->address, PANEL_NO_CLEAR);
  1907. +        panel_paint(dialog->other_address, PANEL_NO_CLEAR);
  1908. +        }
  1909. +     else {
  1910. +        xv_set(dialog->other_address, WIN_SHOW, FALSE, NULL);
  1911. +        panel_paint(dialog->address, PANEL_NO_CLEAR);
  1912. +        }
  1913. + }
  1914. + 
  1915. + /************************************************************************/
  1916. + EXPORT    void    send_mail(item, event)
  1917. + 
  1918. + Panel_item    item;
  1919. + Event        *event;
  1920. + 
  1921. + {    char    cmd[1024], *buf;
  1922. +     int    val, size;
  1923. +     FILE    *pipe;
  1924. + 
  1925. +     xv_set(item, PANEL_NOTIFY_STATUS, XV_ERROR, 0);
  1926. +     val = (int) xv_get(dialog->address, PANEL_VALUE);
  1927. +     if (val != 2)
  1928. +        sprintf(cmd, "%s %s", MAILER, xv_get(dialog->address, PANEL_CHOICE_STRING, val));
  1929. +     else {
  1930. +        buf = (char *) xv_get(dialog->other_address, PANEL_VALUE);
  1931. +        if (is_empty(buf)) {
  1932. +           error("You must specify an alternate address before sending your message");
  1933. +           return;
  1934. +           }
  1935. +        else
  1936. +           sprintf(cmd, "%s %s", MAILER, buf);
  1937. +        }
  1938. +     lets_get_busy(contool_base->base, TRUE, NULL);
  1939. +     if ((pipe = popen(cmd, "w")) == NULL) {
  1940. +        error("Could not invoke \"%s\" to send mail", cmd);
  1941. +        return;
  1942. +        }
  1943. +     size = (int) xv_get(dialog->message, TEXTSW_LENGTH);
  1944. +     if (size == 0) {
  1945. +        error("Please type a message before sending the mail");
  1946. +        return;
  1947. +        }
  1948. +     buf = (char *) malloc(size);
  1949. +     xv_get(dialog->message, TEXTSW_CONTENTS, 0, buf, size);
  1950. +     fprintf(pipe, "Subject: Contool comment\n\n");
  1951. +     if (fwrite(buf, 1, size, pipe) != size) {
  1952. +        error("Could not write message to the mailer");
  1953. +        free(buf);
  1954. +        return;
  1955. +        }
  1956. +     pclose(pipe);
  1957. +     free(buf);
  1958. +     lets_get_busy(contool_base->base, FALSE, NULL);
  1959. +     xv_set(item, PANEL_NOTIFY_STATUS, XV_OK, 0);
  1960. + }
  1961. + 
  1962. + /************************************************************************/
  1963. + EXPORT    void    cancel_mail(item, event)
  1964. + 
  1965. + Panel_item    item;
  1966. + Event        *event;
  1967. + 
  1968. + {
  1969. +     textsw_reset(dialog->message, 0, 0);
  1970. +     xv_set(item, PANEL_NOTIFY_STATUS, XV_ERROR, 0);
  1971. + }
  1972. dan
  1973. ----------------------------------------------------
  1974. O'Reilly && Associates   argv@sun.com / argv@ora.com
  1975. Opinions expressed reflect those of the author only.
  1976. --
  1977. dan
  1978. ----------------------------------------------------
  1979. O'Reilly && Associates   argv@sun.com / argv@ora.com
  1980. Opinions expressed reflect those of the author only.
  1981.