From ff0f9eda5439890543102af748f269dcac8637c0 Mon Sep 17 00:00:00 2001
From: colin <colin>
Date: Tue, 27 Jul 1993 22:29:50 +0000
Subject: [PATCH] see changelog for Tue Jul 27 15:26:56 PDT 1993

---
 ChangeLog.n               | 14 ++++++++++++++
 test/test-suite.lisp      |  3 ++-
 tk-silica/ol-frames.lisp  |  6 +++---
 tk-silica/ol-gadgets.lisp |  6 ++++--
 4 files changed, 23 insertions(+), 6 deletions(-)

diff --git a/ChangeLog.n b/ChangeLog.n
index 3b112640..752b7928 100644
--- a/ChangeLog.n
+++ b/ChangeLog.n
@@ -1,3 +1,17 @@
+from colin: Tue Jul 27 15:26:56 PDT 1993
+
+test/test-suite.lisp
+- made ignore-clim-gesture wait 4 seconds - fixes problem where window
+  degrafted before initial repaint events are handled
+
+tk-silica/ol-frames.lisp
+- fixed typo
+
+tk-silica/ol-gadgets.lisp
+- set menu-pane background for pulldown menus from menu-bar initargs
+
+
+-------------------------------------------------------------------------------
 
 from colin: Mon Jul 26 17:28:19 PDT 1993
 
diff --git a/test/test-suite.lisp b/test/test-suite.lisp
index 0c9611e7..cef6e9a9 100644
--- a/test/test-suite.lisp
+++ b/test/test-suite.lisp
@@ -1,6 +1,6 @@
 ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Package: CLIM-USER; Base: 10; Lowercase: Yes -*-
 
-;; $fiHeader: test-suite.lisp,v 1.67 1993/06/23 00:13:40 cer Exp $
+;; $fiHeader: test-suite.lisp,v 1.68 1993/07/22 15:39:13 cer Exp $
 
 (in-package :clim-user)
 
@@ -3116,6 +3116,7 @@ Luke Luck licks the lakes Luke's duck likes."))
 
 (defun ignore-clim-gesture (&rest ignore)
   (declare (ignore ignore))
+  (mp:process-sleep 4)
   (throw 'ignore-gesture nil))
 
 (define-benchmark (simple-menu-choose :iterations 10) (stream)
diff --git a/tk-silica/ol-frames.lisp b/tk-silica/ol-frames.lisp
index 3b5ad7c9..04cd5639 100644
--- a/tk-silica/ol-frames.lisp
+++ b/tk-silica/ol-frames.lisp
@@ -1,6 +1,6 @@
 ;; -*- mode: common-lisp; package: xm-silica -*-
 ;;
-;;				-[Thu Jul 22 17:18:32 1993 by colin]-
+;;				-[Tue Jul 27 13:40:13 1993 by colin]-
 ;; 
 ;; copyright (c) 1985, 1986 Franz Inc, Alameda, CA  All rights reserved.
 ;; copyright (c) 1986-1991 Franz Inc, Berkeley, CA  All rights reserved.
@@ -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.26 1993/07/22 15:39:30 cer Exp $
+;; $fiHeader: ol-frames.lisp,v 1.27 1993/07/27 01:54:59 colin Exp $
 
 
 (in-package :xm-silica)
@@ -192,7 +192,7 @@
 				      submenu 
 				      (clim-internals::menu-item-items item)))
 				 (let ((menu-button
-					(applt #'make-menu-button item
+					(apply #'make-menu-button item
 					       'xt::oblong-button
 					       menu
 					       initargs))
diff --git a/tk-silica/ol-gadgets.lisp b/tk-silica/ol-gadgets.lisp
index d05c242f..c6b55709 100644
--- a/tk-silica/ol-gadgets.lisp
+++ b/tk-silica/ol-gadgets.lisp
@@ -1,6 +1,6 @@
 ;; -*- mode: common-lisp; package: xm-silica -*-
 ;;
-;;				-[Thu Jul 22 16:58:22 1993 by colin]-
+;;				-[Tue Jul 27 14:03:48 1993 by colin]-
 ;; 
 ;; copyright (c) 1985, 1986 Franz Inc, Alameda, CA  All rights reserved.
 ;; copyright (c) 1986-1991 Franz Inc, Berkeley, CA  All rights reserved.
@@ -20,7 +20,7 @@
 ;; 52.227-19 or DOD FAR Supplement 252.227-7013 (c) (1) (ii), as
 ;; applicable.
 ;;
-;; $fiHeader: ol-gadgets.lisp,v 1.55 1993/07/22 15:39:32 cer Exp $
+;; $fiHeader: ol-gadgets.lisp,v 1.56 1993/07/27 01:55:04 colin Exp $
 
 
 (in-package :xm-silica)
@@ -358,6 +358,8 @@
 			menu-pane
 			nil)))
 
+		 (tk::set-values menu-pane :background (getf initargs :background)) 
+		 
 		 (when commands-and-buttons
 		   ;; We might have add-callbacks for a different set
 		   ;; of children which are now destroyed
-- 
GitLab