580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
|
text $w.t -width 70 -height 10
if {!$clean && [info exists ::diff(logdialog)]} {
$w.t insert end $::diff(logdialog)
$w.t tag add sel 1.0 end-1c
$w.t mark set insert 1.0
}
button $w.ok -width 10 -text "Commit" -underline 1 \
-command "set ::diff($top,logdialogok) 1 ; \
set ::diff(logdialog) \[$w.t get 1.0 end\] ; \
destroy $w"
button $w.ca -width 10 -text "Cancel" -command "destroy $w" -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
tkwait visibility $w
|
|
|
>
|
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
|
text $w.t -width 70 -height 10
if {!$clean && [info exists ::diff(logdialog)]} {
$w.t insert end $::diff(logdialog)
$w.t tag add sel 1.0 end-1c
$w.t mark set insert 1.0
}
ttk::button $w.ok -width 10 -text "Commit" -underline 1 \
-command "set ::diff($top,logdialogok) 1 ; \
set ::diff(logdialog) \[$w.t get 1.0 end\] ; \
destroy $w"
ttk::button $w.ca -width 10 -text "Cancel" -command "destroy $w" \
-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
tkwait visibility $w
|