Changeset 150 for trunk/atomcons.tcl

Timestamp:

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

Author:

toby

Message:

# on 2000/05/18 15:54:08, toby did:
fix bugs (already!)
test for more that 100 parmaters in a constraint

File:

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

trunk/atomcons.tcl

@@ -16 +16 @@
     # a profile constraints page (someday)
     $expgui(consFrame).n  insert end profile -text Profile -state disabled
-    
-    # open the atom constraints page
-    $expgui(consFrame).n raise atomic
+}
+
+# this is used to update the contents of the constraint page when displayed
+proc DisplayConstraintsPane {} {
+    global expgui
+    set page [$expgui(consFrame).n raise]
+    # open the atom constraints page if no page is open
+    if {$page == ""} {
+        set page atomic
+        $expgui(consFrame).n raise atomic
+    } else {
+        set pageupdate [$expgui(consFrame).n itemcget $page -raisecmd]
+        catch $pageupdate
+    }
 }
 
@@ -293 +304 @@
             -command "SaveAtomConstraint $num $top"] \
             -column 0 -row 4
-#    set cmd "if {!\[tk_dialog .changes {Abandon Changes} \
-#               {Do you want to lose any changes made to this constraint?} \
-#               warning 0 {Abandon\nChanges} {Continue\nEdit}\]} \
-#               {destroy $top}"
     grid [button $top.quit -text "Cancel Changes" \
             -command "DeleteEditAtomConstraint $top"]  -column 1 -row 4
@@ -602 +609 @@
                     # error if mult is invalid
                     if [catch {expr $mult}] {
-                        tk_dialog .badmult "Bad Multiplier" \
+                        MyMessageBox -message \
                                 "Multiplier value \"$mult\" in column $ic is invalid" \
-                                error 0 Fix
+                                -parent [winfo toplevel $expcons(atommaster)] \
+                                -type {Fix} -default fix -icon error
                         return
                     }
@@ -613 +621 @@
             }
         }
+        # maximum number of parameters in a constraint is 100
+        if {[llength $clist] > 100} {
+            MyMessageBox -message \
+                    "There are [llength $clist] parameters in this constraint, but only 100 are allowed in an atom constraint." \
+                    -parent [winfo toplevel $expcons(atommaster)] \
+                    -type {Fix} -default fix -icon error
+            return
+        }
         if {$num == "new"} {
             constrinfo atom add {} $clist