[表示 : 全て 最新50 1-99 101- 201- 301- 401- 501- 601- 701- 801- 901- 2chのread.cgiへ]
Update time : 04/14 01:40 / Filesize : 274 KB / Number-of Response : 946
[このスレッドの書き込みを削除する]
[+板 最近立ったスレ&熱いスレ一覧 : +板 最近立ったスレ/記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

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

592 名前:デフォルトの名無しさん mailto:sage [2010/03/11(木) 21:16:58 ]
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残している人。ください。

593 名前:デフォルトの名無しさん mailto:sage [2010/03/13(土) 16:38:51 ]
ほしゆ

594 名前:デフォルトの名無しさん mailto:sage [2010/03/17(水) 02:28:47 ]
C++/Tcl 凄いな。

595 名前:デフォルトの名無しさん mailto:sage [2010/03/17(水) 23:05:28 ]
>>594
ksk

596 名前:本田 [2010/03/17(水) 23:34:20 ]
>>592
ActiveTcl8.5.8.0.291595-win32-ix86-threaded.exe

597 名前:592 mailto:sage [2010/03/18(木) 21:26:34 ]
>>596
ActiveState ポリシー変えたらしくて、Community Edition(Free)は最新バージョンしか
入手できなくなってます。
しばらくはtclkitでしのぎます。


598 名前:本田 [2010/03/18(木) 22:48:35 ]
>>597
ActiveTcl8.5.8.0.291595-win32-ix86-threaded.exe でgoogleれ。

599 名前:デフォルトの名無しさん mailto:sage [2010/03/18(木) 22:54:45 ]
本田氏の本気を見た(いりこだし的な意味で)

600 名前:592 mailto:sage [2010/03/18(木) 23:39:47 ]
>>598
それらしいURLを3つくらい見てダメだったので諦めていましたが、15番目で見つかりました。
どうもありがとう。




601 名前:デフォルトの名無しさん [2010/04/27(火) 22:17:26 ]
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();
-----

602 名前:デフォルトの名無しさん mailto:sage [2010/04/27(火) 23:35:32 ]
perl tkは知らんけどtcl/tkで定期的に処理を実行する時はafterコマンドを使う
リファレンスマニュアルとか調べてみ

603 名前:デフォルトの名無しさん [2010/04/28(水) 06:29:41 ]
どううまくいかないのかを書きなさい。

604 名前:デフォルトの名無しさん [2010/04/29(木) 06:13:30 ]
>>602
ありがとうございます。ちょっと調べてみます。

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

605 名前:デフォルトの名無しさん mailto:sage [2010/04/29(木) 15:45:57 ]
>>601
描画はevent loop(MainLoop)で実行されると思うので、MainLoopの前でsleepしたら
描画出来ないと思う。
ループを切り出して、適当なeventを契機に呼ばれるようにすれば良いと思う。
どうしても今のループにしたければ、updateすると動くかもしれない。


606 名前:デフォルトの名無しさん [2010/04/29(木) 21:57:57 ]
>>605
updateでできました!
ありがとうございました_( . _ . )_

607 名前:デフォルトの名無しさん [2010/04/29(木) 23:30:28 ]
テクルトックで読み方あってる_

608 名前:デフォルトの名無しさん [2010/04/29(木) 23:36:58 ]
何度もすいません。

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

609 名前:デフォルトの名無しさん mailto:sage [2010/05/02(日) 22:40:15 ]
>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();

610 名前:本田 [2010/05/02(日) 23:45:07 ]
>>608
Tk Documentation Table of Contents
www-users.cs.umn.edu/~amundson/perl/perltk/toc.html
fileevent Execute a callback when a file becomes readable or writable
www-users.cs.umn.edu/~amundson/perl/perltk/fileevent.htm
after Execute a command after a time delay
www-users.cs.umn.edu/~amundson/perl/perltk/after.htm
tkwait Wait for variable to change or window to be destroyed
www-users.cs.umn.edu/~amundson/perl/perltk/tkwait.htm
IO high level interface to Tk's 'fileevent' mechanism
www-users.cs.umn.edu/~amundson/perl/perltk/Tk%3A%3AIO.htm
TK/AFTER support class for Tk::Widget::after
www-users.cs.umn.edu/~amundson/perl/perltk/Tk%3A%3AAfter.htm



611 名前:デフォルトの名無しさん mailto:sage [2010/05/05(水) 01:36:11 ]
>>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に脳内変換して

612 名前:592 mailto:sage [2010/05/21(金) 21:14:28 ]
ActiveTcl 8.5.8.2が出ていたので試してみましたが、8.5.8.1同様IMEが動くとwishが
落ちます。
一応、連絡しておきます。


613 名前:デフォルトの名無しさん [2010/06/02(水) 19:48:15 ]
Tcl/Tk超初心者なんですが教えて欲しいことがあります。
tcomを使ってInternetExploerでホームページを表示させて
そのホームページのソースを取得してソースを表示させたいのですが
ホームページの表示までは上手くいったんですがソースの取得ができません。
わかる方いらっしゃったらぜひ教えてください、お願いします。

途中までのソースなんですが

package require tcom

set ie [::tcom::ref createobject "InternetExplorer.Application"]
$ie Visible 1
$ie Navigate "www.yahoo.co.jp/index.html"

ここまではできたんですがこのあとyahooのホームページのソースの取得方法
がわかりません、わかる方いらっしゃったらぜひお願いします。









614 名前:デフォルトの名無しさん [2010/06/02(水) 22:19:30 ]
ソースは普通にHTTPでとってくればいいんじゃないの?

615 名前:デフォルトの名無しさん mailto:sage [2010/06/03(木) 09:36:16 ]
>>614
返答ありがとうございます、初心者なのでHTTPでの取り方すらわからないのです。
もともとTcl/Tkでどうやってホームページの表示をさせるかがわからなくて
いろいろ調べた挙句tcomにいきついた次第です。できればtcomでできたらいいなー
というのが自分の希望なんですが、調べてみたんですがいまいちわからなくて
ここに行き着いたということです。

616 名前:デフォルトの名無しさん mailto:sage [2010/06/03(木) 09:39:40 ]
>>615
ほい。ぐぐれ。
tmml.sourceforge.net/doc/tcl/http.html

617 名前:デフォルトの名無しさん mailto:sage [2010/06/03(木) 13:05:59 ]
>>616
ありがとうございます、やってみます

618 名前:本田 [2010/06/05(土) 05:37:34 ]
>>615
URI utilities
tcllib.sourceforge.net/doc/uri.html

619 名前:本田 [2010/06/05(土) 06:11:07 ]
>>618
package require uri

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

620 名前:本田 [2010/06/05(土) 14:29:34 ]
>>613
optcl
wiki.tcl.tk/1822
www.patthoyts.tk/programming/optcl3010.zip
www.patthoyts.tk/programming/optcl-src.zip

WippleWobble - A Mini Web Browser (for Windows)
wiki.tcl.tk/4105



621 名前:デフォルトの名無しさん [2010/06/30(水) 07:31:52 ]
初心者でpython2.6(tkinter)とtcl/tk 8.5を弄ってます。
widgetに入れず、Canvasのcreate_textに設定するwidthの様にheightを擬似的にでもどうにかして作りたいのですが何か良い方法は無いでしょうか。
ご教示お願い致します。

622 名前:デフォルトの名無しさん mailto:sage [2010/07/02(金) 01:54:21 ]
>>621
heightを作るっていう意味がわからない

623 名前:デフォルトの名無しさん [2010/07/02(金) 08:08:21 ]
pixel指定でその範囲に入らない状態の時は語尾に"..."を追加する物を作りたいです。
適当なtextの量自体を指定するしかないのでしょうか。

文字によってpixel幅が違うので結局label等(幅を取得したら捨てる。)
に入れ込むtextを一文字ずつlabelに入れて、そのlabel幅を取得し、
その幅から指定したpixel分のtextをcreate_textに入れ込めば出来そうですが・・
余りに遠回りで・・。

もう少し簡潔に文字数を制限したいのですが
tkがどう動作しているのか未だ良く分かっていません。

624 名前:本田 [2010/07/02(金) 22:52:59 ]
>>623
プロポーショナルフォントを使わずに、
等幅のフォントを使えば、
計算が簡単になりそうです。


625 名前:デフォルトの名無しさん [2010/07/03(土) 03:57:59 ]
621,623です。
>>624
有り難うございます。
プロポーショナルフォントというんですね・・初めて知りました。
因みに自分足らない頭で623の内容をpythonのIDLEで書いてみたら
異様に重い上に、良く分からないエラーが出ました・・とほほ
後程、等幅フォントで再度書いてみます。

fontの高さには全角、半角も無いので
どこで改行されてるかさえ、得られれば
簡潔になるのでは、と
今の所textに直接pixel指定で改行を追加するモジュールを探しています。(どれもカラムっぽいですが・・)
font metricsも面白そうなのでついでに調べてます。

626 名前:デフォルトの名無しさん mailto:sage [2010/07/03(土) 10:56:10 ]
>>623
font measureで文字列のpixel幅を得られる
のは?


627 名前:デフォルトの名無しさん [2010/07/03(土) 11:49:40 ]
621,623,625です。
>>626
有り難うございます。
font measureで出来そうです。

628 名前:本田 [2010/07/03(土) 17:32:43 ]
>>627
老婆心ながら、
一つのスクリーン上に一つのカンバスを使って複雑なウイジェットを作る以外に、
まず一つのスクリーンを複数のフレームに分割して、
一つ一つのフレーム上にメニュー、テキストやカンバスを配置する方法もあります。


629 名前:デフォルトの名無しさん [2010/07/03(土) 20:28:35 ]
621,623,625,627です。
>>628
有り難うございます。
カンバス自体は一応フレームに入っています。
・・がデザイン的にcanvasの内容をフレーム分けは難しいです。
まずgridで作成した所、重くて次にplace、そしてcanvas上にしています。
canvas上で作ると重いかと思っていたのですが、canvasで作ると割と軽快だったので
(textを入れる以前の話ですけれど)
canvasのままで来ているのと、canvasの自由度の高さが何より気に入っています。
canvasに変更する際からtextのこの問題がずっとネックだったので
解決出来そうで何よりです。
widgetに入れたくなかった理由としては、
折角canvasなので背景に画像を張り込める様にもしたかったからです。
マウスバインドもウイジェットに邪魔されず一つで掛けられますし。
キーバインドも勿論入れます。
どうしようも無くなった場合はplaceに戻ろうかと思っています。

630 名前:デフォルトの名無しさん mailto:sage [2010/07/19(月) 14:33:01 ]
xspin.tclというソフトを使用し始めたのですが、.pmlの拡張子をフリーのパッドソフトに関連付けたら、
xspin.tclを起動しようとしたら「このファイルの種類を開くプログラムを選択してください」とでるようになってしまいました。
どのプログラムを選択すればいいか分からないし、戻し方も分からないので助けてください。



631 名前:630 mailto:sage [2010/07/19(月) 14:48:22 ]
自己解決しました

632 名前:デフォルトの名無しさん mailto:age [2010/08/04(水) 12:21:06 ]
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]
}



