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