/[thuban]/trunk/thuban/Thuban/UI/about.py
ViewVC logotype

Contents of /trunk/thuban/Thuban/UI/about.py

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1323 - (show annotations)
Mon Jun 30 12:02:01 2003 UTC (21 years, 8 months ago) by jonathan
File MIME type: text/x-python
File size: 3045 byte(s)
Add Thuban email addresses.

1 # Copyright (c) 2001, 2002, 2003 by Intevation GmbH
2 # Authors:
3 # Jonathan Coles <[email protected]>
4 #
5 # This program is free software under the GPL (>=v2)
6 # Read the file COPYING coming with Thuban for details.
7
8 from wxPython.wx import *
9
10 from Thuban import _
11 from Thuban.version import versions
12
13 class About(wxDialog):
14
15 def __init__(self, parent):
16 wxDialog.__init__(self, parent, -1, _("About Thuban"),
17 style = wxDEFAULT_DIALOG_STYLE
18 | wxSYSTEM_MENU
19 | wxMINIMIZE_BOX
20 | wxMAXIMIZE_BOX
21 | wxRESIZE_BORDER,
22 size = (400, 250))
23
24 text = _(#"Build Date: %s\n"
25 "%s\n\n"
26 "Currently using:\n"
27 "\t%s\n"
28 "\t%s\n"
29 "\t%s\n"
30 "\t%s\n"
31 "\t%s\n\n"
32 "Compiled against:\n"
33 "\t%s\n"
34 "\t%s\n\n"
35 "Lead Developer:\n"
36 "\tBernhard Herzog\n\n"
37 "Developers:\n"
38 "\tJonathan Coles\n"
39 "\tFrank Koormann\n"
40 "\tBernhard Reiter\n"
41 "\tJan-Oliver Wagner\n\n"
42 "Contributors:\n"
43 "\tJonathan Byron\n"
44 "\tMartin Müller\n\n"
45 "Questions and comments can be sent to the following addresses:\n"
46 "\tThuban developers:\n\t\t<[email protected]>\n"
47 "\tThuban mailing list:\n\t\t<[email protected]>"
48 % ("Thuban %s" % versions['thuban-long'],
49 "wxPython %s" % versions['wxPython'],
50 "Python %s" % versions['python'],
51 "PySQLite %s" % versions['pysqlite'],
52 "SQLite %s" % versions['sqlite'],
53 "GDAL %s" % versions.get('gdal', "- not available"),
54 "GTK %s" % versions.get('gtk', "- not available"),
55 "proj %s" % versions['proj']))
56
57 self.text = text
58
59 text_title = wxStaticText(self, -1,
60 "Thuban is a program for exploring geographic data.\n\n"
61 "Copyright 2001-2003 Intevation GmbH.\n"
62 "Thuban is licensed under the GNU GPL",
63 style=wxST_NO_AUTORESIZE|wxALIGN_CENTRE)
64
65 textBox = wxTextCtrl(self, -1, text,
66 style=wxTE_READONLY|wxTE_MULTILINE|wxTE_LINEWRAP)
67 w, h = (300, 150)
68 textBox.SetSizeHints(w, h)
69 textBox.SetSize((w, h))
70
71 button_close = wxButton(self, wxID_CANCEL, _("Close"))
72 button_close.SetDefault()
73
74 sizer = wxBoxSizer(wxVERTICAL)
75 sizer.Add(text_title, 0, wxALL|wxEXPAND|wxADJUST_MINSIZE, 10)
76 sizer.Add(textBox, 1, wxALL|wxEXPAND, 10)
77 sizer.Add(button_close, 0, wxALL|wxALIGN_RIGHT, 10)
78
79 self.SetAutoLayout(True)
80 self.SetSizer(sizer)
81 sizer.Fit(self)
82 sizer.SetSizeHints(self)
83 self.Layout()
84
85 EVT_BUTTON(self, wxID_CANCEL, self.OnCancel)
86
87 def OnCancel(self, event):
88 self.EndModal(wxID_CANCEL)
89
90

Properties

Name Value
svn:eol-style native
svn:keywords Author Date Id Revision

[email protected]
ViewVC Help
Powered by ViewVC 1.1.26