home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / source / oodleutl.cpt / oodles-of-utils / low-class-extensions / dialog-item-ce.lisp next >
Encoding:
Text File  |  1992-02-21  |  1.1 KB  |  30 lines
  1. (in-package :oou)
  2. (oou-provide :dialog-item-ce)
  3. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  4. ;; dialog-item-ce.Lisp
  5. ;;
  6. ;; Copyright ⌐ 1992 Northwestern University Institute for the Learning Sciences
  7. ;; All Rights Reserved
  8. ;;
  9. ;; author: Michael S. Engber
  10. ;;
  11. ;; methods for the dialog-item class
  12. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  13.  
  14. (oou-dependencies
  15.  :simple-view-ce)
  16.  
  17. (export '(dialog-item-hide dialog-item-show dialog-item-shown-p dialog-item-shown-position
  18.           ))
  19.  
  20. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  21. ;; hiding dialog items (as per HideDItem & ShowDItem IM IV p.59)
  22. ;; now implemented as view functions - see simple-view-ce
  23.  
  24. (setf (symbol-function 'dialog-item-hide)           (symbol-function 'view-hide))
  25. (setf (symbol-function 'dialog-item-show)           (symbol-function 'view-show))
  26. (setf (symbol-function 'dialog-item-shown-p)        (symbol-function 'view-shown-p))
  27. (setf (symbol-function 'dialog-item-shown-position) (symbol-function 'view-shown-position))
  28.  
  29. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  30.