Tcl-tk-tk-mega-widgets
提供:Dev Guides
Tk-メガウィジェット
メガウィジェットには、大規模なTkアプリケーションでしばしば必要とされる多くの複雑なウィジェットが含まれています。 利用可能なメガウィジェットのリストは以下のとおりです-
Sr.No. | Widget & Description |
---|---|
1 |
ダイアログボックスを表示するためのウィジェット。 |
2 |
ユーザーが数字を選択できるウィジェット。 |
3 |
エントリと、使用可能な選択肢のリストを組み合わせたウィジェット。 |
4 |
インデックスタブを使用して、複数のページの1つを切り替えるのに役立つタブ付きウィジェット。 |
5 |
ファイルのアップロードなどの長い操作の進行状況を視覚的にフィードバックするウィジェット。 |
6 |
ツリーの形式でアイテムの階層を表示し、閲覧できるウィジェット。 |
7 |
テキストまたはキャンバスウィジェットなしのスクロールウィジェット。 |
8 |
スライダーを使用して数値を選択するウィジェットを拡大縮小します。 |
いくつかのメガウィジェットを使用した簡単なTkの例を以下に示します。
#!/usr/bin/wish
ttk::treeview .tree -columns "Creator Year" -displaycolumns "Year Creator"
.tree heading Creator -text "Creator" -anchor center
.tree heading Year -text "Year" -anchor center
pack .tree
.tree insert {} end -id Languages -text "Languages"
.tree insert Languages end -text C -values [list "Dennis Ritchie" "1990"]
proc scaleMe {mywidget scaleValue} {
$mywidget configure -length $scaleValue
}
pack [scale .s2 -from 100.0 -to 200.0 -length 100 -background yellow -borderwidth 5
-font{Helvetica -18 bold} -foreground red -width 40 -relief ridge -orien horizontal
-variable a -command "scaleMe .s2" ]
pack [ttk::progressbar .p1 -orient horizontal -length 200 -mode indeterminate -value 90]
pack [ttk::progressbar .p2 -orient horizontal -length 200 -mode determinate -variable a
-maximum 75 -value 20]
上記のプログラムを実行すると、次の出力が得られます-