1578
1579
1580
1581
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591
|
1578
1579
1580
1581
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591
1592
1593
|
+
+
|
-underline 0
bind $w <Alt-o> [list $w.ok invoke]\;break
bind $w <Alt-c> [list destroy $w]\;break
bind $w <Key-Escape> [list destroy $w]\;break
grid $w.t - -sticky news -padx 3 -pady 3
grid $w.ok $w.ca -padx 3 -pady 3
grid columnconfigure $w $w.t -weight 1 -uniform a
grid rowconfigure $w $w.t -weight 1
tkwait visibility $w
focus -force $w.t
tkwait window $w
if {$::eskil($top,logdialogok)} {
set res [string trim $::eskil(logdialog)]
set ::eskil(logdialog) $res
|