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

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

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

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

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

**デフォルトの名無しさん** · 2011/12/10(土) 13:17:19.43

>>847
ありがとうございます

本田 · 2011/12/17(土) 12:06:21.27

Graphics with TCL/TK
http://www.youtube.com/watch?v=hHFOFefE1YM

**デフォルトの名無しさん** · 2011/12/24(土) 12:21:45.17

toplevelで作ったウィンドウを手で動かしてから、
wm withdrawで非表示にし、wm deiconifyで再表示させると、
最初に作られた位置に出現します。
（厳密に言うとそれよりちょっと右下）

Tkの仕様なのかウィンドウマネージャの仕様なのか、
消えた時の位置に再表示されるのが自然だと思うんですが。
それともやり方が間違ってるんだろうか？

環境：
Tk 8.4
Soralis 10
CDE 1.6.3

**デフォルトの名無しさん** · 2012/01/03(火) 19:11:53.53

>>5
さすがだねｗ

**デフォルトの名無しさん** · 2012/01/22(日) 19:54:12.53

書けない？

**デフォルトの名無しさん** · 2012/01/22(日) 19:54:41.21

あれ、書けた。あけおめ。

**デフォルトの名無しさん** · NG

ネタがなにも無くて暇だ

**デフォルトの名無しさん** · 2012/02/01(水) 23:51:44.54

850には答えてやんないの？

**デフォルトの名無しさん** · 2012/02/02(木) 00:46:23.97

>>855
だってTk8.4もう使ってないし、CDEも使ったこと無いし、
Sorarisの環境も無いし、ウィンドウマネージャーのせいな気がするから、
環境が無いと確認のしようがないし、

**デフォルトの名無しさん** · 2012/02/04(土) 13:14:29.62

850です。

ですよねぇ～。
仕事のマシンで環境いじれないし、
Tcl/Tkなんて（自分以外）ほとんど使ってないからなぁー。

**デフォルトの名無しさん** · 2012/02/13(月) 21:11:55.61

Tclは実行前にバイトコードにコンパイルされ､高速化が図られていると、説明されています。
することにもよると思いますが、bash,perl,ruby,pythonと比べると速さはどうなんでしょう？
プログラムミング未経験者の、素朴な疑問です。

**デフォルトの名無しさん** · 2012/02/22(水) 11:52:16.55

>850
Windowsでは消えた場所に戻るからウィンドウマネージャの仕様だと思う。
無理やり戻すしかない。
namespace eval GeometryMemory {
variable geometry
array set geometry {}
}
proc GeometryMemory::install {t} {
bind $t <Unmap> {GeometryMemory::save %W}
bind $t <Map> {GeometryMemory::recover %W}
}
proc GeometryMemory::save {t} {
variable geometry
set geometry($t) [wm geometry $t]
}
proc GeometryMemory::recover {t} {
variable geometry
if {[info exists geometry($t)]} {
wm geometry $t $geometry($t)
array unset geometry $t
}
}

**デフォルトの名無しさん** · 2012/02/22(水) 11:53:14.60

テストスクリプト

proc GeometryMemory::test {t} {
toplevel $t
GeometryMemory::install $t
update
puts "0: [wm geometry $t]"
wm withdraw $t
update
puts "1: [wm geometry $t]"
wm geometry $t +0+0
update
puts "2: [wm geometry $t]"
wm deiconify $t
update
puts "3: [wm geometry $t]"
}

GeometryMemory::test .t
console show

**デフォルトの名無しさん** · 2012/02/22(水) 15:59:53.47

>>858

Tclは最近のベンチマークサイトからは仲間外れにされてることが多いのでなかなか比較が見つからないけど、
比較的新しいサイトを見つけました。
http://goo.gl/6vXhj

ちょっと信じがたい感じもしますが、ここによると
Perl5 >> PHP > Ruby = Python2 >> Python3 >> Tcl
みたいな感じですね。Tcl 8.4.19ですけど、8.5では劇的な速度向上はなかったと思うので、
大して変わらんのに対し、Rubyは1.9でかなり速くなったらしいので、
最新版で比べるとさらに分が悪い感じがします。

bashは、、、汎用言語といえるのかなあ。

**デフォルトの名無しさん** · 2012/02/22(水) 21:44:55.73

>>861
レスもらえてうれしいです。そのうえ的確なサイト紹介です。
速さとか実行速度で検索していたのですが、ベンチマークという言葉が思い当たらず、適当なサイトが見つかりませんでした。

