anton%con.Berkeley.EDU@BERKELEY.EDU (Jeff Anton) (05/29/89)
Since 18.51 mouse color for monocrome X11 screens has not let the user change the mouse color nor would the mouse color change as a result of (x-flip-color). Here are context diffs of x11fns.c and x11term.c Jeff Anton *** x11fns.c.org Fri Feb 24 03:36:01 1989 --- x11fns.c Sun May 28 14:39:05 1989 *************** *** 340,353 **** x_set_cursor_colors () { XColor forec, backc; ! if (XXisColor && mous_color ! && XParseColor (XXdisplay, XXColorMap, mous_color, &forec) ! && XParseColor (XXdisplay, XXColorMap, back_color, &backc)) { ! XRecolorCursor (XXdisplay, EmacsCursor, &forec, &backc); ! return 1; } else return 0; } --- 340,366 ---- x_set_cursor_colors () { XColor forec, backc; + char *useback; ! useback = back_color; ! if (!XXisColor && !strcmp(mous_color, back_color)) ! { ! if (strcmp(back_color, "white")) { ! useback = "white"; } + else + { + useback = "black"; + } + } + if (mous_color + && XParseColor (XXdisplay, XXColorMap, mous_color, &forec) + && XParseColor (XXdisplay, XXColorMap, useback, &backc)) + { + XRecolorCursor (XXdisplay, EmacsCursor, &forec, &backc); + return 1; + } else return 0; } *** x11term.c.org Thu Apr 6 10:45:19 1989 --- x11term.c Sun May 28 13:01:34 1989 *************** *** 2006,2011 **** --- 2006,2016 ---- XXgc_norm = XXgc_rev; XXgc_rev = XXgc_temp; + if (!strcmp (mous_color, "white")) + mous_color = "black"; + else if (!strcmp (mous_color, "black")) + mous_color = "white"; + x_set_cursor_colors (); XRedrawDisplay (); *************** *** 2019,2029 **** curs_color = "white"; } XSetState (XXdisplay, XXgc_curs, back, curs, GXinvert, AllPlanes); - - if (!strcmp (mous_color, "white")) - mous_color = "black"; - else if (!strcmp (mous_color, "black")) - mous_color = "white"; CursorToggle (); XFlush (XXdisplay); --- 2024,2029 ----