projects
/
cl-gtk2.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a6a7b8a
)
Fix gtk-demo:demo's usage of text-tag-table
author
Dmitry Kalyanov
<Kalyanov.Dmitry@gmail.com>
Mon, 25 Jan 2010 00:39:06 +0000
(
03:39
+0300)
committer
Dmitry Kalyanov
<Kalyanov.Dmitry@gmail.com>
Mon, 25 Jan 2010 01:04:56 +0000
(
04:04
+0300)
gtk/gtk.demo.lisp
patch
|
blob
|
history
diff --git
a/gtk/gtk.demo.lisp
b/gtk/gtk.demo.lisp
index
343b967
..
4d80b79
100644
(file)
--- 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)))
(: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))
(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)
(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)