/[mcclim]/mcclim/package.lisp
ViewVC logotype

Diff of /mcclim/package.lisp

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

revision 1.9 by rouanet, Thu Jul 12 12:26:21 2001 UTC revision 1.10 by mikemac, Sat Jul 21 17:01:28 2001 UTC
# Line 3  Line 3 
3  (in-package :common-lisp-user)  (in-package :common-lisp-user)
4    
5    
 (defpackage "CLIM-EXTENSIONS"  
   (:use :common-lisp)  
   (:export  
    "RAISED-PANE" "RAISING"  
    "DRAW-GLYPH" "DEVICE-FONT-TEXT-STYLE-P"  
    "READ-IMAGE-FILE"  
    "IMAGE" "IMAGE-COLOR" "IMAGE-GADGET" "IMAGE-HEIGHT"  
    "IMAGE-PIXEL" "IMAGE-PIXELS" "IMAGE-WIDTH"  
    "RGB-IMAGE"  
    "GRAY-LEVEL-IMAGE" "256-GRAY-LEVEL-IMAGE" "MAKE-256-GRAY-LEVEL-IMAGE"  
    "GRAY-IMAGE-MIN-LEVEL" "GRAY-IMAGE-MIN-LEVEL"  
    "TRUECOLOR-IMAGE" "MAKE-TRUECOLOR-IMAGE" "MAKE-3X256-COLOR-IMAGE"  
    "COLOR-IMAGE-MIN-LEVEL" "COLOR-IMAGE-MAX-LEVEL"  
    "BINARY-IMAGE" "MAKE-BINARY-IMAGE"  
    "COLORMAP-IMAGE"  
    "SPECTRAL-IMAGE"  
    "DRAW-IMAGE"  
    "IMAGE-PANE"  
    "DRAW-LABEL"  
    "COMPOSE-SPACE-AUX"))  
   
6  (defpackage "CLIM-INTERNALS"  (defpackage "CLIM-INTERNALS"
7    (:use #+clisp :clos #+excl :stream :common-lisp)    (:use #+clisp :clos #+excl :stream :common-lisp)
   (:use "CLIM-EXTENSIONS")  
8    (:nicknames :climi)    (:nicknames :climi)
9    #+excl(:import-from :excl compile-system load-system)    #+excl(:import-from :excl compile-system load-system)
10    #+(or cmu sbcl)    #+(or cmu sbcl)
# Line 1562  Line 1540 
1540    (do-external-symbols (sym climi-package)    (do-external-symbols (sym climi-package)
1541      (export sym clim-package)))      (export sym clim-package)))
1542    
1543    (defpackage "CLIM-EXTENSIONS"
1544      (:use :clim :common-lisp)
1545      (:export
1546       "RAISED-PANE" "RAISING"
1547       "DRAW-GLYPH" "DEVICE-FONT-TEXT-STYLE-P"
1548       "READ-IMAGE-FILE"
1549       "IMAGE" "IMAGE-COLOR" "IMAGE-GADGET" "IMAGE-HEIGHT"
1550       "IMAGE-PIXEL" "IMAGE-PIXELS" "IMAGE-WIDTH"
1551       "RGB-IMAGE"
1552       "GRAY-LEVEL-IMAGE" "256-GRAY-LEVEL-IMAGE" "MAKE-256-GRAY-LEVEL-IMAGE"
1553       "GRAY-IMAGE-MIN-LEVEL" "GRAY-IMAGE-MIN-LEVEL"
1554       "TRUECOLOR-IMAGE" "MAKE-TRUECOLOR-IMAGE" "MAKE-3X256-COLOR-IMAGE"
1555       "COLOR-IMAGE-MIN-LEVEL" "COLOR-IMAGE-MAX-LEVEL"
1556       "BINARY-IMAGE" "MAKE-BINARY-IMAGE"
1557       "COLORMAP-IMAGE"
1558       "SPECTRAL-IMAGE"
1559       "DRAW-IMAGE"
1560       "IMAGE-PANE"
1561       "DRAW-LABEL"
1562       "COMPOSE-SPACE-AUX"))
1563    
1564  (defpackage :CLIM-DEMO  (defpackage :CLIM-DEMO
1565    (:use :clim-extensions :clim :common-lisp)    (:use :clim-extensions :clim :common-lisp)
1566    #+excl(:import-from :excl compile-system load-system exit)    #+excl(:import-from :excl compile-system load-system exit)

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

  ViewVC Help
Powered by ViewVC 1.1.5