Ignore:
Timestamp:
Apr 14, 2011 2:54:42 PM (10 years ago)
Author:
lake
Message:

Rigid.tcl, expgui, addcmds.tcl and rbimport_cartesian.tcl updates. Simple sort routine added to Edit Matrix.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/sandbox/rbimport_cartesian.tcl

    r1121 r1131  
    3535
    3636proc RB_cart {location args} {
     37     catch {unset array ::tline}
    3738     set ::rb_file_load [tk_getOpenFile -parent .cartesian -filetypes {
    3839            {"Cratesian input" .cart} {"All files" *}}]
    3940     if {[string trim $::rb_file_load] == ""} return
    4041     set fh [open $::rb_file_load r]
    41      set ::rb_linenum 1
    42      while {[eof $fh] != 1} {
    43            set temp [gets $fh line]
    44            set ::tline($::rb_linenum) [string map {, " "} $line]
    45 #           puts "$::rb_linenum line = $::tline($::rb_linenum)"
    46            incr ::rb_linenum
     42     set ::rb_linenum 0
     43     while {[gets $fh line] >= 0} {
     44           set line [string trim $line]
     45           if {$line == ""} continue
     46#           puts "blankcheck = $blankcheck\ntemp = $temp"
     47#           set temp [string trim $line " "]
     48#           if {$blankcheck != "0" && $blankcheck != "-1"}
     49#           if {$blankcheck != ""} {
     50              incr ::rb_linenum
     51              set ::tline($::rb_linenum) [string map {, " "} $line]
     52              puts "::tline($::rb_linenum) = $::tline($::rb_linenum) "
     53#           }
     54
     55
    4756     }
    4857     RB_cart_Display $location
     58
    4959 }
    5060
Note: See TracChangeset for help on using the changeset viewer.