-(defcstruct assistant-page-func-ref
- (object :pointer)
- (fn-id :int))
-
-(defcallback assistant-page-func-cb :int
- ((current-page :int) (data :pointer))
- (let* ((object (convert-from-foreign (foreign-slot-value data 'assistant-page-func-ref 'object) '(g-object assistant)))
- (fn-id (foreign-slot-value data 'assistant-page-func-ref 'fn-id))
- (fn (retrieve-handler-from-object object fn-id)))
- (funcall fn current-page)))
-
-(defcallback assistant-page-func-destroy-notify-cb :void
- ((data :pointer))
- (let* ((object (convert-from-foreign (foreign-slot-value data 'assistant-page-func-ref 'object) '(g-object assistant)))
- (fn-id (foreign-slot-value data 'assistant-page-func-ref 'fn-id)))
- (delete-handler-from-object object fn-id)))
-