rendered paste body#!/usr/bin/wish
# status
label .labelStatus -text "Status: Waiting for connections"
pack .labelStatus
# buttons
frame .frameButtons
button .frameButtons.buttonStop -text "Stop" -command "pressStop"
button .frameButtons.buttonStart -text "Start" -command "pressStart"
button .frameButtons.buttonClear -text "Clear Log" -command "pressClear"
button .frameButtons.buttonQuit -text "Quit" -command "pressQuit"
pack .frameButtons.buttonStop .frameButtons.buttonStart .frameButtons.buttonClear .frameButtons.buttonQuit -in .frameButtons -side left
pack .frameButtons
# port selector
frame .framePort
set port 8000
spinbox .spinPort -from 1025 -to 65535 -increment 1 -textvariable port
label .labelPort -text "Port Number: "
pack .labelPort .spinPort -side left -in .framePort
pack .framePort
label .labelLog -text "Log Display:"
pack .labelLog
# log window
frame .frameLog
text .logText -yscrollcommand {.scrlY set} -xscrollcommand {.scrlX set}
scrollbar .scrlY -command {.logText yview} -orient v
scrollbar .scrlX -command {.logText xview} -orient h
grid .logText -in .frameLog -row 1 -column 1
grid .scrlY -in .frameLog -row 1 -column 2 -sticky ns
grid .scrlX -in .frameLog -row 2 -column 1 -sticky ew
pack .frameLog -expand 1