/[climacs]/climacs/gui.lisp
ViewVC logotype

Diff of /climacs/gui.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.201 by thenriksen, Tue Feb 7 15:21:30 2006 UTC revision 1.202 by thenriksen, Sat Feb 25 10:14:29 2006 UTC
# Line 198  Line 198 
198  (defun climacs-rv (&key new-process (process-name "Climacs")  (defun climacs-rv (&key new-process (process-name "Climacs")
199                  (width 900) (height 400))                  (width 900) (height 400))
200    "Starts up a climacs session"    "Starts up a climacs session"
201     (let ((*bg-color* +black+)    (if new-process
202           (*fg-color* +white+)        (clim-sys:make-process (lambda ()
203           (*info-bg-color* +blue+)                                 (let ((*bg-color* +black+)
204           (*info-fg-color* +yellow+)                                       (*fg-color* +white+)
205           (*mini-bg-color* +black+)                                       (*info-bg-color* +blue+)
206           (*mini-fg-color* +white+))                                       (*info-fg-color* +yellow+)
207       (climacs :new-process new-process :process-name process-name :width width :height height)))                                       (*mini-bg-color* +black+)
208                                         (*mini-fg-color* +white+))
209                                     (climacs :new-process nil :width width :height height)))
210                                 :name process-name)
211          (let ((*bg-color* +black+)
212                (*fg-color* +white+)
213                (*info-bg-color* +blue+)
214                (*info-fg-color* +yellow+)
215                (*mini-bg-color* +black+)
216                (*mini-fg-color* +white+))
217            (climacs :new-process new-process :process-name process-name :width width :height height))))
218    
219  (defun display-info (frame pane)  (defun display-info (frame pane)
220    (declare (ignore frame))    (declare (ignore frame))

Legend:
Removed from v.1.201  
changed lines
  Added in v.1.202

  ViewVC Help
Powered by ViewVC 1.1.5