このサイトを見て驚いたのは、Perlの速さとJava・Luaの遅さですね。また、C++は最速と思っていました。
やはり、プログラムの内容でしょうか？
>Test code grows text string by adding another string in cycle until it grows up to 4 mb.
恥ずかしながら英語も全然ですのでよく分かりませんが、このベンチマークは文字列操作に該当するのでしょうか？
LL言語は文字列操作が得意と説明されていますよね。

bashも入れたのは、私が試したいのが次のような内容で、キーボードでの打鍵数を調べたいのです。
1 英文字で100万字の普通の文書を、#,=等の記号も含めてアルファベット順に何文字あるのかカウントする。
2 少し複雑で、日本語で100万文字をローマ字入力したと解釈させカウントする。
　　2のケースは条件があります。
　　a 小さな'つ'の扱いです。リナックスはrinukkusuとkが2つ、アップルはappuruとpが2つとします。
　　b んの扱い。例えば安心は、ansinnと'ん'のあとがナ行以外なら1文字ですみますが、それ以外の'ん'は2文字必要です。
　　c 最後にちゃ、ちゅ、ちょはcha,chu,choと、しゃ、しゅ、しょはsha,shu,shoとすることです。

**862** · 2012/02/22(水) 21:45:49.12

カウントする方法がプログラムと言えるのか、shellとかawkでも可能かどうかさえ分かりません。
このスレに書き込んだのは、今からtcl/tkの勉強を始めようと思い、実際のところを知りたかったからです。
tclshがあってインタラクティブに使え、tkでGUIも簡単に扱える、そのうえクロスプラットフォームという魅力から、
tclが多言語に比べて遅くてもよかったのです。BSDで作ったフレームがWindowsで開くまではしました。

eltclshというものを見つけました。簡単なパスとコマンドの補完ができます。
tclshではプロンプトにpwdをだせますが（改行して2行表示はできない）、eltclshではプロンプトの修正が今の私にはできません。
eltclshを改良して意地でもログインシェルにしたいと思っています。
なぜ、tclshはログインシェルになりえなかったのでしょう。

長文ついでに>>861さんにもう一度感謝をのべよう。
tclの復権を願って、これで書き逃げさせていただきます。

**デフォルトの名無しさん** · 2012/02/24(金) 00:13:15.78

>>859
さんくすです。
おっしゃるとおり結局は，消す前に位置を保存して，
再表示した後で位置をもどすということで解決はしましたが，
なんかすっきりしなかったんですよね。

**デフォルトの名無しさん** · 2012/02/24(金) 19:38:26.78

>>862
ベンチマークの内容は"abcd____________"という文字列がひたすらつながった4MB+alphaの文字列が1つの変数に格納されるというものです。
なんかベンチマーク用にあえて死ぬほど非効率な方法で実装されていますが、同じ結果を得たいだけなら100ms以下でできる方法があるので
もうちょっと妥当なスクリプトだったらと思います。まあ、それでも負けてるのでしょうが。。。

862さんが作ろうとしているものはKAKASIという漢字->ローマ字変換プログラムを使って、いったんすべてASCIIにしてから処理するのがいいと思います。
http://goo.gl/EJYi

その上で、bashよりもTclを使うメリットは、連想配列があることです。
ただ、連想配列を持つ言語はほかにいくらでもあるので、PerlでもRubyでも好きな言語を使えばいいと思います。
またbashではできないということでもないです。

bashやzshが気に入られてるのは補完機能などが充実してるからではないですかね。

**デフォルトの名無しさん** · 2012/02/24(金) 20:51:13.77

スクローラブルなウィンドウ(キャンバスウィンドウとか)内のアイテムを<B1-Motion>でドラッグ
するときに、ウィンドウの端あたりまでドラッグしていくとその先の方向へスクロールしてくれる
ようなのを実装したいんですが、参考になるコードスニペットないでしょうか？

**デフォルトの名無しさん** · 2012/02/25(土) 00:04:22.73

>>865さん
全米が泣いた。

リナックスの世界へ案内しよう
kakasi -Ha -Ja -Ka < test.txt
rinakkusunosekaiheannaishiyou
いろいろ試したのですが、案内のnが一つ少ないほかは完璧でした。
デフォルトがヘボン式なので、意図どおりです。感謝申し上げます。

打鍵数調べに速さは関係ありませんが、tclは8.4から最新バージョンだと、
20%くらい速くなっていそうですね。
http://news.mynavi.jp/news/2007/12/21/027/index.html

**デフォルトの名無しさん** · 2012/02/28(火) 15:49:05.74

>>867
パフォーマンスに関しては、一概には言えないんですよね。

http://wiki.tcl.tk/1611
http://wiki.tcl.tk/1616

総合成績では8.4が一番優秀だったりします。

私も速度は必要なくて、乗り換えの動機はライブラリが
8.4をサポートしなくなり始めてるということぐらいなんですが。

