Changeset 1001 for branches/sandbox/distrest.tcl

Timestamp:

Sep 14, 2010 4:41:27 PM (12 years ago)

Author:

chlake

Message:

cleanup, add bell for error

File:

• branches/sandbox/distrest.tcl (modified) (16 diffs)

branches/sandbox/distrest.tcl

@@ -13 +13 @@
     grid [frame $leftfr -bd 2 -relief groove] -column 0 -row 0 \
         -sticky nsew
-    grid [frame $expcons(distmaster).f2 -bd 2 -relief groove] -column 0 -row 1 \
+    grid [frame $expcons(distmaster).f2 -bd 2 -relief groove] -column 1 -row 0 \
         -sticky nsew
     grid rowconfigure $expcons(distmaster) 0 -weight 1
     grid columnconfigure $expcons(distmaster) 1 -weight 1
-#    grid [button $leftfr.phase -text "Phase button here"] -column 0 -row 1 \
-#       -sticky sw -columnspan 2
 
 
@@ -69 +67 @@
         }
         set natoms [phaseinfo 1 natoms]
-        puts "there are $natoms atoms in the file"
-        puts "$::sr_bond_totals bond distances have been read from the file"
+        #puts "there are $natoms atoms in the file"
+        #puts "$::sr_bond_totals bond distances have been read from the file"
         close $fh
 
@@ -207 +205 @@
 #**************************************************************************************
 proc SR_Sort {whichbutton main} {
-puts SR_Sort
      # reset all button labels
        $::sr_top.alabel1 config -text "Atom 1"
@@ -223 +220 @@
           set x [expr $::sr_atom1_button * -1]
           set ::sr_atom1_button $x
-          puts $::sr_atom1_button
+          #puts $::sr_atom1_button
        } elseif {$whichbutton == "atom2"} {
-          puts "atom2"
           if {$::sr_atom2_button == 1} {
              set ::sr_prsort [lsort -integer -decreasing -index 2 $::sr_all_bonds]
@@ -235 +231 @@
           set x [expr $::sr_atom2_button * -1]
           set ::sr_atom2_button $x
-          puts $::sr_atom2_button
        } else {
          if {$::sr_distance_button == 1} {
@@ -247 +242 @@
          set x [expr $::sr_distance_button * -1]
          set ::sr_distance_button $x
-         puts $::sr_distance_button
        }
        SR_Fill_Display $main
@@ -302 +296 @@
 #*****************************************************************************************
 proc SR_Fill_Display {main args} {
-puts Fill_Display
 eval destroy [winfo children $main]
 set choice   $::sr_entryvar(choicenum)
@@ -310 +303 @@
 
 set len [llength $::sr_prsort]
-puts "prsort length $len"
 set rownum 0
 for {set i 0} {$i <= $len} {incr i} {
@@ -328 +320 @@
                                           label $main.rdistance$i -text [lindex $rprint 8] -justify center -anchor center
                                           entry $main.restraint$i -width 8 -textvariable ::sr_restraintdist([lindex $rprint 13]) -takefocus 1
-                                          puts $main.restraint$i
                                           bind  $main.restraint$i <KeyRelease> {SR_Validate_Soft %W distance}
-                                          puts  $main.restesd$i
                                           entry $main.restesd$i -width 8 -textvariable ::sr_restraintesd([lindex $rprint 13]) -takefocus 1
                                           bind  $main.restesd$i <KeyRelease> {SR_Validate_Soft %W esd}
@@ -397 +387 @@
 set temp_res [SoftConst restraintlist]
 set lenr [llength $temp_res]
-puts $lenr
 set ::sr_restraints_only ""
 
@@ -404 +393 @@
 #}
 foreach temp_res1 $temp_res {
-puts $temp_res1
     set t1 "[lindex $temp_res1 0] [lindex $temp_res1 1] [lindex $temp_res1 2] \
             [lindex $temp_res1 3] [lindex $temp_res1 4] [lindex $temp_res1 5] \
             [lindex $temp_res1 6] [lindex $temp_res1 7]"
     set t2 [string map {" " ""} $t1]
-    #puts $t2
     set ::sr_restraintdist($t2) [lindex $temp_res1 8]
     set ::sr_restraintesd($t2) [lindex $temp_res1 9]
@@ -418 +405 @@
 for {set j 0} {$j < $::sr_bond_totals} {incr j} {
          set temp_dist [lindex $::sr_all_bonds $j]
-         puts "$j  [lindex $temp_dist 13]"
          if {$::sr_restraintdist([lindex $temp_dist 13]) != ""} {
             lappend ::sr_restraints_only $temp_dist
@@ -433 +419 @@
 #          set ::sr_write ""
           set len [llength $::sr_all_bonds]
-          puts $len
           for {set i 0} {$i <= [expr $len-1]} {incr i} {
                     set temp [lindex $::sr_all_bonds $i]
@@ -442 +427 @@
                                 $::sr_restraintdist([lindex $temp 13])\
                                 $::sr_restraintesd([lindex $temp 13])"
-                                puts $softrest
                                 lappend sr_write $softrest
                     }
@@ -454 +438 @@
           afterputontop
      } else {
-             puts "invalid restaint / esd.  Save aborted"
+            bell
+             #puts "invalid restaint / esd.  Save aborted"
             }
 }
@@ -465 +450 @@
      foreach i [array names ::sr_crestraint] {
              if {$::sr_crestraint($i) == 1} {
-                puts "::sr_restraintdist($i) $::sr_rvalue"
+                #puts "::sr_restraintdist($i) $::sr_rvalue"
                 set ::sr_restraintdist($i) $::sr_rvalue
                 set ::sr_restraintesd($i) $::sr_resd