Changeset 233

Timestamp:

Dec 4, 2009 5:02:37 PM (14 years ago)

Author:

toby

Message:

# on 2000/07/06 21:36:22, toby did:
add profile constraint subpage
rename DeleteEditAtomConstraint? to CancelEditConstraint?

File:

• trunk/atomcons.tcl (modified) (5 diffs, 3 props)

trunk/atomcons.tcl

@@ -15 +15 @@
             -createcmd "MakeAtomsConstraintsPane" \
             -raisecmd "DisplayAtomConstraints"]    
-    # a profile constraints page (someday)
-    $expgui(consFrame).n  insert end profile -text Profile -state disabled
+    # profile constraints page
+    catch {
+        source [file join $expgui(scriptdir) profcons.tcl]
+        set expcons(profilemaster) [\
+                $expgui(consFrame).n  insert end profile -text Profile \
+                -createcmd "MakeProfileConstraintsPane" \
+                -raisecmd "DisplayProfileConstraints"]    
+    }
 }
 
@@ -220 +226 @@
         grid $expcons(atommaster).scroll -sticky ns -column 2 -row 0
     }
-    # report constraint errors
     $expcons(atommaster).canvas config \
             -height $maxheight \
             -width [lindex $sizes 2]
+    $expgui(consFrame).n compute_size
+    # report constraint errors
     set msg {}
     foreach key [lsort [array names varlist]] {
@@ -306 +313 @@
             -column 0 -row 4
     grid [button $top.quit -text "Cancel Changes" \
-            -command "DeleteEditAtomConstraint $top"]  -column 1 -row 4
+            -command "CancelEditConstraint $top"]  -column 1 -row 4
 
     set col 0
@@ -336 +343 @@
         incr ic
         regexp {(.*)_(.*)_(.*)} $key dummy phase var mult
-}
+    }
     # delete traces on expcons(var1)
     foreach v [ trace vinfo expcons(var1)] {
@@ -380 +387 @@
 
 # called when the "Cancel Changes" button is pressed
-proc DeleteEditAtomConstraint {top} {
+proc CancelEditConstraint {top} {
     set ans [MyMessageBox -type "{Abandon Changes} {Continue Edit}" \
             -parent [winfo toplevel $top] -default "abandon changes" \