2ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

Tcl/TkでGUIプログラミング

1 :login:Penguin:2005/11/12(土) 00:57:50 ID:DkVxXOjB ?##
スクリプトで手軽にGUIプログラミングが可能なTcl/Tkについて
じっくりまったり楽しみながら勉強しましょう

2 :login:Penguin:2005/11/12(土) 01:03:12 ID:SKw33OP/
●●●●TCL/TKなら俺に聞け●●●●
http://pc8.2ch.net/test/read.cgi/tech/1033628416/l50

3 :塩水 ◆1FrMT.vzQQ :2005/11/12(土) 01:08:47 ID:/EzwpHga
参考サイト

Wish Tcl/Tk 入門 コース
http://flex.ee.uec.ac.jp/texi/wish-nyumon/
What's Tcl
http://www.freesoftnet.co.jp/tclkits/doc/tcl/tcl01.htm
Unofficial web page of Tcl/Tk
http://www.sra.co.jp/people/haga/tcltk/index.html

4 :塩水 ◆1FrMT.vzQQ :2005/11/12(土) 01:12:00 ID:/EzwpHga
基本的な実行方法

1. レスをコピー
2. 適当なファイル(***.tcl)を作成
3. ファイルに内容をコピペ
4. chmod 774 ***.tcl
5. ./***.tcl

5 :塩水 ◆1FrMT.vzQQ :2005/11/12(土) 01:20:56 ID:/EzwpHga
「GUIでダイアログを表示してみる」

ファイル名
test.tcl
内容
#!/bin/sh
# the next line restarts using wish\
exec wish "$0" "$@"

wm title . "test.tcl"

button .bt1 -text exit -command exit

pack .bt1

6 :login:Penguin:2005/11/12(土) 01:35:07 ID:M6LmPPxv
そういや、最近、Tcl/Tk聞かないなぁ。

>>3-5
あえてLinux板に建てるなら、LinuxでのTcl/Tkアプリケーションの紹介&ぷちハックとかで、
無理矢理にでもLinuxにこじつけてみたら?

7 :塩水 ◆1FrMT.vzQQ :2005/11/12(土) 01:49:19 ID:/EzwpHga
>>6
そですね。一通り基本的なことをおさえたら
Linux関連とからめて、かゆいところに手が届くソフトをコンセプトに作ってみます。

8 :塩水 ◆1FrMT.vzQQ :2005/11/12(土) 01:55:27 ID:/EzwpHga
消費税の計算

ファイル名
tax.tcl
内容
#!/bin/sh
# the next line restarts using wish\
exec wish "$0" "$@"

wm title . "tax.tcl"

label .lb1 -text "Price" -width 10
entry .e1 -textvariable money -width 10 -bg white
label .lb2 -text {Rate[%]} -width 10
entry .e2 -textvariable rate -width 10 -bg white

button .bt1 -text "Consumption tax" -command {set result [expr $money * ($rate. / 100)]}

label .lb3 -textvariable result -width 10

button .bt0 -text exit -command exit

pack .lb1 .e1 .lb2 .e2 .bt1 .lb3 .bt0 -fill both -expand yes

9 :塩水 ◆1FrMT.vzQQ :2005/11/12(土) 02:09:28 ID:/EzwpHga
あ、

label .lb3 -textvariable result -width 10
の部分は

entry .e3 -textvariable result -bg white -width 10
の方が結果がコピペで使えていいかも。

10 :塩水 ◆1FrMT.vzQQ :2005/11/12(土) 02:36:08 ID:/EzwpHga
ディレクトリを重い順に10個表示(絶対パス指定)

ファイル名
dir.tcl
内容
#!/bin/sh
# the next line restarts using wish\
exec wish "$0" "$@"

wm title . "dir.tcl"

label .lb1 -text Directory -justify center
entry .e1 -textvariable dir -width 10 -bg white

button .bt1 -text result -command {
set var [exec du $dir | sort -rn | head -n 10]
}

message .me1 -textvariable var -width 1000 -fg red

pack .lb1 .e1 .bt1 .me1 -fill both -expand yes

11 :login:Penguin:2005/11/19(土) 00:31:21 ID:+iWoCKnj
●●●●TCL/TKなら俺に聞け●●●●
http://pc8.2ch.net/test/read.cgi/tech/1033628416/

4 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.02.02 2014/06/23 Mango Mangüé ★
FOX ★ DSO(Dynamic Shared Object)