;; Start Clozure CL
;; 04/24/09 Alexander Repenning
;; for CCL 1.3

(in-package :cl-user)

;***************** Settings

;; edit to point to root folder containing /sources  /resources  etc.
(setf (logical-pathname-translations "lui")
      '(("**;*.*" "home:documents;products;**;")))


(setq gui::*paren-highlight-background-color*
      (#/retain (#/colorWithCalibratedRed:green:blue:alpha: ns:ns-color 0.9 0.8 0.8 1.0)))

;; Load

;; IDE

(load "lui:sources;IDE;specific;Mac CCL;anticipat-symbol-complete")
(load "lui:sources;IDE;specific;Mac CCL;ns timer")
(load "lui:sources;IDE;specific;Mac CCL;hemlock extensions")


;; Open

(ed "lui:sources;XLUI;examples;test case examples.lisp")
;; (ed "lui:sources;XLUI;examples;AgentCubes Design.lisp")

(ed "lui:sources;Lisp User Interface;LUI.lisp")
(ed "lui:sources;Lisp User Interface;specific;Mac CCL;LUI Cocoa.lisp")


;;****** OpenGL

(defpackage :OPENGL
  (:use :common-lisp))

(load "lui:sources;OpenGL;specific;Mac CCL;OpenGL-interface")

;;****** LUI

(defpackage :LUI
  (:use :common-lisp :ccl :opengl)
  (:export 
   "MOUSE-EVENT" "COMMAND-KEY-P" "SHIFT-KEY-P" "ALT-KEY-P" "CONTROL-KEY-P"
   "WINDOW" "VIEW" "X" "Y" "WIDTH" "HEIGHT" "SHOW" "SHOW-AND-RUN-MODAL" "STOP-MODAL" "CANCEL-MODAL" "HIDE" 
   "SCROLL-VIEW" "HAS-HORIZONTAL-SCROLLER" "HAS-VERTICAL-SCROLLER"
   "SET-SIZE" "SET-POSITION" "DISPLAY" "DRAW" "INIT" "RECURSIVE-MAP-SUBVIEWS"
   "RECTANGLE-VIEW" "SET-COLOR"
   "ZOOMABLE" "MINIMIZABLE" "RESIZABLE" "CLOSEABLE" "TITLE"
   "SCREEN-WIDTH" "SCREEN-HEIGHT" "CONTROL" "VALUE" "INITIALIZE-EVENT-HANDLING" "SIZE-CHANGED-EVENT-HANDLER"
   "ACTION" "SUBVIEWS" "DO-SUBVIEWS" "MAP-SUBVIEWS" "ADD-SUBVIEW" "ADD-SUBVIEWS" "SET-FRAME"
   "BUTTON-CONTROL" "DEFAULT-BUTTON"
   "BEVEL-BUTTON-CONTROL" "SLIDER-CONTROL" "TICK-MARKS" "MIN-VALUE" "MAX-VALUE"
   "LABEL-CONTROL" "TEXT" "ALIGN"
   "EDITABLE-TEXT-CONTROL"
   "VALUE"
   "IMAGE-CONTROL" "SRC" "FILE"
   "WEB-BROWSER-CONTROL" "URL"
   "OPENGL-VIEW" "FRAME-RATE" "ANIMATE" "START-ANIMATION" "STOP-ANIMATION"
   "USE-TEXTURE"
   "CAMERA" "AIM-CAMERA"
   ;; Dialogs
   "STANDARD-ALERT-DIALOG"))


;; frameworks

(eval-when (:compile-toplevel :load-toplevel :execute)
  (ccl:use-interface-dir :GL)
  (open-shared-library "/System/Library/Frameworks/OpenGL.framework/OpenGL"))


;; files

(load "lui:sources;Lisp User Interface;specific;Mac CCL;memory")
(load "lui:sources;Lisp User Interface;LUI")
(load "lui:sources;Lisp User Interface;OpenGL-view")
(load "lui:sources;Lisp User Interface;specific;Mac CCL;LUI Cocoa")
(load "lui:sources;Lisp User Interface;specific;Mac CCL;image-import")
(load "lui:sources;Lisp User Interface;specific;Mac CCL;OpenGL-view Cocoa")
(load "lui:sources;Lisp User Interface;Camera")

;****** XMLisp

(defpackage :XML
  (:export "XML-SERIALIZER"))

(load "lui:sources;XMLisp;XMLisp")


;****** XLUI

(defpackage :XLUI
  (:use :common-lisp :XML :LUI :opengl))

(setq xml::*xmlisp-packages* (list (find-package :xlui) (find-package :xml)))


(load "lui:sources;XLUI;xml-layout")
(load "lui:sources;XLUI;controls")      ;; LOTS of undefined functions still!
(load "lui:sources;XLUI;application-window")
(load "lui:sources;XLUI;dialog-window")

;******** Multimedia

(defpackage :sound
  (:use :common-lisp :ccl)
  (:export "PLAY-SOUND"))