1;; sawfish.wm.cursors bootstrap
2;;
3;; Copyright (C) 1999 John Harper <john@dcs.warwick.ac.uk>
4;;
5;; This file is part of sawfish.
6;;
7;; sawfish is free software; you can redistribute it and/or modify it
8;; under the terms of the GNU General Public License as published by
9;; the Free Software Foundation; either version 2, or (at your option)
10;; any later version.
11;;
12;; sawfish is distributed in the hope that it will be useful, but
13;; WITHOUT ANY WARRANTY; without even the implied warranty of
14;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15;; GNU General Public License for more details.
16;;
17;; You should have received a copy of the GNU General Public License
18;; along with sawfish; see the file COPYING.  If not, write to
19;; the Free Software Foundation, 51 Franklin Street, Fifth Floor,
20;; Boston, MA 02110-1301 USA.
21
22(declare (in-module sawfish.wm.cursors))
23
24(open-structures '(rep))
25
26(put 'X_cursor 'cursor-shape 0)
27(put 'arrow 'cursor-shape 2)
28(put 'based_arrow_down 'cursor-shape 4)
29(put 'based_arrow_up 'cursor-shape 6)
30(put 'boat 'cursor-shape 8)
31(put 'bogosity 'cursor-shape 10)
32(put 'bottom_left_corner 'cursor-shape 12)
33(put 'bottom_right_corner 'cursor-shape 14)
34(put 'bottom_side 'cursor-shape 16)
35(put 'bottom_tee 'cursor-shape 18)
36(put 'box_spiral 'cursor-shape 20)
37(put 'center_ptr 'cursor-shape 22)
38(put 'circle 'cursor-shape 24)
39(put 'clock 'cursor-shape 26)
40(put 'coffee_mug 'cursor-shape 28)
41(put 'cross 'cursor-shape 30)
42(put 'cross_reverse 'cursor-shape 32)
43(put 'crosshair 'cursor-shape 34)
44(put 'diamond_cross 'cursor-shape 36)
45(put 'dot 'cursor-shape 38)
46(put 'dotbox 'cursor-shape 40)
47(put 'double_arrow 'cursor-shape 42)
48(put 'draft_large 'cursor-shape 44)
49(put 'draft_small 'cursor-shape 46)
50(put 'draped_box 'cursor-shape 48)
51(put 'exchange 'cursor-shape 50)
52(put 'fleur 'cursor-shape 52)
53(put 'gobbler 'cursor-shape 54)
54(put 'gumby 'cursor-shape 56)
55(put 'hand1 'cursor-shape 58)
56(put 'hand2 'cursor-shape 60)
57(put 'heart 'cursor-shape 62)
58(put 'icon 'cursor-shape 64)
59(put 'iron_cross 'cursor-shape 66)
60(put 'left_ptr 'cursor-shape 68)
61(put 'left_side 'cursor-shape 70)
62(put 'left_tee 'cursor-shape 72)
63(put 'leftbutton 'cursor-shape 74)
64(put 'll_angle 'cursor-shape 76)
65(put 'lr_angle 'cursor-shape 78)
66(put 'man 'cursor-shape 80)
67(put 'middlebutton 'cursor-shape 82)
68(put 'mouse 'cursor-shape 84)
69(put 'pencil 'cursor-shape 86)
70(put 'pirate 'cursor-shape 88)
71(put 'plus 'cursor-shape 90)
72(put 'question_arrow 'cursor-shape 92)
73(put 'right_ptr 'cursor-shape 94)
74(put 'right_side 'cursor-shape 96)
75(put 'right_tee 'cursor-shape 98)
76(put 'rightbutton 'cursor-shape 100)
77(put 'rtl_logo 'cursor-shape 102)
78(put 'sailboat 'cursor-shape 104)
79(put 'sb_down_arrow 'cursor-shape 106)
80(put 'sb_h_double_arrow 'cursor-shape 108)
81(put 'sb_left_arrow 'cursor-shape 110)
82(put 'sb_right_arrow 'cursor-shape 112)
83(put 'sb_up_arrow 'cursor-shape 114)
84(put 'sb_v_double_arrow 'cursor-shape 116)
85(put 'shuttle 'cursor-shape 118)
86(put 'sizing 'cursor-shape 120)
87(put 'spider 'cursor-shape 122)
88(put 'spraycan 'cursor-shape 124)
89(put 'star 'cursor-shape 126)
90(put 'target 'cursor-shape 128)
91(put 'tcross 'cursor-shape 130)
92(put 'top_left_arrow 'cursor-shape 132)
93(put 'top_left_corner 'cursor-shape 134)
94(put 'top_right_corner 'cursor-shape 136)
95(put 'top_side 'cursor-shape 138)
96(put 'top_tee 'cursor-shape 140)
97(put 'trek 'cursor-shape 142)
98(put 'ul_angle 'cursor-shape 144)
99(put 'umbrella 'cursor-shape 146)
100(put 'ur_angle 'cursor-shape 148)
101(put 'watch 'cursor-shape 150)
102(put 'xterm 'cursor-shape 152)
103