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