(gobject:define-vtable ("GtkApplication" application)
  ;; Parent class
  (:skip parent-instance (:struct gobject:object-class))
  ;; Signals
  (startup              (:void (application (g:object g:application))))
  (activate             (:void (application (g:object g:application))))
  (open                 (:void
                         (application (g:object g:application))
                         (files :pointer)
                         (n-files :int)
                         (hint :string)))
  (command-line         (:int
                         (application (g:object g:application))
                         (command-line (g:object g:application-command-line))))
  ;; Virtual functions
  (local-comman-line    (:boolean
                         (application (g:object g:application))
                         (arguments (:pointer :string))
                         (exit-status (:pointer :int))))
  (before-emit          (:void
                         (application (g:object g:application))
                         (platform-data (:pointer (:struct g:variant)))))
  (after-emit           (:void
                         (application (g:object g:application))
                         (platform-data (:pointer (:struct g:variant)))))
  (add-platform-data    (:void
                         (application (g:object g:application))
                         (builder :pointer)))
  (quit-mainloop        (:void (application (g:object g:application))))
  (run-mainloop         (:void (application (g:object g:application))))
  (shutdown             (:void (application (g:object g:application))))
  (dbus-register        (:boolean
                         (application (g:object g:application))
                         (connection :pointer)
                         (object-path :string)
                         (error :pointer)))
  (dbus-unregister      (:void
                         (application (g:object g:application))
                         (connection :pointer)
                         (object-path :string)))
  (handle-local-options (:int
                         (application (g:object g:application))
                         (options (g:boxed g:variant-dict))))
  (name-lost            (:boolean (application (g:object g:application)))))