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

Diff of /climacs/gui.lisp

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

revision 1.209 by crhodes, Mon Mar 27 15:54:31 2006 UTC revision 1.210 by thenriksen, Mon May 1 18:36:41 2006 UTC
# Line 203  Line 203 
203    "Starts up a climacs session"    "Starts up a climacs session"
204    ;; SBCL doesn't inherit dynamic bindings when starting new    ;; SBCL doesn't inherit dynamic bindings when starting new
205    ;; processes, so start a new processes and THEN setup the colors.    ;; processes, so start a new processes and THEN setup the colors.
206    (if new-process    (flet ((run ()
207        (clim-sys:make-process (lambda ()             (let ((*bg-color* +black+)
208                                 (let ((*bg-color* +black+)                   (*fg-color* +gray+)
209                                       (*fg-color* +white+)                   (*info-bg-color* +darkslategray+)
210                                       (*info-bg-color* +blue+)                   (*info-fg-color* +gray+)
211                                       (*info-fg-color* +yellow+)                   (*mini-bg-color* +black+)
212                                       (*mini-bg-color* +black+)                   (*mini-fg-color* +white+))
213                                       (*mini-fg-color* +white+))               (climacs :new-process nil :width width :height height))))
214                                   (climacs :new-process nil :width width :height height)))      (if new-process
215                               :name process-name)        (clim-sys:make-process #'run :name process-name)
216        (let ((*bg-color* +black+)        (run))))
             (*fg-color* +white+)  
             (*info-bg-color* +blue+)  
             (*info-fg-color* +yellow+)  
             (*mini-bg-color* +black+)  
             (*mini-fg-color* +white+))  
         (climacs :new-process new-process :process-name process-name :width width :height height))))  
217    
218  (defun display-info (frame pane)  (defun display-info (frame pane)
219    (let* ((master-pane (master-pane pane))    (let* ((master-pane (master-pane pane))

Legend:
Removed from v.1.209  
changed lines
  Added in v.1.210

  ViewVC Help
Powered by ViewVC 1.1.5