File: cursor.lisp

package info (click to toggle)
cl-clue 20050302
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 5,964 kB
  • ctags: 2,647
  • sloc: lisp: 32,019; makefile: 63; sh: 38
file content (176 lines) | stat: -rw-r--r-- 5,564 bytes parent folder | download | duplicates (6)
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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
;;; -*- Mode:Lisp; Package:CLUEI; Syntax:COMMON-LISP; Base:10; Lowercase:T -*-

;;;
;;;			 TEXAS INSTRUMENTS INCORPORATED
;;;				  P.O. BOX 149149
;;;			       AUSTIN, TEXAS 78714-9149
;;;
;;; Copyright (C)1987,1988,1989,1990 Texas Instruments Incorporated.
;;;
;;; Permission is granted to any individual or institution to use, copy, modify,
;;; and distribute this software, provided that this complete copyright and
;;; permission notice is maintained, intact, in all copies and supporting
;;; documentation.
;;;
;;; Texas Instruments Incorporated provides this software "as is" without
;;; express or implied warranty.
;;;

(in-package "CLUEI")

(export '(
	  x-cursor
	  arrow-cursor
	  based-arrow-down-cursor
	  based-arrow-up-cursor
	  boat-cursor
	  bogosity-cursor
	  bottom-left-corner-cursor
	  bottom-right-corner-cursor
	  bottom-side-cursor
	  bottom-tee-cursor
	  box-spiral-cursor
	  center-ptr-cursor
	  circle-cursor
	  clock-cursor
	  coffee-mug-cursor
	  cross-cursor
	  cross-reverse-cursor
	  crosshair-cursor
	  diamond-cross-cursor
	  dot-cursor
	  dotbox-cursor
	  double-arrow-cursor
	  draft-large-cursor
	  draft-small-cursor
	  draped-box-cursor
	  exchange-cursor
	  fleur-cursor
	  gobbler-cursor
	  gumby-cursor
	  hand1-cursor
	  hand2-cursor
	  heart-cursor
	  icon-cursor
	  iron-cross-cursor
	  left-ptr-cursor
	  left-side-cursor
	  left-tee-cursor
	  leftbutton-cursor
	  ll-angle-cursor
	  lr-angle-cursor
	  man-cursor
	  middlebutton-cursor
	  mouse-cursor
	  pencil-cursor
	  pirate-cursor
	  plus-cursor
	  question-arrow-cursor
	  right-ptr-cursor
	  right-side-cursor
	  right-tee-cursor
	  rightbutton-cursor
	  rtl-logo-cursor
	  sailboat-cursor
	  sb-down-arrow-cursor
	  sb-h-double-arrow-cursor
	  sb-left-arrow-cursor
	  sb-right-arrow-cursor
	  sb-up-arrow-cursor
	  sb-v-double-arrow-cursor
	  shuttle-cursor
	  sizing-cursor
	  spider-cursor
	  spraycan-cursor
	  star-cursor
	  target-cursor
	  tcross-cursor
	  top-left-arrow-cursor
	  top-left-corner-cursor
	  top-right-corner-cursor
	  top-side-cursor
	  top-tee-cursor
	  trek-cursor
	  ul-angle-cursor
	  umbrella-cursor
	  ur-angle-cursor
	  watch-cursor
	  i-bar-cursor))

(defconstant x-cursor                    0)
(defconstant arrow-cursor                2)
(defconstant based-arrow-down-cursor	 4)
(defconstant based-arrow-up-cursor	 6)
(defconstant boat-cursor		 8)
(defconstant bogosity-cursor		 10)
(defconstant bottom-left-corner-cursor	 12)
(defconstant bottom-right-corner-cursor	 14)
(defconstant bottom-side-cursor		 16)
(defconstant bottom-tee-cursor		 18)
(defconstant box-spiral-cursor		 20)
(defconstant center-ptr-cursor		 22)
(defconstant circle-cursor		 24)
(defconstant clock-cursor		 26)
(defconstant coffee-mug-cursor		 28)
(defconstant cross-cursor		 30)
(defconstant cross-reverse-cursor        32)
(defconstant crosshair-cursor            34)
(defconstant diamond-cross-cursor        36)
(defconstant dot-cursor                  38)
(defconstant dotbox-cursor               40)
(defconstant double-arrow-cursor         42)
(defconstant draft-large-cursor          44)
(defconstant draft-small-cursor          46)
(defconstant draped-box-cursor           48)
(defconstant exchange-cursor             50)
(defconstant fleur-cursor                52)
(defconstant gobbler-cursor              54)
(defconstant gumby-cursor                56)
(defconstant hand1-cursor                58)
(defconstant hand2-cursor                60)
(defconstant heart-cursor                62)
(defconstant icon-cursor                 64)
(defconstant iron-cross-cursor           66)
(defconstant left-ptr-cursor             68)
(defconstant left-side-cursor            70)
(defconstant left-tee-cursor             72)
(defconstant leftbutton-cursor           74)
(defconstant ll-angle-cursor             76)
(defconstant lr-angle-cursor             78)
(defconstant man-cursor                  80)
(defconstant middlebutton-cursor         82)
(defconstant mouse-cursor                84)
(defconstant pencil-cursor               86)
(defconstant pirate-cursor               88)
(defconstant plus-cursor                 90)
(defconstant question-arrow-cursor       92)
(defconstant right-ptr-cursor            94)
(defconstant right-side-cursor           96)
(defconstant right-tee-cursor            98)
(defconstant rightbutton-cursor          100)
(defconstant rtl-logo-cursor             102)
(defconstant sailboat-cursor             104)
(defconstant sb-down-arrow-cursor        106)
(defconstant sb-h-double-arrow-cursor    108)
(defconstant sb-left-arrow-cursor        110)
(defconstant sb-right-arrow-cursor       112)
(defconstant sb-up-arrow-cursor          114)
(defconstant sb-v-double-arrow-cursor    116)
(defconstant shuttle-cursor              118)
(defconstant sizing-cursor               120)
(defconstant spider-cursor               122)
(defconstant spraycan-cursor             124)
(defconstant star-cursor                 126)
(defconstant target-cursor               128)
(defconstant tcross-cursor               130)
(defconstant top-left-arrow-cursor       132)
(defconstant top-left-corner-cursor      134)
(defconstant top-right-corner-cursor     136)
(defconstant top-side-cursor             138)
(defconstant top-tee-cursor              140)
(defconstant trek-cursor                 142)
(defconstant ul-angle-cursor             144)
(defconstant umbrella-cursor             146)
(defconstant ur-angle-cursor             148)
(defconstant watch-cursor                150)
(defconstant i-bar-cursor                152)