Changeset 906 for trunk


Ignore:
Timestamp:
Dec 4, 2009 5:14:04 PM (14 years ago)
Author:
toby
Message:

# on 2008/04/15 17:10:13, toby did:
macro commands

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/atomcons.tcl

    • Property rcs:date changed from 2004/04/03 22:21:52 to 2008/04/15 17:10:13
    • Property rcs:lines changed from +22 -4 to +7 -1
    • Property rcs:rev changed from 1.13 to 1.14
    r777 r906  
    314314    foreach num [lsort -decreasing -integer $dellist] {
    315315        constrinfo atom delete $num
     316        RecordMacroEntry "constrinfo atom delete $num" 0
    316317        incr expgui(changed)
    317318    }
     319    RecordMacroEntry "incr expgui(changed)" 0
    318320    DisplayAtomConstraints $mode
    319321}
    … …  
    805807        if {$num == "new"} {
    806808            constrinfo atom add {} $clist
     809            RecordMacroEntry "constrinfo atom add {} [list $clist]" 0
    807810        } elseif {$clist != ""} {
    808811            constrinfo atom set $num $clist
     812            RecordMacroEntry "constrinfo atom set $num [list $clist]" 0
    809813        } else {
    810814            constrinfo atom delete $num
     815            RecordMacroEntry "constrinfo atom delete $num" 0
    811816        }
    812817        incr expgui(changed)
     818        RecordMacroEntry "incr expgui(changed)" 0
    813819    }
    814820    destroy $top
Note: See TracChangeset for help on using the changeset viewer.