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

【英語サイト】
プロジェクト本拠地
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/

待ってました！

待ってたならおまえが建てろよｗ
8.5a6が出たので来てみればdat落ちしてるし

なんか急に落ちたよね

前スレは4年半も持ったので、このスレも2012年くらいまではいけるという予言

　　　　　　　　　　　　　　　 ／￣￣＼
　　　　　　　　　　　　　　／　　ヽ_　　.＼
　　　　　　　　　　　　　 （ ●）（ ●）　　｜　　 　 ＿＿＿_
　　　　　　　　　　　　　 （__人__）　 　 　 | 　 　 ／　　　 　 ＼
　　　　　　　　　　　　　　ｌ｀ ⌒´　　　　｜　 ／ ─　 　 ─　　＼
　　　　　　　　　　　　　.　{　　 　 　 　 ｜／　 （●） 　（ ●） 　 ＼
　　　　　　　　　　　　　 　{　　　　　　 / | 　 　 　（__人__）　　 　　 |
　　　　　　　　　　,-､　　　ヽ　　　　　ノ、＼ 　　 ｀ ⌒´ 　　　 ,／＿
　　　　　　　　　/ ノ／￣／ ` ー ─ '/＞＜　　` ー─ ' ┌､ ヽ　　ヽ,
　　　　　　　　/　 L_　 　 　 　 ￣　　／　　　 　　　 　　　_l__(　{　r-､ .ﾄ
　　　　　　　　　　　_,,二)　　　　　／　　　　　　　　　　 　〔― ‐} Lｌ　 | l) ）
　　　　　　　　　　　>_,ﾌ　　　 　 /　　　　　　　　　 　　 　 }二 ｺ＼ 　 Li‐'
　　　　　　　　＿_,,,i‐ノ　　　　　l　　　　　　　　　　　　　 └―ｲ 　 ヽ　|
　　　　　　　　　　　　　 　 　 　 l　　　　　　　　　　　　 　 　 　 i　　　ヽl

　　　　　　　　　　　　　２００７年　５月1日　糞スレにて

>>1乙
986で落ちたか

TCL\TKで書かれたアプリって例えばどんなものがあるんでしょうか？

Getleftとか

PgAccess
aMSN
TkSQLite
TkDiff
TkCVS

ちょっと知られてるのはこんなもんすか・・・。

tknamazu と tkppxp に世話になった人は多いんでは。
あの頃はLinuxのデスクトップ回りがあまりにウンコ品質だったんで、
tkが神に思えた。

Filerunnerを今でも使っている俺が来ましたよ

http://bitwalk.blogspot.com/
bitWalkってこっちでTclのことをゴソゴソやってたんだな！
今まで気がつかなかったぜ！！

hosyul/tk

やっぱ age るわ

Tk8.5のCVS HEADでttk::dialogが予告無く消えてて困った。
おまえらもきおつけろ

8.5の正式版っていつになったら出るんだろうな。

tileのtreeviewの使い勝手やルック＆フィールと速度がいまいちなんだなぁ
本家に取り込まれるならもう少しがんばってほしい
panedも妙に重いし...本家のpanedwindowはweightが指定できないのなんとかならんのかなぁ

>>18
ttk::treeviewは将来なくなるかもしれないからきおつけろ。

>>19
treectrlを使うことにしたよ。速度も外観もなかなかイイ

×ティックルティーケー
○ティコゥスラァッシティーケィ

英語は発音大事。

ところでActiveTcl8.4.15は出ないのかね・・・。

>ActiveTcl 8.4.15.0 July, 2007
> includes Expect for Windows
>ActiveTcl 8.5.0.0 Beta 8 July, 2007
http://www.tcl.tk/

Tcl8.5をCVS HEADに上げたらIncrTclが動かなくなった
おまえらもきおつけろ

アイコンも替わった

Tcl8.5のHEADはまじやべえ。Tktableもうごかねえ・・・。

CVSのHEADを勝手にビルドして羽後かねぇとほざいているやつがウザイ

勝手にビルドっていうけど、誰かが試してバグを見つけていかないといけないんだぜ。
なんでうざいんだぜ。

>Legacy Tcl
http://sourceforge.net/projects/legacytcl/
>Tcl in the legacy applications world: includes a Cobol/Tcl interface,
> an LDAP directory browser/manager and a set of tk/widgets with strong formatting.

ネットワークプログラミングについて解説してあるサイトってありますか？

>>30

>telnet
http://wiki.tcl.tk/684

>>31
サンキュー！　ああでも難しそうだ。

panedwindowに関する質問です。
以下のコードで、sashの位置を求めると
"5 2"
という値が返ってくるのですが、これはどういう意味なのでしょうか？
（画面上ではsashは横幅1000くらいのメインウインドウの左右中央に表示されています）

またsash placeで値100 0を設定後、再び取得しても、設定した値とは違う値"6 2"が返ってきます。
これはwidgetのバグでしょうか？
環境はwindowsXP、ActiveTcl 8.4.15です。

panedwindow .m
pack .m -fill both -expand yes

frame .m.l
frame .m.r

.m add .m.l .m.r

text .m.l.t
text .m.r.t
pack .m.l.t
pack .m.r.t

.m.l.t insert end [.m sash coord 0]
.m sash place 0 100 0
.m.l.t insert end [.m sash coord 0]

再描画のじおめとりの再計算タイミングとかかな
Linux@ActiveTclでやってみると 100 2 と要望どおりになるな
Winsows版のバグかもなあ

>>34
回答ありがとうございます。
誰も人がいないのかと思い、別の場所で聞いてしまっていました。すみません。
updateを挟むと解決するようです。

dqkitの8.4.13版から8.5版に乗換えたら日本語が文字化けしてしまった！？
unwrapするとcp932.encもshiftjis.encも入っているけど使ってないのか？？
取敢えず8.4.版に戻るか

>>36
http://reddog.s35.xrea.com/wiki/Starkit%20for%20TclTk8.5.html
これ関係？

ActiveStateの有償のやつだと、バイナリ化する事が出来るみたいだけど、
使われてる方いますか？

>>38
有償版でもただのstarkitなんちゃうん？
フリーのActiveTclにもbasekitがついてるので
それでいいんちゃうん？

恥を忍んで初心者レベルの質問をするのですが、
Tcl/Tkではstdinを一旦closeして、再openする事は出来ないのでしょうか？
ActiveTclのExpectで、既に存在するファイルを読み込ませようとして

close stdin
set stdin [open "testbinaryfile.dat" "r"]
fconfigure stdin -translation binary

とかやってみても、うまくいかず…。

>>39
TclAppなるものを使って、バイトコードを専用インタプリタでラップする
構成みたいです。
ttp://aspn.activestate.com/ASPN/docs/Tcl_Dev_Kit/4.0/TclApp.html
ターゲット環境にTcl/Tkのインタプリタをインストールする必要が無いとか、
ソースを見られたくないとか云う用途に使うみたいです。

標準入力を閉じるのはたぶん無理。

set fd [open testbinaryfile.dat r]
fconfigure $fd -translation binary
set data [read $fd]

どうも。

>>41
expectに任意のファイルを読ませる為には、
１)外側(expect(1)やtclsh)でリダイレクトさせるか
２)exp_spawn等で、cat(1)するだけのコマンドを開く
しかないみたいですね。むぅ…。

そもそもset stdin [open...]はstdinという名前の変数に新しく出来たファイルハンドル文字列を代入しているだけでしょ。
「stdin」っていう文字列が標準入力を表現するファイルハンドルだよ。

付け替えはたぶん dup を使うんじゃないかな？Tclxに入ってる

package require Tclx

set f [open aaa.txt]
dup $f stdin

puts [read stdin]

>>43
試してみたのですが、>>43のdupをやってから、package require Expectしないと、
うまくいかないみたいです。こんなモノなんでしょうか？

>>39で紹介されたstarkit化(やstarpack化)に不安が…。

普通にファイルを開くんじゃなくてstdinに流し込みたいってどういう状況なん？

やろうとしてる事は、バイナリファイルの中からパターンを拾って、
マッチした付近で少し加工(殆どは元ファイルのコピー)なんですが、
うまくいってません。

>>45
expect_userに食わせる為にはstdinじゃないと駄目だからです。
expect_userだと、入力のコピーをするのに、自前で、
puts $expect_out(0,string) とかやらないといけないらしく、
Expectを使うメリットが怪しくなってきました。

それどう考えてもExpectを使うところじゃなくね？

Tclのobjc.objvのI/Fは別途後で作ってやるとして、そういう中身はCで書いた方がはやくないか？

>>47-48
うん、そんな気がしてきました。

expect_user {...} の中で、read stdin とかやると、期待とは違う振舞いに
なったりするみたいなので、Expectを使わない方向で考え直します。

TCLは終わる予感がするね・・・昔は散々使ってたのに・・・

>>50
www.oreilly.comからTcl/Tk本が完全に消えてますね。

最初の空白までがコマンドって文法のお陰で、シェルとの相性は良いんだけどなぁ

bashやtcshに取って代われる力がtclshには無かった

>>50
TKはGUIとして他の言語とコラボレーションする例は多いのに、
TCLは冷遇されてる、
TCLはTKのおまけとして盲腸のような存在なるかもしれない。

なんでも文字列として扱ってしまえってUnix的思想の象徴のような言語だと思う

>>51
検索したらあるけど。。。

OusterhoutのTcl本が8.5の内容で書き直されるっていう話を結構前から聞いてる気がするけど
肝心の8.5が全然正式版にならんな。

もうRuby/TKの時代になったのか

EDAの分野では当分デフォ

>Why Threads Are A Bad Idea (for most purposes).
> This was an Invited Talk at the 1996 USENIX Technical Conference (January 25, 1996).
> The talk compares the threads style of programming to an alternative approach, events,
> that use only a single thread of control.
> Although each approach has its weaknesses, events result in simpler,
> more manageable code than threads,
> with efficiency that is generally as good as or better than threads.
> Most of the applications for which threading is currently recommended
>(including nearly all user-interface applications)
> would be better off with an event-based implementation.
> The slides for the talk are available in PowerPoint or PDF format.
> There isn't a written paper that corresponds to this talk.
http://home.pacbell.net/ouster/
http://home.pacbell.net/ouster/threads.ppt
http://home.pacbell.net/ouster/threads.pdf

>>60
未だにその話を知らない奴も居たのか…
Guido とか Matz とか、言語設計者には並列処理を軽んじる人が少なからず居るのは
何でだろうね。実装が面倒だからか、ショボイマシンしか触った事が無いのか…

そのスライドの7枚目にある

Callbacks don't work with locks.

ってどういう意味？

>>61

恥ずかしながら知らんかった。

>>62

Deadlock問題のことか？

>Deadlock
http://en.wikipedia.org/wiki/Deadlock

>>56
すいません、JavaScript切ってました(入れると正しく検索されます)。

>>61
そう云うのは、ＯＳが面倒を見るべき問題だと思ってるとか、
あるいは、細粒度処理に興味がないとか…。

>>63
たぶんdeadlockの話だと思うが、thread+callback関数の場合に
特有の問題とはなんなのだろう？

>>60

>2007年05月08日
>Event-driven Programming for Robust Software
http://www.ce-lab.net/ringo/archives/2007/05/08/

>Rob von Behren, Jeremy Condit and Eric Brewer (UCB)
>Why Events Are A Bad Idea (for high-concurrency servers)
>Proceedings of HotOS 03, May 2003
http://www.spa.is.uec.ac.jp/~kinuko/survey/body/events-are-bad.html
http://www.cs.ualberta.ca/~paullu/C498/events.bad.idea.vonbehren.pdf

>= Event-driven Programming for Robust Software =
http://www.ce-lab.net/ringo/events_robust.html
http://pdos.csail.mit.edu/~rtm/papers/dabek:event.pdf

>On the duality of operating system structures
http://www.sics.se/~adam/pt/duality78.pdf

>Protothreads: simplifying event-driven programming of memory-constrained embedded systems
http://www.sics.se/~adam/dunkels06protothreads.pdf
http://www.sics.se/~adam/dunkels07programming.pdf

>"Combining Events and Threads for Scalable Network Services --- Implementation and evaluation of monadic, application-level concurrency primitives",
> by Peng Li and Steve Zdancewic, 2007
http://www.seas.upenn.edu/~lipeng/homepage/papers/lz07pldi.pdf
http://www.seas.upenn.edu/~lipeng/homepage/unify.html
http://www.seas.upenn.edu/%7Elipeng/unify/unify-0.0.1.tar.gz

みんなよろこべTcl8.5がついに！！！！
















http://www.tcl.tk/software/tcltk/8.5.html
アルファからベータになった。

やっと仕様凍結か。
8.5のお気に入り機能

1. inオペレーター
2. switchの高速化
3. namespace ensemble

　　＿＿＿_＿＿＿＿＿　
　 （遠く宇宙のラップを）
　　￣￣￣＼|￣￣￣￣　
http://www.premiumtv.12gbfree.com/?X3/?rSTV=New+Star+Wars+Gangsta+Rap

8.5 で bind のキー定義が複数書けるようになって欲しかったよ。

>54
でもやっぱりtkのコードを一番書きやすいのはTclだと思う。
Python/tkやRuby/tkも弄ったが、凄く書きにくいと思った。

spinboxもtile対応してくれよ...
ほかのtileウィジェットとheightあわねーし...

>>73
なんやしらんけどOSXでの実装の問題で
どうたらこうたらとJeffがゆってた気がする。

>>68
>Tcl/Tk 8.4.16 Sep 21, 2007
> Download Tcl/Tk 8.4.16
http://www.tcl.tk/

tkの概観をWindowsXPスタイルみたいに変更できますか？

>>76
tile/ttk使え

そんなばながー

久々にtcl wikiみたら、なんか見た目がかわってた

tcl/tk ver8.4.16 コンパイルしてtbcにしたら64bit足し算間違えるようになった｡

ソースをUP

>80
足し算のソースは　set sum [expr $a+$b]　
そう云えば　expr {$a+$b}　と　expr $a+$b　は32bit演算では同じになるけど64bitでやると違ってしまう？？？？

邦訳されているリファレンス本の値段がチョー高すぎる
こりゃだめだorz

どうせ古いやつだろ。イラネ！

ActiveTcl8.4.9で、DOMでXMLを扱いたいんだけど、


package require dom

set afp [open "AAA.xml"]
set adoc [dom::DOMImplementation parse [read $afp]]
set aroot [dom::document conf $adoc -documentElement]


までは良くて、RootNodeを取得できるんだけど、
Root以下のNodeが取得できない。

dom::selectNode $aroot "//AA"

てやっても帰ってくるリストは空。（AAはXMLに含まれる要素名）
なんでダメなの？

AAA.xml見せい

あとtcl domよりtdomのほうがおすすめだ。速い。

>>86
ごめん、都合上見せられないんだ。
一昨日は上手くいったのに・・・

>>87
試してみます。

>80 自己レスポ
ver8.4で64bit演算するときはwide()を使うらしい
wideなんて関数知らんかった。
ver8.5関連の頁をみていると8.5ではwide()使わなくても64bit演算できると書いてあるので気がついた｡8.4の仇花か｡
兎も角一応まにあった｡　お騒がせ

>TkSQLite
http://reddog.s35.xrea.com/wiki/TkSQLite.html
>What is This?
>TkSQLite is a GUI database manager for SQLite implemented by Tcl/Tk.
>It can manage SQLite version2.8 and SQLite version3.x database.
> And it can handle many encodings like Shift-JIS, EUC-JP and Windows native milti-byte encodings not only UTF-8.
> And it can run on Windows and Linux and MacOSX as native Look & Feel. And it's Freeware.

Tcl/Tk 8.5.0 RC3
ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tcl8.5.0rc3-src.tar.gz
ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tk8.5.0rc3-src.tar.gz
ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tcl8.5.0rc3-html.tar.gz
ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tcl850rc3-src.zip
ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tk850rc3-src.zip

rc3出るの早すぎね？このまえrc2出たばっかじゃん？

>>92
RC2とRC3の間は、約3日間。

Tcl/Tk 8.5.0 RC4
ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tcl8.5.0rc4-src.tar.gz
ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tk8.5.0rc4-src.tar.gz
ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tcl8.5.0rc4-html.tar.gz
ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tcl850rc4-src.zip
ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tk850rc4-src.zip

rc4出るの早すぎね？このまえrc3出たばっかじゃん？

うおおおこのペースなら年末までにTcl/Tk9.0だな！

>>95
RC３とRC４の間は、約１日間。

