[ruby-list:41670] Re: MacOS X Aqua 対応のための tcltklib の extconf.rb

永井@知能．九工大です．

From: 天野 竜太郎 <[e-mail]>
Subject: [ruby-list:41669] Re: MacOS X Aqua 対応のための tcltklib の extconf.rb
Date: Tue, 6 Dec 2005 15:53:12 +0900
Message-ID: <[e-mail]>
> どのようにすればいいのでしょうか。
> できるだけ具体的指示をお願いします。
> (この部分をこのファイルのx行目以下に貼り付けろ、など）

では，messageBox のみについて対応することを考えるとすると，
demos-jp/widget の末尾で
---------------------------------------------------------
Tk.mainloop
---------------------------------------------------------
と呼んでいる部分の直前に
---------------------------------------------------------
Tk.ip_eval(<<'EOS')
    proc ::tk_messageBox {args} {
        return [eval tk::MessageBox $args]
    }
EOS
---------------------------------------------------------
という記述を加えてみてください．
期待通りであれば，メッセージボックスのデモにおいて，
Aqua 特有のダイアログの代りに，昔からの Tcl/Tk の
メッセージボックスが表示されることになるはずです．

> メニューの項目です。
> 1. メニューとカスケードを含んだウィンドウ
> 2. メニューとカスケードを含んだウィンドウ (Tk8.x 専用)
> 3.                 〃                (機能に対応したバー 
> ジョンのTkが必要)
> のうち、最初の二つは、
> 「Alt-Xを入力すると、Xがメニューにアンダーライン付き 
> で表示されている文字ならば...」
> とあり、
> 3番目のは
> 「Command+X('x'はコマンドキーシンボルに続けて表示されてい 
> る文字です)とタイプ...」
> とあります。1と2に関しては、マック環境でもこのように 
> 表示されて、いいわけですよね。
> 1と2がプラットフォーム判定のif文のミスで、Mac 
> 環境にもかかわらず「Alt-X...」の方の文が出てきているという 
> わけではないですよね。

はい．
1 と 2 は古くに作られたデモであるために，
単に aqua に対応していないというだけです．
1 と 2 での表示メッセージ決定部分は
------------------------------------------------------
  if $tk_platform['platform'] == 'macintosh'
------------------------------------------------------
という判定になっており，3 では
------------------------------------------------------
  if $tk_platform['platform'] == 'macintosh' ||
      windowingsystem == "classic" || windowingsystem == "aqua"
------------------------------------------------------
となっています．
紛らわしいので，本来なら 3 に揃えた方がいいのでしょうね．
念のための確認として，Aqua では
--------------------------------------------------
ruby -r tk -e 'p $tk_platform["platform"]'
--------------------------------------------------
が何を返すか教えていただけると助かります．
-- 
                                       永井 秀利 （九工大 知能情報）
                                           [e-mail]