Re: Changing editor background color
Thanks David,
Perfect. I probably should have said I am on a Mac, which is not as color friendly as a PC. But now I don't have all that light shining on me.
On Feb 13, 2013, at 2:13 PM, David McClain wrote:
>
> ... here is what I use...
>
> (defun set-pane-background-colors (x)
> (typecase x
> (capi:echo-area-pane
> (setf (capi:simple-pane-background x) (color:make-rgb 1.0 .67 0.67)))
> (capi:collector-pane
> (setf (capi:simple-pane-background x) (color:make-rgb .8 1.0 .8)))
> (capi:listener-pane
> (setf (capi:simple-pane-background x) (color:make-rgb .8 .8 1.0)))
> (capi:editor-pane
> (setf (capi:simple-pane-background x) (color:make-rgb .9 .9 .8)
> ; (capi::simple-pane-foreground x) :black
> ))
> (capi:tab-layout
> (mapcar 'set-pane-background-colors (capi:tab-layout-panes x)))
> ; (capi:output-pane
> ; (setf (capi:simple-pane-background x) :black
> ; (capi::simple-pane-foreground x) :white))
> ))
>
> (let ((*HANDLE-WARN-ON-REDEFINITION* :warn)
> (*redefinition-action* :warn))
> (defmethod capi:interface-display :before ((self lw-tools:listener))
> (capi:map-pane-descendant-children
> self 'set-pane-background-colors))
> (defmethod capi:interface-display :before ((self lw-tools::help-interface))
> (capi:map-pane-descendant-children
> self 'set-pane-background-colors))
> (defmethod capi:interface-display :before ((self lw-tools:editor))
> (capi:map-pane-descendant-children
> self 'set-pane-background-colors))
> (defmethod capi:interface-display :before ((self lw-tools:output-browser))
> (capi:map-pane-descendant-children
> self 'set-pane-background-colors))
> (defmethod capi:interface-display :before ((self lw-tools:shell))
> (capi:map-pane-descendant-children
> self 'set-pane-background-colors))
> (defmethod capi:interface-display :before ((self lw-tools:inspector))
> (capi:map-pane-descendant-children
> self 'set-pane-background-colors))
> )
>
> On Feb 13, 2013, at 15:00 PM, Paul Tarvydas <paultarvydas@gmail.com> wrote:
>
>>
>> On 13-02-13 03:12 PM, Wayne Peterson wrote:
>>> Simple query: Does anyone know how to change the background of editor windows? I get migraines from the bright white backgrounds.
>> I don't know, but in order of ascending silliness:
>>
>> 1. Check the IDE user manual.
>>
>> 2. Check the Editor user manual (esp. commands)
>>
>> 3. Check the Editor source (see editor manual)
>>
>> 4. Open Tools >> Window Browser, find the editor, double-click on its main pane, inspect the internals (use CAPI ref manual to understand the pieces), double-click on things until you get to a leaf node, then right-click >> slots >> set
>>
>> 5. Snip or more wires in your video cable...
>>
>> :-)
>>
>> pt
>>
>> _______________________________________________
>> Lisp Hug - the mailing list for LispWorks users
>> lisp-hug@lispworks.com
>> http://www.lispworks.com/support/lisp-hug.html
>>
>>
>
> Dr. David McClain
> CTO & Co-Founder
> Acudora (TM)
> e-mail: david@acudora.com
> Tel: (+1) 520-529-2437
>
>
>
>
> _______________________________________________
> Lisp Hug - the mailing list for LispWorks users
> lisp-hug@lispworks.com
> http://www.lispworks.com/support/lisp-hug.html
>
_______________________________________________
Lisp Hug - the mailing list for LispWorks users
lisp-hug@lispworks.com
http://www.lispworks.com/support/lisp-hug.html