633 名前:デフォルトの名無しさん mailto:sage [2010/08/12(木) 11:58:36 ]
>>632
サーバ(Win/Linuxじゃないよ)用に自分でコンパイルした8.5.8でも同じ結果になった。
ソースを簡単に眺めたところ、内部32bit型→64bit型に拡張する処理は見つかったけど
なぜ情報落ちするのかは判らなかった。
バグ報告するのが良いと思う。
ひょっとして、64bit環境(OS)だと問題無いのかもしれない。(うちは全部32bit環境)

634 名前:デフォルトの名無しさん mailto:sage [2010/08/12(木) 19:23:06 ]
>>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)).

www.tcl.tk/man/tcl8.5/TclCmd/format.htm#M15
マニュアル嫁。

635 名前:633 mailto:sage [2010/08/14(土) 00:43:23 ]
>>634
う。そっちか。
まったく思いもしませんでした。笑ってやってください。


636 名前:本田 [2010/10/02(土) 02:16:11 ]
[Activetcl] ActiveTcl 8.5.9.0 released
code.activestate.com/lists/activetcl/4478/

637 名前:デフォルトの名無しさん mailto:sage [2010/10/11(月) 19:15:11 ]
IMEとの衝突は修正された?

638 名前:592 mailto:sage [2010/10/12(火) 07:22:49 ]
>> 637
直ったようです。
text widgetで漢字を入力しても落ちなくなりました。


