如何在同一个程序中同时使用C++TCL和C++TK？

Question

因此，C++/TCL 为我们提供了通过 API 轻松管理的 TCL C++ 函数和类，这非常棒：

#include "cpptcl.h"
#include <iostream>
#include <string>
using namespace std;
using namespace Tcl;
void hello()
{
     cout << "Hello C++/Tcl!" << endl;
}
int main()
{
     interpreter i;
     i.def("hello", hello);
     string script = "for {set i 0} {$i != 4} {incr i} { hello }";
     i.eval(script);
}

同时，在 C++/Tk 中处理系统事件循环非常好正如

#include <string>
#include "cpptk.h"

int main(int argc, char *argv[])
{
    std::string script = 
        "package require Tcl 8.5\n"
        "package require Tk 8.5\n"
        "ttk::button \".b\" -text \"Say Hello\"\n"
        "pack \".b\" -padx 20 -pady 6\n"
        ;
    Tk::details::Expr(script, true);
    Tk::runEventLoop();
}

您所看到的，一个非常适合 API 创建，另一个非常适合 GUI 渲染。

我想找到一种方法将它们混合起来，例如这样的代码可以工作：

#include "cpptcl.h"
#include "cpptk.h"
#include <iostream>
#include <string>
using namespace std;
using namespace Tcl;
void hello()
{
     cout << "Hello C++/Tcl!" << endl;
}
int main()
{
     interpreter i;
     i.def("hello", hello);
     string script = 
        "package require Tcl 8.5\n"
        "package require Tk 8.5\n"
        "ttk::button \".b\" -text \"Say Hello\" -command hello \n"
        "pack \".b\" -padx 20 -pady 6\n"
        ;
    Tk::details::Expr(script, true);
    Tk::runEventLoop();
}

如何做这样的事情？如何混合C++/TCL和C++/Tk？

更新：

所以我们已经做到了。需要修复一些 CPP/TCL 和 CPP/Tk 源代码，请参阅我们的 svn< /a> 和 我的回答例如使用。

Answer 1

您可以使用 UI 回调来做复杂的事情，包括运行其他 Tcl 代码：

#include "cpptcl.h"
#include "cpptk.h"
#include <iostream>
#include <string>
using namespace std;
using namespace Tcl;

class TclHost
{
  interpreter i;
  static TclHost* singleton;

  static void hello()
  {
     cout << "Hello C++/Tcl!" << endl;
  }

  static void runScript()
  {
     singleton->i.def("hello", &TclHost::hello);
     string script = "for {set i 0} {$i != 4} {incr i} { hello }";
     singleton->i.eval(script);
  }

public:
  int main()
  {
     singleton = this;
     i.def("runscript", &TclHost::runScript);
     string script = 
        "package require Tcl 8.5\n"
        "package require Tk 8.5\n"
        "ttk::button \".b\" -text \"Run a script\" -command runscript\n"
        "pack \".b\" -padx 20 -pady 6\n"
        ;
    Tk::details::Expr(script, true);
    Tk::runEventLoop();

    return 0;
  }
};

TclHost* TclHost::singleton;

int main(void)
{
  TclHost().main();
}

您还需要查看 Tcl/Tk 事件循环支持的其他回调，包括计时器和文件 I/O。

Answer 2

所以我们已经做到了...）这是我们的 svn，已更新，可以正常工作C++/Tk 和 C++/TCL 进行了修补以相互配合，并纠正了官方 sourceforge 网站上的一些错误。

这是受启发的代码示例 作者：Ben：

#include "cpptcl/cpptcl.h"
#include "cpptk/cpptk.h"
#include <iostream>
#include <string>
Tcl::interpreter i(Tk::getInterpreter());
void hello()
{
    std::cout << "Hello C++/Tcl!" << std::endl;
}
void runScript()
{
    i.def("hello", hello);
    std::string script = "for {set i 0} {$i != 4} {incr i} { hello }";
    i.eval(script);
}
int main(int argc, char *argv[])
{

    i.def("runscript", runScript);
    std::string script = 
        "package require Tcl 8.5\n"
        "package require Tk 8.5\n"
        "ttk::button \".b\" -text \"Say Hello\" -command hello \n"
        "ttk::button \".c\" -text \"Run a script\" -command runscript\n"
        "pack \".b\" -padx 20 -pady 6\n"
        "pack \".c\" -padx 20 -pady 6\n"
        ;
    i.eval(script);
    Tk::runEventLoop();
}

祝您使用 TCL 和 Tk 一切顺利！）

Answer 3

Tcl::interpreter i(Tk::getInterpreter());

int main(int argc, char *argv[])
{

    i.def("runscript", runScript);
    std::string script = 
        "package require Tcl 8.5\n"
        "package require Tk 8.5\n"
        "ttk::button \".b\" -text \"Say Hello\" -command hello \n"
        "ttk::button \".c\" -text \"Run a script\" -command runscript\n"
        "pack \".b\" -padx 20 -pady 6\n"
        "pack \".c\" -padx 20 -pady 6\n"
        "after 10 vwait qwerasdfzxcv\n"
        ;
    i.eval(script);
    //Tk::runEventLoop(); //<== if you don't want stock here to make mainthread can keep running. you can add tcl script "after 10 vwait qwerasdfzxcv" as above showed.

}