View | Details | Raw Unified | Return to bug 9914
Collapse All | Expand All

(-)/usr/share/tkcvs/errors.tcl.save (-2 / +7 lines)
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 {.}} } {

Return to bug 9914