X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.demo.lisp;h=4d80b7919941afc99b424764bd828da544ea6eba;hb=1358bee22eca675fb53998de23b064008cdab1f4;hp=343b967b80657d4e79d7289c60fc261e75b6bc87;hpb=a6a7b8adcb7eb42aeb4a5db2ae7b6eb75a728338;p=cl-gtk2.git

diff --git a/gtk/gtk.demo.lisp b/gtk/gtk.demo.lisp
index 343b967..4d80b79 100644
--- a/gtk/gtk.demo.lisp
+++ b/gtk/gtk.demo.lisp
@@ -80,9 +80,17 @@
        (:fn "Testing GtkUIManager" test-ui-manager)
        (:fn "GtkFontChooser" test-font-chooser)))
 
+(defun clear-text-tag-table (table)
+  (let (tags)
+    (text-tag-table-foreach table
+                            (lambda (tag)
+                              (push tag tags)))
+    (iter (for tag in tags)
+          (text-tag-table-remove table tag))))
+
 (defun fill-demo-text-buffer (buffer text-view &optional (page 'index))
   (declare (ignorable text-view))
-  (setf (text-buffer-tag-table buffer) (make-instance 'text-tag-table))
+  (clear-text-tag-table (text-buffer-tag-table buffer))
   (setf (text-buffer-text buffer) "")
   (text-tag-table-add (text-buffer-tag-table buffer) (make-instance 'text-tag :name "bold" :weight 700))
   (labels ((insert-text (text)