home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / source / oodleutl.cpt / oodles-of-utils / objects-of-desire / room-with-a-view / back-PICT.lisp next >
Encoding:
Text File  |  1992-04-29  |  1.2 KB  |  50 lines
  1. (in-package :oou)
  2. (oou-provide :back-PICT)
  3. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  4. ;; back-PICT.Lisp
  5. ;;
  6. ;; Copyright ⌐ 1991 Northwestern University Institute for the Learning Sciences
  7. ;; All Rights Reserved
  8. ;;
  9. ;; author: Michael S. Engber
  10. ;;
  11. ;; view and window classes with background PICTs
  12. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  13.  
  14.  
  15. (oou-dependencies
  16.  :PICT-svm)
  17.  
  18. (export '(back-PICT-window back-PICT-view))
  19.  
  20. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  21.           
  22. (defclass back-PICT-view (PICT-svm view) ())
  23.  
  24. (defclass back-PICT-window (PICT-svm window) ())
  25.  
  26.  
  27. ;;hacks needed because install-view-in-window and remove-view-from-window
  28. ;;aren't called on windows.
  29.  
  30. (defmethod initialize-instance :after ((w back-PICT-window) &rest initargs)
  31.   (declare (ignore initargs))
  32.   (rsrc-handle-install w)
  33.   (invalidate-view w nil))
  34.  
  35.  
  36. (defmethod window-close :before ((w back-PICT-window))
  37.   (rsrc-handle-remove w))
  38.  
  39. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  40.  
  41. #|
  42.  
  43. (make-instance 'back-PICT-window
  44.   :view-size #@(274 278)
  45.   :PICT-file "oou:examples;MrT.PICT"
  46.   :PICT-storage :disk
  47.   :PICT-scaling :scale-to-view)
  48.  
  49.  
  50. |#