639 名前:デフォルトの名無しさん mailto:sage [2010/10/12(火) 19:36:18 ]
>>638
それは、ActiveTclのどのバージョンから?

640 名前:592 mailto:sage [2010/10/14(木) 00:15:17 ]
直ったのは ActiveTcl 8.5.9.0




641 名前:デフォルトの名無しさん mailto:sage [2010/10/15(金) 13:32:10 ]
Tkのテキストボックスの文字列が変化したとき、それを知らせるコールバックはどれですか?

642 名前:デフォルトの名無しさん mailto:sage [2010/10/16(土) 14:52:07 ]
>>641
package require Tk
pack [text .text]
bind .text <Key> {puts "Pressed %K"}

www.tcl.tk/man/tcl/TkCmd/bind.htm
マニュアル嫁

643 名前:Perl忍者 ◆M5ZWRnXOj6 [2010/10/21(木) 23:40:37 ]
Perl/Tkやってるやつでてこいこら

644 名前:Perl忍者 ◆M5ZWRnXOj6 [2010/10/21(木) 23:50:25 ]
おめえハッカーだろ 本田

645 名前:Perl忍者 ◆M5ZWRnXOj6 [2010/10/30(土) 18:13:15 ]
Perl/TKでEntryフォームに文字を入力しようとすると
入力できません

