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

1 名前：デフォルトの名無しさん mailto:sage [2007/05/01(火) 14:52:44 ] 【英語サイト】 プロジェクト本拠地 tcl.sourceforge.net/ 最新版ソースコード ftp://ftp.tcl.tk/pub/tcl/nightly-cvs/ The Tcler's Wiki wiki.tcl.tk/ The comp.lang.tcl Newsgroup groups.google.com/group/comp.lang.tcl/ ActiveTcl www.activestate.com/products/activetcl/ 【日本語サイト】 もっとTcl/Tk www.interq.or.jp/japan/s-imai/tcltk/ Tcl/Tk Scripting Laboratory www.geocities.jp/urano343/tcltk.html Tcl/Tk Primer mibai.tec.u-ryukyu.ac.jp/~oshiro/Doc/tcltk_primer/ Tcl 8.4.1　Manual Command Reference www.freesoftnet.co.jp/tclkits/doc/TclCmdRef/tcl_contents_jp.htm CategoryTclTk - mynote reddog.s35.xrea.com/wiki/CategoryTclTk.html 【前スレ】 ●●●●TCL/TKなら俺に聞け●●●● pc11.2ch.net/test/read.cgi/tech/1033628416/ 878 名前：デフォルトの名無しさん mailto:sage [2012/03/07(水) 22:30:41.71 ] >>877 ttp://wiki.tcl.tk/1532 の下から二番目のスニペットとか。 879 名前：本田 [2012/03/07(水) 23:08:53.76 ] >>877 singleton application wiki.tcl.tk/1558 880 名前：デフォルトの名無しさん mailto:sage [2012/03/09(金) 20:33:11.94 ] >>878 >>879 おふた方ともありがとうございます。 やっぱりそんな簡単にはいかないですね。 それにしても反応早すぎｗ 881 名前：デフォルトの名無しさん mailto:sage [2012/03/10(土) 11:07:27.49 ] 間違えた。 速すぎ。 882 名前：デフォルトの名無しさん mailto:sage [2012/03/14(水) 18:44:21.69 ] >>877 namespace大げさではけど、使いづらいとは思う。 もともと[incr Tcl]を取り込んだという割には、 名前空間付きの変数を作るitcl::scopeに相当するコマンドがなかったり、 プロシージャは見えるのに変数はvariableなしでは見れなかったりというのが使いづらい。 883 名前：882 mailto:sage [2012/03/14(水) 18:45:23.25 ] x 大げさではけど o 大げさではないけど 884 名前：デフォルトの名無しさん [2012/04/16(月) 17:32:28.78 ] tk_getOpenFile　でショートカット指すとホンモノの名前が返ってきて読むとき便利だけど、ショートカット入ってたディレクトリーがどこだかわからない。どうすりゃ判るの？ 885 名前：デフォルトの名無しさん [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 886 名前：デフォルトの名無しさん mailto:sage [2012/04/17(火) 11:28:02.15 ] >>884 wiki.tcl.tk/1060 887 名前：デフォルトの名無しさん [2012/04/17(火) 21:42:15.41 ] >>885 >>886 884です｡貴重なコメントありがとうございます｡ いずれにしてもかなり敷居が高そうですね｡ 取り敢えずは回避策を軸に考えます｡ 888 名前：デフォルトの名無しさん mailto:sage [2012/04/26(木) 15:47:16.82 ] >>887 全然敷居高くないよ。単に見た目が違うのを我慢してと言ってるだけ。 ::tk::dialog::file:: open というコマンドは、tk_getOpenFileと同じオプションを指定できるから オプションは同じでコマンドだけ置き換えればおｋ 889 名前：デフォルトの名無しさん mailto:sage [2012/05/01(火) 21:23:39.21 ] 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 が必要です。 www.hecl.org/ Tcl 似の超コンパクトな言語 Hecl の方も、内蔵のラインエディタ jLine が日本語入力の邪魔をしているようですが、こちらは完全に組み込 まれているので、ソース自体の書き換えが必要になります (この理由で、jLine を外せば問題が解決するかどうかまでは試していません)。 890 名前：デフォルトの名無しさん mailto:sage [2012/05/02(水) 23:32:02.54 ] configureがtclだと、、、？マジカヨ、、 891 名前：デフォルトの名無しさん [2012/05/04(金) 10:40:49.18 ] >>888 884です｡ご教唆ありがとう｡これで読むとショートカットは尻に".lnk"が付いているので区別できるようですね｡ 次はショートカット・ファイルからリンク先を取り出す方法に格闘します｡ 892 名前：デフォルトの名無しさん mailto:sage [2012/05/05(土) 00:53:02.81 ] >>891 ずいぶん難しいことしてるね。 Windowsのショートカットファイルはバイナリフォーマットだから自力で解析するよりtwapiを使うのがよいと思うよ。 goo.gl/9D9tI 893 名前：デフォルトの名無しさん [2012/05/06(日) 16:30:46.62 ] >>892 884です｡何から何まで　ありがとうございます｡ 尻が".lnk"のファイルは twapi::read_shortcut でホンモノの名前を白状させることができました｡ お蔭様で､見掛けはしょぼく　中身が立派なスクリプトができました｡ 894 名前：デフォルトの名無しさん mailto:sage [2012/05/12(土) 09:00:26.16 ] ここ読んでる人たちはEDA関連の人たちが多いんだろうなー 895 名前：デフォルトの名無しさん mailto:sage [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とかのオブジェクトを自動でに開放してくれない(´・ω・｀) どなたか手段わかりませんでしょうか 896 名前：デフォルトの名無しさん mailto:sage [2012/05/19(土) 00:05:40.60 ] おれもWindows7 64ビットにしたとき、 Tclも64ビットライブラリで作り直したかったけど、 依存する奴全部揃えられなくて諦めた。 まあ64ビットにしないといけないアプリじゃなかったし。 で、tcomみたいなOFFICEアプリ？とかを操作するのに 64ビットじゃないといけないの？答えになってないが。 897 名前：デフォルトの名無しさん mailto:sage [2012/05/19(土) 01:56:01.60 ] >>896 まあ、office操作自体は確かに64bitにする必要がないんです とあるソフトに32bit版と64bit版があって、 これにそれぞれ32bitと64bitのtclが組み込まれていているんですが、 自分が32bitで動くスクリプトを作った後に、 それをそのまま64bitに持っていったらdllの問題で組み込めなかった・・・ 悔しい。 という話です。。 64bitのPCに32bitのそのソフトをインストールすれば動作自体はするのですが。 898 名前：デフォルトの名無しさん mailto:sage [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 899 名前：デフォルトの名無しさん mailto:sage [2012/06/17(日) 21:24:30.09 ] ジオメトリーマネージャ（pack, grid, place）の働きが イマイチよくわかりません。通り一遍のことはぐぐれば わかりますが、ちょっと凝ったことをしようとすると どれを選んでどういったオプションを指定すればよいか いつも迷ってしまいます。 何かこうスッキリわかりやすく解説してくれてるとこって ないですかね。書物は、この手のものはたいてい 高額なのでちょっと手が出ないかな。。。 900 名前：デフォルトの名無しさん mailto:sage [2012/06/18(月) 07:52:40.33 ] >>899 僕も最初はあいまいなまま結果オーライで使ってたけど、Ruby/Tkの本が丁寧な解説で役立ったよ。 Rubyを256倍使うための本・界道編 goo.gl/YuZuF 901 名前：デフォルトの名無しさん mailto:sage [2012/06/18(月) 09:01:28.10 ] 　　 ┌─┐ 　　 │●│ 　　 └─┤ 　　　_ 　 ∩ 　　( ﾟ∀ﾟ)彡 ┌─┬⊂彡 │●│　おっぱい！おっぱい！ └─┘ 902 名前：デフォルトの名無しさん mailto:sage [2012/06/18(月) 22:46:47.84 ] >>900 256倍シリーズってまだあったんですね。 確かにあれはわかりやすいかも。 Rubyは盲点でした。 903 名前：デフォルトの名無しさん mailto:sage [2012/06/19(火) 06:41:21.59 ] grid最強 pack, placeは後方互換用と思ってよい …とtkdocsのサイトには書いてあった www.tkdocs.com/tutorial/grid.html 904 名前：デフォルトの名無しさん mailto:sage [2012/06/19(火) 19:32:26.30 ] >>903 packはともかくplaceは置き換えられない部分があると思うなあ。 右上とか右下にくっついて動くロゴみたいなのはgridだとかえって難しい気がする。 gridのコマ割り考えるのも結構面倒。 905 名前：デフォルトの名無しさん mailto:sage [2012/06/19(火) 22:00:48.41 ] pack,place,gridだけで配置するより、ある程度区切ったらframeを乗せて その中で個別にpack,place,grid使って配置した方が楽 906 名前：デフォルトの名無しさん mailto:sage [2012/06/19(火) 22:03:34.92 ] placeはゲームのようなドット単位で指定したりするときに便利。 俺はTkでそういうのを作る機会がなかったので使ったことがないけど。 gridが全てにおいて万能というわけでもない。 907 名前：デフォルトの名無しさん mailto:sage [2012/06/20(水) 14:33:31.82 ] place使ってプログレスバーを作ってる例ならあるよ。Ruby/Tkだけど。 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 908 名前：デフォルトの名無しさん mailto:sage [2012/06/22(金) 20:34:56.08 ] tclでテキスト処理して結果をxterm -e w3mで出力させたいのですが、以下のようにしても動きません。 どのようなやり方で出力させればよいでしょうか？ % tclsh % set a " test test " % exec xterm -e "echo $a | w3m " 909 名前：デフォルトの名無しさん mailto:sage [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が整形したとおりに出力される。 910 名前：デフォルトの名無しさん mailto:sage [2012/06/30(土) 01:59:12.62 ] あ、xtermってあれか、Xのターミナルエミュレータか。 じゃあ、ちょっと違うかな。 リダイレクトのバリエーションでTclのチャネルを別プロセスに渡す方法とかあるみたいだから見てみたらいいかもしれない。 www.tcl.tk/man/tcl/tutorial/Tcl26.html 911 名前：デフォルトの名無しさん mailto:sage [2012/07/01(日) 08:06:09.94 ] >>909,910 909を見てて下を試しましたら、出力することができました。 % exec xterm -e "w3m << a $a " ありがとうございました。 912 名前：デフォルトの名無しさん [2012/07/28(土) 08:05:27.41 ] Tcl/Tk 8.5.12 Release Announcement July 27, 2012 913 名前：デフォルトの名無しさん [2012/08/02(木) 19:12:11.95 ] ActiveTcl 8.5.12.0 www.activestate.com/activetcl/downloads 914 名前：本田 mailto:sage [2012/08/02(木) 23:54:45.63 ] 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 915 名前：デフォルトの名無しさん mailto:sage [2012/09/12(水) 07:36:14.95 ] PTさん、8.5.12のtclkit作ってくれないのかなぁ 916 名前：デフォルトの名無しさん mailto:sage [2012/09/27(木) 00:17:38.23 ] pack [frame .f -background ""] -fill both -expand 1 ってやると，色々配置したウィンドウを見た目変えずに一気に無効にできる。 destroy .f で有効化。 だから何っていわれてもアレだけど。 917 名前：デフォルトの名無しさん [2012/10/05(金) 20:50:57.35 ] >>915 こんなんありますけど www.cqi.com.tw/coopermaa/tcl/20041107-01.doc 918 名前：デフォルトの名無しさん mailto:sage [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 919 名前：デフォルトの名無しさん mailto:sage [2012/11/20(火) 00:18:52.14 ] 保守？ 920 名前：デフォルトの名無しさん [2012/11/26(月) 18:33:59.94 ] Latest Release: Tcl/Tk 8.5.13 (Nov 12, 2012) 921 名前：デフォルトの名無しさん mailto:sage [2012/12/08(土) 02:46:12.21 ] 今、html5がやろうとしてることって、もともとtcl/tkがやろうとしてたことだよね 何で政治的に負けちゃったんだろう 922 名前：デフォルトの名無しさん mailto:sega [2012/12/15(土) 17:34:24.88 ] expectもTCLだからここで聞いていいよね expectというかtclで、設定ファイルを読みたい bashのように、設定ファイルと見せかけて実は実行 でもいい ロードかインクルードの方法ってありますか？ 923 名前：デフォルトの名無しさん mailto:sage [2012/12/15(土) 20:09:19.04 ] >>922 sourceじゃダメなのか？ >>920 ActiveTcl来た PTさんのtclkitも来た 924 名前：デフォルトの名無しさん [2012/12/17(月) 13:28:41.57 ] そろそろ8.6がリリースされるんじゃないかと思って 今年4月にPro Studioのサブスクリプションを自腹で1年延長してみたものの、 8.6に対応するときはメジャーアップデートでアップグレード対象外になる可能性に今頃気付いた。 そんなもったいないことしてる人は他にいないと思うが。。。 でもいいの。ActiveTclだけでもリリースし続けてくれてるだけで満足でございます。 925 名前：デフォルトの名無しさん [2012/12/24(月) 22:46:13.42 ] ついにTcl/Tk 8.6が12/20にリリースされました。 926 名前：デフォルトの名無しさん mailto:sage [2012/12/26(水) 21:31:39.97 ] SL4AでTcl動かそうと思ったけど、うまくいかんな。つまらん 927 名前：デフォルトの名無しさん mailto:sage [2013/01/18(金) 03:10:56.99 ] ubuntuが出すタブレットPCでも動くのかな？ 928 名前：デフォルトの名無しさん [2013/01/21(月) 19:38:03.19 ] ActiveTcl 8.6.0.0リリースだよ。 929 名前：デフォルトの名無しさん mailto:sage [2013/02/19(火) 07:16:05.65 ] 特定のwidgetだけ再描画することは出来ないでしょうか？ textに数千行読む時にprogressbarを更新したいけど、その他の再描画は無駄なので止めたいのです。 updateだと全体を再描画になります。 930 名前：デフォルトの名無しさん mailto:sage [2013/02/21(木) 22:20:12.72 ] 特定widgetだけ再描画する方法は分からないけど、 textへの追加を1行ずつしないで、全部を一旦変数に入れて一発でinsertする、じゃダメなの？ 931 名前：デフォルトの名無しさん [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命令 932 名前：デフォルトの名無しさん [2013/02/23(土) 21:44:59.02 ] Tkの部品はconfig命令を使うと色や形の現在値は変更できるが､Tkは高速化の為に画面への反映は遅延表示させているので途中経過を表示せずにいきなり最終結果が表示されたりする｡ プロバー表示では現在値を強制表示させる為にupdate命令を使うのが定石だがこれが禁じ手になると結構難しいか｡ �@930番さんの様にまとめて一発表示 �Aupdate命令間隔をを１０秒置きとか極端に長くする �Bその他の部品はforgetオプション等で退避しておいて後で表示 �C? ところでTkのtext表示は普通はそんなに遅くはないが改行文字なしの長い行を表示させると異様に遅くなるみたい｡ 933 名前：デフォルトの名無しさん mailto:sage [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 934 名前：デフォルトの名無しさん mailto:sage [2013/03/09(土) 03:48:33.45 ] 最初にファイルサイズ取得して、サイズに応じてupdateする行数変更するとか。 5000行のファイルに5行おきにプログレスバーを更新するってのが... 935 名前：デフォルトの名無しさん mailto:sage [2013/03/12(火) 17:51:41.39 ] tcl8.6爆速なんだけど↓からだいぶ状況変わったの？ d.hatena.ne.jp/satosystems/20121228/1356655565 この速さはただの再帰もループになってる？ 5桁とかになると1分以上かかって他に大きく離される これはループにしても変わらないから多倍長ライブラリの性能かな 936 名前：デフォルトの名無しさん mailto:sage [2013/03/12(火) 18:29:56.59 ] すまん関数名同じだからかんちがいした fib 38は固まるわ 937 名前：デフォルトの名無しさん [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] } 938 名前：デフォルトの名無しさん mailto:sage [2013/03/15(金) 22:54:42.21 ] >>937 exprの引数を{ }で囲むだけでだいぶ違うな 939 名前：デフォルトの名無しさん mailto:sage [2013/03/15(金) 23:06:47.65 ] 初心者が初心者に嘘を教えるスレです 940 名前：デフォルトの名無しさん mailto:sage [2013/03/15(金) 23:08:30.06 ] exprの引数を{ }で囲むのは8.6以前からの定石。 2回評価させないようにする。 941 名前：デフォルトの名無しさん [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> １２５４秒!!｡鈍足で正確でした｡なっとく 速度､精度､価格､安直さ､どれも一つの側面でしかなく､それらを総合的に評価して最適ソフトを選択することが肝要だと思う｡ 942 名前：929 mailto:sage [2013/03/24(日) 10:09:02.93 ] ありがとうございます。規制されてて遅くなりました。 progressbarはupdate idletasksで表示が更新されましたが、古いPCのWindowsXPでは5〜6秒程度updateしないと メニュー部分が白くなって、その後はprogressbarも更新されなくなります。(update idletasksではダメ) ということで、数秒おきにupdateしないとprogressbarが更新されません。 見た目を重視しているので無駄はあきらめることにしました。 943 名前：デフォルトの名無しさん [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. 944 名前：デフォルトの名無しさん [2013/04/03(水) 22:36:01.28 ] Tcl/Tk 8.5.14 Release Announcement April 3, 2013 945 名前：デフォルトの名無しさん mailto:sage [2013/04/09(火) 21:46:20.56 ] >>5の予想を裏切り2014年まで持つ勢いだが、 ActiveTcl 8.6.1.0とTclDevKit 6.0の登場が変えてくれることを願う。

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef