From 9537689e63541f8d74d4897fd87a3b770d18eba6 Mon Sep 17 00:00:00 2001
From: cer <cer>
Date: Tue, 10 Nov 1992 08:56:55 +0000
Subject: [PATCH] tk-silica/ol-frames.lisp : menushell does not have a font
 resource

---
 tk-silica/ol-frames.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/tk-silica/ol-frames.lisp b/tk-silica/ol-frames.lisp
index e3a71b7c..5bd2a879 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
-- 
GitLab