On Wed, Jul 04, 2012 at 10:33:05PM +0400, Alexander Galanin wrote: > Абсолютно. Там делов-то: > set f [open |"cdrecord {*}$cdrecordArgs" r+] > fileevent $f readable [list handleLine $f] > … > proc handleLine {f} { > if {[gets $f line] >= 0} { > if {[regexp {...(\d+)% written...} $line _ percent]} { > displayPercentOnWidget $percent > } > } else { > if {[eof $f]} { > close $f > displayFinishMessage > } > } > } Я тебе такое и на C++/Qt за вечер напишу. Ты лучше расскажи, какой процент функционала k3b ты этим покрыл... И расскажи, сколько нужно потом юзеру ругаться матом, чтобы в этом Tk шрифты выглядели нормально... -- WBR, Dmitry
Attachment:
signature.asc
Description: Digital signature