home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / source / oodleutl.cpt / oodles-of-utils / dialog-items / PICT-di.lisp < prev    next >
Encoding:
Text File  |  1992-01-27  |  2.0 KB  |  66 lines
  1. (in-package :oou)
  2. (oou-provide :PICT-di)
  3. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  4. ;; PICT-di.Lisp
  5. ;;
  6. ;; Copyright ⌐ 1991 Northwestern University Institute for the Learning Sciences
  7. ;; All Rights Reserved
  8. ;;
  9. ;; author: Michael S. Engber
  10. ;;
  11. ;; PICT and PICT-button dialog items
  12. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  13.  
  14. (oou-dependencies
  15.  :PICT-svm
  16.  :disable-dim
  17.  :button-dim)
  18.  
  19. (export '(PICT-di PICT-button-di))
  20.  
  21. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  22.         
  23. (defclass PICT-di (PICT-svm dialog-item) ())
  24.  
  25. (defclass PICT-button-di (disable-dim button-dim PICT-di) ())
  26.  
  27. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  28.  
  29. #|
  30.  
  31. (open-res-file "oou:examples;examples.rsrc")
  32.  
  33.  
  34. ;keep the PICT in RAM
  35. (setf *test-w*
  36.       (make-instance 'dialog
  37.         :window-type :document
  38.         :color-p t
  39.         :view-position :centered
  40.         :view-size #@(300 300)
  41.         :window-title "PICT demo"
  42.         :view-subviews (list (make-instance 'PICT-button-di
  43.                                :view-position #@(10 10)
  44.                                :PICT-name "Mr. T"
  45.                                :dialog-item-action #'(lambda (item) (declare (ignore item)) (ed-beep))
  46.                                :view-nick-name :I-pity-the-fool
  47.                                ))))
  48.  
  49. ;spool the PICT off disk (from a PICT file)
  50. (setf *test-w*
  51.       (make-instance 'dialog
  52.         :window-type :document
  53.         :color-p t
  54.         :view-position :centered
  55.         :view-size #@(300 300)
  56.         :window-title "PICT demo"
  57.         :view-subviews (list (make-instance 'PICT-button-di
  58.                                :view-position #@(10 10)
  59.                                :PICT-file "oou:examples;MrT.PICT"
  60.                                :PICT-storage :disk
  61.                                :dialog-item-action #'(lambda (item) (declare (ignore item)) (ed-beep))
  62.                                :view-nick-name :I-pity-the-fool
  63.                                ))))
  64.  
  65. |#
  66.