Changeset 1001 for branches/sandbox


Ignore:
Timestamp:
Sep 14, 2010 4:41:27 PM (10 years ago)
Author:
chlake
Message:

cleanup, add bell for error

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/sandbox/distrest.tcl

    r1000 r1001  
    1313    grid [frame $leftfr -bd 2 -relief groove] -column 0 -row 0 \
    1414        -sticky nsew
    15     grid [frame $expcons(distmaster).f2 -bd 2 -relief groove] -column 0 -row 1 \
     15    grid [frame $expcons(distmaster).f2 -bd 2 -relief groove] -column 1 -row 0 \
    1616        -sticky nsew
    1717    grid rowconfigure $expcons(distmaster) 0 -weight 1
    1818    grid columnconfigure $expcons(distmaster) 1 -weight 1
    19 #    grid [button $leftfr.phase -text "Phase button here"] -column 0 -row 1 \
    20 #       -sticky sw -columnspan 2
    2119
    2220
     
    6967        }
    7068        set natoms [phaseinfo 1 natoms]
    71         puts "there are $natoms atoms in the file"
    72         puts "$::sr_bond_totals bond distances have been read from the file"
     69        #puts "there are $natoms atoms in the file"
     70        #puts "$::sr_bond_totals bond distances have been read from the file"
    7371        close $fh
    7472
     
    207205#**************************************************************************************
    208206proc SR_Sort {whichbutton main} {
    209 puts SR_Sort
    210207     # reset all button labels
    211208       $::sr_top.alabel1 config -text "Atom 1"
     
    223220          set x [expr $::sr_atom1_button * -1]
    224221          set ::sr_atom1_button $x
    225           puts $::sr_atom1_button
     222          #puts $::sr_atom1_button
    226223       } elseif {$whichbutton == "atom2"} {
    227           puts "atom2"
    228224          if {$::sr_atom2_button == 1} {
    229225             set ::sr_prsort [lsort -integer -decreasing -index 2 $::sr_all_bonds]
     
    235231          set x [expr $::sr_atom2_button * -1]
    236232          set ::sr_atom2_button $x
    237           puts $::sr_atom2_button
    238233       } else {
    239234         if {$::sr_distance_button == 1} {
     
    247242         set x [expr $::sr_distance_button * -1]
    248243         set ::sr_distance_button $x
    249          puts $::sr_distance_button
    250244       }
    251245       SR_Fill_Display $main
     
    302296#*****************************************************************************************
    303297proc SR_Fill_Display {main args} {
    304 puts Fill_Display
    305298eval destroy [winfo children $main]
    306299set choice   $::sr_entryvar(choicenum)
     
    310303
    311304set len [llength $::sr_prsort]
    312 puts "prsort length $len"
    313305set rownum 0
    314306for {set i 0} {$i <= $len} {incr i} {
     
    328320                                          label $main.rdistance$i -text [lindex $rprint 8] -justify center -anchor center
    329321                                          entry $main.restraint$i -width 8 -textvariable ::sr_restraintdist([lindex $rprint 13]) -takefocus 1
    330                                           puts $main.restraint$i
    331322                                          bind  $main.restraint$i <KeyRelease> {SR_Validate_Soft %W distance}
    332                                           puts  $main.restesd$i
    333323                                          entry $main.restesd$i -width 8 -textvariable ::sr_restraintesd([lindex $rprint 13]) -takefocus 1
    334324                                          bind  $main.restesd$i <KeyRelease> {SR_Validate_Soft %W esd}
     
    397387set temp_res [SoftConst restraintlist]
    398388set lenr [llength $temp_res]
    399 puts $lenr
    400389set ::sr_restraints_only ""
    401390
     
    404393#}
    405394foreach temp_res1 $temp_res {
    406 puts $temp_res1
    407395    set t1 "[lindex $temp_res1 0] [lindex $temp_res1 1] [lindex $temp_res1 2] \
    408396            [lindex $temp_res1 3] [lindex $temp_res1 4] [lindex $temp_res1 5] \
    409397            [lindex $temp_res1 6] [lindex $temp_res1 7]"
    410398    set t2 [string map {" " ""} $t1]
    411     #puts $t2
    412399    set ::sr_restraintdist($t2) [lindex $temp_res1 8]
    413400    set ::sr_restraintesd($t2) [lindex $temp_res1 9]
     
    418405for {set j 0} {$j < $::sr_bond_totals} {incr j} {
    419406         set temp_dist [lindex $::sr_all_bonds $j]
    420          puts "$j  [lindex $temp_dist 13]"
    421407         if {$::sr_restraintdist([lindex $temp_dist 13]) != ""} {
    422408            lappend ::sr_restraints_only $temp_dist
     
    433419#          set ::sr_write ""
    434420          set len [llength $::sr_all_bonds]
    435           puts $len
    436421          for {set i 0} {$i <= [expr $len-1]} {incr i} {
    437422                    set temp [lindex $::sr_all_bonds $i]
     
    442427                                $::sr_restraintdist([lindex $temp 13])\
    443428                                $::sr_restraintesd([lindex $temp 13])"
    444                                 puts $softrest
    445429                                lappend sr_write $softrest
    446430                    }
     
    454438          afterputontop
    455439     } else {
    456              puts "invalid restaint / esd.  Save aborted"
     440            bell
     441             #puts "invalid restaint / esd.  Save aborted"
    457442            }
    458443}
     
    465450     foreach i [array names ::sr_crestraint] {
    466451             if {$::sr_crestraint($i) == 1} {
    467                 puts "::sr_restraintdist($i) $::sr_rvalue"
     452                #puts "::sr_restraintdist($i) $::sr_rvalue"
    468453                set ::sr_restraintdist($i) $::sr_rvalue
    469454                set ::sr_restraintesd($i) $::sr_resd
Note: See TracChangeset for help on using the changeset viewer.