diff --git a/tk-silica/ol-frames.lisp b/tk-silica/ol-frames.lisp index e3a71b7c33aae01d2ae68e358eeafb6658c7a4e9..5bd2a879bad89051f7292c135e8da834f1056270 100644 --- a/tk-silica/ol-frames.lisp +++ b/tk-silica/ol-frames.lisp @@ -20,7 +20,7 @@ ;; 52.227-19 or DOD FAR Supplement 252.227-7013 (c) (1) (ii), as ;; applicable. ;; -;; $fiHeader: ol-frames.lisp,v 1.16 92/11/06 19:04:26 cer Exp $ +;; $fiHeader: ol-frames.lisp,v 1.17 92/11/09 19:55:54 cer Exp $ (in-package :xm-silica) @@ -75,7 +75,8 @@ (font-args (and font (list :font font)))) (tk::set-values menu-shell :title (or label "Choose")) - (when font (tk::set-values menu-shell :font font)) + ;;-- Does not have a font resource + ;; (when font (tk::set-values menu-shell :font font)) (labels ((make-menu-button (item class parent &rest options) (let ((button