Ignore:
Timestamp:
Oct 22, 2009, 12:55:33 AM (10 years ago)
Author:
rme
Message:

Merge trunk changes r13036 through r13047

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/1.4/source/contrib/foy/list-definitions/history-lists.lisp

    r12746 r13073  
    476476;;; ----------------------------------------------------------------------------
    477477;;; File History Interface:
    478 ;;;
    479 (objc:defmethod (#/becomeKeyWindow :void) ((w gui::hemlock-frame))
    480   (let* ((path (window-path w))
     478;;;
     479;;; *** Instead of doing all this stuff need the equivalent of:
     480;;; *** (setf ccl::*default-editor-class* 'derived-hemlock-frame-class)
     481#-syntax-styling
     482(objc:defMethod (#/becomeKeyWindow :void) ((w gui::hemlock-frame))
     483  (let* ((path (cmenu:window-path w))
    481484         (name (when (and path (string-equal (pathname-type path) "lisp"))
    482485                 (concatenate 'string (pathname-name path) ".lisp"))))
    483486    (when (and name path)
    484       (maybe-add-history-entry *file-history-list* name path))
    485     (call-next-method)))
     487      (maybe-add-history-entry *file-history-list* name path)))
     488  (let ((become-key-function (find-symbol "BECOME-KEY-WINDOW" (find-package :sax))))
     489    (when become-key-function (funcall become-key-function w)))
     490  (call-next-method))
     491
     492#+syntax-styling
     493(defMethod become-key-window ((w gui::hemlock-frame))
     494  (let* ((path (cmenu:window-path w))
     495         (name (when (and path (string-equal (pathname-type path) "lisp"))
     496                 (concatenate 'string (pathname-name path) ".lisp"))))
     497    (when (and name path)
     498      (maybe-add-history-entry *file-history-list* name path))))
    486499
    487500;;; ----------------------------------------------------------------------------
Note: See TracChangeset for help on using the changeset viewer.