[1664] in Athena Bugs
(RTPC) Version 6.0R: more uwm patches
daemon@ATHENA.MIT.EDU (Jonathan I. Kamens)
Mon Jan 16 01:37:24 1989
Date: Mon, 16 Jan 89 01:37:07 EST
From: Jonathan I. Kamens <jik@ATHENA.MIT.EDU>
To: bugs@ATHENA.MIT.EDU
System type, version: (RTPC) Version 6.0R
System name: pit-manager
What's wrong:
I missed one file that needed to be patched for color cursors in uwm:
--> Jonathan Kamens
Project Athena Watchmaker
SIPB (Student Information Processing Board) Member
Volunteer OLC Consultant
jik@ATHENA.MIT.EDU
*** RubberBand.c.orig Mon Jan 16 01:36:23 1989
--- RubberBand.c Mon Jan 16 01:34:54 1989
***************
*** 1,4 ****
! /* $Header: RubberBand.c,v 1.1 89/01/16 01:12:16 jik Exp $ */
/* derived from XCreateTerm.c */
#include <X11/copyright.h>
--- 1,4 ----
! /* $Header: RubberBand.c,v 1.2 89/01/16 01:34:47 jik Exp $ */
/* derived from XCreateTerm.c */
#include <X11/copyright.h>
***************
*** 32,37 ****
--- 32,39 ----
* 000 -- Loretta Guarino Reid, DEC Ultrix Engineering Group
* 001 -- Ralph R. Swick, DEC/MIT Project Athena
* tailor to uwm; use global resources created by uwm
+ * 002 -- Jonathan Kamens, MIT Project Athena -- Modifications for
+ * color cursors
*/
#include "uwm.h"
***************
*** 120,125 ****
--- 122,142 ----
ul = XCreateFontCursor(dpy, XC_ul_angle);
ll = XCreateFontCursor(dpy, XC_ll_angle);
lr = XCreateFontCursor(dpy, XC_lr_angle);
+ /*
+ * Color cursors
+ */
+ {
+ XColor fore_cursor, back_cursor;
+ fore_cursor.pixel = CursorPixel;
+ back_cursor.pixel = PBackground;
+ XQueryColor(dpy, DefaultColormap(dpy, scr), &fore_cursor);
+ XQueryColor(dpy, DefaultColormap(dpy, scr), &back_cursor);
+ XRecolorCursor(dpy, ur, &fore_cursor, &back_cursor);
+ XRecolorCursor(dpy, ul, &fore_cursor, &back_cursor);
+ XRecolorCursor(dpy, ll, &fore_cursor, &back_cursor);
+ XRecolorCursor(dpy, lr, &fore_cursor, &back_cursor);
+ }
+
current_cursor = ul;
events = ButtonPressMask | ButtonReleaseMask;
