Changeset 917


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

# on 2008/04/15 17:30:18, toby did:
macro recording

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/profcons.tcl

    • Property rcs:date changed from 2005/03/24 21:57:52 to 2008/04/15 17:30:18
    • Property rcs:lines changed from +2 -2 to +6 -1
    • Property rcs:rev changed from 1.7 to 1.8
    r842 r917  
    570570        set i [lindex $item 0]
    571571        constrinfo profile$i delete [lindex $item 1]
     572        RecordMacroEntry "constrinfo profile$i delete [lindex $item 1]" 0
     573        RecordMacroEntry "incr expgui(changed)" 0
    572574        incr expgui(changed)
    573575    }
    … …  
    634636        if {$num != "add"} {
    635637            constrinfo profile$t set $num $conslist
     638            RecordMacroEntry "constrinfo profile$t set $num [list $conslist]" 0
    636639        } else {
    637640            constrinfo profile$t add $num $conslist
     641            RecordMacroEntry "constrinfo profile$t add $num [list $conslist]" 0
    638642        }
    639643        incr expgui(changed)
    640644    }
     645    if {[llength $term] > 0} {RecordMacroEntry "incr expgui(changed)" 0}
    641646    destroy $top
    642647    DisplayProfileConstraints
Note: See TracChangeset for help on using the changeset viewer.