**デフォルトの名無しさん** · 2012/02/28(火) 21:11:00.69

lassign命だから8.4は愛せない

**デフォルトの名無しさん** · 2012/02/28(火) 22:45:08.87

8.5最強伝説
- dictで連想配列の値渡最強
- dictはarrayより最速
- 無間桁計算で国家予算もらくらく計算
- clock addで日付計算最強
- clock formatで和暦がでるんだぜ！
- in 演算子がめちゃ楽最高
- switch正規表現比較が無敵
- lindex $list end-1とか書けちゃう柔軟さ
- {*}って知ってる？eval（失笑）ｗｗ

8.6最凶伝説（審議中）
- バイトコードエンジン再実装！速いのか！？
- try {} catch {} finally {} やっと使える！やっとか！
- coroutine って何に使うんですかあ？
- ooって結局どうなの。incr tcl ngの方がいいんじゃ・・・
-

**デフォルトの名無しさん** · 2012/02/29(水) 16:09:13.53

>>861
試験したTCLのソースをみると単純な文字列置換に"regsub"函数を使っている
､ここを定石とおりに"string match"函数に置き換えると何百倍も速くなった｡
（我輩の旧式機械で源リストを実行するとトンでもないことになるが､置き換えるとまともになる｡)

tclは8版から劇的に速くなったが､正規表現まわりは遅いまま｡
その事情を知って意図的に弱点を突いてきたようだ｡

**861** · 2012/02/29(水) 17:54:06.76

>>871
テストの趣旨を無視したバージョン
time {
set str "abcdefghefghefgh"
regsub -all {efgh} $str ____ str
set imax [expr {1024/[string length $str]*1024*4}]
set gstr [string repeat $str [expr {$imax+1000}]]
}
#=>4334 microseconds per iteration

少しは尊重する姿勢を見せてるバージョン
time {
set str "abcdefghefghefgh"
set imax [expr {1024/[string length $str]*1024*4}]
set gstr [string repeat $str [expr {$imax+1000}]]
regsub -all {efgh} $gstr ____ gstr
}
#=>114467 microseconds per iteration

5ms以下で終わる内容をあえてCore i5で10分以上かける方法でやるなんて
ばかばかしいよね。

**871** · 2012/02/29(水) 23:28:59.71

tcl関係者はtcl 7.4->tcl8.1 で｢劇速した｣と云ったが
ユーザーは｢yes except正規表現｣と云っていた｡
マニュアルも気合が入っていない項目と馬鹿丁寧な項目が入り混じっているし｡

良くも悪くも､ちぐはぐが多いみたいだ｡好き嫌いは激しかろう｡

本田 · 2012/03/04(日) 23:41:21.56

本田 · 2012/03/04(日) 23:44:36.35

本田 · 2012/03/04(日) 23:47:21.25

http://downloads.activestate.com/ActiveTcl/releases/8.6.0.0b7/
http://downloads.activestate.com/ActiveTcl/releases/8.6.0.0b7/ActiveTcl8.6.0.0b7.295590-html.tar.gz
http://downloads.activestate.com/ActiveTcl/releases/8.6.0.0b7/ActiveTcl8.6.0.0b7.295590-linux-ix86-threaded.tar.gz
http://downloads.activestate.com/ActiveTcl/releases/8.6.0.0b7/ActiveTcl8.6.0.0b7.295590-linux-x86_64-threaded.tar.gz
http://downloads.activestate.com/ActiveTcl/releases/8.6.0.0b7/ActiveTcl8.6.0.0b7.295590-macosx10.5-i386-x86_64-threaded.dmg
http://downloads.activestate.com/ActiveTcl/releases/8.6.0.0b7/ActiveTcl8.6.0.0b7.295590-win32-ix86-threaded.exe
http://downloads.activestate.com/ActiveTcl/releases/8.6.0.0b7/ActiveTcl8.6.0.0b7.295590-win32-x86_64-threaded.exe
http://downloads.activestate.com/ActiveTcl/releases/8.6.0.0b7/MD5SUM
http://downloads.activestate.com/ActiveTcl/releases/8.6.0.0b7/SHA256SUM

**デフォルトの名無しさん** · 2012/03/07(水) 20:28:21.05

TclでＣのstatic宣言みたいなのができるとありがたいです。
いい方法はないでしょうか？

たとえば，プロシージャの中で，呼ばれた回数に依存した処理をするような場合，
下のように，global変数をインクリメントしたりしてますが，
他のglobal変数とぶつかったりしないか心配で，夜も眠れません。
namespaceだと大げさになりそうで。

