diff options
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 <[email protected]> # 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; } |