Changeset 877


Ignore:
Timestamp:
Sep 25, 2004, 9:12:57 PM (16 years ago)
Author:
gb
Message:

Typeout-window changes, from Alex Crain.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/examples/cocoa-window.lisp

    r866 r877  
    2020(eval-when (:compile-toplevel :load-toplevel :execute)
    2121  (require "OBJC-SUPPORT")
     22  ;;
     23  ;;  this stuff should all be integrated with a preferences file in ~/Library/OpenMCL/
     24  ;; (Um, it -is- integrated with the preferences file.)
     25  ;;
    2226  (require "COCOA-DEFAULTS")
    23   (require "COCOA-PREFS"))
     27  (def-cocoa-default *default-font-name* :string "Courier" "Name of font to use in editor windows")
     28  (def-cocoa-default *default-font-size* :float 12.0f0 "Size of font to use in editor windows, as a positive SINGLE-FLOAT")
     29  (def-cocoa-default *tab-width* :int 8 "Width of editor tab stops, in characters" (integer 1 32))
     30  (require "COCOA-PREFS")
     31  (require "COCOA-TYPEOUT"))
    2432
    2533(eval-when (:compile-toplevel :execute)
     
    187195  (send (send (find-class 'preferences-panel) 'shared-panel) 'show))
    188196
     197(define-objc-method ((:void :toggle-typeout sender) lisp-application)
     198  (declare (ignore sender))
     199  (let ((panel (send (find-class 'typeout-panel) 'shared-panel)))
     200    (send panel 'show)))
    189201
    190202(defun nslog-condition (c)
     
    274286                                                  #'cocoa-startup)
    275287                                                 (toplevel)))))
    276 
    277 (def-cocoa-default *default-font-name* :string "Courier" "Name of font to use in editor windows")
    278 (def-cocoa-default *default-font-size* :float 12.0f0 "Size of font to use in editor windows, as a positive SINGLE-FLOAT")
    279288
    280289(defparameter *font-attribute-names*
     
    319328                      (push attr-name implemented-attributes))))))
    320329            (values font implemented-attributes))))))
    321 
    322 (def-cocoa-default *tab-width* :int 8 "Width of editor tab stops, in characters" (integer 1 32))
    323330
    324331;;; Create a paragraph style, mostly so that we can set tabs reasonably.
Note: See TracChangeset for help on using the changeset viewer.