Changeset 197 for trunk/addcmds.tcl


Ignore:
Timestamp:
Dec 4, 2009 5:02:01 PM (11 years ago)
Author:
toby
Message:

# on 2000/06/09 03:44:05, toby did:
remove puts debugging commands

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/addcmds.tcl

    • Property rcs:date changed from 2000/06/01 02:46:47 to 2000/06/09 03:44:05
    • Property rcs:lines changed from +128 -56 to +1 -3
    • Property rcs:rev changed from 1.6 to 1.7
    r179 r197  
    749749    while {![catch {grid info $np.e[incr row]t}]} {
    750750        if !{$expgui(UseAtom$row)} continue
    751 puts "Use $row"
    752751        # ignore blank entries
    753752        set line {}
     
    756755        }
    757756        if {$line == ""} continue
    758         puts "not blank $row"
    759757        # validate the input
    760758        if {[set type [string trim [$np.e${row}t get]]] == ""} {
Note: See TracChangeset for help on using the changeset viewer.