/[gtk-cffi]/gtk-cffi/gtk/about-dialog.lisp
ViewVC logotype

Contents of /gtk-cffi/gtk/about-dialog.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (show annotations)
Tue Mar 6 01:25:26 2012 UTC (2 years, 1 month ago) by rklochkov
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +4 -1 lines
added GtkAssistant and GtkBuilder
1 ;;;
2 ;;; about-dialog.lisp --- GtkAboutDialog
3 ;;;
4 ;;; Copyright (C) 2012, Roman Klochkov <kalimehtar@mail.ru>
5 ;;;
6
7 (in-package :gtk-cffi)
8
9 (defclass about-dialog (dialog)
10 ())
11
12 (defcfun gtk-about-dialog-new :pointer)
13
14 (defmethod gconstructor ((about-dialog about-dialog) &key &allow-other-keys)
15 (gtk-about-dialog-new))
16
17 (defcenum license :unknown :custom :gpl-2-0 :gpl-3-0 :lgpl-2-0 :lgpl-3-0
18 :bsd :mit-x11 :artistic)
19
20 (defslots about-dialog
21 program-name :string
22 version :string
23 copyright :string
24 comments :string
25 license :string
26 license-type license
27 website :string
28 website-label :string
29 authors string-array
30 artists string-array
31 documenters string-array
32 translator-credits :string
33 logo pobject
34 logo-icon-name :string)
35
36
37 (defmethod run ((dialog about-dialog) &key (keep-alive nil))
38 (call-next-method dialog :keep-alive keep-alive))
39
40 (init-slots about-dialog)

  ViewVC Help
Powered by ViewVC 1.1.5