/[gtk-cffi]/gtk-cffi/gtk/assistant.lisp
ViewVC logotype

Contents of /gtk-cffi/gtk/assistant.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.4 - (show annotations)
Sun Oct 7 12:02:11 2012 UTC (18 months, 1 week ago) by rklochkov
Branch: MAIN
CVS Tags: HEAD
Changes since 1.3: +1 -1 lines
Fixed examples. Changed cell properties for tree-column to be set as :attributes
Fixed double init in g-value.
1 ;;;
2 ;;; assistant.lisp -- GtkAssistant
3 ;;;
4 ;;; Copyright (C) 2012, Roman Klochkov <kalimehtar@mail.ru>
5 ;;;
6 (in-package :gtk-cffi)
7
8 (defclass assistant (window)
9 ())
10
11 (defcfun gtk-assistant-new :pointer)
12
13 (defmethod gconstructor ((assistant assistant) &key &allow-other-keys)
14 (gtk-assistant-new))
15
16 (defslots assistant
17 current-page :int)
18
19 (defcenum assistant-page-type
20 :content :intro :confirm :summary :progress :custom)
21
22 (deffuns assistant
23 (:get n-pages :int)
24 (:get nth-page pobject (page-num :int))
25 (prepend-page :int (page pobject))
26 (append-page :int (page pobject))
27 (insert-page :int (page pobject) (pos :int))
28 #+gtk3.2 (remove-page :void (page-num :int))
29 (:set-last page-type assistant-page-type (page pobject))
30 (:get page-type assistant-page-type (page pobject))
31 (:set-last page-title :string (page pobject))
32 (:get page-title :string (page pobject))
33 (:set-last page-complete :boolean (page pobject))
34 (:get page-complete :boolean (page pobject))
35 (add-action-widget :void (child pobject) &key)
36 (remove-action-widget :void (child pobject))
37 (update-buttons-state :void)
38 (commit :void)
39 (next-page :void)
40 (previous-page :void))
41
42
43 (defcallback cb-forward-page-func :int ((cur-page :int) (data pdata))
44 (funcall data cur-page))
45
46 (defcfun gtk-assistant-set-forward-page-func :void
47 (assistant pobject) (func pfunction) (data pdata) (notify pfunction))
48
49
50 (defmethod (setf forward-page-func) (func (assistant assistant)
51 &key data destroy-notify)
52 (set-callback assistant gtk-assistant-set-forward-page-func
53 cb-forward-page-func func data destroy-notify))
54
55 (init-slots assistant)

  ViewVC Help
Powered by ViewVC 1.1.5