なんか前にそれで設定をして うてるようにしたんですが

scimなんとか 入力はできるんですが 日本語入力ができません

どうすればいいですか教えてください

646 名前:デフォルトの名無しさん mailto:sage [2010/10/30(土) 18:17:43 ]
>scimなんとか 入力はできるんですが 日本語入力ができません
この文章どうやって打ってるんだよw


647 名前:Perl忍者 ◆M5ZWRnXOj6 [2010/10/30(土) 18:35:08 ]
だからscimは、はいってんの

Perl/Tkでの入力のときできない

XMODIFIERS="@im=none"とやってもできない

なんで 教えて

648 名前:Perl忍者 ◆M5ZWRnXOj6 [2010/10/30(土) 18:36:20 ]
XMODIFIERS="@im=none"
とやったら入力できるようになるけど

日本語入力ができない


重要:「日本語入力ができない」

教えて

649 名前:デフォルトの名無しさん mailto:sage [2010/10/30(土) 18:55:11 ]
ウヒョー

650 名前:デフォルトの名無しさん mailto:sage [2010/11/06(土) 21:07:46 ]
Perl/Tkなんてまだ使ってるやついんだな・・・。アホかと・・・



651 名前:デフォルトの名無しさん mailto:sage [2010/11/08(月) 00:35:04 ]
canvasにpolygonやlineで書いた絵を画像ファイルでセーブする方法はありますか?

652 名前:デフォルトの名無しさん [2010/11/08(月) 00:45:32 ]
標準Tkでも昔からPostscriptでセーブできる。拡張もいろいろ

653 名前:デフォルトの名無しさん mailto:sage [2010/11/08(月) 10:11:47 ]
Postscript以外は、できないでしょうか?

654 名前:本田 [2010/11/08(月) 21:51:18 ]
>>653
> Postscript以外は、できないでしょうか?

GhostscriptでPostscriptをPDFやPNGに変換できるよ。

655 名前:デフォルトの名無しさん mailto:sage [2010/11/09(火) 00:35:08 ]
1 imgで画面上に表示してる部分はビットマップに変換できる。
2 tkpathっていうcanvasと互換性のある拡張がある。


656 名前:Perl忍者 ◆V8M/4amdko [2010/11/10(水) 18:58:25 ]
こたえられねえのかよつかええねえなかす

