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
signature.asc
Description: Digital signature