>MinGW Cross Compiler
http://sourceforge.net/projects/mingw-cross
>The aim of this project is to provide and maintain MinGW
>(Minimalist GNU-Win32, http://www.mingw.org) cross-compiler package for Linux

> Project Admins : bitwalkProject Admin
> Developers : 1

>>94
Tcl/Tk 8.5.0 RC5
ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tcl8.5.0rc5-src.tar.gz
ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tk8.5.0rc5-src.tar.gz
ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tcl8.5.0rc5-html.tar.gz
ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tcl850rc5-src.zip
ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tk850rc5-src.zip

>>96
年末までに、Tcl/Tk 8.5.0 RC10だろう。（笑）

rc5出るn(ｒｙ

>>99
Tcl 8.5.0 RC6
ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tcl8.5.0rc6-src.tar.gz
ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tcl850rc6-src.zip

rc6(ｒｙ
バグ報告まとまってから出そうよｗ

>>102
Tcl/Tk 8.5.0
ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tcl8.5.0-src.tar.gz
ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tk8.5.0-src.tar.gz
ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tcl8.5.0-html.tar.gz
ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tcl850-src.zip
ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tk850-src.zip

>>104
一週間早いクリスマスプレゼント。

てぃくる/てぃーけー？
てぃっくる/てぃーけー？

てぃーしーえる/てぃーけー？

>104
どれを開いても　URL Not Found　と出るばかり　何なんだ？？？

>102,104
どれを開いてもURL Not Found と出るばかり　何なんだこれは？？？？

>>109
ftp://ftp.tcl.tk/pub/tcl/tcl8_5

>>109
http://sourceforge.net/project/showfiles.php?group_id=10894

いまだにTcl使っている人いるんだなー

アナウンスでたね。上に出てるURLは先にもれてたのかな。

さっそくだがベンチマーク取ろうぜ

>>98
http://sourceforge.net/project/showfiles.php?group_id=204414

>[PRODUCT] Tcl/Tk
>Latest tcltk8.5.0-011 Notes (2007-12-21 21:27)
> tcltk8.5.0-011-20071222.exe Mirror 6723504 9 i386 .exe (32-bit Windows)
> tcltk8.5.0-011-build_script.tar.gz Mirror 1565623 0 Other Other Source File

ActiveTcl8.5まだあ

>>116
もう出た。もう出たけど、ライブラリは付いていない罠。
ライブラリは8.4のを使うみたい？

>>117
http://groups.google.com/group/comp.lang.tcl/topics
の
Is ActiveTcl 8.5 release to be used as it is?
の議論によると、今のところ8.4に上書きするのが正しいらしい。

>>118
アンインストールしないで、
上書きすると、
tclsh84とtclsh85の両方が使えるよ。

>Latest Release: Tcl/Tk 8.4.17 (Jan 4, 2008)
http://www.tcl.tk/software/tcltk/8.4.html

EDAの制御用でもなく、単純なツールを書くのに
tclshとか利用すんのマジでやめてくれ > R社

Renesas?

単純なツールなら別にいいじゃん

ローカルに手を加えたいができないユーザ多数なんよ。
なんせtclなんかで書いてあるからな。

単純なツールならどの言語で書かれていても調べて改造するくらいできるのでわ

ActiveTcl8.5のchm見てたら
いつの間にやらチュートリアルついてるのな
今初めて気付いた

Whitespaceで書かれたら改造する自信ないな

>Micropolis Downloads
http://www.donhopkins.com/home/micropolis/
>Micropolis, Unix Version.
> This game was released for the Unix platform in or about 1990 and has been modified for inclusion in the One Laptop Per Child program.
> Copyright (C) 1989 - 2007 Electronic Arts Inc.
>If you need assistance with this program, you may contact:
http://www.donhopkins.com/home/micropolis/micropolis-activity-source.tgz

Tcl6.4とTk2.3のソースコードが丸ごと入ってる。

シムシティってTclで書かれてたんだ・・・

>>120
>ActiveTcl 8.4.17.0
http://www.activestate.com/store/download.aspx?prdGUID=f0cd6399-fefb-466e-ba17-220dcd6f4078

Tcl/Tk紹介ビデオ
http://www.nicovideo.jp/watch/sm441402

Tk がファイルのドラッグドロップに対応していて、
OpenGL の描画先として簡単に指定できるなら
wxWidgets から乗り換えようかと思っているんだけど、どうなんでしょうか。

>>132
TkDND
>http://sourceforge.net/projects/tkdnd/
>tkdnd is an extension that adds native drag & drop capabilities to the tk toolkit.
> It can be used with any tk version equal or greater to 8.3.3
>and currently only the UNIX (X-Windows)
>and Microsoft Windows operating systems are supported.

>>132
>Togl ― a Tk OpenGL widget
>Copyright (C) 1996-2002 Brian Paul and Ben Bederson
http://togl.sourceforge.net/

>>132
>TkOGL
http://hct.ece.ubc.ca/research/tkogl/tkogl/index.html
>TkOGL is a package extension to the Tcl scripting language that enables a user to utilize OpenGL,
> a multi-platform API for interactive 2D and 3D graphics applications.
> TkOGL makes it possible for the user to display OpenGL graphics on the Tk canvas along with other Tk widgets.
> This creates opportunities for developers,
> educators and presenters to script up interactive demos,
> graphical learning models, and colorful presentations.
> Designing a simple user interface that interacts with OpenGL graphics is much simpler and much faster through the Tcl interpreter.
> Much like other Tk Widgets,
> OpenGL graphics can be rendered step by step so users can see the progressive steps appear on the canvas.
> TkOGL eliminates the use of compilers, shared libraries, header files and utility toolkits such as GLUT.

今OpenGLやるならTogl よりTcl3Dがいいぜ。サンプルも多いし。
それよりwxから乗り換えようと思った動機を教えて欲しいんだぜ。

>>136
http://www.tcl3d.org/

みなさん、こんにちは。
突然おじゃましてすみません。
一つ質問があります。

実は先日、Linux用のあるシミュレーションソフトを購入して、
それをASUS Eee PCというPCにインストールして動かしているのですが、
もっと計算速度が上がればなーと考えていてふと思い付いたのが、
もしPS3にLinuxを入れて動かせばいいのかもしれない、と。

そのシミュレーションソフトはTCL/TKというグラフィカル・ツールキットを
先に入れておく必要があるのですが、そのTCL/TKというものはPS3にも
対応しているのでしょうか？

ちなみにEee　PcにはActiveTcl8.4というものをインストールしました。
このシミュレーションソフトは、なにやらwishというものを必要とするとかで、
詳しいことはわかりません。

>138はマルチ

>>138
まずサポートセンターに電話する。

8.5正式版でたけどOusterhout本の改訂の話ってどうなったのかなあ。

どもありがとう
今 wxPython + PyOpenGL でゲームを作ってるけど
wxWidgets はDLLのサイズがでかくてどうにかならんものかと。
あと Python には標準で Tkinter がついてるから、Tk でできるならその方が何かと楽。

>epcEdit XML/SGML editor
>Available for Windows, Linux, and Solaris - use one application on all relevant platforms in your organization.
>Download your free copy!Download your free copy of epcEdit for Windows, Linux or Solaris!

http://www.epcedit.com/

>News: epcEdit is now free for personal and commercial use!
>epcEdit will become available under an open source license in the future,
> after we have removed copyrighted third-party components.
> In the meantime the current version of epcEdit can be used free of charge.
> An unlimited activation key can be downoaded here.

ひとつお聞きしたいことがあります。

Tcl/Tkを使って連続的にデータを処理表示しているのですが、
数時間たつと、
X Error of failed request: BadAlloc
(insufficient resources for operation)
Major opcode of failed request: 53
というエラーを吐いて止まってしまいます。

どこが悪いか調べたいので、
Tcl/Tkのプログラムで、残り資源を表示するような機能はありませんか。
解決策をご存知でしたら教えてください。

psコマンドで調べたらええんちゃうの。
何の処理をしてるのかしらんが、Tkのありがちな
罠として画像の解放しわすれのようなオチの予感がする。

>>143
>TkSGML
http://www.epcedit.com/TksgmlManual/
>SGML widget reference manual

Tclでヒープ的なメモリ割り当てをしてGCすることってできないのかなあ。

>>145
144です。ありがとうございます。
自分でもDeleteコマンドで削除して、気をつけてはいるんですが、
どこかうまくいってないようです。

>>147
ローカル変数の割り当てはそうしてるだろ

>>144
> X Error of failed request: BadAlloc
> (insufficient resources for operation)
> Major opcode of failed request: 53

これはおさらく、
X　Serverのエラーで、
TclやTkのエラーではない。


>LECTURE 14 エラーイベント
http://homepage3.nifty.com/rio_i/lab/xlib/014xerr.htm
>BadAlloc 要求リソースの割り当てに失敗

>>149
ローカル変数は全然ヒープ的じゃないよー。スコープ＝寿命でスタック的なもの。

はじめまして、私は新人プログラマです。
ひとつお伺いしたいことがあります。

IPフィルタリング機能をTCLで行ないたいと思っております。動作としては、下記のIPアドレスがサイトへアクセスしてきた場合
ページを閲覧できる様にし、それ以外のIPアドレスが来た場合は閲覧出来ない様にするといった感じのものです。OSはSolarisを使用して行います。

特定のIP
1.1.1.1
1.1.1.2

以上の事から、TCLで上記の様な制御を行なうにはどういったソースを書けば宜しいのでしょうか。例題的な感じで結構ですので御回答宜しくお願いします。また、これらの内容をみて不明点などが御座いましたら
ご質問頂けたらと思います。


ちなみに、下記方法で実施してみましたがダメでした。

【リモートホスト情報の取得】
CGI プログラミングをする上でクライアントのリモートホストの情報を利用したい場合がある。 例えば特定のホストからのアクセスを規制したい場合などである。
サーバに Apache を使用していれば IP アドレスの値が環境変数 REMOTE_ADDR から取得できる。 Tcl では $env(REMOTE_ADDR) のようにして環境変数を取り出す。
さらに Apache の設定次第では環境変数 REMOTE_HOST にホスト名が与えられているかもしれない。 そうでない場合は IP アドレスからホスト名を取り出す必要がある。
このためには TclX に含まれている host_info コマンドを使えばよい。 このコマンドは Perl での gethostbyaddr 関数や gethostbyname 関数に相当する機能を提供する。

ホスト名を取り出す場合はサブコマンド official_name を以下の書式で使用する。 引数 host には $env(REMOTE_ADDR) で得た値などを与える。

長文乙。
そんなことより、Apacheの設定見れ。

if { $env(REMOTE_ADDR) in $blacklist } {
exit
}

こんなのでいいのか？こんな簡単なことでいいのか？
簡単すぎて不安になるぜ！

新人がTclでウェブプログラミングやるっていったいどんな会社なのか興味があるなあ。
なんにせよ152が書いたコードを張るところからだね。

>>154
in演算子ってTcl8.5からだからまだ152の環境に入っていない可能性が高いね。

ていうかどうせならTclHttpd試してみてくれよ。

>>157
TclHttpdは、アプリケーションに組込むのが主流だろうな。
つまりアプリケーションサーバー。

>>143
>epcEdit XML/SGML editor
に組込まれていてヘルプを見るのに使われている。

>>152
>サーバに Apache を使用していれば IP アドレスの値が環境変数 REMOTE_ADDR から取得できる。

同時に複数の人がApacheに接続すれば、
環境変数 REMOTE_ADDRには、
誰のIP アドレスが入るのかな？

最初の人か？
最後の人か？

CGIなんだからそれぞれの人のでしょ。

>>160
そうですね。

えーっと・・・

正直Tcl使うよりRuby/TK使った方が便利なんだが・・・

俺は C から使うのが便利だな

で、Ruby/Tkで書いたアプリって何かあんの？

やっぱPerlで

non-TclのTkバインディングってろくにドキュメント整備されてるやつがない印象がある。

俺も普段よくRuby使うからRuby/Tk触ったことはあるが…
Ruby流でもTcl流でもない、妙な違和感があるんだよなぁ。

数値計算のパラメータ設定マクロ用にtclを使いたいのですが、
C, C++プログラムにtclを組込む方法はどうやれば良いですかね？

Tcl_CreateInterpでインタプリタを作って、Tcl_EvalFileでtclで記述したファイルを実行、
特定の名前の変数にパラメータを入れて、Tcl_GetVar等でパラメータの入った変数を読み出せばできますね。

自己レスすまそ

>>157
>AOLserver
http://sourceforge.net/projects/aolserver
>AOLserver is a multithreaded,
> Tcl-enabled,
> massively-scalable and extensible web server tuned for large scale, dynamic web sites.
> AOLserver also includes complete database integration and a dynamic page scripting language.

8.5版に入換えたらeval命令が異様に遅くなった
md5を計算するのにevalを多用した箇所がすごいことになってしまった｡困った。

MD5なんかCで実装するもんじゃないのか

よくわからんが、md5なんてtcllib_critclとかTrfなんかの
Cで書いた枯れた拡張をつかうものなのでわ・・・。

Eggdrop Bots and Tcl Scripts
http://www.ruptbot.com/index.php
http://www.ruptbot.com/scripts.php
http://www.ruptbot.com/ruptbot.php

172です｡誤解を招くような文章で申し訳ない｡改めて書直します｡
8.4版->8.5版に乗換えて快適な環境になりましたか｡小生の場合は疑問符です
小生の場合､既存のプログラムの内の１つが異常なくらい遅くなりました｡
調べると１つのprocが極端に遅くなっていた｡このprocはRFC1321の手順通りにmd5を計算しているだけで､何の変哲もないprocですが､evalを多用しています｡
今の所evalの処理が遅くなったのかと疑っています｡無論真相は不明です｡

よっしゃ３連休で暇な俺が8.5に最適化してやるからうｐしろ。

あれ、evalか...exprかと勝手に脳内変換してたよ
md5をPureTclで計算するのになぜevalを多用するのかよくわからないな
evalでプレコンパイルして次回からはより速くなるようにする処理のところが
8.5では相対的にオーバーヘッドが大きくなったのかもしれないな

うｐまだ？暇すぎて死にそう

>>176
http://reddog.s35.xrea.com/wiki/index.php?Benchmark%20Tcl8.5.0%20vs%20Tcl8.4.16
ここを見た感じではevalが遅くなってるってことは
なさげに見えるけどなあ・・・。なんだろう。

>>177,179
md5を計算する手製proc
リストはここに置いておきます｡
http://home.netyou.jp/22/tanida/md5.htm

tcl ver8.4迄は正常に動作しver8.5でとち狂った｡
ver8.2で動作させるとrfc1321の例題と同じ結果が得られることは確認すみ｡

できた！たしかに8.5だと3倍くらい遅くなってた。たぶん変数を
二重に展開してexprとevalのコンボで最適化が効かなくなって
しまったと推測。

直したのは基本的にそこを素直にprocにしただけ。
8.4では4倍、8.5では12倍高速化した。あと、applyを使った
ものも書いてみたけど、procの方が速かった。

http://chun.s11.xrea.com/up/img/112.zip

ていうか、ひょっとして一つのprocで完結させたかったのかな。
それならapplyだ！

VineLinux4.2とActiveTcl8.5の環境でtktreectrlをソースからビルドしたいんだけど、
makeでつまづいてしまうんだが。

$tar xzf tktreectrl-2.2.3.tar.gz
$cd tktreectrl-2.2.3
$./configure --prefix=/opt/ActiveTcl-8.5 --enable-threads
$make
うだうだ
generic/tkTreeColumn.c:13 から include されたファイル中:
generic/tkTreeCtrl.h:13:20: tkPort.h: そのようなファイルやディレクトリはありません
generic/tkTreeCtrl.h:14:21: default.h: そのようなファイルやディレクトリはありません
generic/tkTreeCtrl.h:15:20: tclInt.h: そのようなファイルやディレクトリはありません
generic/tkTreeCtrl.h:16:19: tkInt.h: そのようなファイルやディレクトリはありません
うだうだ

tkPort.hってなんぞ？
/opt/ActiveTcl-8.5/include にそんなヘッダ入ってないんだけど・・・

>>183
http://sourceforge.net/projects/tcl/
からtcl8.5とtk8.5のソースコードをgetしろ。

>>184
ActiveTclを使わずにtckもtkも自分でソースからビルドしたらtktreectrlも上手く入ってくれた
ありがと

exprを多用したTclプログラムを高速化するにはとにかくexprの引数全体を { } で囲むってことを覚えておくといい。
式のコンパイル結果をキャッシュしてくれるようになるので本当にこれだけでだいぶ高速化する。
181のコードだとさらにexprコマンドを変数にいれてevalとかしちゃってるんでそこもどうにかしなきゃだけど

あー182の改訂版だとそういうところばっちり抑えてるね。余計なコメントだったか

184 09:05:22 >>185 09:16:09 僅か１０分でソースコードをgetして確認まで完了。天晴れ！

>>188
まぁ俺様のｽﾊﾟｺﾝなら余裕よ

じゃなくて、同じ事考えててソースから入れたら上手く行って「ヤッター」って書き込もうとしたらレスが付いてたの。
そんだけ。

Welcome to the Tcl Developer Xchange!
http://www.tcl.tk/
Latest Software Releases

Tcl/Tk 8.5.1 Feb 5, 2008
Tcl/Tk 8.4.18 Feb 8, 2008

ActiveTcl 8.5.1.0 Feb, 2008

181>どうやら8.5版ではevalの処理が今一歩か｡
evalはtclのインタープレタ(解釈実行)機能を利用する窓口なのでevalを封印する様では暫く8.4版に留まって様子を見るのも有力な選択肢かもしれない｡

俺は8.4の頃からバイトコンパイルの邪魔になるので
evalは封印してきたわけだが・・・。

そういえば8.5で{*}が追加されたけどこれもeval使うよりは速いのかなー。

>192 ：バイトコンパイルの邪魔になるのでevalは封印・・・。　
　　　　　→eval命令のコンパイルで何か支障があるのですか？

すみません。教えてください。
set a 3
set b {$a + 2}
expr $b*4
これが 20 でなく 11 になる理由は分かりました。しかし、次のような C 言語のソースをそのまま Tcl に直すとどうなるのですか？
int a = 3;
int b = a + 2;
int c = b * 4;

set a 3
set b [expr $a + 2]
set c [expr $b * 4]

なるほど。ありがとうございました。

書籍の類が姿を消して久しいが今日丸善本店に立寄るとEffective Tcl/Tkが書棚にあった｡手にとって奥付を見ると「1999年８月１日初版発行」になっている！？今年は平成廿年｡

>>198
>Effective Tcl/Tk Library
http://sourceforge.net/projects/efftcl/
>Souce code from the book "Effective Tcl/Tk Programming"

三浦カズヨシ逮捕されたな
関係ないけど

美しいクンニ日本
今日本のクンニが乱れている！！
http://www.youtube.com/watch?v=pAEaGlmwZZQ

wish83 hoge.tcl
とかでソースを実行するときにエラーがあると，ダイアログが出てOKボタンを押さないと次に進まなくなるけど，
これを抑制する方法はない？

普通に考えて例えばファイルオープンでしくじったら
読み取りの次の処理も失敗するだろ。止まるのが
普通なのではないだろうか。エラーを「抑制」するとは
この場合はどういう処理を期待してるのだろうか。

まあcatchしてエラー処理をすればよいのではないかな。

>>203
ダイアログを出さずに落っこちてほしいのです．
バッチ処理でデータを自動的に次々処理しているときに，ダイアログが出てそこで止まってしまうと，
オペレータが常時監視してOKボタンを押さなくてはいけない．
そうではなくて，エラーが出たらそのまま落ちて，次のデータに処理が移るようにしたい．

余談だけど前にどっかの英語のブログでプログラミング関連のフォーラムのスクリーンキャプチャ画像があって、
PHP のフォーラムと Python のフォーラムの最新の質問がそれぞれ
How to hide error messages? と How to handle exceptions? だったっていうのが面白かった。

>>204
確かにそうですね．ありがとうございます．

>>205
wishじゃなくtclshを使うのではどうか？

>>208
それが，処理自体はバッチ的なんだが，過去の経緯を引きずっている関係から，
部分的にGUIパッケージを使っているんですよね…．
どういう方法をとるにしろ，プログラムにある程度の修正を加えるしかなさそうですね．

んー、冒頭に package require Tk ってつければいいだけでは？
というかバッチの中で呼ぶのだったら wish だと同期的にならないのでいろいろ不都合じゃないの。

Tclの中でのエラー処理の必要がなくて落っこちればそれでいいっていう前提で話してるけど。

>>205
なんだそういうことか。それならbgerrorでエラー処理を変えればいい。
でも、ていうか8.3ってbgerrorあったっけ。昔過ぎて忘れた。

proc bgerror {message} {
exit 1
}

pack [button .b -text GENERROR -width 15]
.b configure -command {
read $notexists
}

（・∀・）ﾁｯｸﾙﾁｰｺ! ﾁｯｸﾙﾁｰｺ! ﾗｯｷｰﾍﾟｱ!

tcl tcl tcl tcl tcl tcl ﾁｬﾁｬﾁｬ
二人は双子♪ 似てない双子♪

>>166
Perl/Tk Tools
http://ptktools.sourceforge.net/

ActiveTcl 8.4.18.0
http://www.activestate.com/store/download.aspx?prdGUID=f0cd6399-fefb-466e-ba17-220dcd6f4078

PowerShellから使えんのかなぁ

>>215
tcom
http://wiki.tcl.tk/1821

>>216
COM Object Implementation in Tcl
http://www.vex.net/~cthuang/tcom/server.html
http://www.vex.net/~cthuang/tcom/

>>217
>COMプログラマの解説書
>Crispin Goswell
>Microsoft Office Product Unit
>1995年 春
>1995年9月13日改訂
http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/jpdncomp/htm/com_co.asp
>抄録
>この解説書は、
>Microsoft(r) OLE Component Object Model（COM）オブジェクトを作成し、
>効果的に使用する方法を説明しています。
>例文はほとんどCで書かれていますので、実際に何が行われているかが、大変分かりやすく示されています。
>プログラマの中には、オブジェクトを実行するためにC++を好んで使用する人もいるでしょう。
>C++プログラマの観点からCOMの概念および基本的な使用法を論じているのは
>Kraig Brockschmidt著のInside OLE （第2版）（MSDN Library（Books））です。
>COMとは何か、またその設計や哲学の後ろにある動機付けをより理解する事に興味がある読者なら、
>Component Object Model Specification（MSDN Library（Specifications））の最初の2章を読んでください。
>第1章には簡単なイントロダクションを、第2章では徹底的に概要を解説してあります。
>この解説書ではInside OLEとCOM Specificationにある情報を、
>COMオブジェクトを実装する良い方法をいくつか示しながら解説するようにしてあります。

Tcl使ってる人はLISPも使ってることが多いんでしょうか

>>219
特別関係は深くないと思う。
ただTKの方は、色々な言語から使える。

LTK - The Lisp Toolkit
"The easy way to do Lisp GUI programming"
http://www.peter-herth.de/ltk/
>LTK is a Common Lisp binding for the Tk graphics toolkit.
> It does not require any Tk knowledge for its usage.
> As it is written in pure Lisp, it is highly portable.

DQN男の家族死ね　DQN男の親死ね　DQN男の友達死ね　DQN男の親戚死ね
DQN男の家族死ね　DQN男の親死ね　DQN男の友達死ね　DQN男の親戚死ね
DQN男の家族死ね　DQN男の親死ね　DQN男の友達死ね　DQN男の親戚死ね
DQN男の家族死ね　DQN男の親死ね　DQN男の友達死ね　DQN男の親戚死ね

Lisp使いでEmacs使いの人はTclに間違った偏見を持っていることがあるかも。

>>223
なぜ Tcl を使うべきではないのか
http://www.os-omicron.org/~takano/private/trans/tcl_j.html

>>224
Tcl7.x時代の話でTcl8.xにはもう当てはまらない議論。

http://www.geocities.jp/tor_park/Dlang/byte.html

tBuild
http://sourceforge.net/projects/tbuild/
tBuild is a cross-platform Tcl/Tk extension that extends Tcl/Tk with the ability to compile
& link shared libraries of Tcl extensions written in C/C++.
tBuild currently supports all unix compilers & MS VC++ 5.x/6.x/7.0/7.1/.NET under windows.
No Mac supp

Tcl9
http://sourceforge.net/projects/tcl9/
Tcl9 is an umbrella for all projects related to the improvement of the current Tcl language,
towards the hypothetical version 9 (current version is 8.5).

>Tcl/Tk 8.5.2 Release Announcement
>March 28, 2008
http://www.tcl.tk/software/tcltk/8.5.html

-e 位使えるようにしてくれ

>>229
>tcltk8.5.2-014-20080405.exe
http://sourceforge.net/project/showfiles.php?group_id=204414&package_id=248905&release_id=589844

アイム
出口

×テックルティーケー
○ティコティケェィーィエ

x86-32bit Linuxでは正常に動いてたプログラムをx86-64bit Linuxで
動かそうとしたらcannot execute binaryとなってダメなんですけど、
どうすればいいんですか?原因はなんなんですか?
中学生にも分かるように説明してくれませんか?

>ActiveTcl 8.5.2.0 Apr, 2008
http://www.tcl.tk/

>>234
サポートセンターに電話すべし。

>>234ですが自己解決しました。
libc6-i386というのをインストールしたら６４ビットOSでも
動きました。でも、３２ビットOSのときよりも動きが遅いです。

http://snackamp.sourceforge.net/
>SnackAmp
http://sourceforge.net/projects/snackamp/
>SnackAmp is a powerful multi-platform audio music (mp3, ogg ,wav, streams ...) player and organizer for large music collections.
>Manage your entire collection, including ID3 tagging and auto-playlisting. Integrated web server for remote control/streaming

ファイルから読み込んだ文字列中に"があるとうまく処理ができません。

たとえば、中身が
He said "I am
a boy"

のようなfileに対して

set ch [open "file"]
while {[gets $ch line] >= 0} {
puts [lindex $line 0]
}

を実行すると

unmatched open quote in list
while executing
"lindex $line 0"

となって止ってしまいます。
(mingw のtclsh84 )

このような"の入った文字列を処理するにはどうしたらよいのでしょうか？

クォートをエスケすりゃいんじゃね
gets $ch line
regsub -all \" $line \\" buf
puts [lindex $buf 0]

自己解決…って>>240さんの書かれた通りです。
あ、自分のは -all 忘れてましたわ。
ありがとうございます。

ちなみに、\\"で動くのですが、それだとemacsの色付けが異常になるので\\\"にしました。

使い勝手悪い言語だなあ。

Active Tcl　ver.8.4.19に改版されている｡
ver.8.4.17以降2ヶ月毎に改版されている｡随分頻繁に改版しているけど､どこが換わっているのやら。

>>242
regularExpressionの速さはピカ一ですが

そうなの？

コーディングにかかる時間とか、バグのとりやすさのほうが重要だろ。
この観点から見るとtclひどすぎ。
正規表現使う構文にしてもすっきりしてないし。

わかったからすきなの使いなよ。

まさに正論

例に Perl/Tk 使ってみ。
Tcl ってよー出来てるって思えるから。

Tkを使う為の言語としては最強だよな。
他がちょっと弱いけど。

Cと組み合わせれば良いじゃん。

恥を忍んで質問させて下さい。

Win版のActiveTclのExpectは、sendの-breakが無いので、
一旦openしてfconfigureでbreakするのを試みてます。

set fd [open "COM1:" RDWR]
fconfigure $fd -ttycontrol {BREAK 1}
exp_sleep 2
fconfigure $fd -ttycontrol {BREAK 0}
exp_spawn -open $fd

でも、最後のexp_spawnがうまくいかないです。何故でしょう？

239みたいな例に対応できる汎用的方法がよく分からない。
'"'だけでなく'{'とか'}'とかも気をつける必要がある気がするんだけど。
tcl faq list eval とかで検索してみたけど結局どうすれば。

複数行にわたって書いているリストの中で
コメントをなんとか書けないものかなあ

>exp_spawn failed on Windows 2003 with DEP(DataExecutionPrevention)
http://lists.activestate.com/expect%40listserv.ActiveState.com/6A3BD65D48E1EC45AF1B466D4E2A470F02630419%40HQSX5711.Hospira.corp

tclshでプロンプト(PS1)の設定は出来ますか？

こうじゃね？
たとえば、
set tcl_prompt1 {puts -nonewline [info hostname]@[pwd]> }
で、ラインコンティニュー用は tcl_prompt2に設定
set tcl_prompt2 {puts -nonewline continue?> }

>>257
なんやこれ。こんなんできたのか。長年使ってるけどはじめて知ったわ

>>257
出来た！
ありがとうございます

aliasの設定なんか無理かな？
~/.tclshに ls color=auto を入れたいんだけど

>C++/Tcl
http://cpptcl.sourceforge.net/
>A C++ library for interoperability between C++ and Tcl

>C++/Tk
http://cpptk.sourceforge.net/
>A complete C++ interface to the Tk GUI toolkit

Tcl/Tk 8.5でBLT-2.4z使えてる方はいらっしゃいますか?

パッチとか修正とか、かなり手を入れないと使えないのでしょうか。

>>239
ここにその議論がある。http://wiki.tcl.tk/2157
要するにsplitすればよい。ただし連続する空白文字に対する動作が意図と異なるかもしれない。
while {[gets $ch line] >= 0} {
puts [lindex [split $line] 0]
}

あるいは、
puts [join [split $line] |]
などに書き換えて様子を見よう。

>>262
Windows版の場合、tcl84.dllに直接リンクしてしまってるからどうにもならないよね。
Tcl8.3あたり以降のextension作成のガイドラインから外れた古い作りになっているんだろう。
実際何年も更新されてないようだし。
自前ビルドしてやるしか。

>>263
http://jos.decoster.googlepages.com/bltfortk8.5.2
を基に試してみました。

demosやexamplesの一部 (多く?) が失敗するけど、なんとなく使えそうです。
BLT-3.0で対応するのかなぁ。

http://reddog.s35.xrea.com/wiki/A%20Stub-enabled%20BLT2.4z%20for%20Windows.html
これは試した？

後出しでごめんなさい。Linuxです。
Fedora 9で試してまして、そうこうしてるうちに、>>263の方法で対応したパッケージがリリースされました。

https://bugzilla.redhat.com/show_bug.cgi?id=446862
で対処してくださったようです。

tk でコンボボックスの幅を指定するにはどうすればいいでしょうか？
また、できれば選択した文字列が表示されるテキストボックス部分を
複数行表示にしたいのですが、可能でしょうか？

>>tk でコンボボックス
tile拡張のttk::comboboxのやつか?
ttk::combobox .cb -width 100 とかでいけんじゃね
>>複数行表示にしたいのですが、可能でしょうか？
不可能じゃね

質問があります。

set a hoge
set b a
set c b

とやって、cからたどってhogeに辿り着くには
どうすればいいのでしょうか。
$$$c とか $[$[$c]] とかいろいろやってみたのですが
できません……。

set a hoge
set b a
set c b

proc aho foo {
upvar $foo bar
return $var
}

puts [aho [aho $c]]

>>269
puts [set [set $c]]
>>267
2行は無理。BWidgetsのコンボを改造すればできるかも

>>271
へ〜、setって変数の参照にも使えるんだ。　勉強になりますた。

>>263
> ただし連続する空白文字に対する動作が意図と異なるかもしれない。

この制約がどうにも辛いです。
連続した空白があってもそれをただ一つの区切りとみなしつつ、
安全にファイルなどから読み込んだ文字列を処理するには
どうしたらいいのだろうか。

>>270
>>271
ありがとうございます。

>>273
そんなの教わったregsub使えよ
while {[gets $ch line] >= 0} {
puts [lindex [split $line [regsub -all -- {\s+} $line { }]] 0]
}

>>273
set line {He said "I am}
foreach word [string map {\" \\"} $line] {
puts $word
}

>>276
'{' inside string

文字列の中に"や{がある事を気にする必要がある時と
必要がない時の条件がよく分からん。。。
あと、ファイルから読み込んだ行を一律regsubしてしまって
常に構わないのかどうかも。。。

>>278
文字列をリストに自動変換してるところは気にしろ。文字列をforeachしたり
リスト系のコマンドに直接文字列を渡したりしてるところは注意だ。
>>276
set line "He said \"I am \{ a boy \}"
foreach word [string map {\" \\\" \{ \\\{ \} \\\}} $line] {
puts $word
}

> \} \\\}
これは必要? あってもなくても同じではないの?

>Tcl/Tk 8.5.3 June 30, 2008
>Tcl/Tk 8.6a1 June 25, 2008
>Tcl/Tk 8.4.19 Apr 18, 2008
http://www.tcl.tk/

>>273
そもそもの話をしてもいいだろうか。
こんなコードは試しましたか？


set lines {He said "I am
a boy"}

set i 0
foreach l $lines {
puts $i:$l
incr i
}

Tclのlist「形式」は平易ながらバイナリデータまで扱える立派な「データ構造」なので、
まともに実装しようとすればTclが最初から持ってるパーサーを実装しなおすようなことになるよ。

平易ではあるがあまり(書いたソフトの)ユーザーには触ってもらいたくないデータ形式のような気がする。
コメントも使えないしね。自分自身で読み書き保存するためにはいいけど、
ユーザーに触らせるならJSONやYAMLなどのより一般的な形式がいいだろうね。
今ならtcllibのCVS HEADにライブラリが置かれてるよ。

なんか、今頃また盛り上がってるが・・・

>>282
それじゃ根本的に違うんだよね〜
getsで一行ごとにテキストファイルから読んでるの文字列に「"」があるのがミソなんで

set lines {He said "I am}

を処理することになるんですよ。

8.5から文字列をリストに変換できるかどうかチェックする
string is list $strが追加されてんぞ。

info completeで失敗したら、さらに１行読み込んでappendすりゃいいだけだろ
そもそもデータ自体が１行ずつ処理されるように書かれていないのになぜ、1行ずつ
処理したがるのか

ファイルの文書が、必ずしも""の対応関係があっている保障はないわけだが。

たしかにそういうこともあるな
flex/bisonでやるか PureTclでやるならfickle/taccle

canvasにarcなどを1000個くらい書くと激重でどうしようもありません。
自分の描画ルーチンが重いのではなく、Tkがcanvasをリフレッシュするのが激重です。
描画したアイテムを選択して移動とかするつもりはなく、単に絵が表示されればいいのですが…
こんな場合は、image photoに直接力技で図形を書いていくしかないですかね。

Tkのキャンバスウィジェット並みの機能ってほかのGUIフレームワークにないですかね。
書いた絵をドラッグできるとかそういう系。

>>289
Zinc Is Not Canvas!
http://www.tkzinc.org/tkzinc/index.php

OpenGLが、速い環境が無いと、遅すぎてかなわん。

Zincもええが、tkpathの方がシンプルでとっつきやすいよ

tkpath使ったら早くなるかとおもったけど全然早くならなかった・・・

>>288
>>292

1000を超える描画単位（図形やウィジェットなど）をリアルタイムで取り扱うことはスクリプト言語系のツールキットでは想定されてないと思う。
素直にネイティブコードで動く言語で実装したほうが早いんじゃない？　描画結果のキャッシュでもしつつ。

いやまだ手はある。Tcl3DでOpenGLで直接描画すれば・・・！

マルチスレッド拡張使ってる人いる？

ときどき使う。

>>296
非同期で走っている複数のスレッドから進行状況や終了などをメインのスレッドで
受け取るにはどういう手段があるんでしょう？ tsv でスレッド内で状況をセットして
メインでpollするというぐらいしか思いつかないのですが。　メインの方で
vwaitしてスレッドのほうからthread::sendなんて出来ませんよね？　

C++などで書いてるソフトにTclのインタプリタを組み込んでるやつはいないだろうか。
Tcl_Eval()でTclスクリプトを実行したときにそのスクリプトにエラーが含まれていると、
エラーメッセージはResultの中に入ってる。
これをResultの代わりにエラー出力に出したいんだが、その方法がよくわからない。
やり方があるようなら教えてもらえないだろうか。

あ、だめだ。　これ以前にExpectがthread-safeで無くてスレッドからは使えないとか。　
Expectを多用してるので諦めます。

http://community.activestate.com/forum-topic/expect-tcl-threads

stderr
http://wiki.tcl.tk/2620
stderr is one of the stdio output files opened
- applications and functions tend to use it for the output of error messages.

>>300
ご協力ありがとう。
読んでみたけどどうやらこれはTclインタプリタ側（Tclスクリプト側）から
外部コマンドを呼び出したときのstderrについて議論しているみたいで、この話とはちょっと違う。

Tcl_CreateInterp()でinterpを作った後、
Tcl_SetStdChannel(channel, TCL_STDOUT);
Tcl_SetStdChannel(channel, TCL_STDERR);
を呼び出すことでinterpが呼び出すputsコマンドによる標準出力、エラー出力をトラップできることは確認できている。

だがTcl_Eval()やその他のTcl変数を直接いじるAPIを呼び出したときの文法エラー、実行時エラーは出力されないみたいなんだ。
（で、Resultの中に入っている）
こいつを、他と同じようにトラップできればいいんだが……。

>>297
>>299
http://www.tcl.tk/doc/howto/thread_model.html

>>301
TCL_ERRORだったらResultを出力すればいいだけじゃね？

>>298
なんでそんなことそをする必要があるかもう少し詳しく書いた方がいいぞ。そうしないと、
>>303みたいにすりゃいいだろ思うんだが
if (Tcl_Eval(interp, script)!=TCL_OK) {
char str;int len;Tcl_Channel e=Tcl_GetStdChannel(TCL_STDERR);
str=Tcl_GetStringFromObj(Tcl_GetObjResult(interp), &len);
Tcl_Write(err,str,len);Tcl_Flush(interp,err);
}

あー、どうでもいいけど、Tcl_WriteObjつかうと、Tcl_GetObjResultから一発で済むわ。

TkSTEP 0.3b3 (Tk 4.1)
NEXTSTEP(tm)-lookalike-wanabee-hack-kit for Tk
Alfredo K. Kojima
tkstep0.3b3.tar.gz
tkstep8.0.4-2.tar.gz

Alfredo Kojima
http://en.wikipedia.org/wiki/Alfredo_Kojima
Alfredo Kengi Kojima
http://si3.inf.ufrgs.br/informa/Edicao12/entr_ago00.htm

TkSTEPは、現在、開発がストップしてるけど、
windowmakerなど他の仕事で作者は有名なんだな。

The Tcl IRCd
http://www.hping.org/tclircd/
The Tcl IRCd is an IRC server written in the Tcl language.
The current version is not a complete implementation of the IRC protocol
but should interoperate well with most IRC clients, and allows to register,
change nick, create channels, talk on a public channel or in query and so on.
The program is small,
less than 500 lines of code, and was written in order to be very simple to modify/extend.

string hoge とかって具合に 任意の string * コマンド(?)を追加したりはできないでしょうか。

proc stringHello {} {puts "HELLO WORLD"}

set map [namespace ensemble configure string -map]
dict append map hello stringHello
namespace ensemble configure string -map $map

string hello


ただし8.5以上。

8.4のときはstringコマンドをtcl_stringなんかに名前を変えて
そのうえでそれのラッパーのstringを作ったりしてた。

>>269
＞$$$c とか $[$[$c]] とか…
puts [subst $[subst $[subst $c]]]

遅レスだが…

>>269 & >>310
$$var (間接指定)について
http://psg.com/%7Ejoem/tcl/faq.html#DoubleIndirect
に丁寧な説明がある｡
古い我家頁だが､今でもアクセス可能と思う｡

BrowseX for Windows使ってた人いない？
いきなり消滅してて悲しい・・・

Active Tcl　やっと8.5.3になった

tclコードをソース隠ぺいのため、バイナリ化または、
暗号化したいがどうすればよいでしょうか？

バイナリ化（exe化）ならここに色々ある｡
http://home.netyou.jp/22/tanida/MazeOfProgram.htm
隠ぺいのためになるかは不明.

comポートとかソケットをopenで開いてgetsした時、
相手が何も返してこないと、一生待ちつづけてしまうのですが、
タイムアウトさせたりする方法は無いですか？

>>316
Tcllibは調べた？

>>316
fconfigure -blocking
fileeventで非同期に処理するのが良いと思う

>>316この手のシークエンスを記述するためにafter ms命令が用意されている

>>318
fileeventがまさに探していた機能です
サンクスコ

>>319
それは考えたけど、一度発行したgetsを取り消す術がないからダメポ

foreach {o i } [regexp -all -inline {<item>(.*?)</item>} $read] {
のlsearchとかlreplaceとかで、ネストタグの抽出が簡単にできるのが良い。
perlより全然良い。日本語が問題なく使えるのが良い。簡単GUIも良い。
foreachの中のregexpが速ければもっと良い。なかなか最適化ができない。

ｔｃｌの正規表現は早いほうって聞いたけどなあ・・・

Tclで書いたスクリプト自体はそれほど早く動作しないよね。
TclはJITに対応してるという記述がちらほら（wiki.tcl.tk含む）で見かけたので
ソースコードを調べたら、スクリプトを内部表現に書き換えるコンパイラはあっても
ＣＰＵのニーモニックに直接変換してる実装部分は見当たらなかった。

インタプリタ自体がやってることはそれほど複雑ではないので（ほとんどがコマンド自体の実装）
誰か実装してくれればいいなとは思うが、
googleのannualのフォーラムでの議題には特にあがっていないようだ。

速くしたけりゃその部分だけCで書け
そもそも
コマンド　引数　引数　...
しかなくて、構文などというものもない簡易言語に期待しすぎでしょ。

その理屈で言うと括弧しかなくて構文などというもののない簡易言語にも期待できないのか。
それはさておきTclでバイトコードコンパイルしてるってのだけで驚異的じゃない？
Tclって意味論的には素直に考えるとevalに満ち溢れたような代物でしょ。

インタプリタ作ったり、DLLやsoを簡単にロードできたり、Cとの融合が十分考慮されてる言語なんだから、
処理速度を要求される部分はCで作った方がいいでしょ、マジで。

別にそこには反論してないよ。
それはTclのシンタクスとは直接の関係はないし、Tclが簡易言語とも思わないけど。

stdinを１文字単位で扱いたいのですが・・可能ですか？
Enter押すまで入力待ちになってしまいます。
機種依存が必要であればlinuxでお願いします。
proc getch {} {
return [read stdin -nonewline]
}
目的は簡易lessコマンド作成です。

>>327
tclはねぇ、ローカルスコープ切れないからちょっとプロシージャが長くなると変数がゴッチャになるのよ。
長いもの書くには向かないと思うがね。

zero3 [es]でeTcl使ってるんだけど・・・バージョン進むにつれてサイズでかくなりすぎ。
最新版はついに起動できなくなったｗｗｗ
動的に拡張を読み込めるのがTclの利点なのに、一つの実行形式に使わない拡張までまとめないで欲しい・・・

>>329
Tclなめんな！

proc block {body} {
    eval $body
}

set x 100
set y 1000
block {
    set x 200
    upvar y y
    puts "value is $x $y"; # value is 200 1000
}
puts "value is $x $y"; # value is 100 1000

>>328
http://wiki.tcl.tk/14693
まあこれを読め

http://tcllib.sourceforge.net/doc/receive.html
そして次はこれだ

>>332
ありがとうございます。
解決しました！

>>331
blockがたくさんネストしたらどこまでupvarしたらいいかわかんなくなっちゃうね。

日本語に関して質問です。
encoding systemがwindowsではcp932, Linuxではutf-8となっていて、
スクリプトを書くさいにそれぞれの文字コードで保存せねばなりません。
(string bytelengthはいずれの環境も一緒になるので内部ではutf-8のようですが)
ですので、windowsで作ったスクリプトをそのままLinuxに持っていくと文字化けしてしまい困っております。

encoding systemをcp932やutf-8に強制的にセットしたところで上手く動きません
(windowsでencoding system utf-8にし、スクリプトをutf-8で保存しても文字化け、等)

encoding systemの異なる環境間で同一スクリプトで動かす手立てはないものですかね。

Unicodeリテラルで書く。

>>335
もし8.5を使ってるんだったら、、sourceやtclshやwishに-encodingオプションが付いたから、
スクリプトはcp932で書いておいて、最初の3行を

#!/bin/sh
# the next line restarts using tclsh \
exec tclsh -encoding cp932 "$0" "$@"

にすることで、できたりしませんか？

逆に、スクリプトはutf-8で書いておいて、
windowsの関連付けの方で、wishに -encoding utf-8を付けるという手もあるかも。

試せないので、無責任に書きっぱなしですいません。


ところで、スクリプトをwindowsからLinuxへ持っていくときに
nkf通して変換というのじゃ駄目なんでしょうか。

>>335
shift-jisで書いておいて
#!/bin/sh
# \
LANG=ja_JP.SJIS; export LANG; # \
exec tclsh "$0" "$@"

で動くかもしれないし、動かないかもしれない。

>>336
よくわかりません。

>>337
8.4使っているのですいません。
(ActiveTclの拡張が8.5では少なすぎるので)
Linux側で修正したりwindows側で修正したりしたのを日付で同期してるのでnkfやiconvは使いにくいですね。

>>338
凄いぜ。
putsでターミナルに出力する文字は化ける(konsoleのモードがutfだからしかたない)が、
widgetに出力する文字はきちんと出たよ〜。

>>339
puts \u0055\u0069\u0063\u006f\u0064\u0065\u30ea\u30c6\u30e9\u30eb\u304f\u3089\u3044\u3050\u3050\u308c

>>340
それはさすがに嫌杉でしょw

>>339
putsは fconfigure stdout -encoding utf8 とかで化けなくなると思う。
でも、そこまで文字コード意識するならWindows<->Linuxでコピーする時に変換するほうが良いんじゃないの？

最近ActiveTcl8.5.4に乗り換えたけど一見拡張が入っていないように見えて、実は Tcl\lib\teapot\package\ 以下に
入っているように思った。

>>341
この技はおぼえておけ。かならず役に立つときが来る。

>>339
>>342
ActiveTcl8.5.x のインストーラの最初の画面で、

8.5は8.4とほとんど互換性があるから、
teacupを使うか8.4に上書きインストールしたら
たくさんのパッケージが手に入る。

というようなことが書いてました。
まだ8.5に乗り換える気はないんで、それだけ見てキャンセルしたけど。

>>331
>>334
見つかるまでさかのぼるupvarを書いてみました。
upvarが上位の変数名とローカル変数名を並べて書くのに対し、
上位の変数名だけ並べて書いて同じ名前でリンクするようにしてます。

proc upvar2 {args} {
　　set leveldepth [info level]
　　foreach varname $args {
　　　　for {set varlevel 2} {$varlevel <= $leveldepth} {incr varlevel} {
　　　　　　if {[uplevel $varlevel info exists $varname]} {
　　　　　　　　incr varlevel -1
　　　　　　　　uplevel 1 upvar $varlevel $varname $varname
　　　　　　　　break
　　　　　　}
　　　　}
　　}
}

windows mobile でeTcl使ってプログラム作ってたらメモリが足りなくて死んだorz
image photoって、-paletteで色数制限しても内部はフルカラーメモリ展開するのね。
やっぱ、WMで使うには富豪過ぎるか、Tclはorz

内部イテレータ欲しい

Tclを久しぶりに書いてみたら、firefox用のpluginが正常にインストールできません。
どういう状況なのでしょうか？ご存知でしたら教えてください。

>>348
スネーク。状況をもう一度よく確認するんだ。

Tcl → バージョンが上がらない
Firefox → バージョンあがりまくり

放っておかれたアドオン（plugin）はどうなる？

>>348
了解

メインバージョンが上がらないと更新されない訳ですね。

300Ｋbyte程のTclTkを書いてみた。
っかZETってソフトのちょい変だけど。

ttp://carnageez.web.fc2.com/catdir/cat.html

10秒見ただけだが、名前空間使わずによくこんだけ書いたな

>>352
名前空間って何？(　ﾟдﾟ)ﾎﾟｶｰﾝ

>>353
http://www.tcl.tk/man/tcl8.3/TclCmd/namespace.htm

>>354
ありがと。
へえーーなんちゃってオブジェクト化って感じなんだね。

Tcl 8.5からapplyコマンドでラムダ式とかが使えるらしいんだけど、
なんか入門的な情報ない？

set lis [another commend]
for e $lis { something $e }
とかやらずに、$lisに直接何かを作用して写像を得たり、
フィルタリングできるの？

初心者すぎてすいません。
tclのproc関数の出力をtkのテキストに書き出すにはどのようにすれば
いいのでしょうか？
いまいちtclとtkの連携方法がわからず困っています。

んと、こんなんやってる
set str "hogehoge"

f_text_update $str

proc f_text_update {win str}
if {![winfo exists $win]} {
text $win
grid $win -column 0 -row 0
}
$win delete 0.0 end
$win insert end $str
}

んもしや回答を誤ったか？

f_text_update [f_proc_func]

proc f_proc_func {} {
return "hogehoge"
}

これでどうだ

>>359-360
ありがとうございます。
試してみます!!

>>356
この記事は読んだ？
http://wiki.tcl.tk/4884

λx.λy.x(2)(3)
みたいなことをやろうとして、
apply {{x} {return [apply {{y} {return x}} 2]}} 3
てやっても
x
が返ってくる。
で、
apply {{x} {return [set [apply {{y} {return x}} 2]]}} 3
ってやれば3が帰ってくるが、setを使っている時点で２回目のapplyの戻り値が変数名であることを前提にしていて気持ち悪い。

ツール組込みのtcl環境でもlambda使いたい

>>363
こりゃーいったい何をやろうとしとんじゃ？return xで
文字列のxが返るのはあたりまえじゃないか

>>365
単に$のつけ忘れじゃ？


ついでに質問。
{}内の変数は置換されないよね？
そうすると、applyの引数にとる関数にはその引数で宣言した変数しか出てこれない。
これだと、例えば「xを引数にとって、『引数yをとって、yとxとの和を求める関数』を返す関数」とかが表現できない気がするんだけど…
""だとyが束縛されてないし…無理矢理置換するしかない？

答えると、Tclにはクロージャ無いねん。
だからxを置き換えるしかないんじゃないかなあ。

set func {x {return [list y [list expr $x + \$y]] }}
apply [apply $func 1] 2
3

こういうこと？

>>365
λx.λy..x
=λx.x
でしょ。
こうならないってこと。

>>368
> >>365
> λx.λy..x
> =λx.x
> でしょ。

そんなequalityを持つλ計算の体系は見たことが無い

結局なんだったんだ。もう

>>370
同感

点が余計に入った
λ.x.(λy.x)は変換するとλx.xだろうと。

>>372
お前が前提にしているλ計算の公理系を言え。
通常のβη変換ではλx.(λy.x) = λx.xは導出できない。

Tcl and the Tk Toolkit, Rough Cuts, 2nd Edition
* By John K. Ousterhout, Ken Jones
http://www.informit.com/store/product.aspx?isbn=0321601750&rll=1

ついこの前プレンティスから出てる妙に読みにくいTcl本買った俺涙目

日本語で良書なTcl本ってなにがあるかな

ものすごいつまらんこと聞いていいっすか？

Tclって、pythonで言うところのinputとかraw_inputって無いの？

gets

>>376
pythonで言うところのinputって何をするものか書いたほうがアドバイスもらえると思うが？

>>378
それもそうですね。失礼しました。自分は職業プログラマではな
いのであんまりうまく説明できそうにないですが。。
webで見つけた説明によれば、

raw_input関数
標準入力から１行読み込んで(末尾の改行をのぞいたものを)文字列に変換して返す。

>>> s = raw_input()
test
>>> s
'test'

とこんな感じです。上記はインタプリタでの動作です。
呼ばれると、ユーザの入力を待つモードになります。
ユーザが文字列を入力すると変数に文字列が代入されます。
input関数は数値入力用です。

やっぱgetsでいいじゃん

tclsh>gets stdin s
test
tclsh>puts $s
test

>>380
レスありがとうございます。

getsにはそんな風に書くんですね。
channelIdってのが何を指してるのかサッパリでした。。

明日会社に行ってまた試してみます。
たまーに仕事用ツール作成でスクリプト書くんですが、
諸事情あって今回はTclにで書いていて。。

scan $str "%s,%s,%s,%s" a b c d
とかもあるよ。scanfみたいなの。
また正規表現を使った読み込みとか便利
set fp [open $fname]
gets $fp str
regexp {\[\s*\s*\]\s*(\w+)} $str d1 d2とかね

以下が改行取って読み込みとか
set fp [open $fname];gets $fp str
foreach i [split $str "\n"] {

}
以下とかするとバイナリファイルも開けるよ
set fp [open $fname]
fconfigure $fp -translation binary
binary scan [read $fp 1000] H* str

binary scanとbinary formatの使い方をすぐ忘れちゃうのは秘密だ

>>375
Tcl/Tkデスクトップリファレンスには超おせわになった。
あとEffective Tcl/Tk。この２冊はTcl/Tk修行時代の
10年位前にかなり読んだ。

Tcl初心者です。すみません、教えて下さい。

ビルトインコマンドにラッパーをかける事は
できるのでしょうか。

例えば

proc wrapper {cmd} {
catch {eval {$cmd}} status
puts "$cmd , $status"
}
:
alias expr {wrapper expr}
:
expr {1+1} ;# wrapper {expr {1+1}} -> expr {1+1} ,0

的な感じです。

>>385
これじゃ無限ループになるだろ。exprはrenameして新たにラッパーのexprを定義すれば？

>312
>BrowseX for Windows使ってた人いない？

Hv3というtkhtmlベースのブラウザならある。
http://tkhtml.tcl.tk/hv3.html

Dr. OusterhoutがTclコアチームから抜ける。
http://groups.google.com/group/comp.lang.tcl/browse_thread/thread/99e2693293b3c945/e54399b0a7dd8ec1?show_docid=e54399b0a7dd8ec1&pli=1

プログラムから逃げてきたのに卒論で無理やりやらされてる
Cで作ったexeファイルをtcl/tkで作ったGUI上で実行したりできるの？

ていうかこんなことも分からない感じで死にそう･･･

>>388
そしてその翌日itclのコア組み込みが決定したのであった・・・！

>>389
CでCUIのexe作って、Tcl/Tkでガワ作って、パイプで接続とか。
まあどんなことがやりたいかによる。CでDLL作って、それをTcl/Tk
から使うほうが楽かもしれない。

>>389
unixだと楽だが、windowsだと面倒。

え、incr Tcl？
正直オブジェクト指向を入れるなら参照とガベコレの概念を入れる前提で
デザインしなおしたほうがいいのに･･･
（逆に言うとこの2つを入れればオブジェクト指向はこれまでどおり拡張でいいし）
オブジェクト手動開放とか今日日ありえないっすよ。

>>391
んなこたーない。
execで実行するだけ。
so, dllも同じソースで簡単に作れるし(windowsはmingwのgcc使ってるけど)

いやwindowsは苦労するよ。
pathや引数周りに落とし穴がいっぱいある。

MSが早くcygnusを買収してくれればいいのに。

>>394
落とし穴ってなに

path周りの避け方はマニュアルに書いてあるだろ。
で、なんでcygnusが出てくるんだ？
もはやTclはcygwinをサポートしてないぞ。
素直にActive TclをインストールしてCはMinGW使えばいい。

8.6b1きたあああああ！！！
try 〜 throwきたあああ！！！
zlibきたあああ！！！
ttk::spinboxきたあああ！！！
tk fontchooserきたああああ！！！
Canvasの回転文字きたああああ！！！
ttkのvistaテーマきたあああ！！！

今M1だが、修論でtcl使うはめになってubuntuの起動から勉強してるところなんだけど、
tclでパラレルポートからの入力って使える？
その辺含んだお勧めの書籍なんかあれば知りたい。

http://wiki.tcl.tk/2816
まずは適当に検索してみればいいとおもうの。

AC3Dマニュアル
http://panda.ecs.cst.nihon-u.ac.jp/~hiroshi/ac3d/ac3dmanj.html
1998年11月6日更新 - AC3Dバージョン2以降に対応

AC3D
http://mail2.nara-edu.ac.jp/~asait/graphics/ac3d/ac3d.htm
>3 次元模型 (モデル) を作るためのソフトはモデラーと呼ばれています。
> AC3D はそのモデラーの一つで、随分人気があるようです。
> AC3D は今では商用ソフトになってしまいました。

Shareware Version.
http://locgate.smtn.stavropol.ru/DOCs/Programming/OpenGL/ac3dwinsw2.zip
古いけどTcl/Tkスクリプト使用して参考になる。

最新版。
http://www.inivis.com/

These are some sample files for the 3D modeller - AC3D
ftp://ftp.uni-duisburg.de/CAD/AC3D/acfiles.tgz

AC3D Manual(Updated 11th March 1999 - Covers AC3D Version 2 onwards)
ftp://ftp.uni-duisburg.de/CAD/AC3D/ac3dman.zip
ftp://ftp.uni-duisburg.de/CAD/AC3D/ac3dman.tgz

AC3D Manual Ver. 3.4.1
ftp://ftp.uni-duisburg.de/CAD/AC3D/ac3dman.pdf

http://locgate.smtn.stavropol.ru/DOCs/Programming/OpenGL/ac3dwinsw2.zip
に付属のGLU32.DLLとOPENGL32.DLLは、おそらくWindows95用でしょう。

Windows95以降に発売されたWindowsには、
GLU32.DLLとOPENGL32.DLLが付属してるとはずなので、
Windows95以降に発売されたWindowsをお使いの場合は、
AC3D v.2.0付属のGLU32.DLLとOPENGL32.DLLを削除したほうが、
AC3D v.2.0の安定性や速度が改善される可能性があります。

すみません質問させて下さい。
以下のコードのように、プロシージャfooを作っておいて
複数のボタンをpackする作業をまとめたいと考えています。

proc foo {w msg} {
pack [button $w.$msg -text $msg -command {puts $msg}]
}

pack [frame .f]
foo .f "b1"
foo .f "b2"

ところがボタンを押してcommandを実行させると、
以下のエラーが出ます。
Error: can't read "msg": no such variable

ボタンを押したときにローカル変数msgを参照できていないということだと
思いますが、何か良い解決策はありませんか？
よろしくお願いします。

使用環境を書き忘れました。
WindowsXPでActiveTcl8.5.4.0.286921-win32-ix86-threaded.exe
をインストールして使っています。

-command "puts $msg"

>>404
できました！
"と{との違いを調べてきます。
早速の回答ありがとうございます。

>>402
{}の違いがポイントではなく、-command で指定するコマンドが関数の外で実行されることがポイントなのです。
msg変数は関数fooのローカル変数なので、関数の外で実行されるボタンのコマンドからは参照できません。

>>404 ではないですが、もう少し補足しておきます
set msg AAA; pack [button .b -text PushMe -command "puts $msg"]
としておいて、ボタン.bを押すと当然、AAAとコンソールに表示されます。
続けて、set msg BBBとしてボタン.bを押してみて下さい。
コンソールにAAAと表示されますね？
これはどういうことかというと、

補足説明ありがとうございます！

>>407
ボタン.bを生成する時点で変数msgを"puts AAA"という文字列に
展開していたため、ですよね？

button配置は""で解決できましたが
今度は-textvarを使うウィジェット生成をまとめようとして壁にぶつかりました。
>>406, >>407のことから色々考えてevalを使ったら自己解決できました。

pack [entry .e1 -textvar a1] ;# ←この文をすっきりさせたい
pack [entry .e2 -textvar a2] ;# ←この文をすっきりさせたい
↓
proc foo {w var} { pack [eval entry $w -textvar $var] }
foo .e3 a3 ; foo .e4 a4

でも、C言語やPerlをよく使っている身としては、
ポインタを渡せれば良いのになあと、何だかもぞもぞした気分になりました。

何をしたいかわかってないが、たぶんそのevalは不要

あら本当だ。。
「-textvar 変数名を表す文字列」だから
ウィジェット生成時にvarを文字列に展開してOKということでしょうか。
落ち着け>オレ

>>408
> でも、C言語やPerlをよく使っている身としては、
> ポインタを渡せれば良いのになあと、何だかもぞもぞした気分になりました。

C言語知ってるんなら、Tclのソースコードを読んだらいいのに、
Tcl8.0位がコンパクトで読みやすいし古すぎない。

>>411
うーん。。多分自分のC言語の実力程度ではソースを読んでも理解できなさそうな予感がします。
あと正直なところ、自分としてはあまりtcl/tkは好きになれず、あまり深入りしたくありません。。
（今はやむを得ぬ事情があって触っています。せめてperl/tkが使えれば良かったかもと思います）

tcl/tkならではの魅力があるのは分かるんですが（簡単にGUIを使えて複数のOSで動かせるとか）、
他の言語なら当たり前のようにできる記述方法ができなかったりすることが多いので
結構ストレスがたまってしまいます。
たとえば行末のコメントは、「# コメント」では駄目で「;# コメント」ならOKとか、
理由は分かっても不自由さがぬぐえません。

自分にもっと実力があればラッパーかプリプロセッサを自作したくなるだろうと思います。
上のコメントの例なら、ごく単純には sed 's/\/\//;#/g' すればストレスが減るかもしれません。

とか何とか愚痴をこぼしながらもtcl/tkの本を２冊買ってしまいました。
でも最新バージョンの便利そうなウィジェットの説明などはネットで調べた方が良さそうですね。

Tcl/Tkの本がまだ２冊もあったか。

CとリンクしやすいのでTclはメインにしてもよし、サブで使ってもよし。
文字列処理がやりやすいのでファイル入出力とGUIはTcl/Tk、その他はCとかでもいいし。

Ayam is a free 3D modelling environment for the RenderMan interface, distributed under the BSD licence.
http://ayam.sourceforge.net/
Ayam features at a glance:
* RIB (RenderMan Interface Bytestream) export and import.
* Support for NURBS curves and (trimmed) NURBS surfaces, Boxes, Quadrics (Sphere, Disk, Cylinder, Cone, Hyperboloid, Paraboloid, and Torus), CSG, MetaBalls, Patch Meshes, Polygonal Meshes, and Subdivision Surfaces.
* NURBS modelling includes approximating and interpolating curves as well as extrude, revolve, sweep, birail, skin and gordon objects with caps, holes, and bevels.
* Custom objects that may freely implement their representations (using OpenGL and RIB) and even small GUIs to edit their type specific parameters may be written by the user and dynamically loaded at runtime.
* Scripting interface: Tcl.
* Misc: instancing, arbitrary number of modeling views, object clipboard, independent property clipboard, console, n-level undo.
* File formats (r/w): RIB, DXF, 3DM, 3DMF, OBJ, X3D.

AC3Dは、ポリゴンモデラーだけど、Ayamは、NURBSもサポートしてます。

Python/Tkでソースの間違いを見つけられないのですが、
探してもらってもいいですか？

TCL/TKなら俺に聞け
Python/Tkなら他所で聞け

>>417
座ぶとん１０枚！￣ー￣)ﾉ〜■

BRL-CAD
http://brlcad.org/
http://brlcad.org/wiki/Documentation
http://brlcad.org/wiki/Users_group_presentations
BRL-CAD's integration with TclTk
http://brlcad.org/w/images/3/3a/TclTk_Integration.pdf
BRL-CAD　スクリーンショット
http://www.cadcamcube.jp/brlcad2.html

>>419
ArcherとMGEDの２つのUIがあります。
Archerは、GUIを使います。
MGEDは、CUIで、
puts {Hello,World!}と入力すると、
Hello,World!とエコーします。

いま、欧米で一躍注目を集めているアプライアンス化された高速オブジェクトストレージ製品が、Panasasです。
公的研究機関におけるHPC分野から、企業のハイパフォーマンスのシミュレーション分野まで、
次々と導入が進んでいます。

本セミナーでは、Panasas社の開発責任者であるBrent　Welch氏に来日いただき、
海外の研究機関での利用例や、最先端の導入成果と製品アーキテクチャについて語っていただきます。
ぜひこの機会に、今世界から注目を集める革新的なストレージソリューションの全貌を、
実機デモもご覧いただきながら実感ください。

ご多忙の折とは存じますが、皆さまのご参加を心よりお待ち申し上げます。
http://spider.ctc-g.co.jp/web/fm/edu/2008096g

HP2C製品 - Panasas ActiveStorストレージクラスタ
http://www.hp2c.biz/doc/HP2C.Biz/hp2c_panasas.html
http://www.hp2c.biz/doc/HP2C.Biz/hp2c_panasas_as5k.html

http://www.panasas.com/

>>421
POSIX IO extensions for HPC
Brent Welch, Panasas, [[email protected]]
http://www.usenix.org/events/fast05/wips/welch.pdf
POSIX I/O High Performance. Computing Extensions. Brent Welch (Speaker). Panasas.
http://www.usenix.org/events/fast05/wips/slides/welch.pdf

>>422
POSIX IO
pNFS
OSDv2
Brent Welch, Panasas Inc.
HECIWG-FSIO 2007
http://institutes.lanl.gov/hec-fsio/workshops/2007/presentations/day3/Welch-HECIWG%20FSIO%202007%20Standards%20Update.pdf

Managing Scalability in Object Storage Systems for HPC Linux Clusters
Brent Welch
Panasas, Inc
6520 Kaiser Drive
Fremont, CA 94555
Tel: 1-510-608-7770
e-mail: [email protected]
Garth Gibson
Panasas, Inc
1501 Reedsdale Street, Suite 400
Pittsburgh, PA 15233
Tel: 1-412-323-6409
e-mail: [email protected]
http://storageconference.org/nasa/conf2004/Papers/MSST2004-49-Gibson-a.pdf

Index of /tcl/ftparchive
ftp://ftp.uni-hannover.de/pub/mirror/tcl/mirror/ftp.procplace.com/index.html
>[DIR] Parent Directory 29-Jan-99 12:30 -
>[DIR] FAQ/ 29-Jan-99 12:22 -
>[DIR] NEW/ 17-Apr-00 13:53 -
>[TXT] README.html 11-May-97 16:31 1k
>[DIR] TclX/ 06-Feb-00 18:58 -
>[DIR] alcatel/ 10-Sep-99 17:19 -
>[CMP] all.files.list.gz 12-Jan-00 00:00 74k
>[DIR] binaries/ 29-Jan-99 12:22 -
>[DIR] incoming/ 24-Feb-01 00:36 -
>[DIR] markd/ 29-Jan-99 12:21 -
>[DIR] mirror/ 29-Jan-99 12:21 -
>[DIR] neoscript/ 05-Aug-99 15:54 -
>[DIR] neosoft/ 29-Jan-99 12:21 -
>[DIR] neowebscript-sa/ 29-Jan-99 12:27 -
>[DIR] neowebscript/ 05-Aug-99 15:54 -
>[DIR] old/ 29-Jan-99 12:19 -
>[DIR] sorted/ 19-Oct-99 19:33 -
>[DIR] stuff/ 29-Jan-99 12:19 -
>[DIR] tclx-distrib/ 06-Feb-00 18:58 -

ruby tkをはじめたばかりなんですがWin32で言うところのSetTimerは
どのように実現したらよいのでしょうか？

after

>>462
ﾄﾝ

おめでとう
Active Tcl/Tk ver.8.5.6 になった。

まだ8.5使ってんのか。俺はもう8.6に移行した

8.6は、まだ対応を謳ってない主要ライブラリがあるよ。tcllibとか。
もちろん、使うのは自由だが。

最近のTkはナウなヤングにバカウケな感じの見た目になった？

>>431
プッ。

Tcl/Tkは時代遅れな気がしてPythonでもやるかと思ったが、
インスコしたらTcl/Tk一式入ってきたので、萎えた。
Tkが他のLLで使われる限りTcl/Tkは不滅だな、こりゃ。

>>433
Tile: an improved themeing engine for Tk
http://tktable.sourceforge.net/tile/

Tcl/TK で作られた端末エミュレータってありますか？
GUI上でシェル使いたいんですけど

イメージとしては GUI上に Textウィジェットみたいなものがおいてあって、
その中でシェルが使えるみたな感じです

echo '"abcde","fghi","jkl","mno"' | sed -e "s/\"//g" | awk 'BEGIN{FS=","}{print $3}'

これと同じことをTclではどのようにやれば良いのでしょうか？

また、echoコマンドのところが
cat ファイル名
だった場合についても教えて下さい。

set data {"abcde","fghi","jkl","mno"}
puts [string trim [lindex [split $data ,] 2] \"]

>>437
おぉ！素晴らしいです！
素早いレス、ありがとうございます。

set f [open "|cat ファイル名]
gets $f data
>>437
close $f

>>439
疑問が完全に解けました。
どうもありがとうございます。

Tclって素晴らしいですね。
しっかり勉強して使いこなせるようになりたいです。

>>435
Tcl terminal with color support
http://sourceforge.net/projects/tt-color

C言語も使ってるみたい。

>>440
Tclには組み込みで正規表現が使えるし、
そのフォーマットならtcllibでcsvのサポートもあるのでテストしてみるべき。

>>442
色々教えていただきまして、恐縮の極みです。
正規表現やtcllibについてしっかり勉強したいと思います。

勘違いしてました
catコマンドをつかっちゃだめなんですね
set f [open ファイル名]
foreach data [split [read $f] \n] {
　puts [string trim [lindex [split $data ,] 2] \"]
}
close $f

>>441
ありがとうございます。あるんですね端末エミュレータも。
スクリーンショット見る限りじゃ、カラーも使えてかなりよさげです。

端末エミュレータ部分をウィジェットとして自分のアプリ内で使えたりするんですかね？
ちょっと調べてみます。

保守

Effective Tcl/Tk (ASCII Addison Wesley Programming Series) (単行本)
マーク ハリソン (著), マイケル マックレーン (著),
Mark Harrison (原著), Michael McLennan (原著),
吉川 邦夫 (翻訳)
# 単行本: 415ページ
# 出版社: アスキー (1999/07)
# ISBN-10: 4756131654
# ISBN-13: 978-4756131652
# 発売日： 1999/07
# 商品の寸法: 25.6 x 18 x 2.2 cm

この本出版社では在庫切れ。
大手の書店にはまだ流通在庫は在る。

アスキーは角川書店系列になって以来、
コンピューター関係の本の絶版が続出しているそうだ。

>>447
立ち読みで目を通してしまったので買わなかったけど、
そろそろ手に入らなくなっちゃうのか。買っておくかなぁ。

ちなみに Tcl&Tk ツールキット Ousterhout博士　の本は後生大事に抱えている。

一番世話になったのはTcl/Tkデスクトップリファレンス。
あれ超見やすい。

申し訳ないのですが質問です

5年ほど前にLinuxで使ってた時(Tcl/Tk,Expect共にVer覚えてません)は
send プロセス名 "set a 1"
とか子プロセスに命令してた気がするのですが
本日WinXPにてActiveTcl8.4.19.1を落として動かしてみたところ
sendに引数が2つ以上あると怒られてしまいます

きっと私が何か阿呆な勘違いをしているのでしょうが
「このURLを見やがれタコ」ってモノがありましたら御提示下さい

ttp://docs.activestate.com/activetcl/8.4/tcl/TkCmd/send.htm
SECURITY のところに
Under Windows, send is currently disabled.
ってある

>>451
ズバリこれですね感謝です
ddeコマンドとやらで代用できるぽいのでちょっと試してみます

The Tcl UDP extension provides a simple library to support UDP socket in Tcl.
http://sourceforge.net/projects/tcludp

>>452
dde
http://wiki.tcl.tk/996
tcom
http://wiki.tcl.tk/1821
optcl
http://wiki.tcl.tk/1822

activex controlを使うにはtcomではなくoptclを使う。

Active Tcl/Tk ver.8.5.7 になった。

John Ousterhout博士インタビュー
http://www.computerworld.com.au/article/301772/a-z_programming_languages_tcl
「やっぱOO入れときゃよかったかもね」的発言も。

>>456
それはooを取り込もうとがんばってるCoreTeamの
活動を支援するリップサービスでは・・・

plplotをWindows上のTCL/TKで使いたいのですが、すぐに動くバイナリは無いものでしょうか？
探した限りは無いようですが…

ちょっと見てみたが、そもそもソースコードしか配布されて無いように見える。
素直に自分でビルドしてみたら？

>>459
やはりソースだけですか… LinuxだとRPMがあるみたいですが…
コンパイルとなると敷居が高そうなので、ちょっと他を探してみます
ありがとうございました。

ttp://dishaw.org/plplot/

>>461
ありがとうございます！　早速見てみます

ちょっと相談に乗ってくください
Windowsでdqkitを使ってexeにラッピングしてるのですが
set cmd "wish C:/tcl/main.exe/sub.tcl $args &"
eval exec $cmd
例えばですが ↑みたいな感じでsubプロセスを動かしたいのですが動かないんですよね

ttp://www.interq.or.jp/japan/s-imai/tcltk/tclkit2.html
> Starpackにラップした実行形式(.exe)は、execコマンドあるいはパイプで実行できない。

これに引っかかってるのかなーと思うのですが
別の書き方でどうにか出来ないでしょうか？
スレッドって使ったこと無いのですがスレッドで出来るのかな

Tclのexe化ツールは複数あるけど、基本的にはTcl側に仮想的なパスを見せ、
実際のファイルアクセスまでにそれを書き換えるという方法だからね。
外部プログラムを実行するのは最終的にシステムコールをとおしてTclの外に行っちゃうから、
システム（この場合はWindows）から見えているパスじゃないといけなくなるだろう。

で、さっきも言ったようにexe化ツールは複数あるから、共通の土台で話ができないよ。
exe化ツールのドキュメントやフォーラムの漁ってみるべし。

どもです
いくつか比較して今のdqkitが一番適してる感じだったのですが
他の方法も検討してみます

とりあえず現状で思いついた案としてはsub側も.exeにラッピングして
exeを2個体制で・・・スマートじゃないなぁ

一次情報に当たれと言ってるんだ。
自分の頭の中だけじゃ解決しない問題だろ。

ActiveStateのツールじゃだめなのかいな？

BLTと日本語を使いたいのでなるべくならdqkitが良かったんですよね
Freewrap日本語化版とかTclPro1.3じゃBLTを使うのが大層面倒っぽかったので。

ActiveStateのってTclDevKitでしょうか？
とりあえずBLT使えるか心配なのと仕事でも使いたいのでライセンスも心配ですが
ちょっと試してみます
ありがとうございました

wishをサブプロセスで動かすの前提なら別にexeにしなくてもいいんじゃないの？とか言ってみる

>>468
ちょっと話が変わって申し訳ないんだけど、BLTってまだメンテされてるんでしょうか？
自分も使おうかと思ってたんですけど、どっかでメンテされてないって読んだので、
躊躇している次第です。

>>470
CVSはまだメンテナンスされてる様だ。
http://blt.cvs.sourceforge.net/viewvc/blt/blt/

躊躇って何を躊躇すんの？使ったら何かを失うわけでもないのに

>>472
業務用のシステムなので、継続的なメンテナンスが見込めそうなのはやはり使いにくい
のですよ。

SolarisのCDEでwish使ってるんですが、
Tkのウィンドウだけマウスポインタが通過するだけで
最前面にraiseされてしまいます。
他のウィンドウは大丈夫なのに、なんでだろ。

CDEの設定では
『ポインタでウィンドウをアクティブにするけど、
ウィンドウ順は変えない』
としているので、Tk以外のウィンドウはクリックしない限り
raiseはされないんですが、Tkだけマウスが通っただけで
ウィンドウの前後関係が変わってしまいます。

->465
ご本家のTclkitのページ(http://www.equi4.com/tclkit/docs.html)に
　Don't expect exec and popen to work on files in VFS
と書いてあるので､execはイモ筋(dqkitでも多分ダメ)
やりたいことがよくわからないがdqkitはMT版があるので､
複数のプログラムを同時に別のスレッドで走らせる筈｡

TclOOで自分が作ったクラスのサブクラスって、どうやって作るんでしょうか？

oo::class create mobile {
method bell {} {puts PURURURU}
}

oo::class create softbank {
superclass mobile
}

>>477
ありがとうございました。理解できました。
検索しても見つけられなかったので助かりました。

なんか最近tcllibがあわただしいと思ってたら、
GSoC 2009のプロジェクトでgraph操作の実装をやってるところだったのね。

http://wiki.tcl.tk/23203

印刷サポートもやるみたいね

ttp://wiki.tcl.tk/17158の{*}を使いたいのですが、

set l [list a b c [list e d]]
puts {*}$l

とやると、
wrong # args: should be "puts ?-nonewline? ?channelId? string"
というエラーが返ってきます。Tclのバージョンは8.5.7なのですが、
{*}の使い方が間違っているのでしょうか？どなたかご教示下さい。

いちいちeval使うのタリーから、リストを引き数に展開するようなコマンドとか欲しくなくね？
たとえば{*}$stdargとか

ってことを書いてるんであって、どこかにそんな実装があるという話じゃないです

えっ、これTcl8.5の新機能だよ。しかも新コマンドでもなくて正真正銘Tclの「文法」に対する拡張。

で、481が間違っているのはputsコマンドの使い方のほうですね。シェルのechoとかとは違います。

% puts a b c {e d}
wrong # args: should be "puts ?-nonewline? ?channelId? string"
% puts $l
a b c {e d}

>>481
puts {*}$l
は
puts a b c [list e d]
として実行されるからエラーになってあたりまえだ！

>>480
印刷ってなに？グラフの印刷？

>>484
>>485

ありがとうございました。
根本的に間違っていました。死にたいorz

ns-2でシミュレーションやりたいんでtcl覚えたいんだが、
オヌヌメの参考書とかあるのかよ？

Tcl/Tkデスクトップリファレンス
Effective Tcl/Tk
今となってはちょっと古いがわしはこれでおぼえた。

俺は言語の設計者が書いた本で勉強（日本語版）。
オヌヌメだけど、今では入手できないかも。

オレはggrksだけでなんとかしてる。
だから進歩が中途半端なのか。

俺の場合は具具って最初に出てきたもっとTcl/Tkってサイトで感触つかんで、
文法の意味が理解できればあとはマニュアルで十分って感じ。
ActiveTclのマニュアルで桶。
意味さえわかればdllやshared libraryで拡張するのも簡単だし。
ただ、Tclは印刷できないのがなぁ。

ns-2は確かにotclだが、次期バージョンのns-3はpythonになるそうな。
さよならotcl

流れ豚切りますが、

昔、tcl/tk8.0.5+日本語パッチ
というバージョンでは、kinput2 での日本語入力の制御ができました。
変換の開始・終了とか、入力モードの変更とか。
kinput_start などというコマンドがあったりします。

最近のバージョンはできるんでしょうか？

どんだけ昔の話だよ・・・。

切り出したい関数を必要な関数；サブ関数をインライン展開してくれるツール
があれば教えて下さい。変数名も可能なかぎり縮められたらと思います。
シェルに依存しないバイナリ化擬きが意図です

>>495
複数のTclスクリプトを１つのスクリプトにまとめる仕組みはあるようだけどな。
tcltest-2.3.0.tmとかにまとめられてるよね。
たぶんそういうツールで十分そうな気がする。

>>495
何がしたいか全然理解できない。インライン展開ってC++のインライン関数みたいなことを
言ってるのか？ていうか関数を切り出すってどういう意味？サブ関数はTclには無いし、
サブって何をさして言ってるの？それにシェルに依存しないって意味もわからない。
execコマンド使わずにTclで完結させればいいだけのことじゃないのか？なんなの？
ていうかバイナリ化もどきって要するに難読化したいってこと？ていうかそれが、関数の
切り出しとかいうのとどういう関係が？もうはっきり言って日本語で頼む。

TCL インタプリタのない環境でも動くスタンドアロンなアプリを作りたい、
でさらにサイズも最適化したい、ということでわ？

関数ライブラリから欲しいコマンドだけパッケージ化して切り出したい。
イメージ的にはinfo proc bodyですが関数の依存関係をトレースして必要十分な関数群も抜き出す。
関数をfalt化したり、冗長性を除去し、サイズ縮小化、難読化、再利用防止もしたい。
TCLインタプリタに依存したくないのでpure tclのパッケージ化したい。（見た目普通のテキストの関数定義）
ソースは１元管理してアプリ毎に合成したい。

Tclインタプリタに依存したくない、といった時点でTclインタプリタの実行ファイルにマージすることを意味するから、
シェル（ＯＳ）に依存するようになると思うんだがどうか？

ていうか変数名を短くしてサイズ縮小化とか、どんだけカツカツの環境なんだお

>>499
きっと8bitマイコンにでも乗せたいんだお。
PC-8001とかMZ-80で変数名削るのに苦労したお！！

テキストウィジェットにU+9FA6以上のUnicodeの文字を
張り付けようとすると反応が返ってこなくなるのですが
これはTkのバグでしょうか。

Tcl/Tk 8.5.7を Windows XPで使っています。

pack [text .t]
.t insert end \u9FA6

上のコードを実行するとWISH85.EXEがものすごい勢いでメモリを
消費します(´・ω・｀)

>>503
vistaの8.5.6と8.6b1で試したけど、火編の常みたいなのが出てきた。

>>504

ありがとうございます。
Vistaの8.5.6と8.6b1では動くのですね。
XP機しかないのですが、とりあえず8.6b1で試してみます。

Windows VistaでClearTypeのメイリオを使っています。
その環境でTk 8.6のmenuを試してみたところ、メニュー・バーのフォントはClearTypeの効いた
ものになるのですが、メニュー・アイテムについてはそうなりません。
まぁ、メニュー・アイテムにClearTypeのフォントを設定すれば一応は解決できそうな感じはする
のですが、システムが使っているフォントを取得するようなコマンドはありますでしょうか？

>>506
メイリオを使っていたらcanvasをpostscriptに変換できないので、
if {[font configure TkDefaultFont -family] == "メイリオ"}
とかしてデフォで使用されるフォントの判別をしてメイリオだったらarialにするとかやってます(windowsとLinux両方で動かすためにこんなことしてます)。
ただ、メニューバーがメイリオになっているのにメニューアイテムのフォントだけ違うのという現象にこれで対処できるかどうかは不明ですが。

名前空間がどうしてもよくわからない
俺様かんたんに猿でも分かるように教えてください

>>508
あらら、名前空間なんて導入されたんだ。
C++では前からあったけど。

モジュール空間のことを言ってるんじゃないのかね。
確かに独特だわな。

namespace だから名前空間じゃないの？

>>511
モジュール書くときくらいしかほとんど用事がないんだがな。

初心者です。便乗質問（？）なのですが、自分で作ったライブラリは皆さん
パッケージ（モジュール？）にしてるのでしょうか？
自分はその方法が良く分からないので、とりあえずsourceコマンドで読むという
方法で凌いでます。

ところで、amazon.comによると、Tcl言語の設計者が書いた本の改訂版が出る
ようですね。Tcl/tk 8.5に対応した内容に書き改めたとのこと。
Tclが日本でも再度注目されたりしないでしょうか。

>>513
パッケージも結局内部ではloadやらsourceやらで読み込んでたと思います。

利点は、パスを書かずにパッケージ名だけで呼び出せるから、
位置関係を気にしなくてよくなることぐらいでしょうか。

書き方は >>1 の日本語サイトの１つめと２つめにそれぞれ解説があります。

>>514
ありがとうございます。参考になりました。
ただ、開発途上のモジュールについても、皆さんパッケージ化されているのでしょうか？
それなりの手順を踏まないとパッケージ化はできないようなので、モジュールの開発途上では、
やはり単にsource とかで読み込むのが普通なのでしょうかね？

>Tcl言語の設計者が書いた本の改訂版が出るようですね。

９０円台／ドルの円高なので今が廉く買うチャンスかも。

package - パッケージのロードとバージョン制御機能。
http://www.freesoftnet.co.jp/tclkits/doc/TclCmdRef/TclCmd/package_jp.htm

>>515
ウェルチさんの本によると、
packageは複数のアプリケーションから利用する時に使うそうです。

>>508
変数名が名前だとすると、名前空間は苗字・・・。

>>509
10年前の8.0から導入されました・・・。

>>510
全然独特じゃないと思うけど・・・。名前空間がある言語ない言語あるけど、
変数名とかにprefixを付けてバッティングしないようにするという意味での
名前空間は汎用的なプログラミング概念だと思う。

>>511-512
8.5からはnamespace ensembleが入ったので名前空間にコマンド群を
まとめあげてサブコマンドを作ることも出来るようになった。。。
たしかにサブコマンドは名前空間の一種のような気もする・・・。

>>513
とりあえずsourceでいい。他人に配るときはpackageにするけど。
pacakgeなんて名前空間とそのバージョンを書いて、pkg_mkIndexするだけ。
大して難しいしくみでもない。

>>518 >>519
packageの件、ありがとうございました。開発が一段落するまではsourceでやってみます。

うむ。そうするがよい

>>519
(Tclのnamespaceが)
＞全然独特じゃないと思うけど・・・。
普通、よくあるnamespaceの使い方は宣言的なものが多いんだけど、
Tclのnamespaceはただのコマンドなので、実行文的な書き方になる。

namespace eval { }
の中でnamespace export ...
とか呼び出すのとか、かなり変に感じる。

変に感じるのはそれだけじゃないだろう？（笑）
深く考えないのが吉。

>>521
審議中

>>522
それを言い出すとTclは制御文もコマンドだし・・・

すいません。Perl質問スレでも書きましたが、
こちらのほうが適切そうだったので、こちらで質問させてもらいます。

Perl TkのTextウィジェットを使って
文字列の入出力をする方法はどのようにするのでしょうか？
Entryウィジェットを使ったサンプルはWeb上から見つけたのですが、
Textウィジェットを用いたものはないもので。。。

>>526
Perl/Tkは触ったこと無いけど、
確かオライリーからまさにその本が出版されていたと思った。
それを購入するのが最終的には早いと思う。
日本でPerl/Tkは、ひどくマイナーだから。

あるいは、Ruby/Tkなら日本語の書籍が何冊か出版されているし、
Web/MLなどで情報の収集が容易だから、そちらに乗り換えるとか。
もちろんTcl/Tkでもオケー

ゴメン、これくらいしかレスできねえヨ

# いいレス返してあげておくれ > 他の住人さん達

Perl/Tkでググれ、としか

だな。一発でこんなん出たけど
http://www.geocities.jp/m_hiroi/perl_tk/perltk07.html

Mastering Perl/Tk
http://oreilly.com/catalog/9781565927162
http://examples.oreilly.com/9781565927162/
http://examples.oreilly.com/9781565927162/mastperltk_examples.tar.gz

mastperltk_examples.tar.gz
の中にサンプルプログラム有り。

Past, present and future of Tcl virtual filesystems Steve Huntley
http://www.tcl.tk/community/tcl2007/papers/Stephen_Huntley/tcl2006_slides_huntley.pdf
。

>>530
一瞬、「サンプルプログラム祭り」に見えたｗ

Tcl/TKはいつまで経ってもマイナー言語のままだから、
簡単にこんなことができますよーって紹介はもっとあってもいいと思うけどね。

P2P A Metafile System over P2P File-sharing Network
http://spa.jssst.or.jp/WIT/2005/papers/05013.pdf
。

>>531
The FILTR:
(File Inventory for Loading, Transfer and Recovery)
http://filtr.sourceforge.net/
The FILTR is a program intended to be useful over the course of my lifetime.
It combines the features of a backup utility,
an archiving/version-control utility
and a document management utility to create an effective
and simple-to-use personal document management system.
Author: Stephen Huntley ([email protected])
License: Tcl license

流れを読まずに質問ッス
Text Widget で
・「文字単位」でTAB幅？TABインデント幅？を設定するにはどしたらええのん？
・一般的なエディタ(秀丸とかemacsとか)みたいなタブ文字でのインデントを実現できないのん？

TAB幅4文字で書かれたCのソースを、Text widgetで表示して色々する作業用スクリプトを書いてる最中なんですが、
　　hogehoge();　// ほげほげ
的なコメントが、エディタ上ではインデントぴったりで綺麗に並んで書いてあるのに、Text Widgetではガタガタにずれて表示され
視認性がチョー悪く、作業効率も落ちるので、なんとかしたいのです

TkのText Widgetは、デフォルトでTAB幅8文字、tabsオプションで指定はできる、
というところまでは判って、要はTAB幅4文字に変更できれば解決かなと思ったのですが…

http://homepage3.nifty.com/kaku-chan/tcl_tk/chapter_230.html
によると、「ピクセル」「mm」「inch」「cm」の4種類でしかtab stopsは設定できないと書いてあるし、
無理矢理ピクセルで指定してみても、TAB文字がそのまま「4文字相当の幅を常時取って」行の中に入ってしまうしで…

package require Tk
text .txt -font {"MS Gothic" 12}
button .b1 -text 4tab -command {settab 4}
button .b2 -text 8tab -command {settab 8}

pack .txt -side bottom
pack .b1 .b2 -side left


proc settab {n} {
set font [.txt cget -font]
.txt configure \
-tabstyle wordprocessor \
-tabs "[expr {$n * [font measure $font 0]}] left"
}

.txt insert 0.0 {
12345678901234567890123456789012345678901234567890
#include <stdio.h>

int main(int argc, const char** argv) {
printf();
return 0;
}

}

コピペ失敗した・・・前はタブは自動でスペースに置き換えてくれてた
木が刷るのにどういうことだ・・・・

package require Tk
text .txt -font {"MS Gothic" 12} -tabstyle wordprocessor
button .b1 -text 4tab -command {settab 4}
button .b2 -text 8tab -command {settab 8}

pack .txt -side bottom
pack .b1 .b2 -side left

proc settab {n} {
set font [.txt cget -font]
.txt configure -tabs "[expr {$n * [font measure $font 0]}] left"
}

.txt insert 0.0 {
12345678901234567890123456789012345678901234567890
#include <stdio.h>

int main(int argc, const char** argv) {
printf();
return 0;
}

}

>>536-537
ありがとうございます！
動かしてみたらたしかにTAB幅4文字っぽくなりました
Tcl/Tkは全く詳しくないので自信がないですが、おそらく
・ -tabstyle wordprocessor 指定
・ font measure でフォント1文字の横幅ドット数を取得
→TAB幅の文字数を掛けたピクセル数にして指定
が肝なのですかね…

実はTcl/TkじゃなくてPerl/Tkでスクリプトを書いてるんですが
Tcl/Tkのtext widgetで実現できているなら
Perl/Tkでも実現できるだろう…という前提で作業してみます

うーん…
Perl/Tkには-tabstyleが実装されてないみたいですね…
指定すると「そんな指定は知らねえよ」とエラーが出る…

http://cpansearch.perl.org/src/SREZIC/Tk-804.028_501/t/text.t
↑「XXX not yet implemented?」とか書いてあるし…

http://www.tkdocs.com/tutorial/text.html
↑ここには、指定できる文字列としてtabstyleが書いてあるんだけどなあ…

勉強も兼ねてTcl/Tkで書き直してみるかな…
それとも Python + Tkinter も試してみるか…

Tk使うならTclが一番安心だよね。やっぱり

Tcl/TkじゃなくてPerl/Tkの話だから
スレ違いな気もしますが一応報告だけ

* text widgetにtabstyleが実装されたのは8.0.5から、らしい
* Perl/Tk(ActivePerl+Tk)は8.0.4相当。よって実装されてない
* Perl/TkでもTkxを使えばtabstyleが使える(TkxはTcl/Tkのコア部分をそのまま使ってるそうで…)
* Tkxを使うとパッと見でTcl/Tkそっくりの記述もできる(Tkx::text(".txt", )
* ActivePerlでTkxを使うとPARでexe化したときにActiveTclを要求されるので、exe化の意味なし
* Perl+Tkxでfont measureをどう記述するかが謎 ←今ココ

Tcl/Tkにも正規表現とハッシュ(連想配列)があるらしいから、書き直すのもアリかな…
GUIの見た目も、Tcl/Tkのほうが綺麗だし

tkのデバッグってどうしてます？
10時間くらいで落ちたり、処理速度が低下します。

>>542
？？？
tk4.2の頃は、そういうことあったけど……
8.3以上では直ってるはずだと聞いてるお？

ちなみに、
落ちると言っても、「tkが動かなくなる」だけ。
原因と対処法は自分で見つけた。もちろん、報告した。
処理速度の低下は、Xサーバーに問題があったので、ちょっと弄った。

変数に入っている値が整数(として扱える)かどうか調べる方法はありますか。

string is integer $x

>>545
やりたいことができた！他にも色々調べられるのね。ありがとうです(>_<)

>>545-546
まあその場合そのとおりなんだが、
Tcl/Tkの各コマンドのヘルプページはちょっと読みづらいよね。
PHPのヘルプ並みに使いやすく整備してくれるといいんだが……。

>>547
tclshでstring is って打つとコマンドの文法が出る。
string is a b って適当に打つと、クラスの一覧が
ズラズラ表示される。これで十分。

TCLスクリプトを自前アプリに実装したいのですが、
なにかお勧めの書籍(web)を紹介頂けませんか?

c++builder6で下記コードを実行するとstdoutが見つからないというエラーが表示されます。
>>301のログでTcl_SetStdChannel()で標準出力をトラップする見たいな事が記載されていますが、
どうやって行うのでしょうか?

strcpy( buf, "puts \"TEST!!\"");
Tcl_Eval( interp, buf );

エラーメッセージ：can not find channel named "stdout"

>>549
C言語からTclを呼び出すには
http://www.geocities.co.jp/SiliconValley/4137/dir4/namo.html

CでTclを使えるようにする

Tcl_FindExecutable
Tcl_Interp
Tcl_Init

Tkも使えるようにする(MainWindow破棄でTk_MainLoopから戻る)
Tcl_FindExecutable
Tcl_Interp
Tcl_Init
Tk_Init
Tk_MainWindow
...
Tk_MainLoop

tclshみたいなプログラムにする(スクリプト終了でプログラム終了)
Tcl_Main
Tcl_AppInit中でコマンドの設定など

wishみたいなプログラムにする(スクリプト終了でプログラム終了)
Tk_Main
Tcl_AppIniti中でコマンドの設定など

拡張DLL(shared library)
dll名_Initという関数の中でコマンドの定義など

>>551,552

有り難うございます。
なんとか実行できる様になってきました。

基本的な事をお聞きしたいのですが、
複数行に渡るコマンド(forやwhileなど)を実行するにはTcl_Eval()では駄目なのでしょうか?

以下の様なコマンドをTcl_Eval()で1行づつ実行すると(1)は実行されますが、
(3)は実行されません。
Tcl_EvalFile()でまとめて実行すると、(3)も10回実行しますが、
Tcl_EvalFile()は全部終わるまで戻ってこないので、
Tcl_Eval()で1行づつ実行したいのです。

(1)puts "TEST!!"
(2)for { set i 0 } { $i<10 } { incr i } {
(3)　puts "I is $i"
(4)}

553の続きです。
エラー処理を追加したらTcl_Eval()でエラーが発生して実行されていませんでした。

(2)→missing close-brace
(3)→can't read "i": no such variable
(4)→invalid command name "}"

試しに3行を1行にまとめたら実行できました。読みにくい・・・
for { set i 0 } { $i<10 } { incr i } { puts "I is $i" }

やはり複数行のコマンドは実行できないのかな・・・

{
}
の中の改行は文の終わりと認識されず、改行文字を含む文字列と認識されます。
forは引数を4つとるコマンドです。
for {set i 0} {$i < $N} {incr i} {
puts $i
}
は、たまたま第4引数が改行を含む文字列であるというだけのことです。

>>555

有り難うございます。

>>改行文字を含む文字列と認識されます。

for文などは普通は見易くする為に>>553の様に改行を入れて記述すると思います。
この様な記述をした場合には、第4引数が複数行になる為、
Tcl_Eval()を利用して1行づつ実行する事はできないという理解で良いですか?

>>556
というかC関数をTcl側に公開して、それをfor文で普通に呼び出せばいいんじゃね？
そしたら何度も呼び出すこと考える必要ないでしょ。

>>557

ありがとうございます。

>>C関数をTcl側に公開して

これの方法が現時点では分かりませんが、これが出来ればいけそうな気がしてきました。
早速調べて試してみます。

>>556
見やすくするためではありません。
for文が第四の引数を解釈するに当たり、改行までをひとつのコマンドと引数列とみなして実行するためです。
よって｛｝中の改行は飾りではないです。

>>558
Tcl_CreateObjCommand
引数の解釈はTcl_GetIntFromObjなどを使う。
返値はTcl_SetObjResultで。

Tcl_CreateCommandなどのTclオブジェクトを扱わない形式では
数値やリストなど全部文字列に変換されて渡されるので、速度・精度の面で使わないこと。
(Tclオブジェクトだとリスト型やdouble型を保持したままやりとりする)

んで、ぶっちゃけ言うと
Tcl_Eval(interp, "for {set i 0} {$i < 5} {incr i} {puts $i\nputs hogehoge}");

>>559-561

色々有り難うございます。
とりあえず、Tcl_CreateCommand()を使用してTCLスクリプトからCの関数を実行し、
パラメータを渡す事まで確認できました。
TCLで実現したい事は、「とりあえず」は出来たと思います。
残りは戻値や速度面を考慮してTcl_CreateObjCommand()などを調べて見たいと思います。

http://www.tcl.tk/
>Tcl/Tk 8.5.8 Nov 16, 2009

Jaclてなんて発音すれば良いの？

ジャッカル

tclでhtmlを取り扱うウイジェット実装はいくつかあるみたいですが
お勧めとか、デファクトスタンダードなものとか
あるのでしょうか？

>>566
>デファクトスタンダード

incrtclだと思う。
http://incrtcl.sourceforge.net/iwidgets/iwidgets/scrolledhtml.html

板違いかもしれないけれど
Ruby/Tkで、
htmldoc = '<html>〜</html>'
html = Tk::HTML_Widget.new.pack
html.parse(htmldoc)
とするとSegmentation faultが出るのは自分だけかな……。
TkHTML3、Tcl/Tk8.4、Ruby1.9.1環境です。

折角国際化されてるんだし
だれかTcl/Tkでmigemo使えるようにしろよ〜

IMの制御がきちんとできるようにしてくれぇ。

結構この頃気に入っているのですが
ckて使っている人いますか？
なんか語りませんか

>> 571
大昔、CTk http://wiki.tcl.tk/5016 は使ったことがある。
ckも2001年頃から開発が止まっているみたいけど、8.5.8環境でもちゃんと動く？

Ckというのはhttp://www.ch-werner.de/ck/　なのですが
ページによると8.0-8.4が恐らくターゲットかと。うちでは8.0で動いています。
キャンバスなど対応しないウイジェットもあるので制限は多いですが、
Guiのプログラムとコンソールのプログラムが一つのプログラムでかけるのが
凄いです。（tcletも使えば一石三鳥？）
CTKはどんな感じでしたか？
Ckの場合難点はcursesを使う部分の日本語が上手く表示できないかんじです。
putsなど標準入出力ではOkですが。

>Ckの場合難点はCkの場合難点はcursesを使う部分の日本語が上手く表示できないかんじです。

cursesってUNICODEに対応してないのかな？

ncursesw とかじゃん？

>>573
CTk使っていたのは日本語パッチ版が使いたくて8.0で粘っていたころなので、さすがに覚えていない。
当時はMulti-Byte文字を使えるcursesもほとんど無くて、日本語は最初から諦めていたと思う。

Multi-Byte文字はCkとcursesの2段階で対処が必要だと思うし、8.0だとそもそも多国語対応していない
ような気がするので、tcl内部とcursesと実際の表示(xtermとか)のencodingを合わせないとだめだよね。

がんばってね。

アプリケーション拡張言語としてのTCLってどうして普及しなかったんですか？

>>577
いや〜、あんなもん、tkが付いてなかったら使いたくねえ！

>>577
tk以上の発明品が生まれなかったからじゃないかな。
結局Tcl/Tkが作られた当時はアプリのスクリプト言語をサポートするという発想が新しすぎたんだと思うよ。
後スクリプト言語としては文字列と整数のデータ型の区別がされてなくて微妙に使いにくいとか。

元々HTMLの埋込み言語として開発されたPHPが、発展してフレームワークが作られるようになると
HTMLの生成がテンプレートエンジン越しになって本来の埋込スクリプトが全く使われなくなったりね。

開発当初の目的と実用される用途が一致しないのはよくあること。

ストールマンがTclの普及自体に横槍出したのもでかいんじゃないかな

>>577
GNUに嫌われたから

>>580
guileも全然普及してないな。

GIMP は SIOD から TinyScheme に変わったんだよね。
Guile 哀れw

S-Langというのもあったけど。

TclはPythonに喰われちゃったんだと思う

今ならさらにLuaもあるしな。

>>585
蛙と蛇だしな・・・

デスクトップマスコットを作ろうかと思っているのですが、
ウィンドウを透過させて、画像だけを表示させるようなことは
tcl/tkでできるのでしょうか？

例えばこんな感じのを実現したいです
ttp://cgi32.plala.or.jp/higpen/javatips/36.shtml

OSXを使用しているので、
システム透過色を背景色に設定させるようにしてみましたが、
思い通りの結果になりません。(タイトルバーが表示されていたりします）

package require Img
pack [canvas .can -width 300 -height 300]
image create photo foo -file circle.tif
.can create image 0 0 -image foo -anchor nw

wm attributes . -transparent 1
. configure -background systemTransparent
.can configure -background systemTransparent

osxはよくわからんけど、wm overrideredirect . 1してみたらどうなる？

やってみましたが、
ウィンドウのサイズ、移動が出来なくなりますが、
タイトルバーは消えませんでした。

>>588
バージョンくらいかけよアホ。これでも読んでろ
http://wiki.tcl.tk/13734

ActiveTcl 8.5.8.1を入れたら、Tkのtextで日本語入力するとwishが落ちるようになった。
text .t; pack .t -expand yes -fill both だけのプログラムでも再現する。
IMEで1バイト文字を選択して確定しても落ちるのでIME制御で何か壊しているみたい。
こんな時に限って旧のバックアップが無いので確認できないけど8.5.8は大丈夫と思う。
だれか8.5.8残している人。ください。

ほしゆ

C++/Tcl 凄いな。

>>594
ksk

>>592
ActiveTcl8.5.8.0.291595-win32-ix86-threaded.exe

>>596
ActiveState ポリシー変えたらしくて、Community Edition(Free)は最新バージョンしか
入手できなくなってます。
しばらくはtclkitでしのぎます。

>>597
ActiveTcl8.5.8.0.291595-win32-ix86-threaded.exe でgoogleれ。

本田氏の本気を見た（いりこだし的な意味で）

>>598
それらしいURLを3つくらい見てダメだったので諦めていましたが、15番目で見つかりました。
どうもありがとう。

perl tkでtxtウィジェット中に1秒間隔で
文字列を表示させることを考えていますがうまくいきません。

ソースは下になります。
何かおかしな点ありますでしょうか？

-----
$window1 = MainWindow->new();
$frame1 = $window1->Frame()->pack();
$output = $frame1->Scrolled('Text')->pack(-expand=>1, -fill=>'both');

for($cnt=0; $cnt<1000; $cnt++){
$output_tmp = "$cnt" . "\n";
$output->insert("end", $output_tmp);
$output_tmp = "";
sleep(1);
}

MainLoop();
-----

perl tkは知らんけどtcl/tkで定期的に処理を実行する時はafterコマンドを使う
リファレンスマニュアルとか調べてみ

どううまくいかないのかを書きなさい。

>>602
ありがとうございます。ちょっと調べてみます。

>>603
上記ソースの場合、立ち上がりすらしない。
sleepをコメントアウトしたら1行づつ出力されずに、
溜め込んだ情報を一気に吐き出すといった感じです。

>>601
描画はevent loop(MainLoop)で実行されると思うので、MainLoopの前でsleepしたら
描画出来ないと思う。
ループを切り出して、適当なeventを契機に呼ばれるようにすれば良いと思う。
どうしても今のループにしたければ、updateすると動くかもしれない。

>>605
updateでできました！
ありがとうございました_( . _ . )_

テクルトックで読み方あってる＿

何度もすいません。

>>601の修正版で、
常に最新出力行が確認できるようににしたい
(現状、テキストボックスが画面出力に追従しない。。。)
のですが、何かうまい方法ってあるんでしょうか？

調べてみたんですけど、うまいこといかなくて。。。

-----
use Tk;

$window1 = MainWindow->new();
$frame1 = $window1->Frame()->pack();
$output = $frame1->Scrolled('Text', -scrollbars=>'se')->pack(-expand=>1, -fill=>'both');

for($cnt=0; $cnt<1000; $cnt++){
　　　　$output_tmp = "$cnt" . "\n";
　　　　$output->insert("end", $output_tmp);
　　　　$output_tmp = "";
　　　　$window1->update();
}

MainLoop();
-----

>608
君はイベント駆動モデルという物を全く理解していない。
>描画はevent loop(MainLoop)で実行されると思うので、MainLoopの前でsleepしたら
とも、
>ループを切り出して、適当なeventを契機に呼ばれるようにすれば良いと思う。
とも言われてるだろ？
画面描画とかは MainLoop() の中で発生してるんだってば。
その前のループの所の処理は既に終わっちゃってるの。

$window1 = MainWindow->new();
$frame1 = $window1->Frame()->pack();
$output = $frame1->Scrolled('Text', -scrollbars=>'se')->pack(-expand=>1, -fill=>'both');

$cnt = 0;

$output->repeat(1000, sub { # ここの処理が 1 秒単位で毎回呼び出される
  $output->insert("end", "$cnt\n");
  ++$cnt;
});

MainLoop();

>>608
Tk Documentation Table of Contents
http://www-users.cs.umn.edu/~amundson/perl/perltk/toc.html
fileevent Execute a callback when a file becomes readable or writable
http://www-users.cs.umn.edu/~amundson/perl/perltk/fileevent.htm
after Execute a command after a time delay
http://www-users.cs.umn.edu/~amundson/perl/perltk/after.htm
tkwait Wait for variable to change or window to be destroyed
http://www-users.cs.umn.edu/~amundson/perl/perltk/tkwait.htm
IO high level interface to Tk's 'fileevent' mechanism
http://www-users.cs.umn.edu/~amundson/perl/perltk/Tk%3A%3AIO.htm
TK/AFTER support class for Tk::Widget::after
http://www-users.cs.umn.edu/~amundson/perl/perltk/Tk%3A%3AAfter.htm

>>608
package require Tk

pack [text .t] -side bottom -fill both -expand 1
pack [button .start -text Start] -side left

.start configure -command {RunCount 100}

proc RunCount {n} {
for {set i 1} {$i <= $n} {incr i} {
.t insert end $i\r\n
update
.t see end
after 200
}
tk_messageBox -message "End!!"
}

Tcl/Tkで書いたから適当にPerlに脳内変換して

ActiveTcl 8.5.8.2が出ていたので試してみましたが、8.5.8.1同様IMEが動くとwishが
落ちます。
一応、連絡しておきます。

Tcl/Tk超初心者なんですが教えて欲しいことがあります。
tcomを使ってInternetExploerでホームページを表示させて
そのホームページのソースを取得してソースを表示させたいのですが
ホームページの表示までは上手くいったんですがソースの取得ができません。
わかる方いらっしゃったらぜひ教えてください、お願いします。

途中までのソースなんですが

package require tcom

set ie [::tcom::ref createobject "InternetExplorer.Application"]
$ie Visible 1
$ie Navigate "http://www.yahoo.co.jp/index.html"

ここまではできたんですがこのあとyahooのホームページのソースの取得方法
がわかりません、わかる方いらっしゃったらぜひお願いします。

ソースは普通にHTTPでとってくればいいんじゃないの？

>>614
返答ありがとうございます、初心者なのでHTTPでの取り方すらわからないのです。
もともとTcl/Tkでどうやってホームページの表示をさせるかがわからなくて
いろいろ調べた挙句tcomにいきついた次第です。できればtcomでできたらいいなー
というのが自分の希望なんですが、調べてみたんですがいまいちわからなくて
ここに行き着いたということです。

>>615
ほい。ぐぐれ。
http://tmml.sourceforge.net/doc/tcl/http.html

>>616
ありがとうございます、やってみます

>>615
URI utilities
http://tcllib.sourceforge.net/doc/uri.html

>>618
package require uri

set u http://www.yahoo.co.jp/index.html
set f index.html

set token [::uri::geturl $u]
if { [catch {::http::data $token} html] } {
puts stderr "Could not get $url\n$html"
exit 1
}

if { [catch {open $f w} fp ] } {
puts stderr "Could not open $f\n$fp"
exit 1
}

puts $fp $html
close $fp

>>613
optcl
http://wiki.tcl.tk/1822
http://www.patthoyts.tk/programming/optcl3010.zip
http://www.patthoyts.tk/programming/optcl-src.zip

WippleWobble - A Mini Web Browser (for Windows)
http://wiki.tcl.tk/4105

初心者でpython2.6(tkinter)とtcl/tk 8.5を弄ってます。
widgetに入れず、Canvasのcreate_textに設定するwidthの様にheightを擬似的にでもどうにかして作りたいのですが何か良い方法は無いでしょうか。
ご教示お願い致します。

>>621
heightを作るっていう意味がわからない

pixel指定でその範囲に入らない状態の時は語尾に"..."を追加する物を作りたいです。
適当なtextの量自体を指定するしかないのでしょうか。

文字によってpixel幅が違うので結局label等（幅を取得したら捨てる。）
に入れ込むtextを一文字ずつlabelに入れて、そのlabel幅を取得し、
その幅から指定したpixel分のtextをcreate_textに入れ込めば出来そうですが･･
余りに遠回りで･･。

もう少し簡潔に文字数を制限したいのですが
ｔｋがどう動作しているのか未だ良く分かっていません。

>>623
プロポーショナルフォントを使わずに、
等幅のフォントを使えば、
計算が簡単になりそうです。

621,623です。
>>624
有り難うございます。
プロポーショナルフォントというんですね･･初めて知りました。
因みに自分足らない頭で623の内容をpythonのIDLEで書いてみたら
異様に重い上に、良く分からないエラーが出ました･･とほほ
後程、等幅フォントで再度書いてみます。

fontの高さには全角、半角も無いので
どこで改行されてるかさえ、得られれば
簡潔になるのでは、と
今の所textに直接pixel指定で改行を追加するモジュールを探しています。（どれもカラムっぽいですが･･）
font metricsも面白そうなのでついでに調べてます。

>>623
font measureで文字列のpixel幅を得られる
のは？

621,623,625です。
>>626
有り難うございます。
font measureで出来そうです。

>>627
老婆心ながら、
一つのスクリーン上に一つのカンバスを使って複雑なウイジェットを作る以外に、
まず一つのスクリーンを複数のフレームに分割して、
一つ一つのフレーム上にメニュー、テキストやカンバスを配置する方法もあります。

621,623,625,627です。
>>628
有り難うございます。
カンバス自体は一応フレームに入っています。
･･がデザイン的にcanvasの内容をフレーム分けは難しいです。
まずgridで作成した所、重くて次にplace、そしてcanvas上にしています。
canvas上で作ると重いかと思っていたのですが、canvasで作ると割と軽快だったので
（textを入れる以前の話ですけれど）
canvasのままで来ているのと、canvasの自由度の高さが何より気に入っています。
canvasに変更する際からtextのこの問題がずっとネックだったので
解決出来そうで何よりです。
widgetに入れたくなかった理由としては、
折角canvasなので背景に画像を張り込める様にもしたかったからです。
マウスバインドもウイジェットに邪魔されず一つで掛けられますし。
キーバインドも勿論入れます。
どうしようも無くなった場合はplaceに戻ろうかと思っています。

xspin.tclというソフトを使用し始めたのですが、.pmlの拡張子をフリーのパッドソフトに関連付けたら、
xspin.tclを起動しようとしたら「このファイルの種類を開くプログラムを選択してください」とでるようになってしまいました。
どのプログラムを選択すればいいか分からないし、戻し方も分からないので助けてください。

自己解決しました

ActiveTcl8.5.7を使用しています。

最初に1を代入した変数を1ビットづつ左シフトしていくと80000000hの次は0hになってしまうのですが、
なにも指定しないと変数はUINT32で定義されているのでしょうか?
明示的にUINT64で定義する事は可能ですか?

set shift 1
for { set i 0 } { $i<64 } { incr i } {

set shift_h [format %016X $shift]
set shift [expr $shift << 1]
}

>>632
サーバ(Win/Linuxじゃないよ)用に自分でコンパイルした8.5.8でも同じ結果になった。
ソースを簡単に眺めたところ、内部32bit型→64bit型に拡張する処理は見つかったけど
なぜ情報落ちするのかは判らなかった。
バグ報告するのが良いと思う。
ひょっとして、64bit環境(OS)だと問題無いのかもしれない。(うちは全部32bit環境)

>>632
set shift 1
for { set i 0 } { $i < 64 } { incr i } {
puts [format %016lX $shift]
set shift [expr $shift << 1]
}


The fifth part of a conversion specifier is a size modifier, which must be ll, h, or l.
If it is ll it specifies that an integer value is taken without truncation for conversion
to a formatted substring. If it is h it specifies that an integer value is truncated to
a 16-bit range before converting. This option is rarely useful. If it is l it specifies
that the integer value is truncated to the same range as that produced by the wide()
function of the expr command (at least a 64-bit range). If neither h nor l are present,
the integer value is truncated to the same range as that produced by the int() function
of the expr command (at least a 32-bit range, but determined by the value of
tcl_platform(wordSize)).

http://www.tcl.tk/man/tcl8.5/TclCmd/format.htm#M15
マニュアル嫁。

>>634
う。そっちか。
まったく思いもしませんでした。笑ってやってください。

[Activetcl] ActiveTcl 8.5.9.0 released
http://code.activestate.com/lists/activetcl/4478/

IMEとの衝突は修正された？

>> 637
直ったようです。
text widgetで漢字を入力しても落ちなくなりました。

>>638
それは、ActiveTclのどのバージョンから？

直ったのは ActiveTcl 8.5.9.0

Tkのテキストボックスの文字列が変化したとき、それを知らせるコールバックはどれですか？

>>641
package require Tk
pack [text .text]
bind .text <Key> {puts "Pressed %K"}

http://www.tcl.tk/man/tcl/TkCmd/bind.htm
マニュアル嫁

Perl/Tkやってるやつでてこいこら

おめえハッカーだろ　本田

Perl/TKでEntryフォームに文字を入力しようとすると
入力できません

なんか前にそれで設定をして　うてるようにしたんですが

scimなんとか　入力はできるんですが　日本語入力ができません

どうすればいいですか教えてください

>scimなんとか　入力はできるんですが　日本語入力ができません
この文章どうやって打ってるんだよw

だからscimは、はいってんの

Perl/Tkでの入力のときできない

XMODIFIERS="@im=none"とやってもできない

なんで　教えて

XMODIFIERS="@im=none"
とやったら入力できるようになるけど

日本語入力ができない


重要：「日本語入力ができない」

教えて

ウヒョー

Perl/Tkなんてまだ使ってるやついんだな・・・。アホかと・・・

canvasにpolygonやlineで書いた絵を画像ファイルでセーブする方法はありますか？

標準Tkでも昔からPostscriptでセーブできる。拡張もいろいろ

Postscript以外は、できないでしょうか？

>>653
> Postscript以外は、できないでしょうか？

GhostscriptでPostscriptをPDFやPNGに変換できるよ。

1 imgで画面上に表示してる部分はビットマップに変換できる。
2 tkpathっていうcanvasと互換性のある拡張がある。

こたえられねえのかよつかええねえなかす

653の質問をしたものですが、例えばコマンドラインで
アクティブウインドウのスクリーンショットを取る外部アプリを起動すればできますか？
できればbmp,jpg,gif等に変換したいので。

Print Screen キーを押してからペイントで・・・ってのがお手軽かと。
*.psからフィルタで変換の方がスマートだけど。

実用的には、そうですがPostScriptは、使う人もPostScriptの環境が必要なので。
PSからの変換もいろんなソフトを使いましたが、思った様に上手くいきません。
逆に変換フィルタで良いのがあれば、教えてください。

>>659
canvasの内容をSVG化して書き出す方法が紹介されてる。
http://wiki.tcl.tk/4534

他にはImageMagickを操作して直接画像を作るかだなぁ。

>>660
これは、凄い。
itemgetで情報をもってきて、imageで再描画してるみたいだ。

でも、このやり方だとXBM情報とかは再生できませんね。

tkにはワークシートとかスプレッドシートのようなものはあるんですか？

あるよ。

Spreadsheets in Tcl-Tk
http://wiki.tcl.tk/20386

TCLによるXMLおよびWeb Servicesのプログラミング、第1回: 入門編
http://www.ibm.com/developerworks/jp/webservices/library/ws-xtcl/

Instancier des objets COM avec Tcom
http://wfr.tcl.tk/1012

MS Office - Excel
package require tcom
set application [::tcom::ref createobject "Excel.Application"]
set workbooks [$application Workbooks]
set workbook [$workbooks Add]
set worksheets [$workbook Worksheets]

OpenOffice - Calc
package require tcom
set application [::tcom::ref createobject "com.sun.star.ServiceManager"]
set desktop [$application createInstance com.sun.star.frame.Desktop]
array set arguments {}
set worksheets [$desktop LoadComponentFromUrl private:factory/scalc _blank 0 [parray arguments]]

>>663
>>664
お答えくださいってどうもありがとうございました。
たいへん参考になりました。

ｺﾁｮｺﾁｮ

[Tcl-announce] ActiveTcl 8.6.0.0 Beta 4 released
http://code.activestate.com/lists/tcl-announce/343/

John Ousterhout
Professor (Research)
Department of Computer Science
http://www.stanford.edu/~ouster/cgi-bin/home.php

651>>
canvasにpolygonやlineで書いた絵を画像ファイルでセーブする方法はありますか？
回答：
image create photo image123 -format window -data .any.win
image123 write C:/windows/work/your.jpg
モニタはみ出してるやつには別の対処方法ある。
Windows7　だと「遅い」ときがある。

>>671
モニタはみ出たらどうやんの？
このやりかただと他のウィンドウが重なっててもうまくいかないんだよな。

PLplot
http://plplot.sourceforge.net/
PLplot is a cross-platform software package for creating scientific plots.
To help accomplish that task it is organized as a core C library,
language bindings for that library,
and device drivers which control how the plots are presented in non-interactive and interactive plotting contexts.


Plplotter widget
http://tuvalu.santafe.edu/~vince/Pltk.html
PLplot is relatively small, portable, freely distributable, and is rich enough to satisfy most users.
It has a wide range of plot types including line (linear, log), contour, 3D, fill, and almost 1000 characters
(including Greek and mathematical) in its extended font set.
The package is designed to make it easy to quickly get graphical output;
only a handful of function calls is typically required.
For more advanced use, virtually all aspects of plotting are configurable.

Cpptcl
http://tuvalu.santafe.edu/~vince/EvoXandCpptcl.html
Cpptcl is a tool to allow simple integration of C++ objects with Tcl (and hence Tk).
It includes automatic support for Tcl argument parsing,
command completion, container classes, run-time type information,
archival of object creations, ...
Cpptcl is a pair of loadable Tcl extensions which work fine under Unix and MacOS
(and presumably other platforms too).

>>671
ありがとうございます。

ところで、Tcl8.5.9でファイルのバイナリセーブの際に
fconfigureで -translation binaryとしてもファイルの最後に0x0aが出るんだけど。
これは、バグ？それとも回避方法がありますか？

>>676
それ以外のバージョンでは出ないってこと？

[TCLCORE] ActiveTcl 8.5.9.1 released
http://code.activestate.com/lists/tcl-core/9815/

英語もロクに読めないへたれなのですが、
Ｔｋの日本語リファレンスってどこかにないでしょうか？
8.3対応っぽいのはぐぐったら見つかりましたが、
今使っている8.4とは微妙に違っている気がします。

>>676
puts -nonewline

>679
http://www.ne.jp/asahi/kazuo/sasagawa/tcltk-man-jp-13.zip

>>680
ありがとうございます。

Iwidgetsが使いたいのですが、使えないとです…

環境は ActivePerl 5.12.2 build 1203 + Tkx 1.09 です
スクリプト中に Tkx::package_require("Iwidgets"); と書けば使えるようになるらしいですが
can't find package Iwidgets とエラーが出てしまいます
(ActivePerl 5.10.x の頃は使えてた記憶があるのだけど…
だから Iwidgets を使ってるスクリプトが手元にあるわけだし…)
たぶん Perlインストールフォルダ\lib\auto\Tcl\tkkit.dll の中に
Iwidgets が含まれてないんだと思いますが…

ActiveTcl 8.5.9.1 もインストールしてみましたが、
こちらは teacup install Iwidgets をしたら、Tcl/Tkのスクリプト上で Iwidgets が使えました
(もしかしたら標準で入ってたかも…＞Iwidgets)

ActivePerl + Tkx で Iwidgets を使えるようにできないものでしょうか？
何か手はないですかね…？

5.10.1を入れてみたけどダメだった。昔使えてたと思ったのは勘違いだったみたい
もしくは極めて特定のバージョンだけがIwidgetsを含んでいたか
Strawberry Perl を入れてみたけど cpan Tcl でエラーが出て Tkx まで入らない
なんかダメっぽい…

まあ元々、Tcl/Tkの成果物を横から掠め取ろうとしてるようなものですし
基本的なところが動くだけでも凄いのかもしれないですね…＞hoge/Tk
Tkの真の力を発揮したかったらTcl/Tk使え、ということか…

連続カキコして申し訳ない
解決しましたので一応報告を
環境変数 PERL_TCL_DL_PATH で tcl85.dll を指定すれば行けるみたいです。スレ汚しスマソ

Tcl/Tkのスクリプトをexe化したいのですが
sdx.batってどこにあるんでしょう？ というかどれが最新版なんでしょう？

http://code.google.com/p/tclkit/downloads/list
tclkitsh , tclkit , sdx.kit はこれが最新版かと思うんですが
sdx.bat は見つからず…
どこから入手すればいいんだろう？

http://www.equi4.com/pub/sk/

@tclkitsh sdx.kit %1 %2 %3 %4 %5 %6 %7 %8 %9

内容はこんだけ。更新されてないけど今でも使えるよ。

>>687
ありがとうございます。助かります
中身見てズッコケました
これならバージョンどうこうなんて関係ないですな…�dでした

これは、凄い。使わせてもらいます。

>>681
ありがとうございました。助かります。
EUCだったんですね。

TcomExcel - Excel utility package
http://www.posoft.de/html/extTcomExcel.html
TcomExcel is a utility package based on Tcom to script Excel functionality with Tcl.

Notes:

* No manual or online help is available.
* TcomExcel has been tested with Excel 97, 2000, 2003 and 2007.

Sockspy
http://sockspy.sourceforge.net/sockspy.html
ockspy lets you watch the conversation of a Tcp client and server.
Sockspy acts much like a gateway: it waits for a Tcp connection, then connects to the real server.
Data from the client is passed onto the server, and data from the server is passed onto the client.

Odbcisql is a windowing SQL processor for databases with ODBC interfaces.
http://wiki.tcl.tk/7110]
ftp://ftp.tcl.tk/pub/tcl/mirror/ftp.procplace.com/sorted/databases/odbcisql/1.0/index.html
ftp://ftp.tcl.tk/pub/tcl/mirror/ftp.procplace.com/sorted/databases/odbcisql/1.0/odbcisql-1.0.tar.gz

TclODBCでnvarcharを使えるようにする
http://reddog.s35.xrea.com/wiki/TclODBC%E3%81%A7nvarchar%E3%82%92%E4%BD%BF%E3%81%88%E3%82%8B%E3%82%88%E3%81%86%E3%81%AB%E3%81%99%E3%82%8B.html
http://reddog.s35.xrea.com/software/tclodbc2.5r1-win32-bin.zip

http://sourceforge.net/projects/tclodbc/
http://msdn.microsoft.com/en-us/library/ms714177(VS.85).aspx

>651 canvasにpolygonやlineで書いた絵を画像ファイルでセーブする方法はありますか？

→確かめた訳ではないけどこんなものがあるらしい
pdf4tcl dumping canvas to pdf

使えるフォントが英文用の3種のみなので日本語はだめだが､純tclでpdfするのはすごい｡

そんなもん入れんでも標準でepsにできるじゃまいか・・・
vista+ActiveTclではフォントをArialとかにしないとeps化できないけどな〜(MS UI Gothicが悪い？）

>>693
Microsoft ODBC Desktop Database Drivers
http://msdn.microsoft.com/en-us/library/ms711711%28v=VS.85%29.aspx
Text File Driver Programming Considerations
http://msdn.microsoft.com/en-us/library/ms714091%28v=VS.85%29.aspx
Text File Data Types
http://msdn.microsoft.com/en-us/library/ms715429%28v=VS.85%29.aspx
SQLGetInfo Returned Values for Text Files
http://msdn.microsoft.com/en-us/library/ms712518%28v=VS.85%29.aspx
Other Text File Driver Programming Details
http://msdn.microsoft.com/en-us/library/ms714680%28v=VS.85%29.aspx
Defining Text Format (Text File Driver)
http://msdn.microsoft.com/en-us/library/ms710983%28v=VS.85%29.aspx
Schema.ini File (Text File Driver)
http://msdn.microsoft.com/en-us/library/ms709353%28v=VS.85%29.aspx

mysqltcl - Tcl Mysql Interface (Version 3.05
http://www.xdobry.de/mysqltcl/index.html


MySQL 5.1 リファレンスマニュアル

13.11. CSV ストレージエンジン
http://dev.mysql.com/doc/refman/5.1/ja/csv-storage-engine.html
CSV ストレージエンジンはコンマ区切りの値を使ったフォーマットでデータをテキストファイルに保存します。

24.1. MySQL Connector/ODBC
http://dev.mysql.com/doc/refman/5.1/ja/myodbc-connector.html

>>696
Much ADO About Text Files
Greg Stemp
Microsoft Corporation
March 5, 2004
Summary: Demonstrates how script writers can use Microsoft ActiveX Database Objects (ADO) techniques to retrieve data from logs and other text files.
http://msdn.microsoft.com/en-us/library/ms974559.aspx

ADO (Visual Fox Pro oledb) - read .dbf with tcom
http://wiki.tcl.tk/16022

SourceForge.JP、個人向けGitリポジトリ/ストレージサービス「PersonalForge」をリリース
http://sourceforge.jp/magazine/11/01/13/0234231
OSDNは1月13日、同社の運営するオープンソースソフトウェア開発サイト「SourceForge.JP」において、
個人向け開発支援ツール「PersonalForge」をリリースした。
個人用Gitリポジトリおよびファイル頒布用のストレージサービス（ファイルマネージャ）が提供される。

Git ユーザマニュアル (バージョン 1.5.3 以降用)
http://www8.atwiki.jp/git_jp/pub/Documentation.ja/user-manual.html

Git
http://wiki.tcl.tk/14597
gitk
http://wiki.tcl.tk/14598
Historically, gitk was the first repository browser.
It's written in Tcl/Tk and almost the whole development history is present in the repository as referenced to on top of this page.
Regularly merges are performed in the main git repository.

>>699
Sun Yiyi氏のGit Source Control Provider for Visual Studio 2008/2010の紹介
http://www.infoq.com/jp/news/2010/06/Git-Visual-Studio

Git Source Control Provider
http://visualstudiogallery.msdn.microsoft.com/en-us/63a7e40d-4d71-4fbb-a23b-d262124b8f4c

>>698
Microsoft Jet SQL リファレンス
http://office.microsoft.com/ja-jp/access-help/CH006252688.aspx
Microsoft Jet 4.0 データベース エンジン ドライバを初期化する
http://office.microsoft.com/ja-jp/access-help/HP001032161.aspx
外部データのWindows レジストリ設定
http://office.microsoft.com/ja-jp/access-help/CH001041018.aspx
ODBC アクセスのために Microsoft Jet データベース エンジンを設定する
http://office.microsoft.com/ja-jp/access-help/HP001032164.aspx
Microsoft OLE DB Provider for Jet で接続プロパティを使用する
http://office.microsoft.com/ja-jp/access-help/HP001032169.aspx
テキスト データ ソース ドライバを初期化する
http://office.microsoft.com/ja-jp/access-help/HP001032166.aspx

>>693
Database Fishing Tool (DaFT) is a front-end to any database that can be connected to with an ODBC driver.
http://daft.sourceforge.net/

New Version: 1.4.8.1
Released: 08 OCT 2010
This is a minor release, with some major bugfixes.

* Fixed an issue with column information with non-English ODBC driver
* Fixed the problem with data sheet column headings for new query results

Miscellaneous Tcl packages
http://vectorstream.com/tcl/packages/
Packages using the Tcl >= 8.5 module system

Soar (認知アーキテクチャ)
http://ja.wikipedia.org/wiki/Soar_%28%E8%AA%8D%E7%9F%A5%E3%82%A2%E3%83%BC%E3%82%AD%E3%83%86%E3%82%AF%E3%83%81%E3%83%A3%29
Soar(SOAR)とは、カーネギーメロン大学の John Laird、アレン・ニューウェル、Paul Rosenbloom が作成した認知アーキテクチャの一種。
認識とは何かという観点と、それに基づいた人工知能用のプログラムアーキテクチャの観点から構成される。
1983年に最初に作成され、1987年に論文として発表されて以来、多くの人工知能研究者が人間の行動の様々な観点の認知モデルを作成するのに Soar を用いている。

Welcome to the Soar Home Page
http://sitemaker.umich.edu/soar/home
http://ai.eecs.umich.edu/soar/sitemaker/releases/

Soar is a general cognitive architecture for developing systems that exhibit intelligent behavior.
Researchers all over the world, both from the fields of artificial intelligence and cognitive science,
are using Soar for a variety of tasks.
http://sourceforge.net/projects/soar/

Tcl 8.5 Network Programming
https://www.packtpub.com/tcl-8-5-network-programming/book

[PDF]
Sample chapter - Tcl 8.5 Network Programming
https://www.packtpub.com/sites/default/files/0967-chapter-7-using-common-internet-services.pdf

Tcl 8.5 Network Programming [ペーパーバック]
http://www.amazon.co.jp/Tcl-Network-Programming-Wojciech-Kocjan/dp/1849510962/ref=sr_1_1?ie=UTF8&s=english-books&qid=1296357607&sr=1-1

wish8.4を使っています。

set pipe [open "|hoge"]とパイプを開いて、
場合によりhogeを途中で終了させたいのですが、
close $pipeやexec kill [pid $pipe]とやると、
どうしてもApplication Errorのダイアログが勝手に出てしまいます。
もう少し穏便に終了させたいのですが、この手のエラーを抑制するにはどうすればよいでしょう？

catch

過疎スレ（過疎言語？）かと思ったら質問に２０分でレスが付くとは。
GJすぐるｗ。本人じゃないけど礼を言いたいよ。

>>706
ありがとうございます、例外の捕捉ができるのですね。

このスレじゃないけど質問から1分で的確な回答が付いてたのを見たことがある

そういうのは自演だから

Great Unified Tcl/Tk Extension Repository
http://www.flightlab.com/~joe/gutter/

>>707
たまに本田氏が本気を出す時がある。
いりこ出汁的な意味で。

話題は無いけど監視はしてる

My Home Page: Jean-Luc Fontaine
http://jfontain.free.fr/
Software (source, documentation, miscellaneous):
For Tcl versions 8.3.x and 8.4.x:

tclperl
a Perl package for Tcl
http://jfontain.free.fr/tclperl.htm
TclPerl/TclPython
http://www.ellogon.org/petasis/index.php?option=com_content&task=view&id=27&Itemid=43

tclpython
a Python package for Tcl
http://jfontain.free.fr/tclpython.htm
TclPerl/TclPython
http://www.ellogon.org/petasis/index.php?option=com_content&task=view&id=27&Itemid=43

Tcl/Tk Stuff
http://www.cs.nott.ac.uk/~nem/tcl/
Tcl interface to the NJS JavaScript interpreter library (see njs-javascript.org). Note: LGPL licensed.
http://www.cs.nott.ac.uk/~nem/tcl/tcljs-1.0.tar.gz

http://downloads.activestate.com/ActiveTcl/releases/8.4.19.5/ActiveTcl8.4.19.5.294332-win32-ix86-threaded.exe
http://downloads.activestate.com/ActiveTcl/releases/8.4.19.5/ActiveTcl8.4.19.5.294317-linux-ix86.tar.gz
http://downloads.activestate.com/ActiveTcl/releases/8.4.19.5/ActiveTcl8.4.19.5.294317-linux-x86_64.tar.gz
http://downloads.activestate.com/ActiveTcl/releases/8.4.19.5/ActiveTcl8.4.19.5.294317-macosx-universal-threaded.dmg

http://downloads.activestate.com/ActiveTcl/releases/8.5.9.2/ActiveTcl8.5.9.2.294317-win32-ix86-threaded.exe
http://downloads.activestate.com/ActiveTcl/releases/8.5.9.2/ActiveTcl8.5.9.2.294317-win32-x86_64-threaded.exe
http://downloads.activestate.com/ActiveTcl/releases/8.5.9.2/ActiveTcl8.5.9.2.294317-macosx10.5-i386-x86_64-threaded.dmg
http://downloads.activestate.com/ActiveTcl/releases/8.5.9.2/ActiveTcl8.5.9.2.294317-linux-ix86-threaded.tar.gz
http://downloads.activestate.com/ActiveTcl/releases/8.5.9.2/ActiveTcl8.5.9.2.294317-linux-x86_64-threaded.tar.gz

http://downloads.activestate.com/ActiveTcl/releases/8.6.0.0b5/ActiveTcl8.6.0.0b5.294318-win32-ix86-threaded.exe
http://downloads.activestate.com/ActiveTcl/releases/8.6.0.0b5/ActiveTcl8.6.0.0b5.294318-win32-x86_64-threaded.exe
http://downloads.activestate.com/ActiveTcl/releases/8.6.0.0b5/ActiveTcl8.6.0.0b5.294318-macosx10.5-i386-x86_64-threaded.dmg
http://downloads.activestate.com/ActiveTcl/releases/8.6.0.0b5/ActiveTcl8.6.0.0b5.294318-linux-ix86-threaded.tar.gz
http://downloads.activestate.com/ActiveTcl/releases/8.6.0.0b5/ActiveTcl8.6.0.0b5.294318-linux-x86_64-threaded.tar.gz

>>715
Embed javascript in Tcl
http://code.google.com/p/tcljs/
This project creates a Tcl extension to embed a javascript interpreter (Spidermonkey) in a Tcl/Tk application.

Ayam
http://ayam.sourceforge.net/
The current stable version is 1.19, released 16. Mar 2011.

% puts $tcl_version
8.4
% puts $tcl_patchLevel
8.4.19
% ls -tr
a.txt　　　b.txt　　　　c.txt
% ls -tr *.txt
/bin/ls: *.tclにアクセスできません: そのようなファイルやディレクトリはありません
child process exited abnormally
% exec ls -tr *.txt
ls: *.tclにアクセスできません: そのようなファイルやディレクトリはありません


なんでダメなの？

/bin/ls: *.txtにアクセスできません
の間違いです。すんません。

tkcon.tcl使ってみたら？

globとか。

>>719
OSは？

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

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の新しい本が出るようになるかな？

昔Tcletってあったよね。

>>726
今でもある

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

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

できますよ

>>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
}

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

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

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

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

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

ただファイルを読んでそのまま書き込むだけでも失敗してます。
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

ちなみに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()

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

スレ汚し失礼。

----------

#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;
}

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.
セグメンテーション違反です

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

>>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とかを投げるほうが良いような気がしてきたけど。

>>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ですが…）。
仕組み上ではこれで悪くないはず？なので、これで行こうと思います。

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

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

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

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

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/

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

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

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

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



天使#test_s

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

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

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

http://downloads.activestate.com/ActiveTcl/releases/8.5.10.0/
http://downloads.activestate.com/ActiveTcl/releases/8.5.10.0/ActiveTcl8.5.10.0.294993-html.tar.gz
http://downloads.activestate.com/ActiveTcl/releases/8.5.10.0/ActiveTcl8.5.10.0.294993-linux-ix86-threaded.tar.gz
http://downloads.activestate.com/ActiveTcl/releases/8.5.10.0/ActiveTcl8.5.10.0.294993-linux-x86_64-threaded.tar.gz
http://downloads.activestate.com/ActiveTcl/releases/8.5.10.0/ActiveTcl8.5.10.0.294993-macosx10.5-i386-x86_64-threaded.dmg
http://downloads.activestate.com/ActiveTcl/releases/8.5.10.0/ActiveTcl8.5.10.0.294993-win32-ix86-threaded.exe
http://downloads.activestate.com/ActiveTcl/releases/8.5.10.0/ActiveTcl8.5.10.0.294993-win32-x86_64-threaded.exe
http://downloads.activestate.com/ActiveTcl/releases/8.5.10.0/MD5SUM
http://downloads.activestate.com/ActiveTcl/releases/8.5.10.0/SHA256SUM

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.

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

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

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 以下の数値でなければなりません。

http://downloads.activestate.com/ActiveTcl/releases/
http://downloads.activestate.com/ActiveTcl/releases/8.5.10.1/
http://downloads.activestate.com/ActiveTcl/releases/8.5.10.1/ActiveTcl8.5.10.1.295062-html.tar.gz
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-macosx10.5-i386-x86_64-threaded.dmg
http://downloads.activestate.com/ActiveTcl/releases/8.5.10.1/ActiveTcl8.5.10.1.295062-win32-ix86-threaded.exe
http://downloads.activestate.com/ActiveTcl/releases/8.5.10.1/ActiveTcl8.5.10.1.295062-win32-x86_64-threaded.exe
http://downloads.activestate.com/ActiveTcl/releases/8.5.10.1/MD5SUM
http://downloads.activestate.com/ActiveTcl/releases/8.5.10.1/SHA256SUM

×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

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

どこのJava

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

proc rem comment {}

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

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

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

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

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

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

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

C風。

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

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

HTML風。

proc <!-- {script} {}
proc --> {} {}

<!-- {
puts hello
puts hello
puts hello
}; -->

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

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

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

# {あほ
ばか
}

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

set a {あほ
ばか
}

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

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

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

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

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

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

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

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) のことだと思うんですが、どの辺が間違ってるんでしょうか？

>>788 >>789
ありが�d
とりあえず

bind .w1 <Destroy> ...

のかわりに

bind .w1.b1 <Destroy> ...

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

>>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だとクラッシュするのお・・・。

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

>>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が壊れてる？

脳が障害を起こしました

>>794

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

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

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

> 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/

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

> 799

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

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

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

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

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

http://downloads.activestate.com/ActiveTcl/releases/8.5.11.0/
http://downloads.activestate.com/ActiveTcl/releases/8.5.11.0/ActiveTcl8.5.11.0.295402-html.tar.gz
http://downloads.activestate.com/ActiveTcl/releases/8.5.11.0/ActiveTcl8.5.11.0.295402-linux-ix86-threaded.tar.gz
http://downloads.activestate.com/ActiveTcl/releases/8.5.11.0/ActiveTcl8.5.11.0.295402-linux-x86_64-threaded.tar.gz
http://downloads.activestate.com/ActiveTcl/releases/8.5.11.0/ActiveTcl8.5.11.0.295402-macosx10.5-i386-x86_64-threaded.dmg
http://downloads.activestate.com/ActiveTcl/releases/8.5.11.0/ActiveTcl8.5.11.0.295402-win32-ix86-threaded.exe
http://downloads.activestate.com/ActiveTcl/releases/8.5.11.0/ActiveTcl8.5.11.0.295407-win32-x86_64-threaded.exe
http://downloads.activestate.com/ActiveTcl/releases/8.5.11.0/MD5SUM
http://downloads.activestate.com/ActiveTcl/releases/8.5.11.0/SHA256SUM

誰もが一度ははまるstr

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

inp(0), inp(1)

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

>>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だけで解決する方法はないのでしょうか？

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

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

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

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

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

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

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

>>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}

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

連射機能付きJOYstickだろ

>>816,817

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

試さないで何言ってる

>>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}