scripts/infowin.itk

   1 # vim: foldmarker=<<<,>>>
   2
   3 class tlc::Infowin {
   4         inherit tlc::Modal
   5
   6         constructor {args} {}
   7
   8         public {
   9                 variable                type    "info"          set_icon
  10
  11                 method display {msg args}
  12         }
  13
  14         private {
  15                 method set_icon {}
  16         }
  17 }
  18
  19
  20 body tlc::Infowin::constructor {args} { #<<<1
  21         option add *$wdb*Button.width                           12      widgetDefault
  22         option add *$wdb*Button.highlightThickness      1
  23         option add *$wdb*Button.takeFocus                       1
  24
  25         label $w.icon
  26
  27         message $w.msg -justify left -width 400
  28
  29         eval itk_initialize $args
  30         set_icon
  31
  32         $::tlc::theme register_handler onchange [code $this set_icon]
  33 }
  34
  35
  36 body tlc::Infowin::display {msg args} { #<<<1
  37         if {[llength $args] == 0} {
  38                 set args        "OK"
  39         }
  40
  41         $w.msg configure -text $msg
  42
  43         if {[winfo exists $w.tools]} {
  44                 destroy $w.tools
  45         }
  46
  47         Tools $w.tools
  48         foreach button $args {
  49                 $w.tools add $button [code $this choose $button]
  50         }
  51
  52         blt::table $w -padx 5 -pady 5 \
  53                 $w.icon         1,1 \
  54                 $w.msg          1,2 -padx {10 0} -fill x \
  55                 $w.tools        2,1 -cspan 2 -pady {8 0}
  56         blt::table configure $w c1 r2 -resize none
  57
  58         $w.tools item_focus [lindex $args 0]
  59
  60         waitresult
  61
  62         return $result
  63 }
  64
  65
  66 body tlc::Infowin::set_icon {} { #<<<1
  67         switch -- $type {
  68                 "exclamation" {
  69                         set image       [$::tlc::theme get_icon exclaimation]
  70                 }
  71
  72                 default {
  73                         set image       [$::tlc::theme get_icon info]
  74                 }
  75         }
  76
  77         $w.icon configure -image $image
  78 }
  79
  80