3 (defcfun (assistant-nth-page "gtk_assistant_get_nth_page") (g-object widget)
4 (assistant (g-object assistant))
7 (export 'assistant-nth-page)
9 (defcfun (assistant-append-page "gtk_assistant_append_page") :int
10 (assistant (g-object assistant))
11 (page (g-object widget)))
13 (export 'assistant-append-page)
15 (defcfun (assistant-prepend-page "gtk_assistant_prepend_page") :int
16 (assistant (g-object assistant))
17 (page (g-object widget)))
19 (export 'assistant-prepend-page)
21 (defcfun (assistant-insert-page "gtk_assistant_insert_page") :int
22 (assistant (g-object assistant))
23 (page (g-object widget))
26 (export 'assistant-insert-page)
28 (defcstruct assistant-page-func-ref
32 (defcallback assistant-page-func-cb :int
33 ((current-page :int) (data :pointer))
34 (let* ((object (convert-from-foreign (foreign-slot-value data 'assistant-page-func-ref 'object) '(g-object assistant)))
35 (fn-id (foreign-slot-value data 'assistant-page-func-ref 'fn-id))
36 (fn (retrieve-handler-from-object object fn-id)))
37 (funcall fn current-page)))
39 (defcallback assistant-page-func-destroy-notify-cb :void
41 (let* ((object (convert-from-foreign (foreign-slot-value data 'assistant-page-func-ref 'object) '(g-object assistant)))
42 (fn-id (foreign-slot-value data 'assistant-page-func-ref 'fn-id)))
43 (delete-handler-from-object object fn-id)))
45 (defcfun gtk-assistant-set-forward-page-func :void
46 (assistant (g-object assistant))
49 (destroy-notify :pointer))
51 (defun set-assistant-forward-page-function (assistant function)
53 (let ((ref (foreign-alloc 'assistant-page-func-ref))
54 (fn-id (save-handler-to-object assistant function)))
55 (setf (foreign-slot-value ref 'assistant-page-func-ref 'object)
57 (foreign-slot-value ref 'assistant-page-func-ref 'fn-id)
59 (gtk-assistant-set-forward-page-func assistant (callback assistant-page-func-cb)
60 ref (callback assistant-page-func-destroy-notify-cb)))
61 (gtk-assistant-set-forward-page-func assistant (null-pointer) (null-pointer) (null-pointer))))
63 (defcfun (assistant-add-action-widget "gtk_assistant_add_action_widget") :void
64 (assistant (g-object assistant))
65 (widget (g-object widget)))
67 (export 'assistant-add-action-widget)
69 (defcfun (assistant-remove-action-widget "gtk_assistant_remove_action_widget") :void
70 (assistant (g-object assistant))
71 (widget (g-object widget)))
73 (export 'assistant-remove-action-widget)
75 (defcfun (assistant-update-buttons-state "gtk_assistant_update_buttons_state") :void
76 (assistant (g-object assistant)))
78 (export 'assistant-update-buttons-state)