diff options
| author | Michele Calgaro <michele.calgaro@yahoo.it> | 2018-10-18 22:45:41 +0900 |
|---|---|---|
| committer | Michele Calgaro <michele.calgaro@yahoo.it> | 2018-10-21 19:17:26 +0900 |
| commit | 10ee12b66a226f890b423ab711e17efd04bd2f70 (patch) | |
| tree | 64d998718597a805203696291a935c0d9672682e /PerlTQt/bin | |
| parent | 3144af3574cf5c78b414ab7ce2efb5dacf2549b3 (diff) | |
| download | libtqt-perl-10ee12b66a226f890b423ab711e17efd04bd2f70.tar.gz libtqt-perl-10ee12b66a226f890b423ab711e17efd04bd2f70.zip | |
Moved to /usr folder instead of /opt/trinity. This relates to bug 266.
Signed-off-by: Michele Calgaro <michele.calgaro@yahoo.it>
Diffstat (limited to 'PerlTQt/bin')
| -rwxr-xr-x | PerlTQt/bin/ptqtapi (renamed from PerlTQt/bin/pqtapi) | 4 | ||||
| -rwxr-xr-x | PerlTQt/bin/ptqtsh (renamed from PerlTQt/bin/pqtsh) | 8 |
2 files changed, 6 insertions, 6 deletions
diff --git a/PerlTQt/bin/pqtapi b/PerlTQt/bin/ptqtapi index 338d600..3d8705b 100755 --- a/PerlTQt/bin/pqtapi +++ b/PerlTQt/bin/ptqtapi @@ -71,8 +71,8 @@ while ($i) } BEGIN { - $h = "pqtapi - a PerlTQt introspection tool\t(c) Germain Garand 2003 <germain\@ebooksfrance.org>\n\n". - "usage: pqtapi [-r <re>] [<class>]\n\n". + $h = "ptqtapi - a PerlTQt introspection tool\t(c) Germain Garand 2003 <germain\@ebooksfrance.org>\n\n". + "usage: ptqtapi [-r <re>] [<class>]\n\n". "options:\n". "\t-r <re> : find all functions matching regular expression/keyword <re>\n". "\t-i : together with -r, performs a case insensitive search\n". diff --git a/PerlTQt/bin/pqtsh b/PerlTQt/bin/ptqtsh index ec44e43..012e920 100755 --- a/PerlTQt/bin/pqtsh +++ b/PerlTQt/bin/ptqtsh @@ -1,6 +1,6 @@ #!/usr/bin/perl -# pqtsh : a graphical shell for PerlTQt. +# ptqtsh : a graphical shell for PerlTQt. # # author: Germain Garand <germain@ebooksfrance.org> # license: GNU Public License v2 @@ -347,7 +347,7 @@ sub fileOpen { my $fn = TQt::FileDialog::getOpenFileName( ".", - "Pqtsh Session (*.pqts)", + "Pqtsh Session (*.ptqts)", this, "open session", "Choose a file to open" ); @@ -360,11 +360,11 @@ sub getFileName { fileName = TQt::FileDialog::getSaveFileName( ".", - "Pqtsh Session (*.pqts)", + "Pqtsh Session (*.ptqts)", this, "save session", "Choose a filename" ); - fileName !~ /\.pqts$/ and fileName = fileName . ".pqts"; + fileName !~ /\.ptqts$/ and fileName = fileName . ".ptqts"; return fileName; } |