# meinterv.tcl - mouse button event interval viewer 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 clearlb
.f1.mb.m add command -label "Quit" -command exit
proc chopen {} {open [tk_getSaveFile -filetypes {{"CSV Files" {.csv}}}] "w"}
proc joinlb {} {join [.f2.lb get 0 end] "\n"}
proc saveas {} {set ch [chopen]; puts $ch [joinlb]; close $ch}
proc clearlb {} {.f2.lb delete 1 end; set t0 [tm]; set t1 $t0}
pack .f1.mb -side left

frame .f2
scrollbar .f2.sb -command ".f2.lb yview"
listbox .f2.lb -width 32 -height 16 -yscroll ".f2.sb set"
pack .f2.lb .f2.sb -side left -fill y