Tk関係のおぼえがき

TkのGUIを思ったように出すにはいろいろマニュアルを読んで勉強する機会がありますが、 使わないとすぐに忘れてしまうもの。 ということで、たまにしか役にたたない連中の覚え書きです。

●スクロールバーのついたリストボックスを作るテンプレート
垂直だけバージョン

set f [frame .fa -rel groove] set lsta [listbox $f.lsta -selectmode single -yscrollcommand "$f.scrv set"] scrollbar $f.scrv -ori v -command "$f.lsta yview" pack $f.lsta $f.scrv -fill y -side left

set f [frame .fa -rel groove] text $f.lsta -width 30 -height 10 \ -xscrollcommand "$f.scrh set" -yscrollcommand "$f.scrv set" scrollbar $f.scrh -ori h -command "$f.lsta xview" scrollbar $f.scrv -ori v -command "$f.lsta yview" grid $f.lsta -column 1 -row 1 grid $f.scrh -column 1 -row 2 -sticky ew grid $f.scrv -column 2 -row 1 -sticky ns

set f [frame .fa -rel groove] text $f.txaa -width 80 -height 10 \ -xscrollcommand "$f.scrh set" -yscrollcommand "$f.scrv set" scrollbar $f.scrh -ori h -command "$f.txaa xview" scrollbar $f.scrv -ori v -command "$f.txaa yview" grid $f.txaa -column 1 -row 1 grid $f.scrh -column 1 -row 2 -sticky ew grid $f.scrv -column 2 -row 1 -sticky ns

●ポップアップメニューのつくりかた
メニューは下のように普通のメニューと同様に適当につくります。

menu .menu .menu add command -label Menu1 -command exit .menu add command -label Menu2 -command exit .menu add command -label Menu3 -command exit

    tk_popup .menu %X %Y

●キャンバスのスクロールのさせかた
　キャンバスもテキストやリストボックスのようにスクロールさせることができます。 どこからどこまでスクロールできるかを -scrollregion で指定します。

canvas .can -scrollregion {0 0 1000 1000}

●スクロールするキャンバス上の正しい座標を知るには
　上のようにしてキャンバスをスクロールさせているとき、 ボタンでキャンバスをクリックしたりして発生するイベントの %x、%yなどは、 スクロールしてない状態のキャンバスの左上からその位置の座標を返してきます。 たとえば、上の場合なら1000x1000の広さがあるキャンバスでも、画面上の大きさが 200x200だった場合は、%xも%yも零から200までの値しかとりません。 そうでなく、スクロールして(800,600)のような位置をとっている場合、 次のようにします。

set x [$can canvasx %x] set y [$can canvasy %y]

set screg [$can cget -scrollregion] set scwidth [lindex $screg 2] set scheight [lindex $screg 3] set xfrac [lindex [$can xview] 0] set yfrac [lindex [$can yview] 0] set x [expr int($scwidth * $xfrac + %x)] set y [expr int($scheight * $yfrac + %y)]

●インストールしているフォントを使うには
　Xウィンドウシステムの場合は、あの長ったらしい名前(*1)、つまり 「-foundry-family-weight-slant-setwidth-addstyle-pixel-point-resx-resy-spacing-width-charset-encoding」 というスタイルの名前でシステムに入っている任意のフォントを指定することができます。 Windowsでも、fontというコマンドを使って、「\Windows\Fonts」 などにインストールしたフォントをTcl/Tkで使うことができます。

  font create Banco -family {Banco Normal} -size 16
  label .laba -text Hello -font Banco

(*1)XLFDというそうです。

wm title . {nihon marumoji international}
font create Marumoji -family {ＤＦＰまるもじ体} -size 24
message .laba -font Marumoji -fg red -bg white -width 300\
  -text {えー？うっそーまじー？やっだー
てゆーかー、やっぱヤだしー}
button .cmda -text {OK} -command exit
pack .laba .cmda

わかった。いいから、もう帰れ！

●同じ種類のウィジェットのフォントを一括指定するには
optionコマンドを使うと楽です。下のように、Xリソース以外の書き方もできます。

option add *Listbox.font {Helvetica 10 bold}

option add *Label.font {{ＭＳ　ゴシック} 10 bold}

