- (box-pack-start v-box toolbar :expand nil)
- (box-pack-start v-box l)
- (let ((b (make-instance 'tool-button :stock-id "gtk-connect")))
- (g-signal-connect b "clicked" (lambda (b)
- (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 (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)))
-
-(defun test-color-button ()
- (let* ((window (make-instance 'gtk-window :type :toplevel :title "Color button" :width-request 200 :height-request 100 :window-position :center))
- (button (make-instance 'color-button :label "Choose your color" :use-alpha t)))
- (gobject:g-signal-connect window "destroy" (lambda (w) (gobject:release w) (gtk-main-quit)))
- (container-add window button)
- (setf (color-button-color button)
- (make-color :red (random 65536) :green (random 65536) :blue (random 65536)))
- (gtk-widget-show-all window)
+ (box-pack-start v-box h-box :expand nil)
+ (box-pack-start h-box title-entry :expand nil)
+ (box-pack-start h-box value-entry :expand nil)
+ (box-pack-start h-box button :expand nil)
+ (box-pack-start v-box combo-box)
+ (let ((renderer (make-instance 'cell-renderer-text :text "A text")))
+ (cell-layout-pack-start combo-box renderer :expand t)
+ (cell-layout-add-attribute combo-box renderer "text" 0))
+ (let ((renderer (make-instance 'cell-renderer-text :text "A number")))
+ (cell-layout-pack-start combo-box renderer :expand nil)
+ (cell-layout-add-attribute combo-box renderer "text" 1))
+ (widget-show window)