●●●●TCL/TKなら俺に聞け 2●●●●

**デフォルトの名無しさん** · 2007/05/01(火) 14:52:44

【英語サイト】
プロジェクト本拠地
http://tcl.sourceforge.net/
最新版ソースコード
ftp://ftp.tcl.tk/pub/tcl/nightly-cvs/
The Tcler's Wiki
http://wiki.tcl.tk/
The comp.lang.tcl Newsgroup
http://groups.google.com/group/comp.lang.tcl/
ActiveTcl
http://www.activestate.com/products/activetcl/

【日本語サイト】
もっとTcl/Tk
http://www.interq.or.jp/japan/s-imai/tcltk/
Tcl/Tk Scripting Laboratory
http://www.geocities.jp/urano343/tcltk.html
Tcl/Tk Primer
http://mibai.tec.u-ryukyu.ac.jp/~oshiro/Doc/tcltk_primer/
Tcl 8.4.1　Manual Command Reference
http://www.freesoftnet.co.jp/tclkits/doc/TclCmdRef/tcl_contents_jp.htm
CategoryTclTk - mynote
http://reddog.s35.xrea.com/wiki/CategoryTclTk.html

【前スレ】
●●●●TCL/TKなら俺に聞け●●●●
http://pc11.2ch.net/test/read.cgi/tech/1033628416/

**デフォルトの名無しさん** · 2011/04/06(水) 10:52:07.57

>>719
eval exec ls [glob *.txt]

**デフォルトの名無しさん** · 2011/04/17(日) 23:05:54.75

Tcl、GoogleのNative Clientに対応した「NaTcl」を発表
http://slashdot.jp/developers/11/04/15/181223.shtml
> スクリプト言語TclをGoogleのNative Client環境で実行可能な「NaTcl」が発表された。
> NaTclを使用することでTclをWebブラウザ上で実行可能となり、Tclプログラムで
> Google ChromeのDOM(Document Object Model)に直接アクセスできる。これにより、
> JavaScriptの代わりにTclでWebアプリケーションを作成することが可能となる。
> また、Natice Client向けのTk、「NaTk」もまもなくリリースされるとのこと。

これでTcl/Tkの新しい本が出るようになるかな？

**デフォルトの名無しさん** · 2011/04/17(日) 23:17:37.46

昔Tcletってあったよね。

**デフォルトの名無しさん** · 2011/04/18(月) 09:11:17.63

>>726
今でもある

**デフォルトの名無しさん** · 2011/04/19(火) 00:21:24.65

すらどで話題になりなおかつそこそこコメントが付いてることにワシは感動しておるｗ
まだ見放されてなかったｗ

**デフォルトの名無しさん** · 2011/04/20(水) 15:53:49.10

ペイントソフトをつくろうと思っています
TkCanvasではTkcLine等を用いたベクタ形式の画像処理しかできないようですが
BMPファイル画像等の任意のピクセルの値の読み書きといった
いわゆるペイント系の処理はどのWidgetを使えば実装できるのでしょうか
ご教示お願いします

**デフォルトの名無しさん** · 2011/04/27(水) 20:32:05.36

できますよ

**デフォルトの名無しさん** · 2011/05/03(火) 23:02:06.65

>>729
難しいことなんて何もないよ。

package require Img
image create photo image1 -file sample.bmp
canvas .c
.c configure -width [image width image1] -height [image height image1]
.c create image 0 0 -image image1 -anchor nw
pack .c
set rgb [image1 get 10 10]
tk_messageBox -type ok -message "X=10,Y=10のRGB値：$rgb"
for {set i 1} {$i < 100} {incr i} {
image1 put #ff0033 -to $i $i
}

**デフォルトの名無しさん** · 2011/05/07(土) 22:56:08.08

バイナリファイルを読み込んで、編集して、別名で書き込むにはどうしたら良いでしょうか。
open、binary format、binary scan、puts、getsあたりを使えばできるだろうと思い、試行錯誤したのですが
どうしてもうまくいきません。
Tclは書籍（特に和書）が少ないのでwebの情報が頼りですが、
思ったような情報が見つからず困っています。

**デフォルトの名無しさん** · 2011/05/08(日) 00:39:37.94

そのコマンド列にfconfigureコマンドが無いのが気になった。

**デフォルトの名無しさん** · 2011/05/08(日) 00:55:01.94

>>733
確かにfconfigureも必要かもしれませんね。

できれば一部のデータを置換して別名で保存するようなサンプルが見てみたいです。

**デフォルトの名無しさん** · 2011/05/08(日) 01:34:03.82

