[Tcl/Tk] フォントのサイズをピクセル数で求める

キャンバスにウィジェットなどを直接貼り付ける際に、フォントサイズを表すポイント数からピクセルへの変換が必要になります。

ポイント数はディスプレイの解像度が 72DPI のときには１：１になりますが、解像度が変わると計算方法が異なります。 このとき tk scaling を用いると、72DPI に対する実際の解像度の比率が取得できます。

例としてデフォルトフォントの高さをピクセルで求めるコードを示します。

set fontsize [font configure TkDefaultFont -size]
set scale [tk scaling]
set in_pixels [expr $scale * $fontsize]