●●●●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/ 827 名前：本田 [2011/12/04(日) 21:44:12.75 ] >>825 もし同じPCでテストしてるなら。 BIOSが同じだから結果が同じ可能性がある。 828 名前：デフォルトの名無しさん mailto:sage [2011/12/04(日) 21:57:17.27 ] >>827 俺も試してみたけど>>823みたいになった。 ３台のPCでテストしたんだけど変わらない。 ってことは環境依存だとしても、そういうのって結構多いんじゃない？ 829 名前：本田 [2011/12/04(日) 23:25:19.71 ] キーのリピート速度と遅延時間を設定するには www.atmarkit.co.jp/flinux/rensai/linuxtips/052keyrepert.html 　同じキーを押し続けると、そのキーが連続で入力できる。 連続で入力される速度を「リピート速度」、キーを押してからリピートを開始するまでの時間を「遅延時間」と呼ぶ。 　キーのリピート速度と遅延時間は、kbdrateコマンドで変更できる。 オプションを何も指定しないでkbdrateコマンドを実行すると、リピート速度が10.9cps（1秒当たり10.9文字）に、遅延時間が250ミリ秒（ms）に設定される。 これが、Linuxのデフォルトの数値だ。 　使用可能なオプションは、-s、-r、-dだ。 830 名前：本田 [2011/12/04(日) 23:52:04.88 ] キー・リピート （key repeat） www.atmarkit.co.jp/icd/root/32/5785932.html 　キーを押したままにしたときに、連続的にそのキーが繰り返し入力されたように扱うしくみ。 一般的には、キーが押し下げられてから、キー・リピート処理が開始されるまでの間隔と、 リピート間隔（連続的にキー入力を発生させる際の時間間隔）を設定できる。 831 名前：デフォルトの名無しさん mailto:sage [2011/12/05(月) 23:44:17.05 ] >>814>>815のものですが、>>810を見て、てっきりWindowsの話と思ってました。 これが答えになるんじゃないでしょうか。 X Window SystemではオートリピートでPress/Releaseが交互に発生するらしいです。 goo.gl/q3zCD Windowsでなるという人いないはずだよね？ 832 名前：デフォルトの名無しさん mailto:sage [2011/12/05(月) 23:57:02.19 ] あと、確認の仕方は以下で十分です。 bind . <KeyPress> {puts KeyPress} bind . <KeyRelease> {puts KeyRelease} console show 833 名前：デフォルトの名無しさん [2011/12/06(火) 10:23:09.00 ] WindowsのオートリピートってX Windowと挙動が違うの？ オートリピートなんてみんな同じだと思ってた 834 名前：デフォルトの名無しさん mailto:sage [2011/12/06(火) 21:17:09.62 ] X Windowって言うな 835 名前：デフォルトの名無しさん mailto:sage [2011/12/06(火) 21:57:13.95 ] >>834 いみふ 836 名前：デフォルトの名無しさん mailto:sage [2011/12/06(火) 22:04:04.24 ] X Windowsというと嫌がる人ってのは見たことあるけどな X Windowだったら単純にSystemを省略しただけだから何が悪いのかわけわからん 837 名前：デフォルトの名無しさん mailto:sage [2011/12/07(水) 00:27:18.67 ] >>835, >>836 同感。 838 名前：デフォルトの名無しさん mailto:sage [2011/12/07(水) 07:30:17.47 ] ま、開発元は嫌がってるけどね。 839 名前：デフォルトの名無しさん mailto:sage [2011/12/07(水) 15:53:36.77 ] 略すなら X のみだろ常考 840 名前：デフォルトの名無しさん mailto:sage [2011/12/07(水) 17:55:46.65 ] X Windowsでいいよ 呼び方なんぞどうでもいい 841 名前：デフォルトの名無しさん [2011/12/07(水) 19:52:34.30 ] tclvfsってどんなもので、どう使えばいいんでしょうか？ 意外と情報が少ないし、たまたま見つけたサンプルコードのほとんどがまともに動かないんですけど。 842 名前：デフォルトの名無しさん [2011/12/07(水) 20:00:14.15 ] SX-Windowでいい。 国産だし。 843 名前：デフォルトの名無しさん mailto:sage [2011/12/07(水) 20:06:01.06 ] zipとかjarみたいなもんだと勝手に想像 freewrapみたいなものを自前で実装とか 844 名前：デフォルトの名無しさん mailto:sage [2011/12/08(木) 11:07:43.09 ] >>841 Starkit/Starpack, TclApp, freewrapはtclvfsを使って単一ファイル内にディレクトリ階層を持った複数のファイルを格納してる。 例えばTkSQLiteというフリーソフトがあるけど、あのEXE配布バージョンはStarpackで作られてるので（たぶん）、 package require vfs::mk4 vfs::mk4::Mount tksqlite.exe t glob -directory t * vfs::unmount t とかやると中身が見れる。 ここでtは仮想的なディレクトリの名前になってるので、 set ch [open t/tksqlite.tcl] puts [read $ch] close $ch とかやればファイルが読めるし、 file copy hoge.tcl t/hoge.tcl とかやればファイルを追加できる。 自分でVFSを作ることもできる。 vfs::mk4::Mount new.vfs t file mkdir t/subdir set ch [open t/subdir/hoge.txt w] close $ch vfs::unmount t 他にもftpディレクトリをローカルファイルシステムのように扱うvfs::ftpとかいろいろあるみたいだけど使ったことはない。 845 名前：本田 [2011/12/08(木) 23:16:45.72 ] >>841 Practical Programming in Tcl and Tk, 4th ed beedub.com/book/4th/ beedub.com/book/4th/Starkit.pdf beedub.com/book/4th/welch_examples.zip 846 名前：デフォルトの名無しさん [2011/12/10(土) 07:15:51.33 ] tclで'A'という文字からアスキーコード65を得るには、どうやればいいでしょうか？ 847 名前：デフォルトの名無しさん mailto:sage [2011/12/10(土) 12:04:09.29 ] >>846 binary scan "A" c val puts $val 848 名前：デフォルトの名無しさん [2011/12/10(土) 13:17:19.43 ] >>847 ありがとうございます 849 名前：本田 [2011/12/17(土) 12:06:21.27 ] Graphics with TCL/TK www.youtube.com/watch?v=hHFOFefE1YM 850 名前：デフォルトの名無しさん [2011/12/24(土) 12:21:45.17 ] toplevelで作ったウィンドウを手で動かしてから、 wm withdrawで非表示にし、wm deiconifyで再表示させると、 最初に作られた位置に出現します。 （厳密に言うとそれよりちょっと右下） Tkの仕様なのかウィンドウマネージャの仕様なのか、 消えた時の位置に再表示されるのが自然だと思うんですが。 それともやり方が間違ってるんだろうか？ 環境： Tk 8.4 Soralis 10 CDE 1.6.3 851 名前：デフォルトの名無しさん mailto:sage [2012/01/03(火) 19:11:53.53 ] >>5 さすがだねｗ 852 名前：デフォルトの名無しさん mailto:sage [2012/01/22(日) 19:54:12.53 ] 書けない？ 853 名前：デフォルトの名無しさん mailto:sage [2012/01/22(日) 19:54:41.21 ] あれ、書けた。あけおめ。 854 名前：デフォルトの名無しさん mailto:sage [2012/02/01(水) 22:24:24.34 BE:30017423-2BP(1250)] ネタがなにも無くて暇だ 855 名前：デフォルトの名無しさん mailto:sage [2012/02/01(水) 23:51:44.54 ] 850には答えてやんないの？ 856 名前：デフォルトの名無しさん mailto:sage [2012/02/02(木) 00:46:23.97 ] >>855 だってTk8.4もう使ってないし、CDEも使ったこと無いし、 Sorarisの環境も無いし、ウィンドウマネージャーのせいな気がするから、 環境が無いと確認のしようがないし、 857 名前：デフォルトの名無しさん mailto:sage [2012/02/04(土) 13:14:29.62 ] 850です。 ですよねぇ〜。 仕事のマシンで環境いじれないし、 Tcl/Tkなんて（自分以外）ほとんど使ってないからなぁー。 858 名前：デフォルトの名無しさん mailto:sage [2012/02/13(月) 21:11:55.61 ] Tclは実行前にバイトコードにコンパイルされ､高速化が図られていると、説明されています。 することにもよると思いますが、bash,perl,ruby,pythonと比べると速さはどうなんでしょう？ プログラムミング未経験者の、素朴な疑問です。 859 名前：デフォルトの名無しさん mailto:sage [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 } } 860 名前：デフォルトの名無しさん mailto:sage [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 861 名前：デフォルトの名無しさん mailto:sage [2012/02/22(水) 15:59:53.47 ] >>858 Tclは最近のベンチマークサイトからは仲間外れにされてることが多いのでなかなか比較が見つからないけど、 比較的新しいサイトを見つけました。 goo.gl/6vXhj ちょっと信じがたい感じもしますが、ここによると Perl5 >> PHP > Ruby = Python2 >> Python3 >> Tcl みたいな感じですね。Tcl 8.4.19ですけど、8.5では劇的な速度向上はなかったと思うので、 大して変わらんのに対し、Rubyは1.9でかなり速くなったらしいので、 最新版で比べるとさらに分が悪い感じがします。 bashは、、、汎用言語といえるのかなあ。 862 名前：デフォルトの名無しさん mailto:sage [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とすることです。 863 名前：862 mailto:sage [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の復権を願って、これで書き逃げさせていただきます。 864 名前：デフォルトの名無しさん mailto:sage [2012/02/24(金) 00:13:15.78 ] >>859 さんくすです。 おっしゃるとおり結局は，消す前に位置を保存して， 再表示した後で位置をもどすということで解決はしましたが， なんかすっきりしなかったんですよね。 865 名前：デフォルトの名無しさん mailto:sage [2012/02/24(金) 19:38:26.78 ] >>862 ベンチマークの内容は"abcd____________"という文字列がひたすらつながった4MB+alphaの文字列が1つの変数に格納されるというものです。 なんかベンチマーク用にあえて死ぬほど非効率な方法で実装されていますが、同じ結果を得たいだけなら100ms以下でできる方法があるので もうちょっと妥当なスクリプトだったらと思います。まあ、それでも負けてるのでしょうが。。。 862さんが作ろうとしているものはKAKASIという漢字->ローマ字変換プログラムを使って、いったんすべてASCIIにしてから処理するのがいいと思います。 goo.gl/EJYi その上で、bashよりもTclを使うメリットは、連想配列があることです。 ただ、連想配列を持つ言語はほかにいくらでもあるので、PerlでもRubyでも好きな言語を使えばいいと思います。 またbashではできないということでもないです。 bashやzshが気に入られてるのは補完機能などが充実してるからではないですかね。 866 名前：デフォルトの名無しさん mailto:sage [2012/02/24(金) 20:51:13.77 ] スクローラブルなウィンドウ(キャンバスウィンドウとか)内のアイテムを<B1-Motion>でドラッグ するときに、ウィンドウの端あたりまでドラッグしていくとその先の方向へスクロールしてくれる ようなのを実装したいんですが、参考になるコードスニペットないでしょうか？ 867 名前：デフォルトの名無しさん mailto:sage [2012/02/25(土) 00:04:22.73 ] >>865さん 全米が泣いた。 リナックスの世界へ案内しよう kakasi -Ha -Ja -Ka < test.txt rinakkusunosekaiheannaishiyou いろいろ試したのですが、案内のnが一つ少ないほかは完璧でした。 デフォルトがヘボン式なので、意図どおりです。感謝申し上げます。 打鍵数調べに速さは関係ありませんが、tclは8.4から最新バージョンだと、 20%くらい速くなっていそうですね。 news.mynavi.jp/news/2007/12/21/027/index.html 868 名前：デフォルトの名無しさん mailto:sage [2012/02/28(火) 15:49:05.74 ] >>867 パフォーマンスに関しては、一概には言えないんですよね。 wiki.tcl.tk/1611 wiki.tcl.tk/1616 総合成績では8.4が一番優秀だったりします。 私も速度は必要なくて、乗り換えの動機はライブラリが 8.4をサポートしなくなり始めてるということぐらいなんですが。 869 名前：デフォルトの名無しさん mailto:sage [2012/02/28(火) 21:11:00.69 ] lassign命だから8.4は愛せない 870 名前：デフォルトの名無しさん mailto:sage [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の方がいいんじゃ・・・ - 871 名前：デフォルトの名無しさん [2012/02/29(水) 16:09:13.53 ] >>861 試験したTCLのソースをみると単純な文字列置換に"regsub"函数を使っている ､ここを定石とおりに"string match"函数に置き換えると何百倍も速くなった｡ （我輩の旧式機械で源リストを実行するとトンでもないことになるが､置き換えるとまともになる｡) tclは8版から劇的に速くなったが､正規表現まわりは遅いまま｡ その事情を知って意図的に弱点を突いてきたようだ｡ 872 名前：861 mailto:sage [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分以上かける方法でやるなんて ばかばかしいよね。 873 名前：871 [2012/02/29(水) 23:28:59.71 ] tcl関係者はtcl 7.4->tcl8.1 で｢劇速した｣と云ったが ユーザーは｢yes except正規表現｣と云っていた｡ マニュアルも気合が入っていない項目と馬鹿丁寧な項目が入り混じっているし｡ 良くも悪くも､ちぐはぐが多いみたいだ｡好き嫌いは激しかろう｡ 874 名前：本田 [2012/03/04(日) 23:41:21.56 ] downloads.activestate.com/ActiveTcl/releases/8.4.19.6/ downloads.activestate.com/ActiveTcl/releases/8.4.19.6/ActiveTcl8.4.19.6.295590-html.tar.gz downloads.activestate.com/ActiveTcl/releases/8.4.19.6/ActiveTcl8.4.19.6.295590-linux-ix86.tar.gz downloads.activestate.com/ActiveTcl/releases/8.4.19.6/ActiveTcl8.4.19.6.295590-linux-x86_64.tar.gz downloads.activestate.com/ActiveTcl/releases/8.4.19.6/ActiveTcl8.4.19.6.295590-macosx-universal-threaded.dmg downloads.activestate.com/ActiveTcl/releases/8.4.19.6/ActiveTcl8.4.19.6.295590-win32-ix86-threaded.exe downloads.activestate.com/ActiveTcl/releases/8.4.19.6/ActiveTcl8.4.19.6.295590-win32-x86_64-threaded.exe downloads.activestate.com/ActiveTcl/releases/8.4.19.6/MD5SUM downloads.activestate.com/ActiveTcl/releases/8.4.19.6/SHA256SUM 875 名前：本田 [2012/03/04(日) 23:44:36.35 ] downloads.activestate.com/ActiveTcl/releases/8.5.11.1/ downloads.activestate.com/ActiveTcl/releases/8.5.11.1/ActiveTcl8.5.11.1.295590-html.tar.gz downloads.activestate.com/ActiveTcl/releases/8.5.11.1/ActiveTcl8.5.11.1.295590-linux-ix86-threaded.tar.gz downloads.activestate.com/ActiveTcl/releases/8.5.11.1/ActiveTcl8.5.11.1.295590-linux-x86_64-threaded.tar.gz downloads.activestate.com/ActiveTcl/releases/8.5.11.1/ActiveTcl8.5.11.1.295590-macosx10.5-i386-x86_64-threaded.dmg downloads.activestate.com/ActiveTcl/releases/8.5.11.1/ActiveTcl8.5.11.1.295590-win32-ix86-threaded.exe downloads.activestate.com/ActiveTcl/releases/8.5.11.1/ActiveTcl8.5.11.1.295590-win32-x86_64-threaded.exe downloads.activestate.com/ActiveTcl/releases/8.5.11.1/MD5SUM downloads.activestate.com/ActiveTcl/releases/8.5.11.1/SHA256SUM 876 名前：本田 [2012/03/04(日) 23:47:21.25 ] downloads.activestate.com/ActiveTcl/releases/8.6.0.0b7/ downloads.activestate.com/ActiveTcl/releases/8.6.0.0b7/ActiveTcl8.6.0.0b7.295590-html.tar.gz downloads.activestate.com/ActiveTcl/releases/8.6.0.0b7/ActiveTcl8.6.0.0b7.295590-linux-ix86-threaded.tar.gz downloads.activestate.com/ActiveTcl/releases/8.6.0.0b7/ActiveTcl8.6.0.0b7.295590-linux-x86_64-threaded.tar.gz downloads.activestate.com/ActiveTcl/releases/8.6.0.0b7/ActiveTcl8.6.0.0b7.295590-macosx10.5-i386-x86_64-threaded.dmg downloads.activestate.com/ActiveTcl/releases/8.6.0.0b7/ActiveTcl8.6.0.0b7.295590-win32-ix86-threaded.exe downloads.activestate.com/ActiveTcl/releases/8.6.0.0b7/ActiveTcl8.6.0.0b7.295590-win32-x86_64-threaded.exe downloads.activestate.com/ActiveTcl/releases/8.6.0.0b7/MD5SUM downloads.activestate.com/ActiveTcl/releases/8.6.0.0b7/SHA256SUM 877 名前：デフォルトの名無しさん mailto:sage [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 } # 呼ばれた回数に依存する処理 } 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