まず、試行錯誤してみたコードを貼り付けてみたらどうですか
適当な1バイトを読んでその値を2倍して別ファイルに書き込むのは13行くらいでできた。

**デフォルトの名無しさん** · 2011/05/08(日) 01:49:08.08

ただファイルを読んでそのまま書き込むだけでも失敗してます。
set fileID [open IM000001]
set fileID2 [open IM000002 w]
fconfigure $fileID -translation binary
set strvar [read $fileID]
binary scan $strvar H* value
set len [string length $value]
puts $fileID2 [binary format H$len $value]
close $fileID

**736** · 2011/05/08(日) 01:53:11.25

ちなみにPythonでは簡単に成功しました。
import re

infile = open("IM000000", 'r')
outfile = open("COPYDCM", 'w')

data = infile.read()
data = re.sub("20110214911005", "99887766554433", data)

outfile.write(data)

infile.close()
outfile.close()

**736** · 2011/05/08(日) 01:56:24.08

737のスクリプトはIM000000というファイルの20110214911005を99887766554433に置換して
COPYDCMという名前で保存するだけです。
Tclではその程度ですら自分にはできません。

**デフォルトの名無しさん** · 2011/05/08(日) 02:01:45.23

少なくとも
fileID2 にも -translation binary が必要で、puts に -nonewline オプションが必要だともう。

**736** · 2011/05/08(日) 02:06:42.32

>>739
ご指摘の通りにしたら正常に動作しました。
これがわかれば置換等の編集をして保存することも難しくないかもしれません。
頑張ってみます。
ありがとうございました。

**733 735 739** · 2011/05/08(日) 02:15:08.51

どういたしまして。
Pythonが使えるのになぜTclなんだという疑問がありますが、Tcl使いが増えるとちょっとうれしい。

**デフォルトの名無しさん** · 2011/05/10(火) 20:13:53.27

あるディレクトリ内にあるファイルのパス名のリストを得るにはどうしたら良いでしょうか？
同じ階層だけであればglobで簡単にできますが、
下層にあるディレクトリ内のファイルも全て対象にしたいのです。

**デフォルトの名無しさん** · 2011/05/10(火) 21:29:56.14

globを再帰でつくる
とか、
Tcllibパッケージのfileutilを使う
package require fileutil
::fileutil::findByPattern . -glob *

**デフォルトの名無しさん** · 2011/05/12(木) 00:00:56.94

Tcl/Tkによるバイナリエディタ
http://reddog.s35.xrea.com/wiki/bineditor.html

**デフォルトの名無しさん** · 2011/05/19(木) 00:16:38.55

>>741
自分はこれからTcl/Tkを覚えようかとしてるんですが、この言語けっこう恵まれてません？
まぁ、自分のニーズもあるんですが、
・スクリプトで、GUIを手軽に書ける
・グラフの描画ライブラリがある（クリック可能）
・他言語との連携ができる
・単独で動作するバイナリができる
・言語仕様が簡単
・クロスプラットフォーム
・オープンソース
・枯れてる

この条件だとPythonでもよかったんですが、Pmw.Bltはちと不安で…。
自分でメンテ＋拡張しようにも、結局内部でTkコマンド呼んでるだけだったんで、なら、ということで。

**デフォルトの名無しさん** · 2011/05/22(日) 00:30:34.87

なぜかユーザーは少ない。最近はちょっと増えてきた気もするが
8.3～8.4のころは本当に見向きもされてなかった

**デフォルトの名無しさん** · 2011/05/22(日) 23:15:17.27

PythonでTkinterを介してTkを利用するのって難しすぎじゃね？
Tcl/Tkに慣れすぎると、Tkinterが煩わしくて仕方ない。
どうしてもPythonを使わざるをえない場合は仕方ないけど
できるだけTcl/Tkでやりたくなる。

**デフォルトの名無しさん** · 2011/05/23(月) 23:08:54.27

まあPython使うときはTk以外の選択肢いっぱいあるのでTk使わなくてもいいんでは

**デフォルトの名無しさん** · 2011/06/08(水) 22:15:40.29

Tclってfork()できないのがつらい。
TclXはちょっと...

**デフォルトの名無しさん** · 2011/06/09(木) 20:54:44.14

誰かWin/Linuxでドラッグ＆ドロップができるようになる拡張、
8.5以降に対応しているので知らんかね…

とりあえずTkDND 2.2を試して見てるんだけど、8.5には対応
してないらしく、何ヶ所かバグを潰してXConvertSelectionまで
辿り着いたとこで、手詰まった。

