Changeset 82

Timestamp:

Nov 30, 2009, 12:36:23 PM (15 years ago)

Author:

demin

Message:

several minor fixes

File:

• trunk/MultiChannelUSB/UserInterface.tcl (modified) (4 diffs)

trunk/MultiChannelUSB/UserInterface.tcl

@@ -5 +5 @@
 package require usb
 
-wm minsize . 900 720
+wm minsize . 800 600
 
 namespace eval ::mca {
@@ -68 +68 @@
         ${config(2)}.polar1 select
         ${config(2)}.polar2 select
+        ${config(2)}.polar3 select
     }
 
@@ -868 +869 @@
 
 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 +893 @@
     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
 }