scripts/application.itk

   1 # vim: ft=tcl ts=4 shiftwidth=4 foldmethod=marker foldmarker=<<<,>>>
   2
   3 proc tlc::application {pathName args} {
   4         uplevel tlc::Application $pathName $args
   5 }
   6
   7
   8 class tlc::Application {
   9         inherit tlc::Module tlc::Baselog
  10
  11         constructor {args} {}
  12         destructor {
  13                 if {$armed && $::errorInfo != ""} {
  14                         log error "\nerror constructing Application: $errmsg\n$::errorInfo"
  15                 }
  16                 exit 0
  17         }
  18
  19         public {
  20                 variable debug                  0
  21                 variable confirm_close  unsaved
  22         }
  23
  24         protected {
  25                 variable armed                  1
  26                 variable unsaved_info   ""
  27
  28                 method confirm_close    {}
  29         }
  30 }
  31
  32
  33 body tlc::Application::constructor {args} { #<<<1
  34         eval itk_initialize $args
  35
  36         namespace eval $this {}
  37
  38         tlc::Gate ${this}::unsaved_info unsaved_info -mode "or"
  39
  40         configure -onclose [code $this confirm_close]
  41
  42         package require BLT
  43         namespace import ::blt::*
  44
  45         wm withdraw .
  46
  47         tlc::Confirm .confirm -title "Confirm Action"
  48         tlc::Deny .deny -title "Permission Denied"
  49         tlc::Getinf .getinf -title "Question"
  50         tlc::Infowin    .nfo    -title "Information"
  51
  52         set armed       0
  53 }
  54
  55
  56 body tlc::Application::confirm_close {} { #<<<1
  57         if {$confirm_close == "unsaved"} {
  58                 if {
  59                         ![${this}::unsaved_info state]
  60                         || [.confirm ask "You have unsaved information!\nAre you sure you want to exit?" Yes No] == "Yes"
  61                 } {
  62                         delete object $this
  63                 }
  64         } elseif {$confirm_close} {
  65                 if {[.confirm ask "Are you sure you want to exit?" Yes No] == "Yes"} {
  66                         delete object $this
  67                 }
  68         } else {
  69                 delete object $this
  70         }
  71 }
  72
  73