src/defpack.lisp

   1 ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CL-USER; -*-
   2 ;;; ---------------------------------------------------------------------------
   3 ;;;     Title: All DEFPACKAGE forms for the Closure browser
   4 ;;;   Created: 1999-05-25 22:33
   5 ;;;    Author: Gilbert Baumann <gilbert@base-engineering.com>
   6 ;;;   License: MIT style (see below)
   7 ;;; ---------------------------------------------------------------------------
   8 ;;;  (c) copyright 1999 by Gilbert Baumann
   9
  10 ;;;  Permission is hereby granted, free of charge, to any person obtaining
  11 ;;;  a copy of this software and associated documentation files (the
  12 ;;;  "Software"), to deal in the Software without restriction, including
  13 ;;;  without limitation the rights to use, copy, modify, merge, publish,
  14 ;;;  distribute, sublicense, and/or sell copies of the Software, and to
  15 ;;;  permit persons to whom the Software is furnished to do so, subject to
  16 ;;;  the following conditions:
  17 ;;;
  18 ;;;  The above copyright notice and this permission notice shall be
  19 ;;;  included in all copies or substantial portions of the Software.
  20 ;;;
  21 ;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
  22 ;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
  23 ;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
  24 ;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
  25 ;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
  26 ;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  27 ;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  28
  29 (defpackage :renderer
  30   (:nicknames :r2)
  31   (:use :glisp :runes :cl)
  32   (:import-from :imagelib
  33                 #:aimage
  34                 #:aimage-width
  35                 #:aimage-height
  36                 #:aimage-data
  37                 #:aimage-alpha-p
  38                 #:aimage-plist
  39                 #:make-aimage
  40                 #:scale-aimage
  41                 #:pnm-stream->aimage)
  42   (:export
  43    #:*tex-mode-p*
  44    #:*hyphenate-p*
  45    #:device-font-ascent
  46    #:device-dpi
  47    #:device-font-descent
  48    #:device-font-underline-position
  49    #:device-font-underline-thickness
  50    #:device-font-has-glyph-p
  51    #:device-font-glyph-width
  52    #:device-realize-font-desc
  53    #:device-font-database
  54    #:scale-font-desc
  55
  56    #:ro/size
  57    #:ro/resize
  58    #:ro/intrinsic-size
  59
  60    #:x11-draw-robj
  61
  62    #:style-sheet-link-p
  63    #:default-style-sheet-link-p
  64    #:alternate-style-sheet-link-p
  65    #:style-sheet-name-equal-p
  66
  67    #:document                           ;[class]
  68    #:document-anchors                   ;[accessor]
  69    #:document-images                    ;[accessor]
  70    #:document-location                  ;[accessor]
  71    #:document-display-list              ;[accessor]
  72    #:document-pt                        ;[accessor]
  73    #:document-links                     ;[accessor]
  74    #:document-selected-author-style     ;[accessor]
  75
  76    #:link                               ;[class]
  77    #:link-title                         ;[accessor]
  78    #:link-rel                           ;[accessor]
  79    #:link-rev                           ;[accessor]
  80    #:link-type                          ;[accessor]
  81    #:link-media                         ;[accessor]
  82    #:link-target                        ;[accessor]
  83
  84    #:anchor                             ;[structure]
  85    #:anchor-name                        ;[accessor]
  86    #:anchor-x                           ;[accessor]
  87    #:anchor-y                           ;[accessor]
  88
  89    #:hyper-link                         ;[structure]
  90    #:make-hyper-link                    ;[constructor]
  91    #:hyper-link-url                     ;[accessor]
  92    #:hyper-link-alt                     ;[accessor]
  93    #:hyper-link-target                  ;[accessor]
  94    ))
  95
  96 (defpackage :ws/x11
  97   (:use :glisp :runes :cl)
  98   (:export))
  99
 100 (defpackage :gif
 101   (:use :glisp :runes :cl)
 102   (:export #:gif-stream->aimage))
 103
 104 (defpackage :ws/charset
 105   ;;(:nicknames :charset)
 106   ;; Arg! CLISP now defines a package called "charset".
 107   (:use :glisp :runes :cl)
 108   (:export #:CHARSET
 109            #:CHARSET-DECODE
 110            #:CHARSET-ENCODE
 111            #:CHARSET-NAME
 112            #:CHARSET-NICKNAMES
 113            #:FIND-CHARSET
 114            #:REGISTER-CHARSET
 115            #:LIST-ALL-CHARSETS))
 116
 117 ;;zzz(defpackage :ws/estk (:use :glisp))     ;should die
 118
 119 (defpackage :gui
 120   (:use :glisp :runes :cl)
 121
 122   (:import-from #:clim
 123    #:+nowhere+
 124    #:+everywhere+
 125    ;; #:region-intersects-rectangle-p
 126    #:region-union
 127    #:make-rectangle*)
 128
 129   (:export
 130    #:*home-page*
 131    #:*user-wants-images-p*
 132    #:*closure-dpi*
 133    #:*zoom-factor*
 134    #:*debug-submit-p*
 135
 136    #:display-list
 137    #:display-list-p
 138    #:display-list-document
 139    #:display-list-items
 140    #:make-display-list
 141    #:button-event
 142    #:button-press-event
 143    #:button-release-event
 144    #:configure-event
 145    #:enter-event
 146    #:event
 147    #:event-button
 148    #:event-height
 149    #:event-key-code
 150    #:event-key-name
 151    #:event-state
 152    #:event-width
 153    #:event-x
 154    #:event-x-root
 155    #:event-y
 156    #:event-y-root
 157    #:exposure-event
 158    #:input-event
 159    #:key-event
 160    #:key-press-event
 161    #:key-release-event
 162    #:leave-event
 163    #:translate-event
 164    #:map-notify-event
 165    #:motion-event
 166    #:mouse-event
 167    #:pointer-motion-event
 168    #:proxy-device
 169    #:handle-event
 170
 171    #:RO/INPUT
 172    #:RO/INPUT-DESTRUCT
 173    #:RO/INPUT-CONTRIBUTION
 174    #:RO/INPUT-RESET
 175
 176    #:make-device-for-display
 177    #:ro/make-button
 178    #:ro/make-reset-button
 179    #:ro/make-submit-button
 180    #:ro/make-text
 181    #:ro/make-password
 182    #:ro/make-text-area
 183    #:ro/make-check-box
 184    #:ro/make-radio-box
 185    #:ro/input-contribution
 186    #:ro/input-reset
 187
 188    #:make-option-menu-option
 189    #:make-option-menu-option-group
 190    #:make-option-menu
 191    #:option-menu-option-p
 192    #:option-menu-option-label
 193    #:option-menu-option-group-p
 194    #:option-menu-option-group-label
 195    #:option-menu-option-group-children
 196    ))
 197
 198
 199 (defpackage :gtk-gui (:use :cl :glisp :runes))
 200
 201 (defpackage :closure
 202     (:use)
 203     (:export
 204      #:*home-page*
 205      #:*user-wants-images-p*
 206      #:visit
 207      #:start
 208      #:stop))
 209
 210 '(defpackage :ws/postscript
 211   (:nicknames :ws/ps)
 212   (:use :glisp :cl)
 213   (:export )
 214   (:import-from "R2"
 215                 "DEVICE-FONT-ASCENT"
 216                 "DEVICE-FONT-DESCENT"
 217                 "DEVICE-FONT-HAS-GLYPH-P"
 218                 "DEVICE-FONT-GLYPH-WIDTH"
 219                 "DEVICE-REALIZE-FONT-DESC"
 220                 "DEVICE-FONT-DATABASE"
 221                 "SCALE-FONT-DESC"
 222                 "MAKE-FONT-DESC"
 223                 "MAKE-FONT-DATABASE"
 224                 "FONT-DATABASE-RELATE"
 225                 "COPY-FONT-DESC"
 226                 "FONT-DESC-SIZE"
 227                 "FONT-DESC-DDP"
 228                 ;; xxx "CSS-FONT-DESC-GLYPH-INFO"
 229                 "GLYPH-INFO-FID"
 230                 "GLYPH-INFO-INDEX"
 231                 "GLYPH-INFO-WIDTH"
 232                 "DEVICE-FONT-UNDERLINE-POSITION"
 233                 "DEVICE-FONT-UNDERLINE-THICKNESS"
 234                 ))
 235
 236 (defpackage :clue-gui2 (:use #||:glue :clue||# :glisp :runes :cl))