※XConvertSelectionをLD_PRELOADでフックして、ちゃんと
　Timeを与えるようにしたのにtimeoutになる、なぜだ…

**デフォルトの名無しさん** · 2011/06/11(土) 15:06:12.77

TkDNDのfixかなり粘ったけど、これは無理。
Tk本体のselection getもtext/uri-listに対応してなかったり、かなり根が深そう。
これ修正するくらいだったら、一から実装したほうが多分早い。くそぅ。

**デフォルトの名無しさん** · 2011/06/12(日) 13:33:18.93

誰か詳しい方、Tcl_CreateThreadについて教えてください…

拡張の処理に時間のかかる部分をThread化して、終了をvwait bgstatとかで
待とうとしてるんですけど、http://www.tcl.tk/のマニュアルには
「スレッドは親のinterpに触ってはいけない」とか書いてあるんで、スレッドから
set bgstatすることはできないようなのです。

このあたり、普通はどういう処理をするんでしょうか？
サンプルコードの場所なり、このソース読めば判るんじゃね、でも構わないんで、
なにかヒントをお願いします。
（vwaitのEXAMPLEにあるsocketコマンドは勘弁してください、挫折しました）

**デフォルトの名無しさん** · 2011/06/12(日) 17:44:41.87

>>752
Tcl_CreateThread()ということは、Cで拡張を書いている？
だったら、Tcl_AsyncMark()が使えると思う。
Tclのthreadコマンドだったら、thread(n)に書いてあるように、thread::sendを
使えば、threadの結果をvwait出来ると思う。

**デフォルトの名無しさん** · 2011/06/12(日) 18:28:11.50

>>753
Thanks！
CなのでTcl_AsyncMarkですが、マニュアルを読む限りそれっぽい！
とりあえず、何かサンプル書いて確かめてみます。

**デフォルトの名無しさん** · 2011/06/12(日) 19:33:11.70

…あれ？
自分の理解では、これで合ってるはずなんですが…

スレ汚し失礼。

----------

#include <stdio.h>
#include <unistd.h>
#include <tcl.h>

static Tcl_AsyncHandler async_handle;

static int proc_finished(ClientData clientData, Tcl_Interp *interp, int code)
{
Tcl_SetVar2Ex(interp, "bg_stat", NULL, Tcl_NewIntObj(1), TCL_LEAVE_ERR_MSG);
printf("bg_stat has been set to 1.\n.");
return code;
}

Tcl_ThreadCreateType threaded_proc(ClientData clientData)
{
sleep(5);
Tcl_AsyncMark(async_handle);
}

static int asynctestHandleProc(ClientData data, Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[])
{
Tcl_ThreadId idPtr;
Tcl_CreateThread(&idPtr, threaded_proc, NULL, TCL_THREAD_STACK_DEFAULT, TCL_THREAD_JOINABLE);
return TCL_OK;
}

**デフォルトの名無しさん** · 2011/06/12(日) 19:34:05.54

DLLEXPORT int Asynctest_Init(Tcl_Interp* interp)
{
async_handle = Tcl_AsyncCreate(proc_finished, NULL);
Tcl_CreateObjCommand(interp, "asynctest", asynctestHandleProc, NULL, NULL);
return Tcl_PkgProvide(interp, "asynctest", "0.0.1");
}

----------

#!/usr/bin/env tclsh

load [file join . libasynctest[info sharedlibextension]] asynctest

set bg_stat 0
set wait_stat 0

asynctest

puts "bg_stat is $bg_stat."
after 6000 {set wait_stat 1}
vwait wait_stat
puts "bg_stat is $bg_stat."

----------

$ ./asynctest.tcl
bg_stat is 1.
セグメンテーション違反です

**デフォルトの名無しさん** · 2011/06/12(日) 20:18:25.01

Tcl_SetVar2Ex呼ぶとこでinterpがNULLになってる…
なんか勘違いしてるっぽいですね。

**753** · 2011/06/12(日) 21:15:52.82

>>755
Tcl_AsyncMark(3)の
It is also possible for proc to be invoked when no interpreter is active.
そのものでは？
interp作る場合も注意が必要かな。tcllibとかにも注意。

親Threadにthread::sendでincr varとかを投げるほうが良いような気がしてきたけど。

**デフォルトの名無しさん** · 2011/06/12(日) 21:53:20.76

>>758
ありがとうございます、仰る通りな気がします。

