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