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

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

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

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

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

本田 · 2008/05/25(日) 06:00:16

>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

**デフォルトの名無しさん** · 2008/05/29(木) 20:12:22

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

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

**デフォルトの名無しさん** · 2008/06/02(月) 21:39:25

>>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作成のガイドラインから外れた古い作りになっているんだろう。
実際何年も更新されてないようだし。
自前ビルドしてやるしか。

**262** · 2008/06/03(火) 11:42:06

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

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

**デフォルトの名無しさん** · 2008/06/14(土) 18:22:11

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

**262** · 2008/06/16(月) 16:43:53

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

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

**デフォルトの名無しさん** · 2008/06/20(金) 19:54:08

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

**デフォルトの名無しさん** · 2008/06/20(金) 21:03:00

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

**デフォルトの名無しさん** · 2008/06/27(金) 03:20:15

質問があります。

set a hoge
set b a
set c b

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

**デフォルトの名無しさん** · 2008/06/27(金) 22:53:22

set a hoge
set b a
set c b

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

puts [aho [aho $c]]

**デフォルトの名無しさん** · 2008/06/27(金) 23:22:33

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

**デフォルトの名無しさん** · 2008/06/28(土) 00:44:17

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

**デフォルトの名無しさん** · 2008/06/28(土) 03:31:47

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

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

**269** · 2008/06/28(土) 04:50:38

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

**デフォルトの名無しさん** · 2008/06/28(土) 06:01:58

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

**デフォルトの名無しさん** · 2008/06/28(土) 12:50:19

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

**デフォルトの名無しさん** · 2008/06/28(土) 14:34:54

>>276
'{' inside string

**デフォルトの名無しさん** · 2008/06/28(土) 17:20:38

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

**デフォルトの名無しさん** · 2008/06/28(土) 21:56:13

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

**デフォルトの名無しさん** · 2008/06/28(土) 23:10:12

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

本田 · 2008/07/01(火) 06:46:34

>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/

**263** · 2008/07/02(水) 07:53:23

>>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にライブラリが置かれてるよ。

**239** · 2008/07/02(水) 09:03:58

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

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

set lines {He said "I am}

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

**デフォルトの名無しさん** · 2008/07/02(水) 19:51:00

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

**デフォルトの名無しさん** · 2008/07/03(木) 00:00:27

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

**デフォルトの名無しさん** · 2008/07/03(木) 01:29:08

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

**デフォルトの名無しさん** · 2008/07/03(木) 01:43:11

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

**デフォルトの名無しさん** · 2008/07/04(金) 11:09:03

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

**デフォルトの名無しさん** · 2008/07/05(土) 12:36:31

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

本田 · 2008/07/06(日) 13:21:30

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

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

**デフォルトの名無しさん** · 2008/07/07(月) 21:37:10

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

**デフォルトの名無しさん** · 2008/07/08(火) 00:37:16

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

**デフォルトの名無しさん** · 2008/07/09(水) 07:59:32

>>288
>>292

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

**デフォルトの名無しさん** · 2008/07/09(水) 20:18:40

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

**デフォルトの名無しさん** · 2008/07/09(水) 22:18:26

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

**デフォルトの名無しさん** · 2008/07/09(水) 23:06:43

ときどき使う。

**デフォルトの名無しさん** · 2008/07/09(水) 23:44:51

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

**デフォルトの名無しさん** · 2008/07/10(木) 06:48:22

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

**297** · 2008/07/10(木) 06:54:59

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

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

本田 · 2008/07/10(木) 07:54:03

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.

**298** · 2008/07/10(木) 10:32:22

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

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

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

**デフォルトの名無しさん** · 2008/07/10(木) 11:44:58

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

**デフォルトの名無しさん** · 2008/07/10(木) 14:59:25

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

**デフォルトの名無しさん** · 2008/07/10(木) 22:13:52

>>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);
}

**304** · 2008/07/10(木) 22:23:39

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

本田 · 2008/07/22(火) 20:12:44

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など他の仕事で作者は有名なんだな。

本田 · 2008/07/23(水) 01:18:22

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.

**デフォルトの名無しさん** · 2008/07/24(木) 04:12:37

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

**デフォルトの名無しさん** · 2008/07/24(木) 20:37:58

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を作ったりしてた。

**デフォルトの名無しさん** · 2008/07/24(木) 23:57:42

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

遅レスだが…

**デフォルトの名無しさん** · 2008/07/27(日) 18:35:14

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

**デフォルトの名無しさん** · 2008/07/29(火) 00:59:08

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

