ViewVC Help
View File | Revision Log | Show Annotations | Revision Graph | Root Listing
root/cebix/BasiliskII/src/BeOS/about_window.cpp
Revision: 1.6
Committed: 2008-01-01T09:40:32Z (16 years, 10 months ago) by gbeauche
Branch: MAIN
CVS Tags: HEAD
Changes since 1.5: +2 -2 lines
Error occurred while calculating annotation data.
Log Message:
Happy New Year!

File Contents

# Content
1 \/*
2 * about_window.cpp - "About" window
3 *
4 * Basilisk II (C) 1997-2008 Christian Bauer
5 *
6 * This program is free software; you can redistribute it and/or modify
7 * it under the terms of the GNU General Public License as published by
8 * the Free Software Foundation; either version 2 of the License, or
9 * (at your option) any later version.
10 *
11 * This program is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 * GNU General Public License for more details.
15 *
16 * You should have received a copy of the GNU General Public License
17 * along with this program; if not, write to the Free Software
18 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
19 */
20
21 #include <InterfaceKit.h>
22 #include <stdio.h>
23
24 #include "sysdeps.h"
25 #include "version.h"
26 #include "user_strings.h"
27
28 /*
29 * Display "About" window
30 */
31
32 void ShowAboutWindow(void)
33 {
34 char str[512];
35 sprintf(str,
36 "Basilisk II\nVersion %d.%d\n\n"
37 "Copyright " B_UTF8_COPYRIGHT " 1997-2008 Christian Bauer et al.\n"
38 "E-mail: Christian.Bauer@uni-mainz.de\n"
39 "http://www.uni-mainz.de/~bauec002/B2Main.html\n\n"
40 "Basilisk II comes with ABSOLUTELY NO\n"
41 "WARRANTY. This is free software, and\n"
42 "you are welcome to redistribute it\n"
43 "under the terms of the GNU General\n"
44 "Public License.\n",
45 VERSION_MAJOR, VERSION_MINOR
46 );
47 BAlert *about = new BAlert("", str, GetString(STR_OK_BUTTON), NULL, NULL, B_WIDTH_FROM_LABEL);
48 BTextView *theText = about->TextView();
49 if (theText) {
50 theText->SetStylable(true);
51 theText->Select(0, 11);
52 BFont ourFont;
53 theText->SetFontAndColor(be_bold_font);
54 theText->GetFontAndColor(2, &ourFont, NULL);
55 ourFont.SetSize(24);
56 theText->SetFontAndColor(&ourFont);
57 }
58 about->Go();
59 }