Index: /trunk/MultiChannelUSB/UserInterface.tcl
===================================================================
--- /trunk/MultiChannelUSB/UserInterface.tcl	(revision 81)
+++ /trunk/MultiChannelUSB/UserInterface.tcl	(revision 82)
@@ -5,5 +5,5 @@
 package require usb
 
-wm minsize . 900 720
+wm minsize . 800 600
 
 namespace eval ::mca {
@@ -68,4 +68,5 @@
         ${config(2)}.polar1 select
         ${config(2)}.polar2 select
+        ${config(2)}.polar3 select
     }
 
@@ -868,5 +869,5 @@
 
 grid rowconfigure . 0 -weight 1
-grid columnconfigure . 0 -weight 0  -minsize 80
+grid columnconfigure . 0 -weight 0  -minsize 50
 grid columnconfigure . 1 -weight 1
 
@@ -892,5 +893,5 @@
     set answer [tk_messageBox -icon error -type retrycancel \
         -message {Cannot access USB device} -detail $usb_handle]
-    if {[string equal $answer cancel]} break
+    if {[string equal $answer cancel]} exit
 }