[ltk-user] Little patch

[Federico Giraud]

Hi everybody,
first of all, sorry for my bad English.
I'm a student and I'm trying to use LTK.
I have noticed that tags don't work on
scroll-text widget. I've copied the
functions tag-configure and tag-bind from
the text widget to the scroll-text widget,
with little modifications.
These are the new functions:

(defmethod tag-configure ((txt scrolled-text) tag option value)
  (format-wish "~a tag configure ~a -~(~a~) {~(~a~)}" (widget-path
(textbox txt))
	       (if (stringp tag)
		   tag
		   (format nil "~(~a~)" tag))
	       option value)
  txt)

(defmethod tag-bind ((txt scrolled-text) tag event fun)
  "bind fun to event of the tag of the scrolled-text widget txt"
  (let ((name (create-name)))
    (add-callback name fun)
    (format-wish "~a tag bind ~a ~a {callback ~A}" (widget-path
(textbox txt)) tag event name)
    )
  txt)

I've also moved the generic functions for
tag-configure and tag-bind up, before
the new functions.

Now tags seem to work also on scroll-text
widget without warnings (with SBCL). I hope
I've helped you in some way.

Thanks to Peter for his work!

Federico Giraud