#!/usr/lcoal/bin/wish -f

set g [toplevel .imd]
wm title $g "IMD Connection"

frame $g.topframe -borderwidth 10
pack $g.topframe -side top -fill x

set conbutton [button $g.topframe.connect -text "Connect" -command Connect]
set detachbutton [button $g.topframe.detach -text "Detach" -command  "imd detach"]
set killbutton [button $g.topframe.kill -text "Kill" -command "imd kill"]
pack $g.topframe.connect -side right
pack $g.topframe.detach -side right
pack $g.topframe.kill -side right

label $g.hostl -text Host: -padx 0
entry $g.host -width 30 -relief sunken -textvariable imdhost 
label $g.portl -text Port: -padx 0
entry $g.port -width 10 -relief sunken -textvariable imdport
pack $g.hostl -side left
pack $g.host -side left -fill x -expand true
pack $g.portl -side left 
pack $g.port -side left -fill x -expand true

bind $g.host <Return> Connect
bind $g.port <Return> Connect
        
proc Connect {} {
  global imdhost imdport
  imd connect $imdhost $imdport
}