-
Notifications
You must be signed in to change notification settings - Fork 1
/
UI-Lib-1.0.system
73 lines (66 loc) · 2.42 KB
/
UI-Lib-1.0.system
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
;; -*- mode:lisp; -*-
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; system: U I - L I B - 1 . 0
;;
;; file: UI-Lib-1.0.system
;; author: Adam Alpern
;; created: 4/9/1996
;;
;; System definition for UI-Lib 1.0.
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; Revision History
;; ----------------
;; 4/9/96 - file created
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defpackage "UI-LIB"
(:use "COMMON-LISP" "CCL")
(:nicknames "UI"))
(defparameter ui::*ui-resource-file* "ccl;projects:ui-lib-1.0:Resources")
(defsystem UI-LIB-1.0
:source-pathname "projects;UI-Lib-1.0:source:"
#+(and ccl-3 :powerpc) :binary-pathname
#+(and ccl-3 :powerpc) "projects;UI-Lib-1.0:binaries:mcl3-PPC:"
#+(and ccl-3 :powerpc) :binary-extension
#+(and ccl-3 :powerpc) "pfsl"
#+(and ccl-3 (not :powerpc)) :binary-pathname
#+(and ccl-3 (not :powerpc)) "projects;UI-Lib-1.0:binaries:mcl3-68K"
:initially-do (progn
(require :quickdraw)
(require :scrollers))
:finally-do (progn
(with-open-resource-file (f ui::*ui-resource-file*)
(ui::load-resource-table ui::*ui-resource-spec*
ui::*ui-resource-table*))
(pushnew :ui-lib *features*)
(provide :ui-lib))
:components
(
(:file "package")
(:file "resources")
(:module UTILITIES
:components ((:file "extensions")
(:file "color")
(:file "drawing")
(:file "interaction")
(:file "gworlds")))
(:module MIXINS
:components ((:file "view-mixins")
(:file "drawing-mixins")))
(:module VIEWS
:components ((:file "3d-dialog-items")
(:file "3D-pop-up-menu")
(:file "dialog-items")
(:file "palettes")
(:file "views")
(:file "spin-box-view")
(:file "list-views")))
(:module WINDOWS
:components ((:file "windows")
(:file "windoids")
(:file "preferences-dialog")
(:file "font-picker")))
))