1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
/*
* Copyright (c) 2002-2003 Jesper K. Pedersen <blackie@kde.org>
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
* License version 2 as published by the Free Software Foundation.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Library General Public License for more details.
*
* You should have received a copy of the GNU Library General Public License
* along with this library; see the file COPYING.LIB. If not, write to
* the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
* Boston, MA 02110-1301, USA.
**/
#ifdef TQT_ONLY
#include "compat.h"
#else
#include <klocale.h>
#include <kapplication.h>
#endif
#include "infopage.h"
InfoPage::InfoPage( TQWidget* parent, const char* name )
:KTextBrowser( parent, name )
{
TQString txt =
TQString::fromLatin1( "<qt>" ) +
i18n( "Translators, feel free to add yourself in the text below, asking for a postcard ;-), "
"also feel free to add a section saying <h2>Translators</h2>. "
"Kind regards, and thanks for your work - Jesper.",
"<h1>Regular Expression Editor</h1>"
"<p>What you are currently looking at is an editor for <i>Regular Expressions</i>.</p>"
"<p>The upper part in the middle is the editing area, the lower part is a verification window where you can "
"try your regular expressions right away. The row of buttons is the editing actions. "
"This is actually very similar to common drawing programs. Select an editing tool to start "
"editing your regular expression, and press the mouse button in the editing area where you want "
"this item inserted.</p>"
"<p>For a more detailed description of this editor see the <a href=\"doc://\">info pages</a></p>"
"<h2>What is a regular expression?</h2>"
"If you do not know what a regular expression is, then it might be a good idea "
"to read <a href=\"doc://whatIsARegExp\">the introduction to regular expressions</a>.<p>");
#ifdef HOUSEOFFUSION
txt += tr("<h2>House Of Fusion note</h2>"
"If you want to donate money to continue development on the KRegExpEditor port for "
"house of fusion then please contact Michael Dinowitz (mdinowit@houseoffusion.com).");
#endif
txt += i18n( "<h2>Send the author an electronic postcard</h2>"
"I don't get any money for working on KRegExpEditor, "
"I therefore appreciate it very much when users tell me what they think about my work. "
"I would therefore be very happy if you <a href=\"mailto:blackie@kde.org?subject=KRegExpEditor\">"
"sent me a short mail</a>, telling me that you use my regular expression editor."
"<h2>Author</h2>"
"<a href=\"http://www.blackie.dk/\">Jesper K. Pedersen</a> <<a href=\"mailto:blackie@kde.org\">blackie@kde.org</a>>")
+ TQString::fromLatin1( "</qt>" );
setText( txt );
}
void InfoPage::setSource ( const TQString& name )
{
#ifdef TQT_ONLY
mimeSourceFactory()->setFilePath( TQStringList() << TQString::fromLatin1("manual/"));
TQString nm = name;
if ( nm.endsWith("/") )
nm = nm.left( nm.length()-1);
if ( nm.startsWith("mailto:") ) {
TQMessageBox::information( this, tr("Support mail"), tr("Please send the mail to blackie@kde.org") );
return;
}
if ( nm.startsWith( "http:" ) )
return;
if ( nm == "doc://" )
nm = "doc://index";
if ( nm.startsWith( TQString::fromLocal8Bit("doc://") ) ) {
nm = nm.mid(6) + ".html";
}
TQTextBrowser::setSource( nm );
#else
if ( name.startsWith( TQString::fromLocal8Bit("doc://") ) ) {
kapp->invokeHelp( name.mid(6, name.length()-7), TQString::fromLocal8Bit("KRegExpEditor") );
}
else {
KTextBrowser::setSource( name ); // handle mailto and other links
}
#endif
}
|
