examples/test_modal.tcl

   1 #!/usr/bin/itkwish3.1
   2
   3 source "boilerplate.tcl"
   4
   5 wm withdraw .
   6
   7 Confirm .confirm
   8
   9 if {[.confirm ask "Are you sure?" "Yes" "No"] == "Yes"} {
  10         puts "Yes"
  11 } else {
  12         puts "No"
  13 }
  14
  15 exit