home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mitsch75.zip / scheme-7_5_17-src.zip / scheme-7.5.17 / src / swat / scheme / structures.scm < prev    next >
Text File  |  1995-08-02  |  3KB  |  129 lines
  1. ;;;;; -*- Scheme -*-
  2. ;;;;;
  3. ;;;;; derived from uitk.scm at MIT on April 24, 1993
  4. ;;;;; $Id: structures.scm,v 1.1 1995/08/02 21:26:49 adams Exp $
  5.  
  6. ;;;; Commonly used structure definitions.  They are here so that the
  7. ;;;; macro versions can be loaded to improve performance.
  8.  
  9. (scc-define-structure UITKWindow
  10.   xdisplay                ; X display connection
  11.   xwindow)                ; X window ID
  12.  
  13. (scc-define-structure ToolKitWindow    ; For TK or whatever
  14.   Application                ; For GC protection of TK Widgets
  15.   Top-Level-Geometry-Callback        ; From TK to us (for GC, too)
  16.   TK-Window)                ; *Un*wrapped!
  17.  
  18. (scc-define-structure DrawingSurface
  19.   ToolKitWindow
  20.   UITKWindow
  21.   (Weak-List-of-Widgets '()))        ; Ones that use this surface
  22.  
  23. (scc-define-structure Point X Y)
  24.  
  25. (scc-define-structure UITKRectangle Offset Size)
  26.  
  27. (scc-define-structure Size Width Height)
  28.  
  29. (scc-define-structure context
  30.   activebackground activeforeground anchor background
  31.   border borderwidth
  32.   ;; cursor
  33.   ;; font
  34.   foreground relief)
  35.  
  36. (scc-define-structure alert reason function)
  37.  
  38. (scc-define-structure queue
  39.   (%head #F)
  40.   (%tail #F))
  41.  
  42. (scc-define-structure locked-list
  43.   (%mutex (make-thread-mutex))
  44.   (%data '()))
  45.  
  46. (scc-define-structure surface-sensitivity
  47.   Weak-Surface
  48.   Mask
  49.   Sensitivities)
  50.  
  51. (scc-define-structure sensitivity
  52.   %weak-<interactor>
  53.   Masks)
  54.  
  55. (scc-define-structure sensitive-surface
  56.   DrawingSurface
  57.   Handlers) 
  58.  
  59. (scc-define-structure TK-variable
  60.   application              
  61.   tk-name
  62.   callback    ;on writes
  63.   )
  64.  
  65. (scc-define-structure scxl-wrapper
  66.   type
  67.   wrapped-object
  68.   strong-dependents
  69.   other-stuff)
  70.  
  71.  
  72. (scc-define-structure Event
  73.   Point-or-rectangle?
  74.   Type
  75.   OS-Event
  76.   Window
  77.   Offset
  78.   Width
  79.   Height)
  80.  
  81. (scc-define-structure Glue
  82.   minsize
  83.   class
  84.   value)
  85.  
  86. ;;; Applications, interactors, boxes, shapes, tkwidgets
  87. ;;; all share these internals.  These slots will be the first thing in
  88. ;;; the structure.
  89.  
  90. (scc-define-structure UIObjInternals
  91.   Add-Child!-procedure
  92.   Remove-Child!-procedure
  93.   Set-Context!-procedure
  94.   Assign-Screen-Area!-procedure
  95.   Assign-Drawing-Surface!-procedure
  96.   Point-Within?-procedure
  97.   Rectangle-Overlaps?-procedure
  98.   Handle-Event-procedure
  99.   Get-Desired-Size-procedure
  100.   Assigned-Screen-Area-procedure
  101.   Used-Screen-Area-procedure
  102.   Set-Assigned-Screen-Area!-procedure
  103.   Set-Used-Screen-Area!-procedure
  104.   Assign-Glue!-procedure
  105.   (%geometry-alerts '())
  106.   (%event-alerts '())
  107.   (%context-alerts '())
  108.   (%death-alerts '())
  109.   (Assigned-Screen-Area #F)
  110.   (Used-Screen-Area #F)
  111.   (clip-region #F)
  112.   (drawing-surface 'UNASSIGNED)
  113.   (%desired-size #F)
  114.   (%vglue #F)        ; for boxes, shapes
  115.   (%hglue #F)        ; and tkwidgets only
  116.   ;; Hal says:
  117.   ;; "Success has many parents, but a UIObj has only one"
  118.   (already-have-a-parent? #F)
  119.   ;; Second '() is a special list for canvas and text items, that
  120.   ;; might need to be un-gc-protected all at once.
  121.   (crud-that-I-dont-want-to-gc-away (cons '() '()))
  122.   )
  123.  
  124. ;;;Generic procedures on objects that have UIObj internals
  125.  
  126. (define-integrable uiobjinternals-index 1)
  127.  
  128.  
  129.