home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume14 / faces-1.4.5 / patch04 < prev    next >
Encoding:
Text File  |  1990-09-15  |  34.1 KB  |  963 lines
  1. Newsgroups: comp.sources.misc
  2. X-UNIX-From: rburridge@Sun.COM
  3. subject: v14i093: Official patch #8 for faces v1.4; please apply it.
  4. from: rburridge@Sun.COM (Rich Burridge)
  5. Sender: allbery@uunet.UU.NET (Brandon S. Allbery - comp.sources.misc)
  6.  
  7. Posting-number: Volume 14, Issue 93
  8. Submitted-by: rburridge@Sun.COM (Rich Burridge)
  9. Archive-name: faces-1.4.5/patch04
  10.  
  11. [Brandon, could you post this to comp.sources.misc when you get a chance
  12.  please?]
  13.  
  14. Faces is a visual monitor for mail, jobs on a printer or users on a machine.
  15. There are graphical interfaces for X11, XView, NeWS and SunView.
  16.  
  17. This is official patch #8 for faces v1.4.
  18.  
  19. It makes the following changes:
  20.  
  21.        * From Mike Khaw <khaw@parcplace.com>
  22.          From Rod Whitby <rwhitby@austek.oz.au>
  23.          From John Pritchard <john@latcs1.lat.oz.au>
  24.          faces v1.4.7 dumps core in make_iconname(). It's doing an strlen
  25.          on facepath[i] when it could be NULL. This is probably caused
  26.          when your FACEDIR directory doesn't have a misc./unknown subtree.
  27.  
  28.        * From Ian Darwin <ian@sq.com>
  29.          The x11 driver does not set XA_WM_CLASS, so things that depend
  30.          on CLASS to operate won't operate properly.
  31.  
  32.        * From Greg Rose <greg@softway.sw.oz.au>
  33.          From Ken Wood <adl.austek.oz.au>
  34.          faces with both the -MH and -a options together didn't work
  35.          correctly.
  36.  
  37.        * The -v command line option now displays the usage message and exit.
  38.          The new -? command line option is similar. The usage message is now
  39.          upto date and also lists the keyboard accelerators.
  40.  
  41.        * From John Pritchard <john@latcs1.lat.oz.au>
  42.          The file netdb.h was included twice if DNSLOOKUP is defined.
  43.  
  44.        * From Chris Maltby <chris@softway.sw.oz.au>
  45.          The window attributes structure with the X11 driver is now zeroised
  46.          before being used.
  47.  
  48.        * From Chris Maltby <chris@softway.sw.oz.au>
  49.          With the X11 driver, if the icon position hasn't been specified
  50.          with the -WP option, then the position defaults to the where the
  51.          right end of the open window would appear.
  52.  
  53.        * From Steven M. Miller <miller@SCTC.COM>
  54.          Under X, when faces is started up in iconic mode nothing is displayed
  55.          in the icon until the icon is clicked on and opened and then closed
  56.          again.
  57.  
  58.        * From Michael Schmidt <michael@uni-paderborn.de>
  59.          Perhaps my configuration (SparcStation, SunOS4.0.3, X11R4, twm with
  60.          ForceIcons, IconManager and IconRegion) is wierd, but... The icon is
  61.          not placed in the IconRegion, but just at 0x0 (or 1x1, or so). Then I
  62.          cannot deiconify the icon by a mouse click (all other icons deiconify
  63.          on a left button click).
  64.  
  65.        * From Steven M. Miller <miller@SCTC.COM>
  66.          faces now recognises -iconic (as well as -Wi) to specify iconic mode.
  67.          Inverse mode is still -i. The manual page has been updated.
  68.  
  69.        * From Ian Darwin <ian@sq.com>
  70.          faces uses -s <spoolfile> to indicate a different spool file to
  71.          monitor. How about a -S <spooldir> to indicate a different spool
  72.          directory? The manual page has been updated.
  73.  
  74.        * From Lindsay F. Marshall <Lindsay.Marshall%newcastle.ac.uk@munnari.oz>
  75.          faces works incorrectly when either the -h <height> or the -w <width>
  76.          options are given. The image area is not being cleared first.
  77.  
  78.  
  79. Apply this patch with Larry Walls' patch program, recompile and reinstall.
  80. See the README file for more details on how to install faces.
  81.  
  82. faces v1.4 was posted to comp.sources.misc on 29th June 1990 at patchlevel 5.
  83. Patch 6 and 7 have been posted to comp.sources.[bugs,misc], but if you missed
  84. them then they can be obtained from the automatic mail archive server, by
  85. sending a message to rb-archive-server@Aus.Sun.COM containing the line:
  86.  
  87. send faces patchn
  88.  
  89. where n is the patch number you want.
  90.  
  91. You can also include a path line in these requests to indicate the mail
  92. path that the archive server should use to send the files to you. Such a
  93. path line could be:
  94.  
  95. path uunet.uu.net!hostname!user
  96.  
  97. Note that this is uunet.uu.net and not just uunet. Sun.COM doesn't recognise
  98. just uunet.
  99.  
  100. *IMPORTANT NOTE* I've received several more bug reports and enhancements. If
  101.                  I didn't include a fix in this patch or add it to the TODO
  102.                  file, it's simply because I ran out of time. Hopefully the
  103.                  fix or the enhancement will be included in the next patch.
  104.  
  105. Rich Burridge,          DOMAIN: richb@Aus.Sun.COM
  106. Sun Microsystems.       ACSNET: richb@sunaus.sun.oz
  107. PHONE: +61 2 413 2666   UUCP:   {uunet,mcvax,ukc}!munnari!sunaus.oz!richb
  108.  
  109. ------CUT HERE------patch.8------CUT HERE------
  110.  
  111. ------- get.c -------
  112. *** /tmp/da15167    Thu Sep 13 17:10:30 1990
  113. --- get.c    Thu Sep 13 14:28:57 1990
  114. ***************
  115. *** 166,171 ****
  116. --- 166,175 ----
  117.                          INC ;
  118.                          getparam(printer, argv, "-P needs printer name") ;
  119.                          break ;
  120. +             case 'S' : INC ;               /* Alternative spoolfile. */
  121. +                        getparam(next, argv, "-s needs spool directory") ;
  122. +                        SPRINTF(spoolfile, "%s/%s", next, username) ;
  123. +                        break ;
  124.               case 'U' : update++ ;          /* Update faces database. */
  125.                          break ;
  126.               case 'a' : mtype = MONALL ;    /* Monitor all of the spoolfile. */
  127. ***************
  128. *** 173,179 ****
  129.               case 'b' : if (argv[0][2] == 'g')
  130.                            {
  131.                              INC ;           /* Background color. */
  132. !                            getparam(bgcolor, argv, "-bg specifies background color") ;
  133.                              break ;
  134.                            }
  135.                          INC ;               /* Alternate background pattern. */
  136. --- 177,184 ----
  137.               case 'b' : if (argv[0][2] == 'g')
  138.                            {
  139.                              INC ;           /* Background color. */
  140. !                            getparam(bgcolor, argv,
  141. !                                     "-bg specifies background color") ;
  142.                              break ;
  143.                            }
  144.                          INC ;               /* Alternate background pattern. */
  145. ***************
  146. *** 217,223 ****
  147.                              imageheight = ICONHEIGHT ;
  148.                            }
  149.                          break ;
  150. !             case 'i' : invert = 1 ;        /* Reverse video. */
  151.                          break ;
  152.               case 'n' : dontshowno = 1 ;    /* Don't show number of messages. */
  153.                          break ;
  154. --- 222,229 ----
  155.                              imageheight = ICONHEIGHT ;
  156.                            }
  157.                          break ;
  158. !             case 'i' : if (!strncmp(&argv[0][1], "iconic", 6)) iconic = 1 ;
  159. !                        else if (argv[0][2] == '\0')            invert = 1 ;
  160.                          break ;
  161.               case 'n' : dontshowno = 1 ;    /* Don't show number of messages. */
  162.                          break ;
  163. ***************
  164. *** 226,240 ****
  165.                          period = atoi(next) ;
  166.                          break ;
  167.               case 's' : INC ;               /* Alternative spoolfile. */
  168. !                        getparam(spoolfile, argv, "-s needs spool directory") ;
  169.                          break ;
  170.               case 't' : dontshowtime = 1 ;  /* Do not show timestamps. */
  171.                          break ;
  172.               case 'u' : dontshowuser = 1 ;  /* Do not show usernames. */
  173.                          break ;
  174. !             case 'v' : FPRINTF(stderr, "%s version 1.4.%1d\n",
  175. !                                        progname, PATCHLEVEL) ;
  176. !                        exit(1) ;
  177.               case 'w' : INC ;               /* Face image width. */
  178.                          getparam(next, argv, "-w needs width value") ;
  179.                          imagewidth = atoi(next) ;
  180. --- 232,245 ----
  181.                          period = atoi(next) ;
  182.                          break ;
  183.               case 's' : INC ;               /* Alternative spoolfile. */
  184. !                        getparam(spoolfile, argv, "-s needs spool file") ;
  185.                          break ;
  186.               case 't' : dontshowtime = 1 ;  /* Do not show timestamps. */
  187.                          break ;
  188.               case 'u' : dontshowuser = 1 ;  /* Do not show usernames. */
  189.                          break ;
  190. !             case '?' :
  191. !             case 'v' : usage() ;
  192.               case 'w' : INC ;               /* Face image width. */
  193.                          getparam(next, argv, "-w needs width value") ;
  194.                          imagewidth = atoi(next) ;
  195. ***************
  196. *** 282,287 ****
  197. --- 287,293 ----
  198.                                         getparam(next, argv,
  199.                                                  "-WP needs y coordinate") ;
  200.                                         iy = atoi(next) ;
  201. +                                       iconpos = 1 ;
  202.                                         break ;
  203.                              case 's' : INC ; INC ;  /* -Ws xnum ynum */
  204.                                         break ;
  205. ***************
  206. *** 534,542 ****
  207.   
  208.   usage()      /* Print faces usage message. */
  209.   {
  210. !   FPRINTF(stderr, "Usage: %s [-MH] [-P printer] [-Wi] [-Wp x y] ", progname) ;
  211. !   FPRINTF(stderr, "[-WP x y] [-b background] [-bg background_color] ") ;
  212. !   FPRINTF(stderr, "[-d display] [-f facepath] [-fg foreground_color] ") ;
  213. !   FPRINTF(stderr, "[-g geometry] [-i] [-n] [-p period] [-s spoolfile] [-u] ") ;
  214. !   FPRINTF(stderr, "[-t] [-v]\n") ;
  215.   }
  216. --- 540,556 ----
  217.   
  218.   usage()      /* Print faces usage message. */
  219.   {
  220. !   FPRINTF(stderr, "%s version 1.4.%1d\n\n", progname, PATCHLEVEL) ;
  221. !   FPRINTF(stderr, "Usage: %s [-H hostname] [-MH] [-P printer]\n", progname) ;
  222. !   FPRINTF(stderr, "\t[-S spooldir] [-U] [-Wi] [-Wp x y] [-WP x y] [-a]\n") ;
  223. !   FPRINTF(stderr, "\t[-b background] [-bg background_color] [-c columns]\n") ;
  224. !   FPRINTF(stderr, "\t[-d display] [-e progname] [-f facepath]\n") ;
  225. !   FPRINTF(stderr, "\t[-fg foreground_color] [-g geometry] [-h height]\n") ;
  226. !   FPRINTF(stderr, "\t[-i] [-iconic] [-n] [-p period] [-s spoolfile] [-t]\n") ;
  227. !   FPRINTF(stderr, "\t[-u] [-v] [-w width] [-?]\n\n") ;
  228. !   FPRINTF(stderr, "Keyboard accelerators:\n") ;
  229. !   FPRINTF(stderr, "\t^L  - clear faces display.\n") ;
  230. !   FPRINTF(stderr, "\tdel - refresh faces display.\n") ;
  231. !   FPRINTF(stderr, "\tq   - terminate faces display.\n") ;
  232. !   exit(1) ;
  233.   }
  234.  
  235. ------- main.c -------
  236. *** /tmp/da15170    Thu Sep 13 17:10:31 1990
  237. --- main.c    Thu Sep 13 12:40:11 1990
  238. ***************
  239. *** 29,35 ****
  240.   
  241.   #ifdef DNSLOOKUP
  242.   #include <sys/socket.h>
  243. - #include <netdb.h>
  244.   #endif /*DNSLOOKUP*/
  245.   
  246.   #ifdef NISLOOKUP
  247. --- 29,34 ----
  248. ***************
  249. *** 130,135 ****
  250. --- 129,135 ----
  251.   int height ;            /* Height in pixels of faces display. */
  252.   
  253.   int iconheight = ICONHEIGHT ;  /* Height of an individual icon. */
  254. + int iconpos = 0 ;              /* Set if icon position given (-WP option). */
  255.   int iconwidth = ICONWIDTH ;    /* Width of an individual icon. */
  256.   int iconic = 0 ;               /* Faces window is closed if set. */
  257.   int imageheight = ICONHEIGHT ;  /* Height of an individual face image. */
  258. ***************
  259. *** 314,320 ****
  260.     int i ;
  261.   
  262.     facepath[0] = FACEDIR ;    /* Default path is single built-in directory. */
  263. !   for (i = 1;  i <= MAXPATHS;  i++) facepath[i] = (char *) NULL ;
  264.   
  265.     STRCPY(display, "") ;       /* X11 display type. */
  266.     STRCPY(geometry, "") ;      /* X11 geometry information. */
  267. --- 314,320 ----
  268.     int i ;
  269.   
  270.     facepath[0] = FACEDIR ;    /* Default path is single built-in directory. */
  271. !   for (i = 1;  i <= MAXPATHS;  i++) facepath[i] = "" ;
  272.   
  273.     STRCPY(display, "") ;       /* X11 display type. */
  274.     STRCPY(geometry, "") ;      /* X11 geometry information. */
  275. ***************
  276. *** 505,511 ****
  277.   
  278.     IF_DEBUG( FPRINTF(stderr, "make_iconname: %s[%s] ", community, user) ; )
  279.     
  280. !   for (id = 0; strlen(facepath[id]) != 0; id++)
  281.       for (iu = 0; strlen(iuser[iu]) != 0; iu++)
  282.         for (ic = 0; strlen(icomm[ic]) != 0; ic++)
  283.           for (cptr = icomm[ic]; cptr != NULL; cptr = index(cptr, '.'))
  284. --- 505,511 ----
  285.   
  286.     IF_DEBUG( FPRINTF(stderr, "make_iconname: %s[%s] ", community, user) ; )
  287.     
  288. !   for (id = 0; facepath[id] && (strlen(facepath[id]) != 0); id++)
  289.       for (iu = 0; strlen(iuser[iu]) != 0; iu++)
  290.         for (ic = 0; strlen(icomm[ic]) != 0; ic++)
  291.           for (cptr = icomm[ic]; cptr != NULL; cptr = index(cptr, '.'))
  292.  
  293. ------- mon.c -------
  294. *** /tmp/da15173    Thu Sep 13 17:10:33 1990
  295. --- mon.c    Thu Sep 13 11:11:06 1990
  296. ***************
  297. *** 169,175 ****
  298.         else make_display() ;     /* Output icons and tidyup chain of records. */
  299.         return ;
  300.       }
  301. !   if (buf.st_size > lastsize) newmail = 1 ;   /* New mail found. */
  302.     if (!buf.st_size) add_face(DISP_ICON, NOMAIL, "") ;
  303.   
  304.     ubuf[0] = buf.st_atime ;                    /* Save for possible reset. */
  305. --- 169,180 ----
  306.         else make_display() ;     /* Output icons and tidyup chain of records. */
  307.         return ;
  308.       }
  309. !   if (buf.st_size > lastsize ||
  310. !       mhflag && buf.st_size < lastsize && buf.st_size != 0)
  311. !     {
  312. !       if (buf.st_size < lastsize) lastsize = 0 ;
  313. !       newmail = 1 ;                           /* New mail found. */
  314. !     }
  315.     if (!buf.st_size) add_face(DISP_ICON, NOMAIL, "") ;
  316.   
  317.     ubuf[0] = buf.st_atime ;                    /* Save for possible reset. */
  318. ***************
  319. *** 177,193 ****
  320.   
  321.     if (mtype == MONNEW)
  322.       if (buf.st_size <= lastsize)   /* Is the size of mail folder bigger? */
  323. !       if (mhflag && (buf.st_size < lastsize) && (buf.st_size != 0))
  324. !         {
  325. !           lastsize = 0 ;    /* User uses MH. Any shrinkage means new mail. */
  326. !           newmail = 1 ;
  327. !         }
  328. !       else
  329. !         {
  330. !           lastsize = buf.st_size ;   /* No: save new size and exit. */
  331. !           show_display() ;
  332. !           return ;
  333. !         }
  334.   
  335.     if ((fp = fopen(spoolfile, "r")) == NULL)   /* Open spoolfile. */
  336.       {
  337. --- 182,192 ----
  338.   
  339.     if (mtype == MONNEW)
  340.       if (buf.st_size <= lastsize)   /* Is the size of mail folder bigger? */
  341. !       {
  342. !         lastsize = buf.st_size ;   /* No: save new size and return. */
  343. !         show_display() ;
  344. !         return ;
  345. !       }
  346.   
  347.     if ((fp = fopen(spoolfile, "r")) == NULL)   /* Open spoolfile. */
  348.       {
  349.  
  350. ------- sunview.c -------
  351. *** /tmp/da15176    Thu Sep 13 17:10:34 1990
  352. --- sunview.c    Thu Sep 13 17:03:11 1990
  353. ***************
  354. *** 69,75 ****
  355.              imageheight, PIX_SRC, pr[(int) dtype], 0, 0) ;
  356.   
  357.     PR_ROP(pr[(int) dtype], column*imagewidth, row*imageheight,
  358. !          imagewidth, imageheight, PIX_SRC, images[(int) itype], 0, 0) ;
  359.   }
  360.   
  361.   
  362. --- 69,78 ----
  363.              imageheight, PIX_SRC, pr[(int) dtype], 0, 0) ;
  364.   
  365.     PR_ROP(pr[(int) dtype], column*imagewidth, row*imageheight,
  366. !          imagewidth, imageheight, PIX_CLR,
  367. !          pr[(int) dtype], column*imagewidth, row*imageheight) ;
  368. !   PR_ROP(pr[(int) dtype], column*imagewidth, row*imageheight,
  369. !          iconwidth, iconheight, PIX_SRC, images[(int) itype], 0, 0) ;
  370.   }
  371.   
  372.   
  373. ***************
  374. *** 233,238 ****
  375. --- 236,242 ----
  376.   enum disp_type dtype ;
  377.   {
  378.     pr[(int) dtype] = mem_create(width, height, 1) ;
  379. +   PR_ROP(pr[(int) dtype], 0, 0, width, height, PIX_CLR, pr[(int) dtype], 0, 0) ;
  380.   }
  381.   
  382.   
  383.  
  384. ------- extern.h -------
  385. *** /tmp/da15179    Thu Sep 13 17:10:35 1990
  386. --- extern.h    Thu Sep 13 14:26:58 1990
  387. ***************
  388. *** 60,65 ****
  389. --- 60,66 ----
  390.   extern char revtable[] ;   /* Table for reversing the bits in a byte. */
  391.   extern char spoolfile[] ;  /* Full pathname of users current mail. */
  392.   extern char update_alias[] ;   /* Name of mail alias for database updates. */
  393. + extern char *username ;        /* This users name. */
  394.   extern char userprog[] ;   /* User supplied program to run. */
  395.   
  396.   extern int beeps ;         /* Number of beeps for arrival of new mail. */
  397. ***************
  398. *** 76,81 ****
  399. --- 77,83 ----
  400.   extern int froms_found ;   /* Set if "From " line found during processing. */
  401.   extern int height ;        /* Height in pixels of faces display. */
  402.   extern int iconheight ;    /* Height of an individual icon. */
  403. + extern int iconpos ;       /* Set if icon position given (-WP option). */
  404.   extern int iconwidth ;     /* Width of an individual icon. */
  405.   extern int iconic ;        /* Start as an icon if set. */
  406.   extern int imageheight ;   /* Height of an individual face image. */
  407.  
  408. ------- patchlevel.h -------
  409. *** /tmp/da15182    Thu Sep 13 17:10:35 1990
  410. --- patchlevel.h    Thu Sep 13 09:47:49 1990
  411. ***************
  412. *** 14,17 ****
  413.    *  reported to me then an attempt will be made to fix them.
  414.    */
  415.   
  416. ! #define  PATCHLEVEL  7
  417. --- 14,17 ----
  418.    *  reported to me then an attempt will be made to fix them.
  419.    */
  420.   
  421. ! #define  PATCHLEVEL  8
  422.  
  423. ------- README -------
  424. *** /tmp/da15185    Thu Sep 13 17:10:36 1990
  425. --- README    Thu Sep 13 17:00:13 1990
  426. ***************
  427. *** 300,307 ****
  428.   Mullender, Cameron Humphries, Rick Gunderson, Rich McAllister, Hakon Lie,
  429.   John Fong, Chris Maltby, Darryl K. Ramm, Steve Piette, Tony Landells, Pat
  430.   Lashley, Dave Glowacki, Chris Steinbroner, Steven M. Miller, Bob Posert,
  431. ! Hugues Leroy, Graham Dumpleton, Michael Schmidt, Robert Adams and Rod
  432. ! Whitby for various bug reports, fixes and suggestions for improvement.
  433.   
  434.   
  435.   ----------------------------------------------------------------------------
  436. --- 300,308 ----
  437.   Mullender, Cameron Humphries, Rick Gunderson, Rich McAllister, Hakon Lie,
  438.   John Fong, Chris Maltby, Darryl K. Ramm, Steve Piette, Tony Landells, Pat
  439.   Lashley, Dave Glowacki, Chris Steinbroner, Steven M. Miller, Bob Posert,
  440. ! Hugues Leroy, Graham Dumpleton, Michael Schmidt, Robert Adams, Rod Whitby,
  441. ! Greg Rose, Mike Khaw, Ian Darwin, Ken Wood and Lindsay F. Marshall for
  442. ! various bug reports, fixes and suggestions for improvement.
  443.   
  444.   
  445.   ----------------------------------------------------------------------------
  446.  
  447. ------- faces.1 -------
  448. *** /tmp/da15188    Thu Sep 13 17:10:37 1990
  449. --- faces.1    Thu Sep 13 14:34:29 1990
  450. ***************
  451. *** 17,22 ****
  452. --- 17,26 ----
  453.   .I printer
  454.   ]
  455.   [
  456. + .B \-S
  457. + .I spooldir
  458. + ]
  459. + [
  460.   .B \-U
  461.   ]
  462.   [
  463. ***************
  464. *** 51,56 ****
  465. --- 55,63 ----
  466.   .I height
  467.   ]
  468.   [
  469. + .B \-iconic
  470. + ]
  471. + [
  472.   .B \-i
  473.   ]
  474.   [
  475. ***************
  476. *** 161,166 ****
  477. --- 168,181 ----
  478.   .B faces
  479.   will monitor the print queue.
  480.   .TP
  481. + .BI \-S " spooldir"
  482. + Specify an alternate mail spool directory. The folder that will be monitored
  483. + will then be
  484. + .BI spooldir/ username
  485. + where
  486. + .I username
  487. + is the name of the user currently logged in.
  488. + .TP
  489.   .B \-U
  490.   Automatically send mail to a special mail alias, to update the
  491.   .I faces
  492. ***************
  493. *** 217,222 ****
  494. --- 232,242 ----
  495.   The height of each face image in pixels. Note that this is the height of
  496.   the area allocated to each image, and not necessarily the height of the
  497.   displayed image inside.
  498. + .TP
  499. + .B \-iconic
  500. + Start the
  501. + .B faces
  502. + program up in iconic form.
  503.   .TP
  504.   .B \-i
  505.   Invert the faces images before displaying them. For use by people who
  506.  
  507. ------- x11.c -------
  508. *** /tmp/da15194    Thu Sep 13 17:10:39 1990
  509. --- x11.c    Thu Sep 13 16:49:19 1990
  510. ***************
  511. *** 31,36 ****
  512. --- 31,37 ----
  513.   #define  FONT                "times-roman-10"
  514.   #define  FRAME_MASK          (ButtonPressMask  | ExposureMask | \
  515.                                 ButtonMotionMask | KeyPressMask)
  516. + #define  ICON_MASK            ExposureMask
  517.   
  518.   Atom protocol_atom, kill_atom ;
  519.   Display *dpy ;
  520. ***************
  521. *** 47,52 ****
  522. --- 48,54 ----
  523.   Pixmap old_pr[2] = { NULL, NULL } ;      /* Previous memory Pixmaps. */
  524.   Window frame[2] ;
  525.   Window root ;
  526. + XClassHint class_hint = { "faces", "Faces" } ;
  527.   XFontStruct *sfont ;
  528.   XGCValues gc_val ;
  529.   XSizeHints size ;
  530. ***************
  531. *** 76,83 ****
  532.       XCopyArea(dpy, pr[(int) dtype], pr[(int) dtype], gc, 0, 0,
  533.                 (maxcols-1)*imagewidth, imageheight, imagewidth, 0) ;
  534.   
  535.     XCopyArea(dpy, images[(int) itype], pr[(int) dtype], gc, 0, 0,
  536. !             imagewidth, imageheight, column*imagewidth, row*imageheight) ;
  537.   }
  538.   
  539.    
  540. --- 78,90 ----
  541.       XCopyArea(dpy, pr[(int) dtype], pr[(int) dtype], gc, 0, 0,
  542.                 (maxcols-1)*imagewidth, imageheight, imagewidth, 0) ;
  543.   
  544. +   XSetFunction(dpy, gc, GXclear) ;
  545. +   XCopyArea(dpy, pr[(int) dtype], pr[(int) dtype], gc,
  546. +                  column*imagewidth, row*imagewidth, imagewidth, imageheight,
  547. +                  column*imagewidth, row*imagewidth) ;
  548. +   XSetFunction(dpy, gc, GXcopy) ;
  549.     XCopyArea(dpy, images[(int) itype], pr[(int) dtype], gc, 0, 0,
  550. !             iconwidth, iconwidth, column*imagewidth, row*imageheight) ;
  551.   }
  552.   
  553.    
  554. ***************
  555. *** 158,164 ****
  556.     XCopyArea(dpy, pr[(int) wdtype], frame[F_WINDOW], gc, 0, 0,
  557.               (unsigned int) width, (unsigned int) height, 0, 0) ;
  558.     XCopyArea(dpy, pr[(int) DISP_ICON], frame[F_ICON], gc, 0, 0,
  559. !             (unsigned int) width, (unsigned int) height, 0, 0) ;
  560.   }
  561.   
  562.   
  563. --- 165,171 ----
  564.     XCopyArea(dpy, pr[(int) wdtype], frame[F_WINDOW], gc, 0, 0,
  565.               (unsigned int) width, (unsigned int) height, 0, 0) ;
  566.     XCopyArea(dpy, pr[(int) DISP_ICON], frame[F_ICON], gc, 0, 0,
  567. !             (unsigned int) imagewidth, (unsigned int) imageheight, 0, 0) ;
  568.   }
  569.   
  570.   
  571. ***************
  572. *** 225,231 ****
  573.     depth = DefaultDepth(dpy, screen) ;
  574.   
  575.     init_font() ;
  576. - 
  577.     gc_mask = GCFont | GCForeground | GCBackground | GCGraphicsExposures ;
  578.     gc_val.font = sfont->fid ;
  579.     gc_val.foreground = foregnd ;
  580. --- 232,237 ----
  581. ***************
  582. *** 232,238 ****
  583.     gc_val.background = backgnd ;
  584.     gc_val.graphics_exposures = False ;
  585.     gc = XCreateGC(dpy, root, gc_mask, &gc_val) ;
  586. !     
  587.     tilegc = XCreateGC(dpy, root, gc_mask, &gc_val) ;
  588.     if (depth == 1) XSetFillStyle(dpy, tilegc, FillOpaqueStippled) ;
  589.     else            XSetFillStyle(dpy, tilegc, FillTiled) ;
  590. --- 238,244 ----
  591.     gc_val.background = backgnd ;
  592.     gc_val.graphics_exposures = False ;
  593.     gc = XCreateGC(dpy, root, gc_mask, &gc_val) ;
  594. ! 
  595.     tilegc = XCreateGC(dpy, root, gc_mask, &gc_val) ;
  596.     if (depth == 1) XSetFillStyle(dpy, tilegc, FillOpaqueStippled) ;
  597.     else            XSetFillStyle(dpy, tilegc, FillTiled) ;
  598. ***************
  599. *** 260,278 ****
  600.   
  601.   
  602.   /*ARGSUSED*/
  603. - static Bool
  604. - is_exposed(dpy, ev, window)   /* Return True if window is being exposed */
  605. - Display *dpy ;
  606. - XEvent *ev ;
  607. - char *window ;
  608. - {
  609. -   if (ev->type == Expose && *((Window *) window) == ev->xkey.window)
  610. -     return True ;
  611. -   return False ;
  612. - }
  613. - 
  614. - 
  615. - /*ARGSUSED*/
  616.   load_icon(itype, sbuf, not_flipped)
  617.   enum icon_type itype ;
  618.   unsigned short sbuf[256] ;
  619. --- 266,271 ----
  620. ***************
  621. *** 298,305 ****
  622.   {
  623.     pr[(int) dtype] = XCreatePixmap(dpy, root,
  624.                         (unsigned int) width, (unsigned int) height, depth) ;
  625. !   XSetFunction(dpy, gc, GXandInverted) ;
  626. !   XFillRectangle(dpy, pr[(int) dtype], gc, 0, 0, width, height) ;
  627.     XSetFunction(dpy, gc, GXcopy) ;
  628.   }
  629.   
  630. --- 291,300 ----
  631.   {
  632.     pr[(int) dtype] = XCreatePixmap(dpy, root,
  633.                         (unsigned int) width, (unsigned int) height, depth) ;
  634. !   XSetFunction(dpy, gc, GXclear) ;
  635. !   XCopyArea(dpy, pr[(int) dtype], pr[(int) dtype], gc,
  636. !                  column*imagewidth, row*imagewidth, imagewidth, imageheight,
  637. !                  column*imagewidth, row*imagewidth) ;
  638.     XSetFunction(dpy, gc, GXcopy) ;
  639.   }
  640.   
  641. ***************
  642. *** 346,361 ****
  643.           }
  644.       }
  645.   
  646. ! #ifdef WANTED
  647. !   frame[F_WINDOW] = XCreateSimpleWindow(dpy, root,
  648. !                                         size.x, size.y, size.width, size.height,
  649. !                                         FACES_BORDER_WIDTH, foregnd, backgnd) ;
  650.   
  651. !   frame[F_ICON] = XCreateSimpleWindow(dpy, root,
  652. !                                       ix, iy, imagewidth, imageheight,
  653. !                                       FACES_BORDER_WIDTH, foregnd, backgnd) ;
  654. ! #endif /*WANTED*/
  655. ! 
  656.     winattrs.background_pixel = backgnd ;
  657.     winattrs.border_pixel = foregnd ;
  658.     winattrs.event_mask = FRAME_MASK ;
  659. --- 341,353 ----
  660.           }
  661.       }
  662.   
  663. !   if (!iconpos)
  664. !     {
  665. !       ix = size.x + size.width - imagewidth ;
  666. !       iy = size.y ;
  667. !     }
  668.   
  669. !   bzero((char *) &winattrs, sizeof(winattrs)) ;
  670.     winattrs.background_pixel = backgnd ;
  671.     winattrs.border_pixel = foregnd ;
  672.     winattrs.event_mask = FRAME_MASK ;
  673. ***************
  674. *** 365,370 ****
  675. --- 357,364 ----
  676.                           CopyFromParent, InputOutput, CopyFromParent,
  677.                           CWBackPixel | CWBorderPixel | CWEventMask, &winattrs) ;
  678.   
  679. +   winattrs.event_mask = ICON_MASK ;
  680. + 
  681.     frame[F_ICON] = XCreateWindow(dpy, root,
  682.                           ix, iy, imagewidth, imageheight, FACES_BORDER_WIDTH,
  683.                           CopyFromParent, InputOutput, CopyFromParent, 
  684. ***************
  685. *** 388,395 ****
  686.         wm_hints.flags |= StateHint ;
  687.       }    
  688.     XSetWMHints(dpy, frame[F_WINDOW], &wm_hints) ;
  689. - /**  XSetWMHints(dpy, frame[F_ICON],   &wm_hints) ; **/
  690.   
  691.   /* Equivalent of make_icon. */
  692.   
  693.     if (mtype == MONPRINTER) adjust_image(DISP_ICON, NOPRINT, 0, 0) ;
  694. --- 382,392 ----
  695.         wm_hints.flags |= StateHint ;
  696.       }    
  697.     XSetWMHints(dpy, frame[F_WINDOW], &wm_hints) ;
  698.   
  699. + /* Set XA_WM_CLASS so things that depend on NAME work. */
  700. + 
  701. +   XSetClassHint(dpy, frame[F_WINDOW], &class_hint) ;
  702. + 
  703.   /* Equivalent of make_icon. */
  704.   
  705.     if (mtype == MONPRINTER) adjust_image(DISP_ICON, NOPRINT, 0, 0) ;
  706. ***************
  707. *** 401,406 ****
  708. --- 398,424 ----
  709.   {}
  710.   
  711.   
  712. + process_expose(event)
  713. + XExposeEvent *event ;
  714. + {
  715. +   int doframe, doicon ;
  716. + 
  717. +   doframe = doicon = 0 ;
  718. +   do
  719. +     {
  720. +       if (event->count == 0)
  721. +         {
  722. +                if (event->window == frame[F_WINDOW]) doframe++ ;
  723. +           else if (event->window == frame[F_ICON])   doicon++ ;
  724. +         }
  725. +     }    
  726. +   while (XCheckMaskEvent(dpy, ExposureMask, event)) ;
  727. + 
  728. +   if (doframe) draw_screen(wdtype) ;
  729. +   if (doicon)  draw_screen(wdtype) ;
  730. + }
  731. + 
  732. + 
  733.   repl_image(dtype, dest, width, height)
  734.   enum disp_type dtype ;
  735.   enum image_type dest ;
  736. ***************
  737. *** 433,440 ****
  738.       {
  739.         XSelectInput(dpy, frame[F_WINDOW], FRAME_MASK) ;
  740.         XMapWindow(dpy, frame[F_WINDOW]) ;
  741. -       XSync(dpy, 0) ;
  742. -       XPeekIfEvent(dpy, &ev, is_exposed, (char *) &frame[F_WINDOW]) ;
  743.         first_time = 0 ;
  744.       }
  745.   
  746. --- 451,456 ----
  747. ***************
  748. *** 488,494 ****
  749.   #endif /*SYSV32*/
  750.           do
  751.             {
  752. !             XNextEvent(dpy, &event) ;
  753.   
  754.   /* ClientMessage: (catch ICCCM kill from WM). */
  755.   
  756. --- 504,511 ----
  757.   #endif /*SYSV32*/
  758.           do
  759.             {
  760. !             if (!XCheckMaskEvent(dpy, ExposureMask, &event))
  761. !               XNextEvent(dpy, &event) ;
  762.   
  763.   /* ClientMessage: (catch ICCCM kill from WM). */
  764.   
  765. ***************
  766. *** 502,512 ****
  767.   
  768.   /* Expose. */
  769.   
  770. !             else if (event.type == Expose && event.xexpose.count == 0)
  771. !               {
  772. !                 while (XCheckTypedEvent(dpy, Expose, &event)) /* do nothing. */ ;
  773. !                 draw_screen(wdtype) ;
  774. !               }
  775.   
  776.   /* ButtonPress. */
  777.   
  778. --- 519,525 ----
  779.   
  780.   /* Expose. */
  781.   
  782. !             else if (event.type == Expose) process_expose(&event) ;
  783.   
  784.   /* ButtonPress. */
  785.   
  786.  
  787. ------- TODO -------
  788. *** /tmp/da15197    Thu Sep 13 17:10:40 1990
  789. --- TODO    Thu Sep 13 17:09:39 1990
  790. ***************
  791. *** 106,146 ****
  792.       determine at run-time whether the NeWS operations are available, or
  793.       whether to stick to XView/X11 mechanisms.
  794.   
  795. ! 21/ From Steven M. Miller <miller@SCTC.COM>
  796. !     I would like to use -iconic to specify iconic mode for X. This would
  797. !     require change -i to -I for inverse in get.c and having -i to set iconic=1.
  798. ! 
  799. ! 22/ From Steven M. Miller <miller@SCTC.COM>
  800. !     Under X, when faces is started up in iconic mode nothing is displayed in
  801. !     the icon until the icon is clicked on and opened and then closed again.
  802. ! 
  803. ! 23/ From Kee Hinckley <nazgul@alphalpha.com>
  804.       Any possibility of changing that header to an RFC1154 (I think that's
  805.       the number) conformant form?  Namely an encoding field in the
  806.       header (presumbably with a new name for the faces format, or using
  807.       one of the existing ones (G3Fax uuencode would probably be good)).
  808.   
  809. ! 24/ From Michael Schmidt <michael@uni-paderborn.de>
  810. !     Perhaps my configuration (SparcStation, SunOS4.0.3, X11R4, twm with
  811. !     ForceIcons, IconManager and IconRegion) is wierd, but... The icon is
  812. !     not placed in the IconRegion, but just at 0x0 (or 1x1, or so). Then I
  813. !     cannot deiconify the icon by a mouse click (all other icons deiconify
  814. !     on a left button click).
  815. ! 
  816. ! 25/ Get the SunView, XView and NeWS drivers to use the -bg and -fg color
  817.       options.
  818.   
  819. ! 26/ From Ken Wood <kwood@adl.austek.oz.au>
  820. !     Sometimes the display gets stuck while changing from "No mail" to a
  821. !     single face or vice-versa. xfaces just displays a plain grey window.
  822. ! 
  823. ! 27/ From Ken Wood <kwood@adl.austek.oz.au>
  824. !     Quite often, users who don't have a face file are shown as "unknown"
  825. !     with the unknown face, rather than putting the username with the unknown
  826. !     face.
  827. ! 
  828. ! 28/ From Ken Wood <kwood@adl.austek.oz.au>
  829.       Do you have any plans to get xfaces to read geometry etc from the
  830.       database ?
  831.   
  832. ! 29/ Optimise.
  833. --- 106,125 ----
  834.       determine at run-time whether the NeWS operations are available, or
  835.       whether to stick to XView/X11 mechanisms.
  836.   
  837. ! 21/ From Kee Hinckley <nazgul@alphalpha.com>
  838.       Any possibility of changing that header to an RFC1154 (I think that's
  839.       the number) conformant form?  Namely an encoding field in the
  840.       header (presumbably with a new name for the faces format, or using
  841.       one of the existing ones (G3Fax uuencode would probably be good)).
  842.   
  843. ! 22/ Get the SunView, XView and NeWS drivers to use the -bg and -fg color
  844.       options.
  845.   
  846. ! 23/ From Ken Wood <kwood@adl.austek.oz.au>
  847.       Do you have any plans to get xfaces to read geometry etc from the
  848.       database ?
  849.   
  850. ! 24/ When the -w and/or -h options are used with the SunView version, the
  851. !     size of the icon created is incorrect.
  852. ! 
  853. ! 25/ Optimise.
  854.  
  855. ------- xview.c -------
  856. *** /tmp/da15200    Thu Sep 13 17:10:40 1990
  857. --- xview.c    Thu Sep 13 16:31:27 1990
  858. ***************
  859. *** 73,78 ****
  860. --- 73,83 ----
  861.       XCopyArea(dpy, pr[(int) dtype], pr[(int) dtype], gc, 0, 0,
  862.                 (maxcols-1)*imagewidth, imageheight, imagewidth, 0) ;
  863.   
  864. +   XSetFunction(dpy, gc, GXclear) ;
  865. +   XCopyArea(dpy, pr[(int) dtype], pr[(int) dtype], gc,
  866. +                  column*imagewidth, row*imagewidth, imagewidth, imageheight,
  867. +                  column*imagewidth, row*imagewidth) ;
  868. +   XSetFunction(dpy, gc, GXcopy) ;
  869.     XCopyArea(dpy, images[(int) itype], pr[(int) dtype], gc, 0, 0,
  870.               imagewidth, imageheight, column*imagewidth, row*imageheight) ;
  871.   }
  872. ***************
  873. *** 276,283 ****
  874.   {
  875.     pr[(int) dtype] = XCreatePixmap(dpy, root, (unsigned int) width,
  876.                                     (unsigned int) height, depth) ;
  877. !   XSetFunction(dpy, gc, GXandInverted) ;
  878. !   XFillRectangle(dpy, pr[(int) dtype], gc, 0, 0, width, height) ;
  879.     XSetFunction(dpy, gc, GXcopy) ;
  880.   }
  881.   
  882. --- 281,290 ----
  883.   {
  884.     pr[(int) dtype] = XCreatePixmap(dpy, root, (unsigned int) width,
  885.                                     (unsigned int) height, depth) ;
  886. !   XSetFunction(dpy, gc, GXclear) ;
  887. !   XCopyArea(dpy, pr[(int) dtype], pr[(int) dtype], gc,
  888. !                  column*imagewidth, row*imagewidth, imagewidth, imageheight,
  889. !                  column*imagewidth, row*imagewidth) ;
  890.     XSetFunction(dpy, gc, GXcopy) ;
  891.   }
  892.   
  893.  
  894. ------- CHANGES -------
  895. *** /tmp/da15203    Thu Sep 13 17:10:41 1990
  896. --- CHANGES    Thu Sep 13 14:41:35 1990
  897. ***************
  898. *** 288,290 ****
  899. --- 288,349 ----
  900.            being followed by a line starting with the word "X-Face ". Faces now
  901.            searches for "X-Face:" rather than "X-Face". This really needs to be
  902.            tightened up some more.
  903. + 
  904. + v1.4 - patchlevel 8 - 13th September 1990.
  905. + 
  906. +        * From Mike Khaw <khaw@parcplace.com>
  907. +          From Rod Whitby <rwhitby@austek.oz.au>
  908. +          From John Pritchard <john@latcs1.lat.oz.au>
  909. +          faces v1.4.7 dumps core in make_iconname(). It's doing an strlen
  910. +          on facepath[i] when it could be NULL. This is probably caused
  911. +          when your FACEDIR directory doesn't have a misc./unknown subtree.
  912. + 
  913. +        * From Ian Darwin <ian@sq.com>
  914. +          The x11 driver does not set XA_WM_CLASS, so things that depend
  915. +          on CLASS to operate won't operate properly.
  916. + 
  917. +        * From Greg Rose <greg@softway.sw.oz.au>
  918. +          From Ken Wood <adl.austek.oz.au>
  919. +          faces with both the -MH and -a options together didn't work
  920. +          correctly.
  921. + 
  922. +        * The -v command line option now displays the usage message and exit.
  923. +          The new -? command line option is similar. The usage message is now
  924. +          upto date and also lists the keyboard accelerators.
  925. + 
  926. +        * From John Pritchard <john@latcs1.lat.oz.au>
  927. +          The file netdb.h was included twice if DNSLOOKUP is defined.
  928. + 
  929. +        * From Chris Maltby <chris@softway.sw.oz.au>
  930. +          The window attributes structure with the X11 driver is now zeroised
  931. +          before being used.
  932. + 
  933. +        * From Chris Maltby <chris@softway.sw.oz.au>
  934. +          With the X11 driver, if the icon position hasn't been specified
  935. +          with the -WP option, then the position defaults to the where the
  936. +          right end of the open window would appear.
  937. + 
  938. +        * From Steven M. Miller <miller@SCTC.COM>
  939. +          Under X, when faces is started up in iconic mode nothing is displayed
  940. +          in the icon until the icon is clicked on and opened and then closed
  941. +          again.
  942. + 
  943. +        * From Michael Schmidt <michael@uni-paderborn.de>
  944. +          Perhaps my configuration (SparcStation, SunOS4.0.3, X11R4, twm with
  945. +          ForceIcons, IconManager and IconRegion) is wierd, but... The icon is
  946. +          not placed in the IconRegion, but just at 0x0 (or 1x1, or so). Then I
  947. +          cannot deiconify the icon by a mouse click (all other icons deiconify
  948. +          on a left button click).
  949. + 
  950. +        * From Steven M. Miller <miller@SCTC.COM>
  951. +          faces now recognises -iconic (as well as -Wi) to specify iconic mode.
  952. +          Inverse mode is still -i. The manual page has been updated.
  953. + 
  954. +        * From Ian Darwin <ian@sq.com>
  955. +          faces uses -s <spoolfile> to indicate a different spool file to
  956. +          monitor. How about a -S <spooldir> to indicate a different spool
  957. +          directory? The manual page has been updated.
  958. + 
  959. +        * From Lindsay F. Marshall <Lindsay.Marshall%newcastle.ac.uk@munnari.oz>
  960. +          faces works incorrectly when either the -h <height> or the -w <width>
  961. +          options are given. The image area is not being cleared first.
  962.  
  963.