Lines 29-40
Link Here
|
29 |
if {$cvscfg(confirm_prompt) != "true"} { return 0 } |
29 |
if {$cvscfg(confirm_prompt) != "true"} { return 0 } |
30 |
if {! [winfo exists $parent]} {set parent .} |
30 |
if {! [winfo exists $parent]} {set parent .} |
31 |
set title {Confirm!} |
31 |
set title {Confirm!} |
32 |
tk_messageBox \ |
32 |
set answer [tk_messageBox \ |
33 |
-icon question \ |
33 |
-icon question \ |
34 |
-title $title \ |
34 |
-title $title \ |
35 |
-message $mess \ |
35 |
-message $mess \ |
36 |
-parent $parent \ |
36 |
-parent $parent \ |
37 |
-type okcancel |
37 |
-type okcancel] |
|
|
38 |
if {$answer == "ok"} { |
39 |
return 0; |
40 |
} else { |
41 |
return 1; |
42 |
} |
38 |
} |
43 |
} |
39 |
|
44 |
|
40 |
proc cvsfail {mess {parent {.}} } { |
45 |
proc cvsfail {mess {parent {.}} } { |