Tclのソースでも、
generic/tclAsync.c: Tcl_AsyncInvoke()
　　If invoked from Tcl_Eval just after completing a command, points to interpreter. Otherwise it is NULL.
generic/tclTest.c: AsyncHandlerProc()
　　this (interp==NULL) should not happen, but by definition of how async handlers are invoked, it's possible.
とか書いてありました。
ほぼUndocumentedで、これはない…

Tcl覚え始めてから、使う拡張ことごとく酷い目に合わされてるんで、
正直、使う拡張は最低限にしたく。

で、結局Tcl_AsyncCreateの第二引数にinterp渡して、無理矢理
proc_finishedで使えば、とりあえずは動くようです（Evilですが…）。
仕組み上ではこれで悪くないはず？なので、これで行こうと思います。

ほんとにありがとうございます。

**758** · 2011/06/13(月) 00:33:27.18

>>759
どこで見たか思い出ないけど、Tcl_AsyncCreate()した時(＝拡張のロード時)に
interpを保存しておいて、AsyncHandler()の引数がNULLの場合は保存したinterpを
使っていた。同じことをして動いた記憶はある。
引数がNULLということはコマンドを実行していないので、保存していたinterpを
使っても問題にはならないらしい。
逆に、複数のinterpが存在するとAsyncHandler()が呼ばれた時に渡されるinterpが
通知先である保証が無いのかな？
NULLでないのは何らかのコマンドが終了した瞬間だから、保存していたinterpを
使っても安全な気もするから、実行するコマンドが絶対に成功するようにすれば
それでいいんでは？

**デフォルトの名無しさん** · 2011/06/13(月) 23:10:25.66

>>760
おぉ、詳細なご説明ありがとうございます。
ぼんやりとしていた理解が、明確になった気がします。

やっぱり同じ事を考えた方はいらっしゃるんですね。
というか、スレッドの終了をvwaitで待ちたいとか割とありえる状況な気がしますが、
ぐぐってもKodersでもまともにヒットしないってどういうこと…
この辺がニッチな言語の、もの悲しいとこですね。

**デフォルトの名無しさん** · 2011/06/16(木) 00:12:12.28

ActiveTcl の8.4 から8.5に移行しようとしてるんだけど、8.5でなんかエクステンションが
すごく減ってない？　例えば8.4であったTclXMLが8.5には見当たらない。　インストールしたのは
ActiveTcl8.5.9.2.294317-linux-ix86-threaded.tar.gz. ドキュメントにはあるんだけど...
http://docs.activestate.com/activetcl/8.5/tclxml/index.html

だいたい、8.4のtar玉は28Mあったのに8.5は20Mしかない

http://downloads.activestate.com/ActiveTcl/releases/8.4.19.5/
http://downloads.activestate.com/ActiveTcl/releases/8.5.9.2/

**762** · 2011/06/16(木) 02:37:19.87

>>116-119
に解答がありました。　失礼しました。

天使 ◆uL5esZLBSE · 2011/07/05(火) 02:14:58.01

↓↓
「「「「「「「「「に解答がありました。　失礼しました。」」」」」」」」」（爆ッゴミッッ！

**デフォルトの名無しさん** · 2011/07/06(水) 17:28:55.22

