#!/usr/bin/wish
#
#


	set PORTS "[glob /dev/ttyUSB* /dev/ttyS*] COM1 COM2 COM3 COM4 COM5 COM6 COM7 COM8 COM9"
	set COMPORT [lindex $PORTS 0]

	frame .d
	pack .d -side top -expand yes -fill both

		menubutton .d.port -text "Port: $COMPORT" -underline 0 -direction above -menu .d.port.m -relief raised
		pack .d.port -side top -expand no -fill x

		menu .d.port.m -tearoff 0
		foreach PORT $PORTS {
			eval .d.port.m add command -label \"$PORT\" -command \{set COMPORT $PORT \; .d.port configure -text \"Port: \$COMPORT\"\}
		}

		button .d.view -text "OK" -command {
			puts "$COMPORT"
		}
		pack .d.view -side top -expand yes -fill both