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

Diff of /climacs/gui.lisp

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

revision 1.202 by thenriksen, Sat Feb 25 10:14:29 2006 UTC revision 1.203 by thenriksen, Sat Feb 25 10:19:09 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      ;; SBCL doesn't inherit dynamic bindings when starting new
202      ;; processes, so start a new processes and THEN setup the colors.
203    (if new-process    (if new-process
204        (clim-sys:make-process (lambda ()        (clim-sys:make-process (lambda ()
205                                 (let ((*bg-color* +black+)                                 (let ((*bg-color* +black+)

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

  ViewVC Help
Powered by ViewVC 1.1.5