PageRenderTime 37ms CodeModel.GetById 11ms RepoModel.GetById 0ms app.codeStats 0ms

/src/window.sch

https://bitbucket.org/bunny351/ezd
Racket | 91 lines | 36 code | 16 blank | 39 comment | 0 complexity | a82e50b4a47ba43729150c2a61460bdd MD5 | raw file
  1. ;;; A WINDOW object maintains the information required for an ezd drawing
  2. ;;; window.
  3. ;* Copyright 1990-1993 Digital Equipment Corporation
  4. ;* All Rights Reserved
  5. ;*
  6. ;* Permission to use, copy, and modify this software and its documentation is
  7. ;* hereby granted only under the following terms and conditions. Both the
  8. ;* above copyright notice and this permission notice must appear in all copies
  9. ;* of the software, derivative works or modified versions, and any portions
  10. ;* thereof, and both notices must appear in supporting documentation.
  11. ;*
  12. ;* Users of this software agree to the terms and conditions set forth herein,
  13. ;* and hereby grant back to Digital a non-exclusive, unrestricted, royalty-free
  14. ;* right and license under any changes, enhancements or extensions made to the
  15. ;* core functions of the software, including but not limited to those affording
  16. ;* compatibility with other hardware or software environments, but excluding
  17. ;* applications which incorporate this software. Users further agree to use
  18. ;* their best efforts to return to Digital any such changes, enhancements or
  19. ;* extensions that they make and inform Digital of noteworthy uses of this
  20. ;* software. Correspondence should be provided to Digital at:
  21. ;*
  22. ;* Director of Licensing
  23. ;* Western Research Laboratory
  24. ;* Digital Equipment Corporation
  25. ;* 250 University Avenue
  26. ;* Palo Alto, California 94301
  27. ;*
  28. ;* This software may be distributed (but not offered for sale or transferred
  29. ;* for compensation) to third parties, provided such third parties agree to
  30. ;* abide by the terms and conditions of this notice.
  31. ;*
  32. ;* THE SOFTWARE IS PROVIDED "AS IS" AND DIGITAL EQUIPMENT CORP. DISCLAIMS ALL
  33. ;* WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF
  34. ;* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL DIGITAL EQUIPMENT
  35. ;* CORPORATION BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
  36. ;* DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
  37. ;* PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS
  38. ;* ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
  39. ;* SOFTWARE.
  40. (define-external WINDOW-MODULE-INIT top-level)
  41. (define-external MAKE-WINDOW top-level)
  42. (define-in-line-structure-access WINDOW
  43. display
  44. x
  45. y
  46. width
  47. height
  48. name
  49. title
  50. foreground-name
  51. background-name
  52. foreground
  53. background
  54. variable-width
  55. variable-height
  56. exposed
  57. expose-bbl
  58. damage-bbl
  59. views
  60. cursor
  61. cursors
  62. gc
  63. xwindow)
  64. (define-external WINDOW-GEOMETRY-CHANGED? top-level)
  65. (define-external NAME->WINDOW top-level)
  66. (define-external LAST-EXISTING-WINDOW-NAME top-level)
  67. (define-external WINDOW-EXISTS? top-level)
  68. (define-external XWINDOW->WINDOW top-level)
  69. (define-external WINDOW-DELETE top-level)
  70. (define-external MERGE-BBL top-level)
  71. (define-external WINDOW-EVENT-HANDLER top-level)
  72. (define-external REDRAW-ALL-WINDOWS top-level)
  73. (define-external *PIXMAP* top-level)
  74. (define-external *REDRAW-SEQ* top-level)
  75. (define-external *NAME-WINDOWS* top-level)