🚀 go-pugleaf

成松です。

In article <35754C99.C3F5382A@kais.kyoto-u.ac.jp>
sobue <sobue@kais.kyoto-u.ac.jp> writes:

>   > >   Ｃ言語でTkを使いたいのですが、どうやったら良いのか情報を教えて下さい。本
>   > >   を読んでも具体例がないのでTk_Window などの使い方がわかりません。アプリケ
>   > >   ーションのｃの簡単なソースがあったら良いのですが。（窓を表示するだけと
>   > >   か）
>   >
>   > Ousterhoutの『Tcl and the Tk Toolkit』の Part IV: Tk's C Interfacesに
>   > まさにそのC言語でのTkの使い方を具体例を使って説明してあります。
>   > 御覧になったら如何でしょうか？
>   > --
>   > 成松 宏      nari@mxb.meshnet.or.jp  http://www2b.meshnet.or.jp/~nari
>
>     ご紹介の本の邦訳はすでに持っていますが、確かに各関数の機能については詳しく記述
>   してあるのですが、実際にアプリケーションを作る時にどうやって使ったら良いのかわか

sobueさんのおっしゃる『Ｃ言語でTkを使う』という意味を誤解していたよう
です。すみません。『Ｃ言語でTkを使う』やりかたとしては次の2つを思い付
きます。

  1. C言語でTkの新たなwidgetを作り、既存のtcl/tkと一緒に使う
  2. C言語で書いたプログラムにtcl/tkのインタプリタを組み込み、tcl/tk
     のプログラムを使用できるようにする。

わたしは、1ばかりやっていたもので、sobueさんもそうであろうと思って
答えてしまいました。 2の方法であれば、次のようなプログラムでできます。

======================= sample.c ============================
#include <tk.h>

main()
{
  Tcl_Interp *interp;
  interp = Tcl_CreateInterp();
  if (Tcl_Init(interp) == TCL_ERROR) exit(1);
  if (Tk_Init(interp) == TCL_ERROR) exit(1);
  Tcl_StaticPackage(interp, "Tk", Tk_Init, (Tcl_PackageInitProc *) NULL);
  Tcl_Eval(interp,"button .exit -text exit -command exit;pack .exit");
  Tk_MainLoop();
  Tcl_DeleteInterp(interp);
  Tcl_Exit(0);
}
======================= sample.c  (ここまで) ================

コンパイル＆リンクの方法は、私の環境では、次のようになります。

% cc sample.c -I/usr/X11R6/include -I/usr/local/include -L/usr/X11R6/lib\
	-L/usr/local/lib -ltk42 -ltcl76 -lX11 -lm

tcl/tkのバージョンが変わると、多少修正が必要になるかもしれません。
tkに添付の tkAppInit.cとtkMain.cを参考にすると、いいと思います。

sobueさんの『Ｃ言語でTkを使う』方法が、これでもなければ教えて下さい。
--
成松 宏      nari@mxb.meshnet.or.jp  http://www2b.meshnet.or.jp/~nari