1 # vim: foldmarker=<<<,>>>
9 variable type "info" set_icon
11 method display {msg args}
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
27 message $w.msg -justify left -width 400
29 eval itk_initialize $args
32 $::tlc::theme register_handler onchange [code $this set_icon]
36 body tlc::Infowin::display {msg args} { #<<<1
37 if {[llength $args] == 0} {
41 $w.msg configure -text $msg
43 if {[winfo exists $w.tools]} {
48 foreach button $args {
49 $w.tools add $button [code $this choose $button]
52 blt::table $w -padx 5 -pady 5 \
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
58 $w.tools item_focus [lindex $args 0]
66 body tlc::Infowin::set_icon {} { #<<<1
69 set image [$::tlc::theme get_icon exclaimation]
73 set image [$::tlc::theme get_icon info]
77 $w.icon configure -image $image