home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / x / volume19 / wclock / patch01 next >
Encoding:
Text File  |  1993-04-28  |  14.9 KB  |  526 lines
  1. Newsgroups: comp.sources.x
  2. From: R.Caley@ed.ac.uk (Richard Caley)
  3. Subject: v19i001:  wclock - Wclock - another X clock, Patch01
  4. Message-ID: <1993Mar4.160446.16453@sparky.imd.sterling.com>
  5. X-Md4-Signature: dece884eddf8d0e4c93245e1c9e9b73c
  6. Date: Thu, 4 Mar 1993 16:04:46 GMT
  7. Approved: chris@sparky.imd.sterling.com
  8.  
  9. Submitted-by: R.Caley@ed.ac.uk (Richard Caley)
  10. Posting-number: Volume 19, Issue 1
  11. Archive-name: wclock/patch01
  12. Environment: X11
  13. Patch-To: wclock: Volume 18, Issue 11-14
  14.  
  15. Here is a patch to wclock (Volume 18, Issue 11).  It's main purpose is
  16. to put in a couple of missing declarations which were causing protocol
  17. errors sometimes, especially under R5.  It also removes a compilation
  18. problem with R5, adds some support for servers which don't have the
  19. shape extension improves the Imakefile and fixes a few typos and bad
  20. habits. See the patched README for credits. Apologies if I missed
  21. anyone out. 
  22.  
  23.  
  24.  --- 8< --- 8< --- 8< --- CUT HERE  --- 8< --- 8< --- 8< --- 
  25. ===================================================================
  26. RCS file: RCS/Imakefile,v
  27. retrieving revision 1.1
  28. diff -c -r1.1 Imakefile
  29. *** /tmp/RCSAa26520    Fri Jul 31 16:00:58 1992
  30. --- Imakefile    Fri Jul 31 16:05:55 1992
  31. ***************
  32. *** 6,11 ****
  33. --- 6,14 ----
  34.   
  35.   SRCS=  wclock.c Wclock.c Outline.c
  36.   OBJS=  wclock.o Wclock.o Outline.o
  37. + BITMAPS = eye.mask eye.mask1 eye.xbm rose.mask rose.xbm
  38.   
  39.   ComplexProgramTarget(wclock)
  40.   InstallAppDefaults(Wclock)
  41. + InstallMultiple($(BITMAPS),$(INCDIR)/bitmaps)
  42. + 
  43. ===================================================================
  44. RCS file: RCS/Makefile.std,v
  45. retrieving revision 1.1
  46. diff -c -r1.1 Makefile.std
  47. *** /tmp/RCSAa26520    Fri Jul 31 16:00:58 1992
  48. --- Makefile.std    Fri Jul 31 16:05:55 1992
  49. ***************
  50. *** 26,31 ****
  51. --- 26,34 ----
  52.   DEFINES=-DSHAPE
  53.   CDEBUGFLAGS=-O
  54.   
  55. + # add -Bstatic if you get link errors about get_wmShellWidgetClass
  56. + #    in open windows. 
  57. + 
  58.   CFLAGS= $(CDEBUGFLAGS) $(DEFINES) $(INCLUDE_DIRS) $(LIB_DIRS)
  59.   
  60.   wclock: $(WCLOCK_OBJ)
  61. ===================================================================
  62. RCS file: RCS/OutlineP.h,v
  63. retrieving revision 1.1
  64. diff -c -r1.1 OutlineP.h
  65. *** /tmp/RCSAa26520    Fri Jul 31 16:00:59 1992
  66. --- OutlineP.h    Fri Jul 31 16:05:56 1992
  67. ***************
  68. *** 31,37 ****
  69.   
  70.   #include "Outline.h"
  71.   
  72. ! #define XtNbitmap    "bitmap"
  73.   #define XtNcircle    "circle"
  74.   #define XtNnoOutline "none"
  75.   
  76. --- 31,39 ----
  77.   
  78.   #include "Outline.h"
  79.   
  80. ! #ifndef XtNbitmap
  81. ! #    define XtNbitmap    "bitmap"
  82. ! #endif
  83.   #define XtNcircle    "circle"
  84.   #define XtNnoOutline "none"
  85.   
  86. ===================================================================
  87. RCS file: RCS/README,v
  88. retrieving revision 1.2
  89. diff -c -r1.2 README
  90. *** /tmp/RCSAa26520    Fri Jul 31 16:01:00 1992
  91. --- README    Fri Jul 31 16:05:57 1992
  92. ***************
  93. *** 7,22 ****
  94.   piece. I, being strange, actually do use it.
  95.   
  96.   There are three sets of defaults in the application defaults file,
  97. ! the two non-default sets are named roseClock and eyeClock
  98.   
  99. ! It should work as is.  Just make it and install the defaults (or stick
  100. ! them in your Xdefaults). The more interesting behaviour depends on the
  101. ! MIT Shape extension, so if you haven't got that you will be stuck with
  102. ! a boring clock. It is a good idea to make sure your window manager
  103. ! doesn't decorate the clock as this (a) spoils the effect and (b)
  104. ! causes the WM (well, tvtwm at least) to get very frustrated
  105. ! redecorating when the clock reshapes itself.
  106.   
  107.   Start it as
  108.       wclock -debug 60 -update 5
  109.   
  110. --- 7,29 ----
  111.   piece. I, being strange, actually do use it.
  112.   
  113.   There are three sets of defaults in the application defaults file,
  114. ! the two non-default sets are named roseClock and eyeClock. 
  115.   
  116. ! It should work as is.  If you have it, do xmkmf and then make,
  117. ! otherwise edit Makefile.std to set things up for your site and make
  118. ! using that. Make sure you install the application defaults file since
  119. ! wclock has quite an interesting one. Also install the bitmaps
  120. ! somewhere. OpenWidows 3.0 people might need to link wclock statically
  121. ! since there seem to be a couple of unresolvable references in the Xmu
  122. ! sharable library. 
  123.   
  124. + The more interesting behaviour depends on the MIT Shape extension, so
  125. + if you haven't got that you will be stuck with a boring clock. It is a
  126. + good idea to make sure your window manager doesn't decorate the clock
  127. + as this (a) spoils the effect and (b) causes the WM (well, tvtwm at
  128. + least) to get very frustrated redecorating when the clock reshapes
  129. + itself.
  130. + 
  131.   Start it as
  132.       wclock -debug 60 -update 5
  133.   
  134. ***************
  135. *** 31,36 ****
  136. --- 38,46 ----
  137.   
  138.   to see what else is possible.
  139.   
  140. + Credits
  141. + =======
  142. + 
  143.   Having read and taken to heart Henry Spencer's advice on not reinventing
  144.   wheels, I produced wclock by cannibalising bits of xclock, xcal and
  145.   xbiff. Kudos to those who did the hard bits (see manual page).
  146. ***************
  147. *** 39,45 ****
  148.   have had them for a while and don't know who originally did them.  The
  149.   eye belongs to Kate Bush, in case you're interested. 
  150.   
  151. !     - Richard Caley
  152.   
  153.   --
  154.   R.Caley@ed.ac.uk            _O_
  155. --- 49,83 ----
  156.   have had them for a while and don't know who originally did them.  The
  157.   eye belongs to Kate Bush, in case you're interested. 
  158.   
  159. ! The following people told me how to fix problems.
  160. ! 
  161. !     Simon Leinen
  162. !     paolo petta
  163. !     Peter Miller
  164. !     
  165. ! Changes
  166. ! =======
  167. ! 
  168. ! Simon Leinen, paolo petta, RJC:
  169. !     Put back some missing initialisations in WClock.c
  170. ! 
  171. ! Simon Leinen:
  172. !     Added bitmap install rules to Imakefile (Simon Leinen)
  173. !     Extra checks in WClock before freeing things.
  174. !     Added cast to Ansify it a little.
  175. ! 
  176. ! RJC:
  177. !     Check for shape extension at run time.
  178. !     Sorted out some confusions between NULL,NULLQUARK and None.
  179. !     Checked if XtNbitmap was already defined.
  180. !     Put in some basic support for servers without the shape extension.
  181. ! 
  182. ! Patchlevel1
  183. ! -----------
  184. ! 
  185. ! RJC:
  186. !     Fixed colour behaviour and corrected some spelling errors in the
  187. !     documentation. 
  188.   
  189.   --
  190.   R.Caley@ed.ac.uk            _O_
  191. ===================================================================
  192. RCS file: RCS/Wclock.c,v
  193. retrieving revision 1.2
  194. diff -c -r1.2 Wclock.c
  195. *** /tmp/RCSAa26520    Fri Jul 31 16:01:00 1992
  196. --- Wclock.c    Fri Jul 31 16:05:57 1992
  197. ***************
  198. *** 46,52 ****
  199.   
  200.   extern long time();
  201.   static void Wclock_tic(), draw_segment();
  202. !     
  203.   /* Private Definitions */
  204.   
  205.   #define PI            3.14159265358979
  206. --- 46,52 ----
  207.   
  208.   extern long time();
  209.   static void Wclock_tic(), draw_segment();
  210. ! 
  211.   /* Private Definitions */
  212.   
  213.   #define PI            3.14159265358979
  214. ***************
  215. *** 60,65 ****
  216. --- 60,67 ----
  217.   #define min(a, b) ((a) < (b) ? (a) : (b))
  218.   #define abs(a) ((a) < 0 ? -(a) : (a))
  219.   
  220. + static int haveShape=False;
  221. + static int ShapeEventBase, ShapeErrorBase;
  222.   
  223.   /* Initialization of defaults */
  224.   
  225. ***************
  226. *** 133,139 ****
  227.       /* num_actions        */    0,
  228.       /* resources        */    resources,
  229.       /* resource_count        */    XtNumber(resources),
  230. !     /* xrm_class        */    NULL,
  231.       /* compress_motion        */    TRUE,
  232.       /* compress_exposure    */    TRUE,
  233.       /* compress_enterleave    */    TRUE,
  234. --- 135,141 ----
  235.       /* num_actions        */    0,
  236.       /* resources        */    resources,
  237.       /* resource_count        */    XtNumber(resources),
  238. !     /* xrm_class        */    NULLQUARK,
  239.       /* compress_motion        */    TRUE,
  240.       /* compress_exposure    */    TRUE,
  241.       /* compress_enterleave    */    TRUE,
  242. ***************
  243. *** 170,175 ****
  244. --- 172,178 ----
  245.               NULL, 0 );
  246.       XtAddConverter( XtRString, XtROutline, OutlineConverter,
  247.               NULL, 0 );
  248. + 
  249.   }
  250.   
  251.   /* ARGSUSED */
  252. ***************
  253. *** 184,189 ****
  254. --- 187,196 ----
  255.   
  256.       valuemask = GCForeground | GCBackground | GCLineWidth |GCFunction;
  257.   
  258. + #ifdef SHAPE
  259. +     if (!haveShape)
  260. +     haveShape=XShapeQueryExtension (dpy, &ShapeEventBase, &ShapeErrorBase);
  261. + #endif
  262.   
  263.       if ( w->Wclock.backgroundBitmap != None )
  264.           {
  265. ***************
  266. *** 223,228 ****
  267. --- 230,239 ----
  268.   
  269.       w->Wclock.invertGC = NULL;
  270.   
  271. +     w->Wclock.outlinePM = None;
  272. + 
  273. +     w->Wclock.segmentPM = None;
  274. + 
  275.       if (w->Wclock.update <= 0)
  276.       w->Wclock.update = 60;    /* make invalid update's use a default */
  277.       w->Wclock.interval_id = 0;
  278. ***************
  279. *** 268,275 ****
  280.        XtDestroyGC (w->Wclock.unsetGC);
  281.        if (w->Wclock.invertGC != NULL)
  282.        XtDestroyGC (w->Wclock.invertGC);
  283. !      XFreePixmap (dpy, w->Wclock.segmentPM);
  284. !      XFreePixmap (dpy, w->Wclock.outlinePM);
  285.   }
  286.   
  287.   
  288. --- 279,288 ----
  289.        XtDestroyGC (w->Wclock.unsetGC);
  290.        if (w->Wclock.invertGC != NULL)
  291.        XtDestroyGC (w->Wclock.invertGC);
  292. !      if (w->Wclock.segmentPM != None)
  293. !      XFreePixmap (dpy, w->Wclock.segmentPM);
  294. !      if (w->Wclock.outlinePM != None)
  295. !      XFreePixmap (dpy, w->Wclock.outlinePM);
  296.   }
  297.   
  298.   
  299. ***************
  300. *** 451,456 ****
  301. --- 464,471 ----
  302.   Window win=XtWindow(w);
  303.   int x=0, y=0;
  304.   
  305. + if (haveShape)
  306. +     {
  307.   #ifdef SHAPE
  308.       XShapeCombineMask (XtDisplay(w), win,
  309.                  ShapeBounding, x, y, 
  310. ***************
  311. *** 457,463 ****
  312.                  outline,
  313.                  ShapeSet);
  314.   
  315. !     if (additional != NULL)
  316.       XShapeCombineMask (XtDisplay(w), win,
  317.                  ShapeBounding, x, y, 
  318.                  additional,
  319. --- 472,478 ----
  320.                  outline,
  321.                  ShapeSet);
  322.   
  323. !     if (additional != None)
  324.       XShapeCombineMask (XtDisplay(w), win,
  325.                  ShapeBounding, x, y, 
  326.                  additional,
  327. ***************
  328. *** 477,483 ****
  329.                  outline,
  330.                  ShapeSet);
  331.   
  332. !     if (additional != NULL)
  333.           XShapeCombineMask (XtDisplay(parent), XtWindow(parent),
  334.                      ShapeBounding, x, y, 
  335.                      additional,
  336. --- 492,498 ----
  337.                  outline,
  338.                  ShapeSet);
  339.   
  340. !     if (additional != None)
  341.           XShapeCombineMask (XtDisplay(parent), XtWindow(parent),
  342.                      ShapeBounding, x, y, 
  343.                      additional,
  344. ***************
  345. *** 484,489 ****
  346. --- 499,536 ----
  347.                      ShapeIntersect);
  348.       }
  349.   #endif
  350. +     }
  351. + else
  352. +     {
  353. +     Pixmap bg;
  354. + 
  355. +     if ((bg=XCreatePixmap(XtDisplay(w), win,
  356. +              w->core.width,
  357. +              w->core.height,
  358. +              1))==None)
  359. +     return;
  360. + 
  361. +     XFillRectangle(XtDisplay(w), bg, w->Wclock.setGC,
  362. +            0, 0, w->core.width, w->core.height);
  363. + 
  364. +     if (additional)
  365. +     XSetClipMask(XtDisplay(w), w->Wclock.unsetGC, additional);
  366. +     
  367. +     XCopyPlane(XtDisplay(w), outline, bg, w->Wclock.unsetGC,
  368. +            0, 0, w->core.width, w->core.height,0,0,1);
  369. + 
  370. +     if (additional)
  371. +     XSetClipMask(XtDisplay(w), w->Wclock.unsetGC, None);
  372. + 
  373. +     XSetClipMask(XtDisplay(w), w->Wclock.EraseGC, bg);
  374. + 
  375. +     XFillRectangle(XtDisplay(w), win, w->Wclock.EraseGC,
  376. +            0, 0, w->core.width, w->core.height);
  377. +     
  378. +     XSetClipMask(XtDisplay(w), w->Wclock.EraseGC, None);
  379. + 
  380. +     XFreePixmap(XtDisplay(w),bg);
  381. +     }
  382.   }
  383.   
  384.   static void Resize (gw) 
  385. ***************
  386. *** 500,509 ****
  387.           w->Wclock.centerX = w->core.width / 2;
  388.           w->Wclock.centerY = w->core.height / 2;
  389.   
  390. !     if (w->Wclock.segmentPM != NULL)
  391.           XFreePixmap (dpy, w->Wclock.segmentPM);
  392.   
  393. !     if (w->Wclock.outlinePM != NULL )
  394.           XFreePixmap (dpy, w->Wclock.outlinePM);
  395.   
  396.       w->Wclock.segmentPM = XCreatePixmap(dpy, win,
  397. --- 547,556 ----
  398.           w->Wclock.centerX = w->core.width / 2;
  399.           w->Wclock.centerY = w->core.height / 2;
  400.   
  401. !     if (w->Wclock.segmentPM != None)
  402.           XFreePixmap (dpy, w->Wclock.segmentPM);
  403.   
  404. !     if (w->Wclock.outlinePM != None )
  405.           XFreePixmap (dpy, w->Wclock.outlinePM);
  406.   
  407.       w->Wclock.segmentPM = XCreatePixmap(dpy, win,
  408. ***************
  409. *** 589,595 ****
  410.           tm.tm_hour -= 12;
  411.   
  412.       
  413. !     if (tm.tm_min != w->Wclock.otm.tm_min ||
  414.           tm.tm_hour != w->Wclock.otm.tm_hour) 
  415.           {
  416.           int twelvemins = tm.tm_min / 12; /* how many fifths of an hour */
  417. --- 636,642 ----
  418.           tm.tm_hour -= 12;
  419.   
  420.       
  421. !     if (!id|| tm.tm_min != w->Wclock.otm.tm_min ||
  422.           tm.tm_hour != w->Wclock.otm.tm_hour) 
  423.           {
  424.           int twelvemins = tm.tm_min / 12; /* how many fifths of an hour */
  425. ***************
  426. *** 613,619 ****
  427.           if ( w->Wclock.plotSegment )
  428.           {
  429.           XClearWindow(dpy, win);
  430. !         draw_segment(dpy, win, w->Wclock.setGC,
  431.                    w->Wclock.centerX,
  432.                    w->Wclock.centerY,
  433.                    CONVERT_A(tm.tm_hour * TWOPI/12 + twelvemins * TWOPI/60),
  434. --- 660,666 ----
  435.           if ( w->Wclock.plotSegment )
  436.           {
  437.           XClearWindow(dpy, win);
  438. !         draw_segment(dpy, win, w->Wclock.EraseGC,
  439.                    w->Wclock.centerX,
  440.                    w->Wclock.centerY,
  441.                    CONVERT_A(tm.tm_hour * TWOPI/12 + twelvemins * TWOPI/60),
  442. ***************
  443. *** 777,783 ****
  444.         if (new->Wclock.update != current->Wclock.update) {
  445.         if (current->Wclock.interval_id)
  446.             XtRemoveTimeOut (current->Wclock.interval_id);
  447. !       if (XtIsRealized(new))
  448.             new->Wclock.interval_id = XtAppAddTimeOut( 
  449.                                            XtWidgetToApplicationContext(gnew),
  450.                        new->Wclock.update*1000,
  451. --- 824,830 ----
  452.         if (new->Wclock.update != current->Wclock.update) {
  453.         if (current->Wclock.interval_id)
  454.             XtRemoveTimeOut (current->Wclock.interval_id);
  455. !       if (XtIsRealized((Widget)new))
  456.             new->Wclock.interval_id = XtAppAddTimeOut( 
  457.                                            XtWidgetToApplicationContext(gnew),
  458.                        new->Wclock.update*1000,
  459. ===================================================================
  460. RCS file: RCS/patchlevel.h,v
  461. retrieving revision 1.2
  462. diff -c -r1.2 patchlevel.h
  463. *** /tmp/RCSAa26520    Fri Jul 31 16:01:02 1992
  464. --- patchlevel.h    Fri Jul 31 16:06:00 1992
  465. ***************
  466. *** 3,6 ****
  467.    * version tracking.
  468.    */
  469.   
  470. ! #define PATCHLEVEL 1
  471. --- 3,6 ----
  472.    * version tracking.
  473.    */
  474.   
  475. ! #define PATCHLEVEL 2
  476. ===================================================================
  477. RCS file: RCS/wclock.c,v
  478. retrieving revision 1.2
  479. diff -c -r1.2 wclock.c
  480. *** /tmp/RCSAa26520    Fri Jul 31 16:01:04 1992
  481. --- wclock.c    Fri Jul 31 16:06:01 1992
  482. ***************
  483. *** 139,144 ****
  484. --- 139,145 ----
  485.       (void) XSetWMProtocols (XtDisplay(toplevel), XtWindow(toplevel),
  486.                   &wm_delete_window, 1);
  487.       XtAppMainLoop (app_con);
  488. +     exit(0);
  489.   }
  490.   
  491.   
  492. ===================================================================
  493. RCS file: RCS/wclock.man,v
  494. retrieving revision 1.2
  495. diff -c -r1.2 wclock.man
  496. *** /tmp/RCSAa26520    Fri Jul 31 16:01:04 1992
  497. --- wclock.man    Fri Jul 31 16:06:02 1992
  498. ***************
  499. *** 9,15 ****
  500.          [-extoutline \fIoutline\fR] [-intoutline \fIoutline\fR]
  501.          [-extbitmap \fIbitmap\fR] [-intbitmap \fIbitmap\fR]
  502.          [-extpercent \fIint\fR] [-intpercent \fIint\fR]
  503. !        [-slicewidth \fIsec\fR] [-slicespace \fIsec\fR] [-sliceofset \fIsec\fR]
  504.          [-update \fIseconds\fR] [-bitmap \fIbitmap\fR]
  505.   
  506.   .SH DESCRIPTION
  507. --- 9,15 ----
  508.          [-extoutline \fIoutline\fR] [-intoutline \fIoutline\fR]
  509.          [-extbitmap \fIbitmap\fR] [-intbitmap \fIbitmap\fR]
  510.          [-extpercent \fIint\fR] [-intpercent \fIint\fR]
  511. !        [-slicewidth \fIsec\fR] [-slicespace \fIsec\fR] [-sliceoffset \fIsec\fR]
  512.          [-update \fIseconds\fR] [-bitmap \fIbitmap\fR]
  513.   
  514.   .SH DESCRIPTION
  515. ===================================================================
  516.  
  517.  
  518.  --- 8< --- 8< --- 8< --- CUT HERE  --- 8< --- 8< --- 8< --- 
  519.  
  520. exit 0 # Just in case...
  521. -- 
  522.   // chris@IMD.Sterling.COM            | Send comp.sources.x submissions to:
  523. \X/  Amiga - The only way to fly!      |
  524.  "It's intuitively obvious to the most |    sources-x@imd.sterling.com
  525.   casual observer..."                  |
  526.