proc foo {} {
global bar

if [info exists bar] {
incr bar
} else {
set bar 1
}

# 呼ばれた回数に依存する処理
}

**デフォルトの名無しさん** · 2012/03/07(水) 22:30:41.71

>>877
ttp://wiki.tcl.tk/1532 の下から二番目のスニペットとか。

本田 · 2012/03/07(水) 23:08:53.76

>>877
singleton application
http://wiki.tcl.tk/1558

**デフォルトの名無しさん** · 2012/03/09(金) 20:33:11.94

>>878
>>879
おふた方ともありがとうございます。
やっぱりそんな簡単にはいかないですね。

それにしても反応早すぎｗ

**デフォルトの名無しさん** · 2012/03/10(土) 11:07:27.49

間違えた。
速すぎ。

**デフォルトの名無しさん** · 2012/03/14(水) 18:44:21.69

>>877
namespace大げさではけど、使いづらいとは思う。

もともと[incr Tcl]を取り込んだという割には、
名前空間付きの変数を作るitcl::scopeに相当するコマンドがなかったり、
プロシージャは見えるのに変数はvariableなしでは見れなかったりというのが使いづらい。

**882** · 2012/03/14(水) 18:45:23.25

x 大げさではけど
o 大げさではないけど

**デフォルトの名無しさん** · 2012/04/16(月) 17:32:28.78

tk_getOpenFile　でショートカット指すとホンモノの名前が返ってきて読むとき便利だけど、ショートカット入ってたディレクトリーがどこだかわからない。どうすりゃ判るの？

**デフォルトの名無しさん** · 2012/04/17(火) 11:23:18.41

tk_getOpenFileはショートカット(.lnk)ファイルそのものを返すことはできない。
Tkの組み込みコマンドなのでスクリプトで改造もできない。
OSネイティブのきれいなダイアログじゃなくてよければ可能。

::tk::dialog::file:: open

tk_getOpenFileコマンドがないときに使われる古いダイアログみたい。

詳しくは以下参照。
$::tk_library/tk.tcl
$::tk_library/tkfbox.tcl

**デフォルトの名無しさん** · 2012/04/17(火) 11:28:02.15

>>884
http://wiki.tcl.tk/1060

**デフォルトの名無しさん** · 2012/04/17(火) 21:42:15.41

>>885
>>886
884です｡貴重なコメントありがとうございます｡
いずれにしてもかなり敷居が高そうですね｡

取り敢えずは回避策を軸に考えます｡

**デフォルトの名無しさん** · 2012/04/26(木) 15:47:16.82

>>887

全然敷居高くないよ。単に見た目が違うのを我慢してと言ってるだけ。

::tk::dialog::file:: open

というコマンドは、tk_getOpenFileと同じオプションを指定できるから
オプションは同じでコマンドだけ置き換えればおｋ

**デフォルトの名無しさん** · 2012/05/01(火) 21:23:39.21

http://jim.tcl.tk/index.html/doc/www/www/index.html
Tcl8.6 のサブセットの Jim Tcl、本体は 8 ビットクリーンなのですが、内蔵ラインエディタが悪さしてシェル上での日本語入力を通しません。
それで、以下のようにしてその内蔵ラインエディタを外せばシェル上でも日本語を受け付けるようになります (CP932 でエスケープ文字と 2
バイト目が重なるようなものも、波かっこで挟んでエスケープ処理を抑制すれば入れられます)。
./configure --utf8 --disable-lineedit
utf8 のフォーマットに合う場合だけ utf8 として処理し、それ以外は単に 1 文字 8 ビットの文字列として処理します。Tcl8.6 の CVS 版に先
駆け、1 文字が 5 バイト長の utf8 文字列も取り扱えます。
なお、configure の処理実体が Tcl コードのため、そのままでのコンパイルには別の Tcl が必要です。

http://www.hecl.org/
Tcl 似の超コンパクトな言語 Hecl の方も、内蔵のラインエディタ jLine が日本語入力の邪魔をしているようですが、こちらは完全に組み込
まれているので、ソース自体の書き換えが必要になります (この理由で、jLine を外せば問題が解決するかどうかまでは試していません)。

**デフォルトの名無しさん** · 2012/05/02(水) 23:32:02.54

configureがtclだと、、、？マジカヨ、、

**デフォルトの名無しさん** · 2012/05/04(金) 10:40:49.18

>>888
884です｡ご教唆ありがとう｡これで読むとショートカットは尻に".lnk"が付いているので区別できるようですね｡
次はショートカット・ファイルからリンク先を取り出す方法に格闘します｡

**デフォルトの名無しさん** · 2012/05/05(土) 00:53:02.81

