gtk/gtk.assistant.lisp

   1 (in-package :gtk)
   2
   3 (defcfun (assistant-nth-page "gtk_assistant_get_nth_page") (g-object widget)
   4   (assistant (g-object assistant))
   5   (page-num :int))
   6
   7 (export 'assistant-nth-page)
   8
   9 (defcfun (assistant-append-page "gtk_assistant_append_page") :int
  10   (assistant (g-object assistant))
  11   (page (g-object widget)))
  12
  13 (export 'assistant-append-page)
  14
  15 (defcfun (assistant-prepend-page "gtk_assistant_prepend_page") :int
  16   (assistant (g-object assistant))
  17   (page (g-object widget)))
  18
  19 (export 'assistant-prepend-page)
  20
  21 (defcfun (assistant-insert-page "gtk_assistant_insert_page") :int
  22   (assistant (g-object assistant))
  23   (page (g-object widget))
  24   (position :int))
  25
  26 (export 'assistant-insert-page)
  27
  28 (defcfun gtk-assistant-set-forward-page-func :void
  29   (assistant (g-object assistant))
  30   (page-func :pointer)
  31   (data :pointer)
  32   (destroy-notify :pointer))
  33
  34 (define-cb-methods assistant-page-func :int ((current-page :int)))
  35
  36 (defun set-assistant-forward-page-function (assistant function)
  37   (if function
  38       (gtk-assistant-set-forward-page-func assistant
  39                                            (callback assistant-page-func-cb)
  40                                            (create-fn-ref assistant function)
  41                                            (callback assistant-page-func-destroy-notify))
  42       (gtk-assistant-set-forward-page-func assistant (null-pointer) (null-pointer) (null-pointer))))
  43
  44 (defcfun (assistant-add-action-widget "gtk_assistant_add_action_widget") :void
  45   (assistant (g-object assistant))
  46   (widget (g-object widget)))
  47
  48 (export 'assistant-add-action-widget)
  49
  50 (defcfun (assistant-remove-action-widget "gtk_assistant_remove_action_widget") :void
  51   (assistant (g-object assistant))
  52   (widget (g-object widget)))
  53
  54 (export 'assistant-remove-action-widget)
  55
  56 (defcfun (assistant-update-buttons-state "gtk_assistant_update_buttons_state") :void
  57   (assistant (g-object assistant)))
  58
  59 (export 'assistant-update-buttons-state)
  60
  61