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