>>891
ずいぶん難しいことしてるね。
Windowsのショートカットファイルはバイナリフォーマットだから自力で解析するよりtwapiを使うのがよいと思うよ。
http://goo.gl/9D9tI

**デフォルトの名無しさん** · 2012/05/06(日) 16:30:46.62

>>892
884です｡何から何まで　ありがとうございます｡
尻が".lnk"のファイルは twapi::read_shortcut でホンモノの名前を白状させることができました｡
お蔭様で､見掛けはしょぼく　中身が立派なスクリプトができました｡

**デフォルトの名無しさん** · 2012/05/12(土) 09:00:26.16

ここ読んでる人たちはEDA関連の人たちが多いんだろうなー

**デフォルトの名無しさん** · 2012/05/18(金) 22:51:20.91

64bit用のtcl8.5のtcom.dllどこかにないでしょうか
tcl8.6 64bit用のtcom.dllは見つけたのですが・・・
↓
ttp://www.tin-pot.coco.mydisk.se/

tcomはソースがあるから何とかなりそうだけど、コンパイルやったことない。。。
twapiが代わりになるけど、こっちはExcelとかのオブジェクトを自動でに開放してくれない(´・ω・｀)

どなたか手段わかりませんでしょうか

**デフォルトの名無しさん** · 2012/05/19(土) 00:05:40.60

おれもWindows7 64ビットにしたとき、
Tclも64ビットライブラリで作り直したかったけど、
依存する奴全部揃えられなくて諦めた。
まあ64ビットにしないといけないアプリじゃなかったし。

で、tcomみたいなOFFICEアプリ？とかを操作するのに
64ビットじゃないといけないの？答えになってないが。

**デフォルトの名無しさん** · 2012/05/19(土) 01:56:01.60

>>896
まあ、office操作自体は確かに64bitにする必要がないんです

とあるソフトに32bit版と64bit版があって、
これにそれぞれ32bitと64bitのtclが組み込まれていているんですが、
自分が32bitで動くスクリプトを作った後に、
それをそのまま64bitに持っていったらdllの問題で組み込めなかった・・・

悔しい。

という話です。。
64bitのPCに32bitのそのソフトをインストールすれば動作自体はするのですが。

**デフォルトの名無しさん** · 2012/05/25(金) 16:17:21.15

>>861 のベンチマークはちょっと変えるとTclが圧倒的に速くなるよ。
[Ruby1.9.3]
+ str=str.gsub(/efgh/, "____")
gstr+=str;
- gstr=gstr.gsub(/efgh/, "____")
exec.tm.sec str.length
2sec 256kb
略)
395sec 3840kb
455sec 4096kb
[Tcl8.5.11]
+ regsub -all {efgh} $str ____ str
append gstr $str;
- regsub -all {efgh} $gstr ____ gstr
exec.tm.sec str.length
0sec 256kb
略)
0sec 3840kb
0sec 4096kb

**デフォルトの名無しさん** · 2012/06/17(日) 21:24:30.09

ジオメトリーマネージャ（pack, grid, place）の働きが
イマイチよくわかりません。通り一遍のことはぐぐれば
わかりますが、ちょっと凝ったことをしようとすると
どれを選んでどういったオプションを指定すればよいか
いつも迷ってしまいます。
何かこうスッキリわかりやすく解説してくれてるとこって
ないですかね。書物は、この手のものはたいてい
高額なのでちょっと手が出ないかな。。。

**デフォルトの名無しさん** · 2012/06/18(月) 07:52:40.33

>>899
僕も最初はあいまいなまま結果オーライで使ってたけど、Ruby/Tkの本が丁寧な解説で役立ったよ。
Rubyを256倍使うための本・界道編
http://goo.gl/YuZuF

**デフォルトの名無しさん** · 2012/06/18(月) 09:01:28.10

　　 ┌─┐
　　 │●│
　　 └─┤
　　　_ 　 ∩
　　( ﾟ∀ﾟ)彡
┌─┬⊂彡
│●│　おっぱい！おっぱい！
└─┘

**デフォルトの名無しさん** · 2012/06/18(月) 22:46:47.84

>>900
256倍シリーズってまだあったんですね。
確かにあれはわかりやすいかも。
Rubyは盲点でした。

**デフォルトの名無しさん** · 2012/06/19(火) 06:41:21.59

grid最強
pack, placeは後方互換用と思ってよい

…とtkdocsのサイトには書いてあった
http://www.tkdocs.com/tutorial/grid.html

**デフォルトの名無しさん** · 2012/06/19(火) 19:32:26.30

>>903
packはともかくplaceは置き換えられない部分があると思うなあ。
右上とか右下にくっついて動くロゴみたいなのはgridだとかえって難しい気がする。
gridのコマ割り考えるのも結構面倒。

