Ignore:
Timestamp:
Nov 20, 2007, 3:14:16 PM (14 years ago)
Author:
gz
Message:

A new package and a reorg:

I put all the cocoa-ide files (except for a greatly stripped-down
cocoa.lisp and cocoa-application.lisp) in a new package named "GUI".

The package is defined in defsystem.lisp, which also defines a
function to load all the files explicitly, putting the fasls in
cocoa-ide;fasls; I stripped out all pretense that the files can or
should be loaded individually. Also, it is no longer necessary or
appropriate to compile hemlock separately, as it now compiles as
needed as part of the normal loading sequence. (Over time I am hoping
to get hemlock more and more integrated into the IDE, and having to
maintain it as if it still were a separate package is an unnecessary
burden).

Updated the README file appropriately.

File:
1 edited

Legend:

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

    r7642 r7698  
    1 ; -*- Mode: Lisp; Package: CCL; -*-
     1; -*- Mode: Lisp; Package: GUI; -*-
    22
    3 (in-package "CCL")
    4 
    5 (eval-when (:compile-toplevel :execute)
    6   (use-interface-dir :cocoa))
     3(in-package "GUI")
    74
    85(defclass sequence-window-controller (ns:ns-window-controller)
     
    10198                 (%make-nsstring (native-translated-namestring pathname))))
    10299
     100(defun cgfloat (number)
     101  (float number ccl::+cgfloat-zero+))
     102
    103103(defun color-values-to-nscolor (red green blue alpha)
    104104  (#/colorWithCalibratedRed:green:blue:alpha: ns:ns-color
    105                                               (float red +cgfloat-zero+)
    106                                               (float green +cgfloat-zero+)
    107                                               (float blue +cgfloat-zero+)
    108                                               (float alpha +cgfloat-zero+)))
     105                                              (cgfloat red)
     106                                              (cgfloat green)
     107                                              (cgfloat blue)
     108                                              (cgfloat alpha)))
    109109
    110110(defun windows ()
Note: See TracChangeset for help on using the changeset viewer.