Ignore:
Timestamp:
Apr 20, 2011 12:30:01 PM (10 years ago)
Author:
lake
Message:
 
File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/sandbox/rbimport_cartesian.tcl

    r1133 r1135  
    1313     pack [frame $cart.con -bd 2 -relief groove] -side top
    1414     pack [frame $cart.display -bd 2 -relief groove] -side top -expand 1 -fill both
     15     pack [frame $cart.save -bd 2 -relief groove] -side bottom
    1516     wm title $cart "Load rigid body information from cartesian coordinate file"
    1617     wm geometry $cart 600x600+10+10
     
    2930
    3031     grid [button $cart.con.but -text "Load Coordinates from File" -width 22 -command "RB_cart $cart.display"] -row 2 -column 1
    31      grid [button $cart.con.but2 -text "Save Cartesian Coordinates" -width 22 -command "RB_cart_Build"] -row 3 -column 1
    32 
    33      grid [button $cart.con.but3 -text "Quit" -width 22 -command "destroy .cartesian"] -row 4 -column 1
     32     grid [button $cart.save.but2 -text "Save Cartesian \n Coordinates" -width 15 -command "RB_cart_Build"] -row 2 -column 1 -padx 5
     33     $cart.save.but2 config -state disable
     34     grid [button $cart.save.but3 -text "Abort" -width 15 -command "destroy .cartesian"] -row 2 -column 3 -padx 5 -sticky ns
    3435}
    3536
     
    3738     catch {unset array ::tline}
    3839     set ::rb_file_load [tk_getOpenFile -parent .cartesian -filetypes {
    39             {"Cratesian input" .cart} {"All files" *}}]
     40            {"Cartesian input" .cart} {"All files" *}}]
    4041     if {[string trim $::rb_file_load] == ""} return
    4142     set fh [open $::rb_file_load r]
     
    5657     }
    5758     RB_cart_Display $location
     59     .cartesian.save.but2 config -state normal
    5860
    59  }
     61}
    6062
    6163 proc RB_cart_Display {location args} {
     
    130132
    131133     set x 1
     134
     135     catch {array unset ::rb_x $bodytyp,1,*}
     136     catch {array unset ::rb_y $bodytyp,1,*}
     137     catch {array unset ::rb_z $bodytyp,1,*}
     138
     139
    132140     for {set coordnum 1} {$coordnum <= $sitenum} {incr coordnum} {
    133141         if {$::rb_dummy_atom($coordnum) != 1} {
Note: See TracChangeset for help on using the changeset viewer.