↓
＜＜＜＜＜＜＜＜＜＜＜＜＜「「「「「「「「「に解答がありました。　失礼しました。」」」」」」」」」（爆ッゴミッッ！＞＞＞＞＞＞＞＞＞＞＞＞＞(キリッ!!!きリッ!!！！
↑↑(きリキリッッ！キリ

土方が何をほざいて（笑）

天使#test_s

「天使の煽り」の提供でお送りしました

**デフォルトの名無しさん** · 2011/07/07(木) 21:59:23.84

>>763
それは2007年当時の話。今のActiveTclでは
teacupで必要な拡張をダウソするのがナウ。

本田 · 2011/07/11(月) 23:50:09.19

[Tcl-announce] ActiveTcl 8.5.10.0 released
http://code.activestate.com/lists/tcl-announce/371/

本田 · 2011/07/12(火) 00:00:32.94

本田 · 2011/07/12(火) 21:01:46.78

Teacup
http://wiki.tcl.tk/17305
Teacup provides access to the Tcl Extension Archive.
It is the client to the TEApot server.
It is distributed with ActiveTcl by ActiveState.

**デフォルトの名無しさん** · 2011/07/26(火) 13:53:55.22

canvasで書いた円と線の交差判定をしたいです。
計算しなくてもできるって聞いたんですがどうすればいいですか？

本田 · 2011/07/30(土) 06:39:19.48

円じゃなくて長方形領域ようだけど。

http://homepage3.nifty.com/kaku-chan/tcl_tk/chapter_231.html
pathName addtag tag overlapping x1 y1 x2 y2
x1 y1 x2 y2 を座標とする長方形領域に少しでも重なるアイテムに対して tag で示されるタグを付けます。 x1 は x2 以下、y1 は y2 以下の数値でなければなりません。

本田 · 2011/07/30(土) 06:43:22.91

本田 · 2011/07/30(土) 06:52:55.54

×http://downloads.activestate.com/ActiveTcl/releases/8.5.10.1/ActiveTcl8.5.10.1.295062-linux-ix86-threaded.tar.gzhttp://downloads.activestate.com/ActiveTcl/releases/8.5.10.1/ActiveTcl8.5.10.1.295062-linux-x86_64-threaded.tar.gz

http://downloads.activestate.com/ActiveTcl/releases/8.5.10.1/ActiveTcl8.5.10.1.295062-linux-ix86-threaded.tar.gz
http://downloads.activestate.com/ActiveTcl/releases/8.5.10.1/ActiveTcl8.5.10.1.295062-linux-x86_64-threaded.tar.gz

**デフォルトの名無しさん** · 2011/08/03(水) 22:02:33.46

Tclって複数行にわたるコメントってできるの？Ｃの/* ...
... */みたいな。
エディタに頼って全行頭をイゲタるしかないのか。
if 0 {
} ってのもなんだかなぁ...

**デフォルトの名無しさん** · 2011/08/03(水) 22:39:32.06

どこのJava

**デフォルトの名無しさん** · 2011/08/05(金) 22:47:02.97

>>774
できない。諦めろ。

**デフォルトの名無しさん** · 2011/08/05(金) 22:48:49.89

proc rem comment {}

rem {
こめんととめんと
こめんとこめんとおおおお！！！
}

**デフォルトの名無しさん** · 2011/08/06(土) 00:08:22.24

コメント途中に閉じ中カッコであぼーん

**デフォルトの名無しさん** · 2011/08/06(土) 17:21:09.88

# コメント1\
コメント2\
コメント3#

でいけそうだけどどうかな？
# もコマンドみたいなものだから \ で続けて書けそうな気がする

最後の # は無くてもいいけど終端という意味で

**デフォルトの名無しさん** · 2011/08/06(土) 21:28:04.24

それは毎行つけるので行頭＃とあんまり大差ないな

**デフォルトの名無しさん** · 2011/08/07(日) 08:03:02.17

Emacsで範囲指定して
M-x comment-region

**デフォルトの名無しさん** · 2011/08/09(火) 19:15:00.11

C風。

proc /* {script} {}
proc */ {} {}

/* {
puts hello
puts hello
puts hello
}; */

HTML風。

proc  {} {}

**デフォルトの名無しさん** · 2011/08/09(火) 21:18:47.70

set comment {
コメント
}
>>782 と >>777 と同じく、中括弧がバランスしないと破綻する。
中括弧だけなら、
set comment "
コメント
"
という手もあるけど、" とカギ括弧[] を意識しないといけない

**デフォルトの名無しさん** · 2011/08/09(火) 21:26:01.94

#コマンドの振る舞いって謎だな

{}は改行も含めて一つの要素にするはずだから、

# {あほ
ばか
}

で#コマンドは{あほ改行ばか改行}を一つの引数とするはずなのに、{あほまででコメントが終了しちゃうよね。

set a {あほ
ばか
}

だとちゃんとaに{あほ改行ばか改行}が入るのに

**デフォルトの名無しさん** · 2011/08/09(火) 22:50:35.79

#はTclにおいてもコマンドではない。が正解。

**デフォルトの名無しさん** · 2011/08/10(水) 22:11:16.68

なるほど
#はコマンドの置ける位置に置かねばならないがコマンドではなく行末までのコメントとして処理されるということか
行末の\継続は生きてる状態で。

**デフォルトの名無しさん** · 2011/08/27(土) 23:51:43.68

toplevel .w1
bind .w1 <Destroy> "puts destroyed"
button .w1.b1
button .w1.b2
pack .w1.b1 .w1.b2

ってやって、.w1を閉じると"destroyed"が3回出てくる。
子持ちウィジェットを閉じると、子供の分まで<Destroy>イベントが発生するらしい。
これって仕様なのかな。

**デフォルトの名無しさん** · 2011/08/28(日) 21:06:23.24

>>787
仕様。
但し正確には、子供のぶんまでイベントが発生するのではなくて、子供が処理するイベントに
toplevelのぶんが含まれている。
"puts destroyed %W" とかするとわかると思う。
あとはbindtagsのman-page参照。

**デフォルトの名無しさん** · 2011/08/29(月) 23:40:56.18

>> 787
やりたいこととあってるか分からないけど、toplevel限定なら
toplevel .w1
proc CLOSE_TOPLEVEL {w} {
puts $w
}
wm protocol .w1 WM_DELETE_WINDOW [list CLOSE_TOPLEVEL .w1]
とかはできる。

**デフォルトの名無しさん** · 2011/08/29(月) 23:52:37.47

AssocQueryStringWというWindows APIが使いたかったので、
http://msdn.microsoft.com/en-us/library/bb773471(v=vs.85).aspx

package require Ffidl
ffidl::callout AssocQueryString {int int pointer-utf8 pointer-utf8 pointer-utf8 int} int [ffidl::symbol shlwapi.dll AssocQueryStringW]

としてみたんですが、

set ASSOCF_NOTRUNCATE 32
set ASSOCSTR_EXECUTABLE 2
set pszFile [string repeat \0 255]
set dwOut 0
AssocQueryString $ASSOCF_NOTRUNCATE $ASSOCSTR_EXECUTABLE {c:\sample.txt} "open" $pszFile $dwOut
=> -2147024809

というのが返ってきます。
たぶん、ERROR_INVALID_PARAMETER(0x80070057) のことだと思うんですが、どの辺が間違ってるんでしょうか？

**デフォルトの名無しさん** · 2011/08/31(水) 00:16:00.83

>>788 >>789
ありが㌧
とりあえず

bind .w1 <Destroy> ...

のかわりに

bind .w1.b1 <Destroy> ...

にしたら（子供がいないので）一回だけ処理されるので
目的は達成できてますが、動作が疑問だったんで。

**デフォルトの名無しさん** · 2011/09/01(木) 20:45:44.79

>>790
１　W系は文字列がUnicode（UTF-16）
２　dwOutが0だと書き込むメモリ領域も０扱い

package require Ffidl
ffidl::callout AssocQueryString \
{int int pointer-utf16 pointer-utf16 pointer-var int} int \
[ffidl::symbol shlwapi.dll AssocQueryStringW]

set ASSOCF_NOTRUNCATE 32
set ASSOCSTR_EXECUTABLE 2
set dwOut 1000
set pszFile [binary format x$dwOut]

set result [AssocQueryString \
$ASSOCF_NOTRUNCATE \
$ASSOCSTR_EXECUTABLE \
"c:\\sample.txt" \
"open" \
pszFile \
$dwOut]

puts result=$result
puts pszFile=[string trim [encoding convertfrom unicode $pszFile] \x00]

XPだと動くけど、64bit版Vistaだとクラッシュするのお・・・。

**デフォルトの名無しさん** · 2011/09/09(金) 01:55:06.30

>>792
どうもありがとう。
32bit版Win7ではクラッシュ。型が違うのかなあ。。。

**デフォルトの名無しさん** · 2011/09/09(金) 23:18:14.02

>>793
イベントログにはなんて出てる？ワシのは

エラー 2011/09/09 22:49:03 Application Error 1000 (100)

障害が発生しているアプリケーション tclsh85.exe、バージョン 8.5.2.2、タイムスタンプ 0x47f30c38、
障害が発生しているモジュール SHELL32.dll、バージョン 6.0.6002.18393、タイムスタンプ 0x4d39b5c7、
例外コード 0xc0000005、障害オフセット 0x00008f1a、プロセス ID 0x17ec、
アプリケーションの開始時刻 0x01cc6ef73c41e270。

て。ひょっとしてshlwapiが壊れてる？

**デフォルトの名無しさん** · 2011/09/10(土) 01:09:56.11

脳が障害を起こしました

**デフォルトの名無しさん** · 2011/09/12(月) 00:35:13.36

>>794

なんかJITデバッガのせいでイベントログには残らないみたいですが、
デバッガには以下が表示されてました。
wish84.exe の 0x76d93d52 (shell32.dll) でハンドルされていない例外が発生しました:
0xC0000005: 場所 0x000003e8 を読み込み中にアクセス違反が発生しました。

CAssocArray::GetStringという関数でエラーになってるらしいですが、何に使われてるのかは不明。

**デフォルトの名無しさん** · 2011/10/22(土) 17:14:45.57

Tcl/tkって、伺かみたいなGUIは実現できるのでしょうか？

**デフォルトの名無しさん** · 2011/10/25(火) 23:08:12.87

> 797

この辺があればできるのではないかと。

二次元キャラ -> Tk canvas + Imgでpngファイルが使える + TkTrans.dllで背景透過
サウンド -> snack
Windows API, COMの利用 -> TWAPIとFfidl, tcom

設定画面とかは普通にTkで。垢抜けた見た目を求めるならtile拡張

知識の泉
* ActiveTclに添付のヘルプ
* http://wiki.tcl.tk/
* http://www.tkdocs.com/

ActiveTclに標準添付じゃない拡張たち

TkTrans.dll
http://goo.gl/gwXa1

TWAPI
http://twapi.magicsplat.com/

Ffidl
http://elf.org/ffidl/

**デフォルトの名無しさん** · 2011/10/30(日) 13:19:20.79

canvasで、ある位置の色を取得したいのですが可能でしょうか？
どうすれば取得できるでしょうか？

**デフォルトの名無しさん** · 2011/10/31(月) 19:58:14.80

> 799

できたよ。
http://wp.me/pSK5T-4g

**デフォルトの名無しさん** · 2011/10/31(月) 21:12:04.23

>>800
GDIですか、windows用ですね
参考にさせてもらいます
ありがとうございます！

**デフォルトの名無しさん** · 2011/11/11(金) 22:55:33.88

ActiveTcl 8.5.10->8.5.11　ファイル容量少し小さくなった

**デフォルトの名無しさん** · 2011/11/18(金) 23:57:56.40

envってグローバルだったんだね。
proc内でglobalつけないで使ってたら
ぜんぜん環境変数にアクセスできなくて、
半日はまった。orz

**デフォルトの名無しさん** · 2011/11/19(土) 01:12:58.43

>>803
env使うってCGIでも作ってるの？
組み込み変数は全部グローバルだから、
一度info globalsのリストに目を通しておくとそういうときにピンとくると思う。

**デフォルトの名無しさん** · 2011/11/19(土) 07:50:33.66

**デフォルトの名無しさん** · 2011/11/19(土) 12:32:51.20

誰もが一度ははまるstr

**デフォルトの名無しさん** · 2011/11/27(日) 12:50:30.83

ゲームでキャラを移動させるような場合、bindを用いてカーソルキーで操作すると
キーボードのオートリピート機能のせいで、動き始めた直後に一瞬動きが止まります。
スムーズに動くようにするにはどうしたら良いのでしょうか？

**デフォルトの名無しさん** · 2011/11/28(月) 00:52:09.92

inp(0), inp(1)

**デフォルトの名無しさん** · 2011/11/29(火) 00:48:45.31

>>807
簡単なテストコード見せて

**デフォルトの名無しさん** · 2011/11/29(火) 18:09:48.11

>>809
wm geometry . 500x500
canvas .c -bg white
pack .c -expand 1 -fill both
.c create oval 230 230 270 270 -fill red
bind . <KeyPress-Up> {.c move 1 0 -3}
bind . <KeyPress-Down> {.c move 1 0 3}
bind . <KeyPress-Right> {.c move 1 3 0}
bind . <KeyPress-Left> {.c move 1 -3 0}

キー入力の判定だけC言語で書いて、
例えばWindowsならWindows APIを利用するようにすれば解決すると思います
でも、Tclだけで解決する方法はないのでしょうか？

**デフォルトの名無しさん** · 2011/11/29(火) 22:33:47.99

ググってみたけどこんな方法しかないような

wm geometry . 500x500
canvas .c -bg white
pack .c -expand 1 -fill both
.c create oval 230 230 270 270 -fill red
set moveto ""
bind . <KeyPress-Up> {set moveto "up"}
bind . <KeyPress-Down> {set moveto "down"}
bind . <KeyPress-Right> {set moveto "right"}
bind . <KeyPress-Left> {set moveto "left"}
bind . <KeyRelease> {set moveto ""}
proc move {} {
global moveto
switch $moveto {
up { .c move 1 0 -3 }
down { .c move 1 0 3 }
right { .c move 1 3 0 }
left { .c move 1 -3 0 }
}
after 10 move
}
after 10 move

方向を一つの変数でまとめてるけど方向別にすれば斜め移動も出来る

**デフォルトの名無しさん** · 2011/11/30(水) 00:27:19.26

>>810
どういうゲームかわからないけど、イベントループを自分で管理するべき。
そして、そのイベントループの中で、KeyPressで動かしはじめて、
KeyReleaseが来るまで動かし続ける。簡単には>>811みたいな。
ちゃんとしたゲームしたいならasteroids.tclが参考になると思う。→http://wiki.tcl.tk/13601

**デフォルトの名無しさん** · 2011/11/30(水) 12:06:12.14

カーソルキーを押しっぱなしにすると
ずっとKeyPressのままってわけじゃない。
KeyPressとKeyReleaseが交互に発生する。
だからそれは全然アドバイスになってない。

**デフォルトの名無しさん** · 2011/12/01(木) 10:45:21.56

wm geometry . 500x500
canvas .c -bg white
pack .c -expand 1 -fill both
.c create oval 230 230 270 270 -fill red
array set direction {
n 0
s 0
e 0
w 0
}
set delta 3
bind . <KeyPress-Up> {set direction(n) 1}
bind . <KeyPress-Down> {set direction(s) 1}
bind . <KeyPress-Right> {set direction(e) 1}
bind . <KeyPress-Left> {set direction(w) 1}
bind . <KeyRelease-Up> {set direction(n) 0}
bind . <KeyRelease-Down> {set direction(s) 0}
bind . <KeyRelease-Right> {set direction(e) 0}
bind . <KeyRelease-Left> {set direction(w) 0}
proc move {} {
global direction delta
if {$direction(n)} {.c move 1 0 -$delta}
if {$direction(s)} {.c move 1 0 +$delta}
if {$direction(e)} {.c move 1 +$delta 0}
if {$direction(w)} {.c move 1 -$delta 0}
after 10 move
}
move

**デフォルトの名無しさん** · 2011/12/01(木) 13:31:06.09

>>813
普通はそうならない。
コントロールパッド本体に連射機能がついてるとかならあり得るかもしれないけど。

**デフォルトの名無しさん** · 2011/12/01(木) 21:21:12.29

>>815
いや、Tkのキーバインドだとキーボードのキーリピートが働いてしまう。
メモ帳とかに文字を入力する時、たとえば"a"を押しっぱなしにすると、
"a"が一つ表示された後、少し間を置いてaが連続して入力されるだろ。
あれと同じことが起こる。
下のサンプルを動かしてごらん

set x ""
pack [label .t -textvariable x]
bind . <KeyPress-a> {append x 1; update}
bind . <KeyRelease-a> {append x 0; update}

**816** · 2011/12/01(木) 21:35:31.25

このサンプルを動かして、aを押しっぱなしにしたら
1と0が交互に表示されるはず。
そうならなかったらよっぽど特殊なキーボードを使ってるんだろう。

**デフォルトの名無しさん** · 2011/12/02(金) 11:26:05.96

連射機能付きJOYstickだろ

**デフォルトの名無しさん** · 2011/12/02(金) 15:07:54.99

>>816,817

そのコード片を試したわけでないので何だが、
通常、キーを押しっぱなしにすると
KeyPress/KeyDownは複数飛んでくるが
KeyReleaseは離したときに１回飛んでくるだけじゃないのかね。

**デフォルトの名無しさん** · 2011/12/02(金) 19:29:43.54

試さないで何言ってる

**デフォルトの名無しさん** · 2011/12/02(金) 21:14:48.05

>>819
なぜテストしなかったの？
コードを走らせてみれば一目瞭然なのに。
少なくとも俺の環境では>>816-817の言う通りになったけど。
で、>>811や>>814のようにループで処理するとなめらかに動くのは
なぜか適度にKeyReleaseが無視されているからだとわかった。
それを確認するには下の２つのコードを動かしてみればいい。
ループがあるとほとんどグリーンの円のみが現れるが、
ループが無いとグリーンとレッドの円が交互に現れる。

# ループを通した例
wm geometry . 500x500
canvas .c -bg white
pack .c -expand 1 -fill both
bind . <KeyPress-a> {.c create oval 0 245 10 255 -fill green -tags en}
bind . <KeyRelease-a> {.c create oval 0 245 10 255 -fill red -tags en}

proc main {} {
.c move en 3 0
update
after 10 main
}
main

＃ループ無し
wm geometry . 500x500
canvas .c -bg white
pack .c -expand 1 -fill both
bind . <KeyPress-a> {.c create oval 0 245 10 255 -fill green -tags en; .c move en 3 0; puts 0}
bind . <KeyRelease-a> {.c create oval 0 245 10 255 -fill red -tags en;.c move en 3 0; puts 1}

**デフォルトの名無しさん** · 2011/12/02(金) 23:24:20.45

>>821
ループ無し
http://i.imgur.com/byFnN.png

**デフォルトの名無しさん** · 2011/12/02(金) 23:50:43.04

ループ無し
http://ozcircle.net/_uploader/60860336

俺の環境ではこの通り