[表示 : 全て 最新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/

557 名前：デフォルトの名無しさん mailto:sage [2009/11/04(水) 10:53:58 ]
>>556
というかC関数をTcl側に公開して、それをfor文で普通に呼び出せばいいんじゃね？
そしたら何度も呼び出すこと考える必要ないでしょ。

558 名前：デフォルトの名無しさん [2009/11/04(水) 13:26:48 ]
>>557

ありがとうございます。

>>C関数をTcl側に公開して

これの方法が現時点では分かりませんが、これが出来ればいけそうな気がしてきました。
早速調べて試してみます。

559 名前：デフォルトの名無しさん mailto:sage [2009/11/04(水) 20:18:53 ]
>>556
見やすくするためではありません。
for文が第四の引数を解釈するに当たり、改行までをひとつのコマンドと引数列とみなして実行するためです。
よって｛｝中の改行は飾りではないです。


560 名前：デフォルトの名無しさん mailto:sage [2009/11/04(水) 20:24:23 ]
>>558
Tcl_CreateObjCommand
引数の解釈はTcl_GetIntFromObjなどを使う。
返値はTcl_SetObjResultで。

Tcl_CreateCommandなどのTclオブジェクトを扱わない形式では
数値やリストなど全部文字列に変換されて渡されるので、速度・精度の面で使わないこと。
(Tclオブジェクトだとリスト型やdouble型を保持したままやりとりする)

561 名前：デフォルトの名無しさん mailto:sage [2009/11/04(水) 20:30:04 ]
んで、ぶっちゃけ言うと
Tcl_Eval(interp, "for {set i 0} {$i < 5} {incr i} {puts $i\nputs hogehoge}");

562 名前：デフォルトの名無しさん [2009/11/04(水) 23:17:21 ]
>>559-561

色々有り難うございます。
とりあえず、Tcl_CreateCommand()を使用してTCLスクリプトからCの関数を実行し、
パラメータを渡す事まで確認できました。
TCLで実現したい事は、「とりあえず」は出来たと思います。
残りは戻値や速度面を考慮してTcl_CreateObjCommand()などを調べて見たいと思います。


563 名前：本田 [2009/11/21(土) 06:24:51 ]
www.tcl.tk/
>Tcl/Tk 8.5.8 Nov 16, 2009

564 名前：デフォルトの名無しさん [2009/12/11(金) 19:14:03 ]
Jaclてなんて発音すれば良いの？

565 名前：デフォルトの名無しさん [2009/12/11(金) 21:05:06 ]
ジャッカル



566 名前：デフォルトの名無しさん [2009/12/16(水) 23:21:52 ]
tclでhtmlを取り扱うウイジェット実装はいくつかあるみたいですが
お勧めとか、デファクトスタンダードなものとか
あるのでしょうか？

567 名前：本田 [2009/12/18(金) 00:55:20 ]
>>566
>デファクトスタンダード

incrtclだと思う。
incrtcl.sourceforge.net/iwidgets/iwidgets/scrolledhtml.html

568 名前：デフォルトの名無しさん mailto:sage [2009/12/20(日) 02:07:53 ]
板違いかもしれないけれど
Ruby/Tkで、
htmldoc = '<html>〜</html>'
html = Tk::HTML_Widget.new.pack
html.parse(htmldoc)
とするとSegmentation faultが出るのは自分だけかな……。
TkHTML3、Tcl/Tk8.4、Ruby1.9.1環境です。

569 名前：デフォルトの名無しさん [2009/12/28(月) 17:45:58 ]
折角国際化されてるんだし
だれかTcl/Tkでmigemo使えるようにしろよ〜

570 名前：デフォルトの名無しさん mailto:sage [2009/12/28(月) 20:24:16 ]
IMの制御がきちんとできるようにしてくれぇ。

571 名前：デフォルトの名無しさん [2009/12/29(火) 09:37:18 ]
結構この頃気に入っているのですが
ckて使っている人いますか？
なんか語りませんか

572 名前：デフォルトの名無しさん mailto:sage [2010/01/02(土) 10:50:57 ]
>> 571
大昔、CTk wiki.tcl.tk/5016 は使ったことがある。
ckも2001年頃から開発が止まっているみたいけど、8.5.8環境でもちゃんと動く？


573 名前：デフォルトの名無しさん mailto:sage [2010/01/02(土) 20:43:14 ]
Ckというのはwww.ch-werner.de/ck/　なのですが
ページによると8.0-8.4が恐らくターゲットかと。うちでは8.0で動いています。
キャンバスなど対応しないウイジェットもあるので制限は多いですが、
Guiのプログラムとコンソールのプログラムが一つのプログラムでかけるのが
凄いです。（tcletも使えば一石三鳥？）
CTKはどんな感じでしたか？
Ckの場合難点はcursesを使う部分の日本語が上手く表示できないかんじです。
putsなど標準入出力ではOkですが。


574 名前：本田 [2010/01/05(火) 22:51:35 ]
>Ckの場合難点はCkの場合難点はcursesを使う部分の日本語が上手く表示できないかんじです。

cursesってUNICODEに対応してないのかな？

575 名前：デフォルトの名無しさん mailto:sage [2010/01/06(水) 23:26:35 ]
ncursesw とかじゃん？



576 名前：デフォルトの名無しさん mailto:sage [2010/01/06(水) 23:35:47 ]
>>573
CTk使っていたのは日本語パッチ版が使いたくて8.0で粘っていたころなので、さすがに覚えていない。
当時はMulti-Byte文字を使えるcursesもほとんど無くて、日本語は最初から諦めていたと思う。

Multi-Byte文字はCkとcursesの2段階で対処が必要だと思うし、8.0だとそもそも多国語対応していない
ような気がするので、tcl内部とcursesと実際の表示(xtermとか)のencodingを合わせないとだめだよね。

がんばってね。


577 名前：デフォルトの名無しさん mailto:sage [2010/01/18(月) 15:28:42 ]
アプリケーション拡張言語としてのTCLってどうして普及しなかったんですか？

578 名前：デフォルトの名無しさん mailto:sage [2010/01/18(月) 15:34:43 ]
>>577
いや〜、あんなもん、tkが付いてなかったら使いたくねえ！


579 名前：デフォルトの名無しさん mailto:sage [2010/01/18(月) 15:39:50 ]
>>577
tk以上の発明品が生まれなかったからじゃないかな。
結局Tcl/Tkが作られた当時はアプリのスクリプト言語をサポートするという発想が新しすぎたんだと思うよ。
後スクリプト言語としては文字列と整数のデータ型の区別がされてなくて微妙に使いにくいとか。

元々HTMLの埋込み言語として開発されたPHPが、発展してフレームワークが作られるようになると
HTMLの生成がテンプレートエンジン越しになって本来の埋込スクリプトが全く使われなくなったりね。

開発当初の目的と実用される用途が一致しないのはよくあること。

580 名前：デフォルトの名無しさん mailto:sage [2010/01/18(月) 22:27:44 ]
ストールマンがTclの普及自体に横槍出したのもでかいんじゃないかな

581 名前：デフォルトの名無しさん mailto:sage [2010/01/19(火) 00:46:35 ]
>>577
GNUに嫌われたから

582 名前：デフォルトの名無しさん mailto:sage [2010/01/19(火) 12:33:16 ]
>>580
guileも全然普及してないな。

583 名前：デフォルトの名無しさん [2010/01/19(火) 21:15:09 ]
GIMP は SIOD から TinyScheme に変わったんだよね。
Guile 哀れw

584 名前：デフォルトの名無しさん mailto:sage [2010/01/26(火) 17:16:13 ]
S-Langというのもあったけど。

585 名前：デフォルトの名無しさん mailto:sage [2010/02/03(水) 23:03:23 ]
TclはPythonに喰われちゃったんだと思う



586 名前：デフォルトの名無しさん mailto:sage [2010/02/14(日) 10:09:59 ]
今ならさらにLuaもあるしな。

587 名前：デフォルトの名無しさん mailto:sage [2010/02/14(日) 20:52:36 ]
>>585
蛙と蛇だしな・・・

588 名前：デフォルトの名無しさん mailto:sage [2010/02/14(日) 22:29:44 ]
デスクトップマスコットを作ろうかと思っているのですが、
ウィンドウを透過させて、画像だけを表示させるようなことは
tcl/tkでできるのでしょうか？

例えばこんな感じのを実現したいです
ttp://cgi32.plala.or.jp/higpen/javatips/36.shtml

OSXを使用しているので、
システム透過色を背景色に設定させるようにしてみましたが、
思い通りの結果になりません。(タイトルバーが表示されていたりします）

package require Img
pack [canvas .can -width 300 -height 300]
image create photo foo -file circle.tif
.can create image 0 0 -image foo -anchor nw

wm attributes . -transparent 1
. configure -background systemTransparent
.can configure -background systemTransparent


589 名前：デフォルトの名無しさん mailto:sage [2010/02/15(月) 01:13:58 ]
osxはよくわからんけど、wm overrideredirect . 1してみたらどうなる？

590 名前：デフォルトの名無しさん mailto:sage [2010/02/15(月) 08:16:09 ]
やってみましたが、
ウィンドウのサイズ、移動が出来なくなりますが、
タイトルバーは消えませんでした。

591 名前：デフォルトの名無しさん mailto:sage [2010/02/15(月) 21:37:46 ]
>>588
バージョンくらいかけよアホ。これでも読んでろ
wiki.tcl.tk/13734

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に入れ込めば出来そうですが･･
余りに遠回りで･･。

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

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等に変換したいので。




[ 続きを読む ] / [ 携帯版 ]
前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