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:
1105117
)
Change gtk-demo:test-notebook
author
Dmitry Kalyanov
<Kalyanov.Dmitry@gmail.com>
Tue, 12 May 2009 13:33:54 +0000
(17:33 +0400)
committer
Dmitry Kalyanov
<Kalyanov.Dmitry@gmail.com>
Tue, 12 May 2009 13:33:54 +0000
(17:33 +0400)
gtk/gtk.demo.lisp
patch
|
blob
|
history
diff --git
a/gtk/gtk.demo.lisp
b/gtk/gtk.demo.lisp
index
8c52342
..
57f38b1
100644
(file)
--- a/
gtk/gtk.demo.lisp
+++ b/
gtk/gtk.demo.lisp
@@
-456,7
+456,15
@@
(iter (for i from 0 to 5)
(for page = (make-instance 'label :label (format nil "Label for page ~A" i)))
(for tab-label = (make-instance 'label :label (format nil "Tab ~A" i)))
(iter (for i from 0 to 5)
(for page = (make-instance 'label :label (format nil "Label for page ~A" i)))
(for tab-label = (make-instance 'label :label (format nil "Tab ~A" i)))
- (for tab-button = (make-instance 'button :use-stock t :label "gtk-close" :relief :none))
+ (for tab-button = (make-instance 'button
+ :image (make-instance 'image :stock "gtk-close" :icon-size 1)
+ :relief :none))
+ (g-signal-connect tab-button "clicked"
+ (let ((page page))
+ (lambda (button)
+ (declare (ignore button))
+ (format t "Removing page ~A~%" page)
+ (notebook-remove-page notebook page))))
(for tab-hbox = (make-instance 'h-box))
(box-pack-start tab-hbox tab-label)
(box-pack-start tab-hbox tab-button)
(for tab-hbox = (make-instance 'h-box))
(box-pack-start tab-hbox tab-label)
(box-pack-start tab-hbox tab-button)