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:
c587e2e
)
improvements to toolbar-demo
author
Dmitry Kalyanov
<Kalyanov.Dmitry@gmail.com>
Tue, 17 Mar 2009 08:20:45 +0000
(11:20 +0300)
committer
Dmitry Kalyanov
<Kalyanov.Dmitry@gmail.com>
Tue, 17 Mar 2009 08:20:45 +0000
(11:20 +0300)
gtk/gtk.demo.lisp
patch
|
blob
|
history
diff --git
a/gtk/gtk.demo.lisp
b/gtk/gtk.demo.lisp
index
b924d57
..
8df755e
100644
(file)
--- a/
gtk/gtk.demo.lisp
+++ b/
gtk/gtk.demo.lisp
@@
-300,19
+300,23
@@
(gtk-main)))
(defun test-toolbar ()
(gtk-main)))
(defun test-toolbar ()
- (let* ((window (make-instance 'gtk-window :type :toplevel :title "Toolbar"))
+ (let* ((window (make-instance 'gtk-window :type :toplevel :title "Toolbar" :width-request 200 :height-request 100 :window-position :center))
(v-box (make-instance 'v-box))
(v-box (make-instance 'v-box))
- (toolbar (make-instance 'toolbar)))
+ (toolbar (make-instance 'toolbar :toolbar-style :icons :icon-size :small-toolbar :icon-size-set t))
+ (l (make-instance 'label :label "Toolbar demo")))
(gobject:g-signal-connect window "destroy" (lambda (w) (gobject:release w) (gtk-main-quit)))
(container-add window v-box)
(box-pack-start v-box toolbar :expand nil)
(gobject:g-signal-connect window "destroy" (lambda (w) (gobject:release w) (gtk-main-quit)))
(container-add window v-box)
(box-pack-start v-box toolbar :expand nil)
- (box-pack-start v-box (make-instance 'label :text "Label"))
+ (box-pack-start v-box l)
(let ((b (make-instance 'tool-button :stock-id "gtk-connect")))
(g-signal-connect b "clicked" (lambda (b)
(let ((b (make-instance 'tool-button :stock-id "gtk-connect")))
(g-signal-connect b "clicked" (lambda (b)
- (format t "clicked on ~A~%" b)
- (let ((d (make-instance 'message-dialog :message-type :info :text (format nil "clicked on ~A" b) :buttons :ok)))
- (dialog-run d)
- (object-destroy d))))
+ (setf (tool-button-stock-id b)
+ (if (string= (tool-button-stock-id b) "gtk-connect")
+ (prog1 "gtk-disconnect" (setf (label-label l) "Disconnected"))
+ (prog1 "gtk-connect" (setf (label-label l) "Connected"))))))
(toolbar-insert toolbar b -1))
(toolbar-insert toolbar b -1))
+ (toolbar-insert toolbar (make-instance 'separator-tool-item) -1)
+ (toolbar-insert toolbar (make-instance 'tool-button :stock-id "gtk-undo" :sensitive nil) -1)
+ (toolbar-insert toolbar (make-instance 'tool-button :stock-id "gtk-redo") -1)
(gtk-widget-show-all window)
(gtk-main)))
\ No newline at end of file
(gtk-widget-show-all window)
(gtk-main)))
\ No newline at end of file