**デフォルトの名無しさん** · 2012/06/19(火) 22:00:48.41

pack,place,gridだけで配置するより、ある程度区切ったらframeを乗せて
その中で個別にpack,place,grid使って配置した方が楽

**デフォルトの名無しさん** · 2012/06/19(火) 22:03:34.92

placeはゲームのようなドット単位で指定したりするときに便利。
俺はTkでそういうのを作る機会がなかったので使ったことがないけど。
gridが全てにおいて万能というわけでもない。

**デフォルトの名無しさん** · 2012/06/20(水) 14:33:31.82

place使ってプログレスバーを作ってる例ならあるよ。Ruby/Tkだけど。
http://www.dumbo.ai.kyutech.ac.jp/~nagai/RubyTk/?%A4%BD%A4%CE%C2%BE%A4%CE%A5%B5%A5%F3%A5%D7%A5%EB%A5%B9%A5%AF%A5%EA%A5%D7%A5%C8

**デフォルトの名無しさん** · 2012/06/22(金) 20:34:56.08

tclでテキスト処理して結果をxterm -e w3mで出力させたいのですが、以下のようにしても動きません。
どのようなやり方で出力させればよいでしょうか？

% tclsh
% set a "
test
test
"
% exec xterm -e "echo $a | w3m "

**デフォルトの名無しさん** · 2012/06/30(土) 01:51:50.71

>>908
意図がよくわからないんだけど、aの中身はホントはHTMLにして
ターミナルにw3mでレイアウト表示したいってことなら、

set ch [open |[list w3m -T text/html << $a] r]
puts [read $ch]; close $ch

一応w3mが整形したとおりに出力される。

**デフォルトの名無しさん** · 2012/06/30(土) 01:59:12.62

あ、xtermってあれか、Xのターミナルエミュレータか。
じゃあ、ちょっと違うかな。
リダイレクトのバリエーションでTclのチャネルを別プロセスに渡す方法とかあるみたいだから見てみたらいいかもしれない。
http://www.tcl.tk/man/tcl/tutorial/Tcl26.html

**デフォルトの名無しさん** · 2012/07/01(日) 08:06:09.94

>>909,910
909を見てて下を試しましたら、出力することができました。

% exec xterm -e "w3m << a
$a
"
ありがとうございました。

**デフォルトの名無しさん** · 2012/07/28(土) 08:05:27.41

Tcl/Tk 8.5.12 Release Announcement
July 27, 2012

**デフォルトの名無しさん** · 2012/08/02(木) 19:12:11.95

ActiveTcl 8.5.12.0
http://www.activestate.com/activetcl/downloads

本田 · 2012/08/02(木) 23:54:45.63

http://downloads.activestate.com/ActiveTcl/releases/8.5.12.0/
ttp://downloads.activestate.com/ActiveTcl/releases/8.5.12.0/ActiveTcl8.5.12.0.296033-html.tar.gz
ttp://downloads.activestate.com/ActiveTcl/releases/8.5.12.0/ActiveTcl8.5.12.0.296033-linux-ix86-threaded.tar.gz
ttp://downloads.activestate.com/ActiveTcl/releases/8.5.12.0/ActiveTcl8.5.12.0.296033-linux-x86_64-threaded.tar.gz
ttp://downloads.activestate.com/ActiveTcl/releases/8.5.12.0/ActiveTcl8.5.12.0.296033-macosx10.5-i386-x86_64-threaded.dmg
ttp://downloads.activestate.com/ActiveTcl/releases/8.5.12.0/ActiveTcl8.5.12.0.296033-win32-ix86-threaded.exe
ttp://downloads.activestate.com/ActiveTcl/releases/8.5.12.0/ActiveTcl8.5.12.0.296033-win32-x86_64-threaded.exe
ttp://downloads.activestate.com/ActiveTcl/releases/8.5.12.0/MD5SUM
ttp://downloads.activestate.com/ActiveTcl/releases/8.5.12.0/SHA256SUM

**デフォルトの名無しさん** · 2012/09/12(水) 07:36:14.95

PTさん、8.5.12のtclkit作ってくれないのかなぁ

**デフォルトの名無しさん** · 2012/09/27(木) 00:17:38.23

pack [frame .f -background ""] -fill both -expand 1
ってやると，色々配置したウィンドウを見た目変えずに一気に無効にできる。
destroy .f
で有効化。
だから何っていわれてもアレだけど。

**デフォルトの名無しさん** · 2012/10/05(金) 20:50:57.35

>>915 こんなんありますけど
http://www.cqi.com.tw/coopermaa/tcl/20041107-01.doc