657 名前:デフォルトの名無しさん mailto:sage [2010/11/11(木) 21:34:13 ]
653の質問をしたものですが、例えばコマンドラインで
アクティブウインドウのスクリーンショットを取る外部アプリを起動すればできますか?
できればbmp,jpg,gif等に変換したいので。

658 名前:デフォルトの名無しさん mailto:sage [2010/11/12(金) 09:48:34 ]
Print Screen キーを押してからペイントで・・・ってのがお手軽かと。
*.psからフィルタで変換の方がスマートだけど。

659 名前:デフォルトの名無しさん mailto:sage [2010/11/12(金) 13:28:10 ]
実用的には、そうですがPostScriptは、使う人もPostScriptの環境が必要なので。
PSからの変換もいろんなソフトを使いましたが、思った様に上手くいきません。
逆に変換フィルタで良いのがあれば、教えてください。

660 名前:デフォルトの名無しさん mailto:sage [2010/11/12(金) 13:34:56 ]
>>659
canvasの内容をSVG化して書き出す方法が紹介されてる。
wiki.tcl.tk/4534

他にはImageMagickを操作して直接画像を作るかだなぁ。



661 名前:デフォルトの名無しさん mailto:sage [2010/11/12(金) 21:31:10 ]
>>660
これは、凄い。
itemgetで情報をもってきて、imageで再描画してるみたいだ。

でも、このやり方だとXBM情報とかは再生できませんね。


662 名前:デフォルトの名無しさん mailto:sage [2010/11/14(日) 20:28:32 ]
tkにはワークシートとかスプレッドシートのようなものはあるんですか?

663 名前:デフォルトの名無しさん [2010/11/14(日) 20:53:56 ]
あるよ。

664 名前:本田 [2010/11/16(火) 06:10:49 ]
Spreadsheets in Tcl-Tk
wiki.tcl.tk/20386

665 名前:本田 [2010/11/18(木) 08:32:31 ]
TCLによるXMLおよびWeb Servicesのプログラミング、第1回: 入門編
www.ibm.com/developerworks/jp/webservices/library/ws-xtcl/

666 名前:本田 [2010/11/25(木) 06:14:36 ]
Instancier des objets COM avec Tcom
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]]

667 名前:デフォルトの名無しさん mailto:sage [2010/11/25(木) 21:53:26 ]
>>663
>>664
お答えくださいってどうもありがとうございました。
たいへん参考になりました。

668 名前:デフォルトの名無しさん mailto:sage [2010/11/26(金) 21:06:15 ]
コチョコチョ

669 名前:本田 [2010/11/28(日) 11:24:10 ]
[Tcl-announce] ActiveTcl 8.6.0.0 Beta 4 released
code.activestate.com/lists/tcl-announce/343/

670 名前:本田 [2010/11/28(日) 15:00:49 ]
John Ousterhout
Professor (Research)
Department of Computer Science
www.stanford.edu/~ouster/cgi-bin/home.php



671 名前:一応ティクラー [2010/12/03(金) 17:00:29 ]
651>>
canvasにpolygonやlineで書いた絵を画像ファイルでセーブする方法はありますか?
回答:
image create photo image123 -format window -data .any.win
image123 write C:/windows/work/your.jpg
モニタはみ出してるやつには別の対処方法ある。
Windows7 だと「遅い」ときがある。



672 名前:デフォルトの名無しさん mailto:sage [2010/12/05(日) 01:02:12 ]
>>671
モニタはみ出たらどうやんの?
このやりかただと他のウィンドウが重なっててもうまくいかないんだよな。


673 名前:本田 [2010/12/06(月) 23:51:47 ]
PLplot
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
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.

674 名前:本田 [2010/12/06(月) 23:53:03 ]
Cpptcl
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).

675 名前:デフォルトの名無しさん mailto:sage [2010/12/07(火) 21:17:06 ]
>>671
ありがとうございます。

676 名前:デフォルトの名無しさん mailto:sage [2010/12/07(火) 21:18:20 ]
ところで、Tcl8.5.9でファイルのバイナリセーブの際に
fconfigureで -translation binaryとしてもファイルの最後に0x0aが出るんだけど。
これは、バグ?それとも回避方法がありますか?

