尝试从使用 tkx (Tcl/tk) 的 Perl 脚本创建独立应用程序

Question

这是我的规格： OS X 老虎 珀尔 5.8 使用与 ActiveTcl v8.5 捆绑的 Tkx

我已经使用 PAR/pp 成功创建了具有上述配置的独立应用程序，但这不是一个完全令人满意的解决方案：

• 仍然需要安装 Tcl/Tk
• 在 Tcl/Tk 窗口中打开 默认菜单
• 每次运行应用程序时，

都会打开终端是否有其他途径可以绕过这些问题？

Answer 1

如果您使用 ActivePerl，它应该与 Tcl 和 Tk 的共享对象捆绑在一起。这些文件是 Tcl.so 和 tkkit.so（Windows 上为 Tcl.dll 和 tkkit.dll）。您需要使用 -l 选项配置 pp 以将它们与您的独立可执行文件捆绑在一起。例如（在 Windows 上）：

-l C:/Perl/lib/auto/Tcl/tkkit.dll
-l C:/Perl/lib/auto/Tcl/Tcl.dll

不幸的是 PAR 无法将共享对象解压到正确的位置以便 Tkx 应用程序找到它们。您可以通过在加载 Tkx 之前设置 $ENV{PERL_TCL_DL_PATH} 来解决此问题。要使应用程序在有或没有 PAR 的情况下都可用，请使用 BEGIN 块来检测它何时在 PAR 下运行：

use strict;
use warnings;
use File::Spec::Functions;

BEGIN {
    if (exists $ENV{PAR_PROGNAME}) {
        use Config ();
        $ENV{PERL_TCL_DL_PATH} = catfile(
            $ENV{PAR_TEMP},
            'tkkit.' . $Config::Config{dlext},
        );
    }
}

use Tkx;
# remainder of script...

pp 具有 -g （或 --gui) 选项来构建没有控制台窗口的应用程序，但它仅适用于 Windows。我不知道是否有办法在 OS X 上隐藏控制台。

至于在带有默认菜单的 Tcl/Tk 窗口中打开应用程序，我不知道。我怀疑这是因为您使用的是 ActiveTcl 安装而不是与 ActivePerl 捆绑在一起的共享对象。

Answer 2

ActiveState Perl 开发工具包具有将 Tkx 脚本绑定为正确的 OS X 应用程序的额外知识。您可以尝试一下 http://www.activestate.com/perl-dev-kit< /a>.

弹出的控制台与 Tk 中的启发式方法有关，它试图确定您是否正在交互式运行（并且在您的情况下显然是错误的）。您始终可以通过以下方式抑制其显示：

Tkx::catch("console hide");

在 OS XI 上还建议：

Tkx::set("::tk::mac::useThemedToplevel" => 1);