**デフォルトの名無しさん** · 2012/10/05(金) 22:25:49.47

>>916
確かにマニュアルにもframeの-bg ""の挙動は書いてあるけど、Windows7+Tk 8.5.11だとバグってるっぽい。
なぜか一旦destroyしてもう一回 frame作るとそれっぽい動きにはなる。最大化するとやっぱりいろいろおかしい。
Linuxだと問題ないのかな。

button .b1 -text hoge
button .b2 -text hoge
place .b1 -x 10 -y 10
place .b2 -x 50 -y 50
pack [frame .f -background ""] -fill both -expand 1

**デフォルトの名無しさん** · 2012/11/20(火) 00:18:52.14

保守？

**デフォルトの名無しさん** · 2012/11/26(月) 18:33:59.94

Latest Release: Tcl/Tk 8.5.13 (Nov 12, 2012)

**デフォルトの名無しさん** · 2012/12/08(土) 02:46:12.21

今、html5がやろうとしてることって、もともとtcl/tkがやろうとしてたことだよね
何で政治的に負けちゃったんだろう

**デフォルトの名無しさん** · 2012/12/15(土) 17:34:24.88

expectもTCLだからここで聞いていいよね

expectというかtclで、設定ファイルを読みたい
bashのように、設定ファイルと見せかけて実は実行でもいい

ロードかインクルードの方法ってありますか？

**デフォルトの名無しさん** · 2012/12/15(土) 20:09:19.04

>>922
sourceじゃダメなのか？
>>920
ActiveTcl来た
PTさんのtclkitも来た

**デフォルトの名無しさん** · 2012/12/17(月) 13:28:41.57

そろそろ8.6がリリースされるんじゃないかと思って
今年4月にPro Studioのサブスクリプションを自腹で1年延長してみたものの、
8.6に対応するときはメジャーアップデートでアップグレード対象外になる可能性に今頃気付いた。
そんなもったいないことしてる人は他にいないと思うが。。。
でもいいの。ActiveTclだけでもリリースし続けてくれてるだけで満足でございます。

**デフォルトの名無しさん** · 2012/12/24(月) 22:46:13.42

ついにTcl/Tk 8.6が12/20にリリースされました。

**デフォルトの名無しさん** · 2012/12/26(水) 21:31:39.97

SL4AでTcl動かそうと思ったけど、うまくいかんな。つまらん

**デフォルトの名無しさん** · 2013/01/18(金) 03:10:56.99

ubuntuが出すタブレットPCでも動くのかな？

**デフォルトの名無しさん** · 2013/01/21(月) 19:38:03.19

ActiveTcl 8.6.0.0リリースだよ。

**デフォルトの名無しさん** · 2013/02/19(火) 07:16:05.65

特定のwidgetだけ再描画することは出来ないでしょうか？
textに数千行読む時にprogressbarを更新したいけど、その他の再描画は無駄なので止めたいのです。
updateだと全体を再描画になります。

**デフォルトの名無しさん** · 2013/02/21(木) 22:20:12.72

特定widgetだけ再描画する方法は分からないけど、
textへの追加を1行ずつしないで、全部を一旦変数に入れて一発でinsertする、じゃダメなの？

**デフォルトの名無しさん** · 2013/02/22(金) 21:07:25.94

C:\Program Files\Tcl\demos\Tk8.5\widget.tcl
Scales and Progress Bars 4. Progress bar
はupdate なし
configure命令

**デフォルトの名無しさん** · 2013/02/23(土) 21:44:59.02

Tkの部品はconfig命令を使うと色や形の現在値は変更できるが､Tkは高速化の為に画面への反映は遅延表示させているので途中経過を表示せずにいきなり最終結果が表示されたりする｡
プロバー表示では現在値を強制表示させる為にupdate命令を使うのが定石だがこれが禁じ手になると結構難しいか｡

①930番さんの様にまとめて一発表示
②update命令間隔をを１０秒置きとか極端に長くする
③その他の部品はforgetオプション等で退避しておいて後で表示
④?
ところでTkのtext表示は普通はそんなに遅くはないが改行文字なしの長い行を表示させると異様に遅くなるみたい｡

**デフォルトの名無しさん** · 2013/03/06(水) 21:36:21.62

SSD環境なので参考にならんかもしれませんが、2000文字x5000行のファイルでは、
5行おきのアップデートにすると秒単位で高速化されました。
それでもプログレスバー表示しない場合の11.5倍時間がかかりました。

create_file: 483288 microseconds per iteration
gets_lines: 271409 microseconds per iteration
read_bulk: 252275 microseconds per iteration

