home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / source / oodleutl.cpt / oodles-of-utils / dialog-items / 3D-PICT-button-di.lisp next >
Encoding:
Text File  |  1992-02-07  |  1001 b   |  34 lines
  1. (in-package :oou)
  2. (oou-provide :3D-PICT-button-di)
  3. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  4. ;; 3D-PICT-button-di.Lisp
  5. ;;
  6. ;; Copyright ⌐ 1992 Northwestern University Institute for the Learning Sciences
  7. ;; All Rights Reserved
  8. ;;
  9. ;; author: Michael S. Engber
  10. ;;
  11. ;; 3D-PICT-button dialog items
  12. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  13.  
  14. (oou-dependencies
  15.  :PICT-di
  16.  :frame-3D-svm)
  17.  
  18. (export '(3D-PICT-button-di))
  19.  
  20. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  21.  
  22. (defclass 3D-PICT-button-di (PICT-button-di frame-3D-svm) ())
  23.  
  24. (defmethod graphic-margins ((di 3D-PICT-button-di))
  25.   (let ((p (make-point (frame-width di) (frame-width di))))
  26.     (values p p)))
  27.  
  28. (defmethod (setf frame-width) :after (new-width (di 3D-PICT-button-di))
  29.   (declare (ignore new-width))
  30.   (when (eq :adjust-view-size (slot-value di 'graphic-scaling))
  31.     (scale-view-size di)))
  32.  
  33. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  34.