Changeset 82 for trunk/MultiChannelUSB


Ignore:
Timestamp:
Nov 30, 2009, 12:36:23 PM (15 years ago)
Author:
demin
Message:

several minor fixes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/MultiChannelUSB/UserInterface.tcl

    r78 r82  
    55package require usb
    66
    7 wm minsize . 900 720
     7wm minsize . 800 600
    88
    99namespace eval ::mca {
     
    6868        ${config(2)}.polar1 select
    6969        ${config(2)}.polar2 select
     70        ${config(2)}.polar3 select
    7071    }
    7172
     
    868869
    869870grid rowconfigure . 0 -weight 1
    870 grid columnconfigure . 0 -weight 0  -minsize 80
     871grid columnconfigure . 0 -weight 0  -minsize 50
    871872grid columnconfigure . 1 -weight 1
    872873
     
    892893    set answer [tk_messageBox -icon error -type retrycancel \
    893894        -message {Cannot access USB device} -detail $usb_handle]
    894     if {[string equal $answer cancel]} break
     895    if {[string equal $answer cancel]} exit
    895896}
    896897
Note: See TracChangeset for help on using the changeset viewer.