677 名前:デフォルトの名無しさん mailto:sage [2010/12/12(日) 17:07:13 ]
>>676
それ以外のバージョンでは出ないってこと?

678 名前:本田 [2010/12/12(日) 23:29:57 ]
[TCLCORE] ActiveTcl 8.5.9.1 released
code.activestate.com/lists/tcl-core/9815/

679 名前:デフォルトの名無しさん mailto:sage [2010/12/15(水) 21:18:44 ]
英語もロクに読めないへたれなのですが、
Tkの日本語リファレンスってどこかにないでしょうか?
8.3対応っぽいのはぐぐったら見つかりましたが、
今使っている8.4とは微妙に違っている気がします。


680 名前:デフォルトの名無しさん mailto:sage [2010/12/16(木) 11:49:49 ]
>>676
puts -nonewline




681 名前:デフォルトの名無しさん [2010/12/16(木) 22:11:23 ]
>679
www.ne.jp/asahi/kazuo/sasagawa/tcltk-man-jp-13.zip


682 名前:デフォルトの名無しさん mailto:sage [2010/12/18(土) 19:28:30 ]
>>680
ありがとうございます。

683 名前:デフォルトの名無しさん mailto:sage [2010/12/18(土) 23:59:05 ]
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 を使えるようにできないものでしょうか?
何か手はないですかね…?

684 名前:683 mailto:sage [2010/12/19(日) 04:13:51 ]
5.10.1を入れてみたけどダメだった。昔使えてたと思ったのは勘違いだったみたい
もしくは極めて特定のバージョンだけがIwidgetsを含んでいたか
Strawberry Perl を入れてみたけど cpan Tcl でエラーが出て Tkx まで入らない
なんかダメっぽい…

まあ元々、Tcl/Tkの成果物を横から掠め取ろうとしてるようなものですし
基本的なところが動くだけでも凄いのかもしれないですね…>hoge/Tk
Tkの真の力を発揮したかったらTcl/Tk使え、ということか…

685 名前:683 mailto:sage [2010/12/19(日) 09:08:50 ]
連続カキコして申し訳ない
解決しましたので一応報告を
環境変数 PERL_TCL_DL_PATH で tcl85.dll を指定すれば行けるみたいです。スレ汚しスマソ

686 名前:デフォルトの名無しさん mailto:sage [2010/12/20(月) 05:26:01 ]
Tcl/Tkのスクリプトをexe化したいのですが
sdx.batってどこにあるんでしょう? というかどれが最新版なんでしょう?

code.google.com/p/tclkit/downloads/list
tclkitsh , tclkit , sdx.kit はこれが最新版かと思うんですが
sdx.bat は見つからず…
どこから入手すればいいんだろう?

687 名前:デフォルトの名無しさん [2010/12/20(月) 10:07:44 ]
www.equi4.com/pub/sk/

@tclkitsh sdx.kit %1 %2 %3 %4 %5 %6 %7 %8 %9

内容はこんだけ。更新されてないけど今でも使えるよ。

688 名前:デフォルトの名無しさん mailto:sage [2010/12/20(月) 10:52:19 ]
>>687
ありがとうございます。助かります
中身見てズッコケました
これならバージョンどうこうなんて関係ないですな…dでした

689 名前:デフォルトの名無しさん mailto:sage [2010/12/21(火) 20:44:41 ]
これは、凄い。使わせてもらいます。

690 名前:デフォルトの名無しさん mailto:sage [2010/12/21(火) 23:01:00 ]
>>681
ありがとうございました。助かります。
EUCだったんですね。



691 名前:本田 [2010/12/23(木) 10:59:09 ]
TcomExcel - Excel utility package
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.


692 名前:本田 [2011/01/09(日) 21:31:18 ]
Sockspy
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.






[ 続きを読む ] / [ 携帯版 ]

前100 次100 最新50 [ このスレをブックマーク! 携帯に送る ] 2chのread.cgiへ
[+板 最近立ったスレ&熱いスレ一覧 : +板 最近立ったスレ/記者別一覧]( ´∀`)<274KB

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