Changeset 607 for trunk/profcons.tcl

Timestamp:

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

Author:

toby

Message:

# on 2002/07/03 21:06:49, toby did:
Bug fix: cancel button was broken on Add/Edit? profile constraint
Enable continue button on "Editing New Profile Constraint" menu only if

terms are selected.

File:

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

trunk/profcons.tcl

@@ -357 +357 @@
             ] -column 0 -row 5 -sticky ns
     grid [button $top.quit -text "Cancel\nChanges" \
-            -command "CancelEditConstraint $top" \
+            -command "CancelEditProfileConstraint $top $num" \
             ]  -column 1 -row 5
     grid [button $top.help -text Help -bg yellow \
@@ -412 +412 @@
     tkwait window $top
     afterputontop
+}
+
+# called when the "Cancel Changes" button is pressed
+proc CancelEditProfileConstraint {top num} {
+    global expcons
+    if {$num == "add"} {destroy $top; return}
+    set ans [MyMessageBox -type "{Abandon Changes} {Continue Edit}" \
+            -parent [winfo toplevel $top] -default "abandon changes" \
+            -helplink "expguierr.html AbandonEditConstraints" \
+            -icon warning -message  \
+            {Do you want to lose any changes made to this constraint?}]
+    if {$ans == "abandon changes"} {destroy $top}
 }
 
@@ -659 +671 @@
                 -text $i] -column $i -row 3
     }
-    grid [button $top.b1 -text Continue \
-            -command "set expcons(createflag) 1"] -column 0 -row 5
+    grid [set expcons(ProfileCreateContinueButton) [button $top.b1 \
+            -text Continue -command "set expcons(createflag) 1"]] \
+            -column 0 -row 5
     grid [button $top.b2 -text Cancel \
             -command "set expcons(createflag) 0"] -sticky w -column 1 -row 5
@@ -720 +733 @@
         }
         grid [checkbutton $top.$i -text "#$i ($lbl)" \
-                -variable expcons(newcons$i) \
+                -variable expcons(newcons$i) -command DisableProfileContinue \
                 ] -column $col -row $row -sticky w
     }
-}
+    DisableProfileContinue
+}
+
+proc DisableProfileContinue {} {
+    global expcons
+    set p $expcons(ProfilePhase)
+    set ptype $expcons(ProfileFunction)
+    set htype $expcons(ProfileHistType)
+    set termlist {}
+    set i 0
+    foreach lbl [GetProfileTerms $p $htype $ptype] {
+        incr i
+        if {$expcons(newcons$i)} {lappend termlist $i}
+    }
+    if {$termlist == ""} {
+        $expcons(ProfileCreateContinueButton) config -state disabled
+    } else {
+        $expcons(ProfileCreateContinueButton) config -state normal
+    }
+}