From a3d036d9479a893a11991a5dba83d82b1ba71b84 Mon Sep 17 00:00:00 2001 From: colin <colin> Date: Mon, 26 Apr 1993 20:17:32 +0000 Subject: [PATCH] fix for ol text field gadgets --- clim/gadget-output.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/clim/gadget-output.lisp b/clim/gadget-output.lisp index 0955018c..6179a16e 100644 --- a/clim/gadget-output.lisp +++ b/clim/gadget-output.lisp @@ -1,6 +1,6 @@ ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Package: CLIM-INTERNALS; Base: 10; Lowercase: Yes -*- -;; $fiHeader: gadget-output.lisp,v 1.45 93/03/04 18:59:54 colin Exp $ +;; $fiHeader: gadget-output.lisp,v 1.46 93/03/25 15:39:40 colin Exp $ (in-package :clim-internals) @@ -690,7 +690,7 @@ (declare (ignore type)) ;; we can put this back in when we handle ol text-fields ;; correctly (see tk-silica/ol-gadgets) - #+ignore (assert (= index (length new-value))) + (assert (= index (length new-value))) object) (error () (setf (accept-values-query-error-p query) t)) -- GitLab