●イベントを強制的に発生させるには
「event generate」というコマンドを使います。 例えば、テキスト上でリターンキーが押されたらまず行末に移動してから改行するには、

bind $text <KeyPress-Return> "event generate $text <Control-e>"

bind $e1 <Key-Return> "$b1 invoke"

●entryウィジェットの入力文字数を制限するには
entryの-validateと-validatecommandオプションを使って、次のように書きます。

entry .e1 -width 8 -validate key -validatecommand { return [expr ([string length %P] > 8) ? 0 : 1] }

●1つのスクロールバーで2つ以上の部品をスクロールさせるには
　これは、意外に難問です。 スクロールバーの-commandオプションで指定したスクリプトには、 自動的に後ろにそのときのスクロール状態を表す引数がつけられるので、 これを利用します。

    scrollbar .scrv -command "scroll2" -orient vertical
    # ...
    proc scroll2 {args} {
        eval .listbox1 yview $args
        eval .listbox2 yview $args
    }

●textvariableを使わずにエントリに表示させるには

    .entry delete 0 end
    .entry insert end $message

●時間がかかるときにカーソルを砂時計にするには
　カーソルは部品の-cursorオプションで指定できます。どんなものが指定できるかは、 Tcl/Tkをインストールしたディレクトリの include/X11/cursorfont.h を見ればわかります。先頭の「XC_」を削った名前が使え、一般的な矢印は arrow、砂時計は watch です。

   .canvas configure -cursor watch
   # 時間がかかる処理
   .canvas configure -cursor arrow

   .canvas configure -cursor watch
   update
   # 時間がかかる処理
   .canvas configure -cursor arrow

●ディスプレイの幅と高さを得るには

  set width  [winfo vrootwidth .]
  set height [winfo vrootheight .]

●同じ部品に bind <KeyPress>とbind <Shift-KeyPress> を指定したらどうなる?
　例えば Shift+A を押すとき、普通はShiftキーをまず押し、押したままA キーを押しますが、このときはShiftキーが押された瞬間に bind <KeyPress> で指定した処理が実行されます。 このときの %K には "Shift_L" などの「きーしむ」(*1)が入っています。 で、Aキーを押した段階で bind <Shift-KeyPress> で指定した処理が実行されます。 このときは bind <KeyPress> で指定した処理は呼び出されません。 また %K は英大文字の "A" が入っています(*2)。

(*1)keysym。Ｘウィンドウシステム起源の言葉です。きーしむは、 普通の英文字のキーの場合はそのアルファベット、 記号やファンクションキーの場合は「comma」「F1」などの名前が決められています。
(*2)英文字のキーだけを押した場合とCtrlキーと同時に押した場合のきーしむは小文字ですが、 Shiftキーと同時に押した場合だけ、きーしむが大文字になります。

●メインウィンドウが出る前にダイアログを出したら以後操作できなくなった
例えば

tk_messageBox -message Hello
button .cmda -text Bye -command exit
pack .cmda

button .cmda -command exit
bind .cmda <Map> {
    tk_messageBox -message Hello
    .cmda configure -text Bye
}
pack .cmda

