Skip to content
Snippets Groups Projects
Commit 5e40b0ce authored by colin's avatar colin
Browse files

from colin: Mon Dec 6 21:46:54 PST 1993

parent c4fd42d6
No related branches found
No related tags found
No related merge requests found
from colin: Mon Dec 6 21:46:54 PST 1993
tk-silica/ol-silica.lisp fixed typo
from colin: Mon Dec 6 21:30:54 PST 1993 from colin: Mon Dec 6 21:30:54 PST 1993
Makefile.defs, Makefile.generic Makefile.defs, Makefile.generic
......
...@@ -20,7 +20,7 @@ ...@@ -20,7 +20,7 @@
;; 52.227-19 or DOD FAR Supplement 252.227-7013 (c) (1) (ii), as ;; 52.227-19 or DOD FAR Supplement 252.227-7013 (c) (1) (ii), as
;; applicable. ;; applicable.
;; ;;
;; $fiHeader: ol-silica.lisp,v 1.22 1993/09/17 19:07:04 cer Exp $ ;; $fiHeader: ol-silica.lisp,v 1.23 1993/12/07 05:34:18 colin Exp $
(in-package :xm-silica) (in-package :xm-silica)
...@@ -111,7 +111,7 @@ ...@@ -111,7 +111,7 @@
(defun ol-get-focus-widget (widget) (defun ol-get-focus-widget (widget)
(tk::intern-widget (tk::ol_get_current_focus_widget widget))) (tk::intern-widget (tk::ol_get_current_focus_widget widget)))
(defmethod process-an-event ((port ol-port) mask reason) (defmethod process-an-event ((port openlook-port) mask reason)
(with-slots (context) port (with-slots (context) port
;; Because of a feature in the OLIT toolkit we need to ;; Because of a feature in the OLIT toolkit we need to
;; give preference to events rather than timer events ;; give preference to events rather than timer events
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment