/[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 1542 - (show annotations)
Fri Aug 1 16:13:49 2003 UTC (21 years, 7 months ago) by bh
File MIME type: text/x-python
File size: 3112 byte(s)
Insert cvs keywords and doc-strings.

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

Properties

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

[email protected]
ViewVC Help
Powered by ViewVC 1.1.26