[過去ﾛｸﾞ] マイクロスイッチ仕様のマウス 総合スレ (1002ﾚｽ)
上下前次1-新

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

123(2): 2016/07/14(木)20:16 ID:huExdvtu(4/9) AAS
# mecount.tcl - mouse button event counter 2016-07-14
# echo.2ch.net/test/read.cgi/hard/1171295410
frame .f1
menubutton .f1.mb -text "File" -menu .f1.mb.m
menu .f1.mb.m
.f1.mb.m add command -label "Save as..." -command saveas
.f1.mb.m add command -label "Clear" -command cleartv
.f1.mb.m add command -label "Quit" -command exit
proc chopen {} {open [tk_getSaveFile -filetypes {{"CSV Files" {.csv}}}] "w"}
proc joinlb {} {join [.lb get 0 end] "\n"}
proc saveas {} {set ch [chopen]; puts $ch [tvcsv]; close $ch}
pack .f1.mb -side left

label .l -text "click here" -height 4 -relief sunken
proc cols {} {return {ButtonID Total Double Triple Quadruple}}
proc col {ic} {lindex [cols] $ic}
ttk::treeview .tv -columns [cols] -height 5 -show headings
pack .f1 -fill x
pack .l -fill both -expand 1
pack .tv -fill x
foreach {ic} [cols] {.tv heading $ic -text $ic; .tv column $ic -width 64}
proc n4 {} {return {1 2 3 4}}
proc n5 {} {return {1 2 3 4 5}}
foreach {b} [n5] {.tv insert {} end -id $b -values [list $b 0 0 0 0]}
proc cleartv1 {b} {foreach {ic} [n4] {.tv set $b [col $ic] 0}}
proc cleartv {} {foreach {b} [n5] {cleartv1 $b}}

---

上下前次1-新書関写板覧索設栞歴

---

あと 879 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.194s*