Re: change editor background color / color themes for lispworks ide

Dear Raymond,

GREAT! thanx, you made my day!

best regards

    okflo

Raymond C Laning wrote:
> Hello Otto,
>
> you might try, in your .lispworks init file,
>
> (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:editor))
>     (capi:map-pane-descendant-children
>      self 'set-pane-background-colors))
>   )
>
> You of course will want different rgb values, and you might want to modify
> the foregrounds as well.
>
> Raymond Laning
> Principal Systems Engineer
> 520-794-7924
>
>
>                                                                            
>                                                                            
>              Otto Diesenbacher                                             
>              <diesenbacher@gma                                             
>              il.com>                                                    To 
>              Sent by:                  lisp-hug@lispworks.com              
>              owner-lisp-hug@li                                          cc 
>              spworks.com                                                   
>                                                                    Subject 
>                                        change editor background color /    
>              11/18/2008 09:01          color themes for lispworks ide      
>              AM                                                            
>                                                                            
>                                                                            
>              Please respond to                                             
>              Otto Diesenbacher                                             
>              <diesenbacher@gma                                             
>                   il.com>                                                  
>                                                                            
>                                                                            
>                                                                            
>
>
>
>
>
> Dear Lispers,
>
> as I fall more and more in love with the lispworks IDE :), just one
> need remains: :)
>
> I prefer a dark background and light fonts, but it seems impossible in
> Windows and MacOS to change the background-color of the Editor out of
> the box?
>
> As a workaround in Windows I changed via Desktop-Properties the
> appareance of the whole Windows Color-Scheme, but that makes other
> applications partly unusable and ugly...
>
> For MacOS I haven't found any solution.
>
> Does anyone of you already have any solutions? Or can you give any
> hints? Are there any hacks like color-themes for emacs?
>
> best regards
>
>     okflo
>
>
>
>
>
>
>
>