test_full_update: 5123759 microseconds per iteration
test_skip_update: 3374500 microseconds per iteration
test_no_update: 291779 microseconds per iteration
test_bulk_insert: 285029 microseconds per iteration

**デフォルトの名無しさん** · 2013/03/09(土) 03:48:33.45

最初にファイルサイズ取得して、サイズに応じてupdateする行数変更するとか。
5000行のファイルに5行おきにプログレスバーを更新するってのが...

**デフォルトの名無しさん** · 2013/03/12(火) 17:51:41.39

tcl8.6爆速なんだけど↓からだいぶ状況変わったの？
http://d.hatena.ne.jp/satosystems/20121228/1356655565
この速さはただの再帰もループになってる？

5桁とかになると1分以上かかって他に大きく離される
これはループにしても変わらないから多倍長ライブラリの性能かな

**デフォルトの名無しさん** · 2013/03/12(火) 18:29:56.59

すまん関数名同じだからかんちがいした
fib 38は固まるわ

**デフォルトの名無しさん** · 2013/03/12(火) 22:01:59.60

>935
私の中古機械で試してみた｡式をまとめると約１０倍速くなった
どうしてこんなに違うのか？？
fib <39088169> term <80312600 microseconds per iteration>
proc fib {n} {
if {$n < 2} { return $n }
return [expr {[fib [expr {$n - 1}]] +[fib [expr {$n - 2}]]}]
}

fib <39088169> term <714145387 microseconds per iteration>
proc fib {n} {
if {$n < 2} { return $n }
set a [expr $n - 2]
set b [expr $n - 1]
set x [fib $a]
set y [fib $b]
return [expr $x + $y]
}

**デフォルトの名無しさん** · 2013/03/15(金) 22:54:42.21

>>937
exprの引数を{ }で囲むだけでだいぶ違うな

**デフォルトの名無しさん** · 2013/03/15(金) 23:06:47.65

初心者が初心者に嘘を教えるスレです

**デフォルトの名無しさん** · 2013/03/15(金) 23:08:30.06

exprの引数を{ }で囲むのは8.6以前からの定石。
2回評価させないようにする。

**デフォルトの名無しさん** · 2013/03/23(土) 22:06:55.05

937です｡より速くより汚く
proc fib {n} {
if {$n < 2} { return $n }
return [expr {[fib [incr n -2]] +[fib [incr n ]]}]
}
fib <39088169> term <72891401 microseconds per iteration> でした｡

935 引用のページからC++を複写してVisualC++Express2008(要するに無料ソフト)を使って実行してみた
fib44=701408733
fib45=1134903170
fib46=1836311903
fib47=-1323752223
fib48=512559680

tcl/tk(ver8.5.13)でfib47 は
fib <2971215073> term <1253824233 microseconds per iteration>
１２５４秒!!｡鈍足で正確でした｡なっとく

速度､精度､価格､安直さ､どれも一つの側面でしかなく､それらを総合的に評価して最適ソフトを選択することが肝要だと思う｡

**929** · 2013/03/24(日) 10:09:02.93

ありがとうございます。規制されてて遅くなりました。
progressbarはupdate idletasksで表示が更新されましたが、古いPCのWindowsXPでは5～6秒程度updateしないと
メニュー部分が白くなって、その後はprogressbarも更新されなくなります。(update idletasksではダメ)
ということで、数秒おきにupdateしないとprogressbarが更新されません。
見た目を重視しているので無駄はあきらめることにしました。

**デフォルトの名無しさん** · 2013/03/31(日) 08:08:41.45

Tcl/Tk 8.4.20予告 6/1(随分さきの話だが)に最終版リリース予定らしい｡まだ8.4.を改良してたのか｡
Tcl/Tk 8.4.20 Release Announcement
June 1, 2013

The Tcl Core Team is pleased to announce the 8.4.20 releases of the Tcl
dynamic language and the Tk toolkit. This is the twentieth and *FINAL*
patch release of Tcl/Tk 8.4. With this release, support for Tcl/Tk 8.4
comes to an end.

**デフォルトの名無しさん** · 2013/04/03(水) 22:36:01.28

Tcl/Tk 8.5.14 Release Announcement
April 3, 2013

**デフォルトの名無しさん** · 2013/04/09(火) 21:46:20.56

>>5の予想を裏切り2014年まで持つ勢いだが、
ActiveTcl 8.6.1.0とTclDevKit 6.0の登場が変えてくれることを願う。

**デフォルトの名無しさん** · 2013/04/20(土) 09:26:13.99

あ

**デフォルトの名無しさん** · 2013/04/20(土) 09:26:55.27

まだTCLなんてあったんだ。10年前に学校の授業で使ったのが懐かしい。