home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / source / oodleutl.cpt / oodles-of-utils / dialog-items / 3D-text-button-di.lisp < prev    next >
Encoding:
Text File  |  1992-01-22  |  1.9 KB  |  59 lines
  1. (in-package :oou)
  2. (oou-provide :3D-text-button-di)
  3. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  4. ;; 3D-text-button-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. ;; A rectangular text button with a 3D look
  12. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  13.  
  14. (oou-dependencies
  15.  :disable-dim
  16.  :button-dim
  17.  :frame-3D-svm
  18.  :static-text-di)
  19.  
  20. (export '(3D-text-button-di))
  21.  
  22. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  23.  
  24. (defclass 3D-text-button-di (disable-dim button-dim frame-3D-svm static-text-di) ())
  25.  
  26. (defmethod text-margins ((di 3D-text-button-di))
  27.   (multiple-value-bind (tl-margin br-margin) (call-next-method)
  28.     (let ((p (make-point (frame-width di) (frame-width di))))
  29.       (values (add-points tl-margin p) (add-points br-margin p)))))
  30.  
  31. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  32.  
  33. #|
  34.  
  35. ;;; a modest example
  36.  
  37. (progn
  38.   (setf *test-w*
  39.         (make-instance 'dialog
  40.                        :window-type :document
  41.                        :view-position :centered
  42.                        :view-size #@(200 100)
  43.                        :window-title "rect-button-dim demo"
  44.                        ))
  45.   (with-focused-view *test-w* (#_BackPat *gray-pattern*))
  46.   (invalidate-view *test-w* t)
  47.   (add-subviews *test-w* (make-dialog-item '3D-text-button-di
  48.                                            #@(20 20)
  49.                                            #@(163 30)
  50.                                            "awesome 3D button"
  51.                                            #'(lambda (item) (declare (ignore item)) (ed-beep))
  52.                                            :view-nick-name :butt
  53.                                            )))
  54.  
  55. ;(setf (just (view-named :butt *test-w*)) :left)
  56. ;(setf (frame-width (view-named :butt *test-w*)) 6)
  57. ;(dialog-item-disable (view-named :butt *test-w*))
  58.  
  59. |#