Ignore:
Timestamp:
Jan 8, 2008, 8:39:43 PM (13 years ago)
Author:
gz
Message:

Assume 1 special arg for any form starting with "with-". Remove a bunch of
now-redundant defindent's for well-behaved with-xxx forms.

Remove some unteresting #+cmu code, change #+openmcl => #+clozure in a few places.

Make alpha value be optional in gui::color-values-to-nscolor

Remove bindings-gb.lisp (moving the two bindings it contained into
bindings.lisp).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/event-ide/ccl/cocoa-ide/cocoa-utils.lisp

    r7911 r8029  
    102102  (float number ccl::+cgfloat-zero+))
    103103
    104 (defun color-values-to-nscolor (red green blue alpha)
     104(defun color-values-to-nscolor (red green blue &optional alpha)
    105105  (#/colorWithCalibratedRed:green:blue:alpha: ns:ns-color
    106106                                              (cgfloat red)
    107107                                              (cgfloat green)
    108108                                              (cgfloat blue)
    109                                               (cgfloat alpha)))
     109                                              (cgfloat (or alpha 1.0))))
    110110
    111111(defun windows ()
Note: See TracChangeset for help on using the changeset viewer.