diff --git a/ChangeLog.n b/ChangeLog.n index 3b112640c326535700b1b445b5def8b72dae348f..752b79280059ed90d3f62216e0eb9ae5257e24ce 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 0c9611e707621e1324ef499f15320eabf483caf7..cef6e9a994e98dbe8b981fd46628490ee6590949 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 3b5ad7c9bc6ab86b05fb0f70e65d3bcd01d28e9f..04cd5639f986da0d28101359cadb4a0d28ebe5b8 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 d05c242f3cbc7966a777f999e321dd7c66b04c6e..c6b55709fa54ce6c405cd741b325d121d42314f2 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