Skip to content
Snippets Groups Projects
Commit a3d036d9 authored by colin's avatar colin
Browse files

fix for ol text field gadgets

parent 6f9138d8
No related branches found
No related tags found
No related merge requests found
;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Package: CLIM-INTERNALS; Base: 10; Lowercase: Yes -*- ;;; -*- 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) (in-package :clim-internals)
...@@ -690,7 +690,7 @@ ...@@ -690,7 +690,7 @@
(declare (ignore type)) (declare (ignore type))
;; we can put this back in when we handle ol text-fields ;; we can put this back in when we handle ol text-fields
;; correctly (see tk-silica/ol-gadgets) ;; correctly (see tk-silica/ol-gadgets)
#+ignore (assert (= index (length new-value))) (assert (= index (length new-value)))
object) object)
(error () (error ()
(setf (accept-values-query-error-p query) t)) (setf (accept-values-query-error-p query) t))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment