#!/usr/bin/wish


button .b -text $argv -command exit -background blue
label .lab -text [clock format [clock seconds] -format "%H:%M"] -background blue
.lab configure -relief groove -borderwidth 2
pack .b .lab -side top -fill x