ダイアログ

ダイアログ

set ret [tk_dialog .dlg ダイアログ ダイアログです info 0 \
	ボタン1 ボタン2 ボタン3]
tk_messageBox -message $ret
 


メッセージ・ボックス

set ret [tk_messageBox -icon question -message あなたは人間ですか? \
	-title 質問 -type yesnocancel]
tk_messageBox -message $ret
 


カラー

set color [tk_chooseColor]
tk_messageBox -message $color
 


ディレクトリ選択

set dir [tk_chooseDirectory -initialdir "C:/My Documents"]
tk_messageBox -message $dir
 


ファイルを開く

set types {
	{ "テキストファイル" {*.txt} }
	{ "ログファイル"     {*.log} }
}
set name [tk_getOpenFile -filetypes $types -initialdir "C:/My Documents"]
tk_messageBox -message $name
 


ファイルを保存

set types {
	{ "テキストファイル" {*.txt} }
	{ "ログファイル"     {*.log} }
}
set name [tk_getSaveFile -filetypes $types -initialdir "C:/My Documents"]
tk_messageBox -message $name
tk_getSaveFile では、既存ファイル意外でも指定できます。

 


Tcl/Tk でも遊んでみる