Changeset 13039


Ignore:
Timestamp:
Oct 17, 2009, 10:11:00 PM (10 years ago)
Author:
gfoy
Message:

Mod for syntax-styling.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/contrib/foy/list-definitions-cm/history-lists.lisp

    r12785 r13039  
    471471;;; ----------------------------------------------------------------------------
    472472;;; File History Interface:
    473 ;;;
    474 (objc:defmethod (#/becomeKeyWindow :void) ((w gui::hemlock-frame))
     473;;;
     474;;; *** Instead of doing all this stuff need the equivalent of:
     475;;; *** (setf ccl::*default-editor-class* 'derived-hemlock-frame-class)
     476#-syntax-styling
     477(objc:defMethod (#/becomeKeyWindow :void) ((w gui::hemlock-frame))
    475478  (let* ((path (cmenu:window-path w))
    476479         (name (when (and path (string-equal (pathname-type path) "lisp"))
    477480                 (concatenate 'string (pathname-name path) ".lisp"))))
    478481    (when (and name path)
    479       (maybe-add-history-entry *file-history-list* name path))
    480     (call-next-method)))
     482      (maybe-add-history-entry *file-history-list* name path)))
     483  (let ((become-key-function (find-symbol "BECOME-KEY-WINDOW" (find-package :sax))))
     484    (when become-key-function (funcall become-key-function w)))
     485  (call-next-method))
     486
     487#+syntax-styling
     488(defMethod become-key-window ((w gui::hemlock-frame))
     489  (let* ((path (cmenu:window-path w))
     490         (name (when (and path (string-equal (pathname-type path) "lisp"))
     491                 (concatenate 'string (pathname-name path) ".lisp"))))
     492    (when (and name path)
     493      (maybe-add-history-entry *file-history-list* name path))))
    481494
    482495;;; ----------------------------------------------------------------------------
Note: See TracChangeset for help on using the changeset viewer.