●階層状のメニューを作るには
　あるメニューボタンを選ぶと項目が出て、それを選ぶとまたメニューが出て… という階層状のメニュー構造は、 メニューに cascade 型の項目を加えればＯＫです。 例えば、「表示」→「並び替え」→「名前順」「日付順」 という階層メニューを作るには、

  frame .fm -rel ridge -bd 3
  menubutton .fm.mbview -text {表示} -menu .fm.mbview.m1
  pack .fm.mbview -side left

  menu .fm.mbview.m1
  .fm.mbview.m add cascade -label {並び替え} -menu .fm.mbview.m2
  menu .fm.mbview.m2
  .fm.mbview.m2 add command -label {名前順} -command {####}
  .fm.mbview.m2 add command -label {日付順} -command {####}

●ウィンドウのメニューバーのテンプレート
frameとmenubuttonではなく、toplevelの-menuオプションで指定するメニューバーのテンプレートです。

set m [menu .m] $m add cascade -label ファイル -menu $m.mfile $m add cascade -label 編集 -menu $m.medit set mfile [menu $m.mfile] $mfile add command -label "開く..." -command open_dummy $mfile add command -label "名前をつけて保存..." -command saveas_dummy $mfile add separator $mfile add command -label "終了" -command exit pack [canvas .can] . configure -menu $m

●GUI部品の名前から、それを載せているウィンドウやフレームの名前を取り出すには
ぎゃはは。これは盲点でした。実験室では最近まで

regexp {^(.+)\.[^\.]+$} $childname all parentname

set parentname [winfo parent $childname]

●disabledにしたエントリの動作が変
　ユーザーからの入力を受けつけないエントリを作るには entryコマンドに -state disabled スイッチをつければいいのですが、 これをするとプログラムの内部からもいっさいエントリの内容を変更できなくなります (エラーにはなりませんが、無視されます)。 プログラム内部から変更するには、まずエントリの-stateをnormalに戻し、 変更を加え、再度-stateをdisabledにします。

.entry configure -state normal
.entry delete 0 end
.entry insert end $newmessage
.entry configure -state disabled

●テキスト部品にセットしたばかりの文字列が元のと違う
たとえば

.text delete 1.0 end
.text insert end $string1
set string2 [.text get 1.0 end]

●Enterキーにボタンを反応させるには
ユーザーインターフェースの操作性を考えると、Enterキーが押されたとき、 フォーカスを持っているボタンにマウスで押したのと同じ動作をさせられると便利です。 これはスクリプトの冒頭に一行こう書いておけばＯＫです。

bind Button <Key-Return> {%W invoke}

●ウィンドウの「×」ボタンが押されたときに何か処理をするには
ウィンドウ右上の「×」ボタンが押されたときに、 何かの処理(典型的には、一時ファイルを削除するとか)をするには次のようにします。

wm protocol .window WM_DELETE_WINDOW deleteProc proc deleteProc {} { tk_messageBox -message "Good Bye." exit 0 }

●ラバーバンド
掲示板でご質問頂いた、ラバーバンド(マウスをクリックしたまま引っ張るとそれに応じて引かれる長方形) のサンプルです。

set can [canvas .can -bg white -width 300 -height 300] bind $can <Button-1> { set startx [expr int([%W canvasx %x])] set starty [expr int([%W canvasy %y])] } bind $can <Button1-Motion> { set endx [expr int([%W canvasx %x])] set endy [expr int([%W canvasy %y])] if {[catch {%W coords $rect $startx $starty $endx $endy}]} { set rect [%W create rectangle $startx $starty $endx $endy] } } bind $can <ButtonRelease-1> { global ItemRect catch { %W delete $ItemRect } set ItemRect [%W create rectangle $startx $starty $endx $endy \ -fill #000060 -outline #00ffff] } pack $can

●画像を連結する
image画像を横に連結するには、次のようにします。
(.jpg画像を読むにはImg拡張を入手し、「package require Img」を先に実行する必要があります。)

package require Img image create photo Image1 -file IMAGE1.jpg image create photo Image2 -file IMAGE2.jpg image create photo Image3 -file IMAGE3.jpg # Image1の右にImage2を連結する Image1 copy Image2 -to [image width Image1] 0 # さらに右にImage3を連結する Image1 copy Image3 -to [image width Image1] 0 label .la -image Image1 pack .la

●ウィンドウの透明度を変えて、フェードアウト、フェードインができるようにする
ウィジェット単独ではできませんが、ウィンドウ全体をフェードアウトさせることはできます。
wm attributes コマンドの -alpha オプションを使います。

wm attributes . -alpha 0.5

●複数のリストボックスの選択状態を維持する
同じウィンドウに複数のリストボックスA,Bがあるとします。 普通にやると、Aからマウスで項目を一つ選択した後、 Bからマウスで項目を選択した瞬間、Aの選択状態がクリアされてしまいます。
Bの項目を選択しても、Aの選択状態がクリアされないようにするには、 listboxコマンドの-exportselectionオプションをfalse(または0、no)にすればOKです。

●リストボックスの下線を消す
listboxで項目を選択すると反転しますが、その前に以前選択していた項目に下線が表示されることがあります。 これを非表示にするには、-activestyleをnoneにすればOKです。これのデフォルトがunderlineです。

listbox .lsta -height 4 -font {Helvetica 24 bold} -listvariable gvListItems -activestyle none

(first uploaded 2000/04/10 last updated 2022/04/24, MISUMI URANO)