**デフォルトの名無しさん** · 2008/08/02(土) 08:48:51

Active Tcl　やっと8.5.3になった

**デフォルトの名無しさん** · 2008/08/05(火) 04:33:00

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

**デフォルトの名無しさん** · 2008/08/05(火) 21:26:28

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

**デフォルトの名無しさん** · 2008/08/11(月) 10:37:56

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

**デフォルトの名無しさん** · 2008/08/12(火) 07:07:15

>>316
Tcllibは調べた？

**デフォルトの名無しさん** · 2008/08/12(火) 08:05:26

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

**デフォルトの名無しさん** · 2008/08/13(水) 20:58:56

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

**316** · 2008/08/14(木) 09:50:55

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

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

**デフォルトの名無しさん** · 2008/08/24(日) 00:56:41

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

**デフォルトの名無しさん** · 2008/08/24(日) 01:10:16

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

**デフォルトの名無しさん** · 2008/08/24(日) 02:59:06

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

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

**デフォルトの名無しさん** · 2008/08/24(日) 09:13:12

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

**デフォルトの名無しさん** · 2008/08/24(日) 22:12:31

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

**デフォルトの名無しさん** · 2008/08/25(月) 00:18:54

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

**デフォルトの名無しさん** · 2008/08/25(月) 01:11:39

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

**デフォルトの名無しさん** · 2008/08/26(火) 00:03:21

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

**デフォルトの名無しさん** · 2008/08/26(火) 00:10:49

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

**デフォルトの名無しさん** · 2008/08/26(火) 00:44:05

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

**デフォルトの名無しさん** · 2008/08/26(火) 01:37:04

>>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

**デフォルトの名無しさん** · 2008/08/26(火) 01:41:54

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

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

**デフォルトの名無しさん** · 2008/08/26(火) 03:33:43

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

**デフォルトの名無しさん** · 2008/08/26(火) 17:03:54

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

**デフォルトの名無しさん** · 2008/09/08(月) 13:49:03

日本語に関して質問です。
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の異なる環境間で同一スクリプトで動かす手立てはないものですかね。

**デフォルトの名無しさん** · 2008/09/08(月) 20:35:03

Unicodeリテラルで書く。

**デフォルトの名無しさん** · 2008/09/10(水) 03:14:41

>>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通して変換というのじゃ駄目なんでしょうか。

**デフォルトの名無しさん** · 2008/09/10(水) 07:12:11

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

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

**335** · 2008/09/10(水) 10:06:33

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

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

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

**デフォルトの名無しさん** · 2008/09/10(水) 20:07:26

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

150.29.213.49 335 · 2008/09/10(水) 21:37:28

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

**デフォルトの名無しさん** · 2008/09/10(水) 23:21:08

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

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

**デフォルトの名無しさん** · 2008/09/11(木) 21:48:49

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

**デフォルトの名無しさん** · 2008/09/12(金) 22:20:20

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

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

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

**デフォルトの名無しさん** · 2008/09/17(水) 02:39:50

>>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
　　　　　　}
　　　　}
　　}
}

**デフォルトの名無しさん** · 2008/09/19(金) 21:57:20

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

**デフォルトの名無しさん** · 2008/10/16(木) 04:52:51

内部イテレータ欲しい

**デフォルトの名無しさん** · 2008/10/27(月) 13:15:30

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

**デフォルトの名無しさん** · 2008/10/27(月) 15:39:46

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

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

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

**デフォルトの名無しさん** · 2008/10/28(火) 07:20:41

>>348
了解

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

**デフォルトの名無しさん** · 2008/10/31(金) 16:09:38

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

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

**デフォルトの名無しさん** · 2008/10/31(金) 22:10:52

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

**デフォルトの名無しさん** · 2008/11/01(土) 05:18:31

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

**デフォルトの名無しさん** · 2008/11/01(土) 05:45:22

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

**デフォルトの名無しさん** · 2008/11/01(土) 07:09:06

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

**デフォルトの名無しさん** · 2008/11/01(土) 09:51:35

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

**デフォルトの名無しさん** · 2008/11/01(土) 16:24:05

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

**デフォルトの名無しさん** · 2008/11/01(土) 22:49:17

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

**デフォルトの名無しさん** · 2008/11/02(日) 02:01:41

んと、こんなんやってる
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
}

**デフォルトの名無しさん** · 2008/11/02(日) 02:12:55

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

f_text_update [f_proc_func]

proc f_proc_func {} {
return "hogehoge"
}

これでどうだ