How to change cursor/pointer colors?

Thread View: gnu.epoch.misc

2 messages

[T] Back to Threads [V] Tree View [G] Group Articles

2 total messages Started by John Vella Mon, 07 Jun 1993 21:04

#866

Author: John Vella
Date: Mon, 07 Jun 1993 21:04

12 lines
1212 bytes

i can't seem to find how to do this by looking through
the info pages.  i am running epoch 4.2 on a sparc10 running 4.1.3,
and using olvwm 3.3 as the window manager.

thanks,
--

+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
    John Vella  ---  Mentor Graphics Corp. Wilsonville, OR
                     email = john_vella@mentorg.com
 "These opinions are mine, but for a price they could be yours"
+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+

How to change cursor/pointer colors?

#867

Author: Iain A F Fleming
Date: Tue, 08 Jun 1993 10:51

55 lines
2628 bytes

>
> i can't seem to find how to do this by looking through
> the info pages.  i am running epoch 4.2 on a sparc10 running 4.1.3,
> and using olvwm 3.3 as the window manager.
>

From my epoch-setup file:

;; --Our foreground colour is (offwhite)
(foreground "#ffe6db")
(foreground "#ffe6db" (epoch::minibuf-screen))
(push '(foreground . "#ffe6db") epoch::screen-properties)

;; --Our background colour is black
(background "black")
(background "black" (epoch::minibuf-screen))
(push '(background . "black") epoch::screen-properties)

;; --Use uparrow intead of pencil
(cursor-glyph 68) 
(cursor-glyph 68 (epoch::minibuf-screen))
(push '(cursor-glyph . 68) epoch::screen-properties)

;; --Use a red pointer, to match all the other windows
(cursor-color "red")  
(cursor-color "red" (epoch::minibuf-screen))
(push '(cursor-color . "red") epoch::screen-properties)

;; --Use a yellow cursor, to be visible
(cursor-background "yellow")  
(cursor-background "yellow" (epoch::minibuf-screen))
(push '(cursor-background . "yellow") epoch::screen-properties)

;; --Use a red letters inside yellow cursor, to be visible
(cursor-foreground "red")  
(cursor-foreground "red" (epoch::minibuf-screen))
(push '(cursor-foreground . "red") epoch::screen-properties)

;; --Use reverse video for highlighting
(setq motion::style (make-style))
(set-style-foreground motion::style "red")
(set-style-background motion::style "yellow")
(set-style-underline motion::style (background))
;; (set-style-background-stipple 
;; motion::style (make-bitmap 4 4 "\167\273\335\356"))

hope this helps.

(BTW, it in the FAQ)
--
     Iain A F Fleming     Numerical Algorithms Group Ltd Oxford UK OX2 8DR
      iainf@nag.co.uk     tel: +44.865.511245 x255   fax: +44.865.310139
  
              ** Fortran-90: The Future of Fortran Here Today **
      ["No more good must be attempted than the people can bear" -Solon]

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads