/src/window.sch
Racket | 91 lines | 36 code | 16 blank | 39 comment | 0 complexity | a82e50b4a47ba43729150c2a61460bdd MD5 | raw file
- ;;; A WINDOW object maintains the information required for an ezd drawing
- ;;; window.
- ;* Copyright 1990-1993 Digital Equipment Corporation
- ;* All Rights Reserved
- ;*
- ;* Permission to use, copy, and modify this software and its documentation is
- ;* hereby granted only under the following terms and conditions. Both the
- ;* above copyright notice and this permission notice must appear in all copies
- ;* of the software, derivative works or modified versions, and any portions
- ;* thereof, and both notices must appear in supporting documentation.
- ;*
- ;* Users of this software agree to the terms and conditions set forth herein,
- ;* and hereby grant back to Digital a non-exclusive, unrestricted, royalty-free
- ;* right and license under any changes, enhancements or extensions made to the
- ;* core functions of the software, including but not limited to those affording
- ;* compatibility with other hardware or software environments, but excluding
- ;* applications which incorporate this software. Users further agree to use
- ;* their best efforts to return to Digital any such changes, enhancements or
- ;* extensions that they make and inform Digital of noteworthy uses of this
- ;* software. Correspondence should be provided to Digital at:
- ;*
- ;* Director of Licensing
- ;* Western Research Laboratory
- ;* Digital Equipment Corporation
- ;* 250 University Avenue
- ;* Palo Alto, California 94301
- ;*
- ;* This software may be distributed (but not offered for sale or transferred
- ;* for compensation) to third parties, provided such third parties agree to
- ;* abide by the terms and conditions of this notice.
- ;*
- ;* THE SOFTWARE IS PROVIDED "AS IS" AND DIGITAL EQUIPMENT CORP. DISCLAIMS ALL
- ;* WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF
- ;* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL DIGITAL EQUIPMENT
- ;* CORPORATION BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
- ;* DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
- ;* PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS
- ;* ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
- ;* SOFTWARE.
- (define-external WINDOW-MODULE-INIT top-level)
- (define-external MAKE-WINDOW top-level)
- (define-in-line-structure-access WINDOW
- display
- x
- y
- width
- height
- name
- title
- foreground-name
- background-name
- foreground
- background
- variable-width
- variable-height
- exposed
- expose-bbl
- damage-bbl
- views
- cursor
- cursors
- gc
- xwindow)
- (define-external WINDOW-GEOMETRY-CHANGED? top-level)
- (define-external NAME->WINDOW top-level)
- (define-external LAST-EXISTING-WINDOW-NAME top-level)
- (define-external WINDOW-EXISTS? top-level)
- (define-external XWINDOW->WINDOW top-level)
- (define-external WINDOW-DELETE top-level)
- (define-external MERGE-BBL top-level)
- (define-external WINDOW-EVENT-HANDLER top-level)
- (define-external REDRAW-ALL-WINDOWS top-level)
- (define-external *PIXMAP* top-level)
- (define-external *REDRAW-SEQ* top-level)
- (define-external *NAME-WINDOWS* top-level)