Re: Несколько вопросов вразброс

[Alexander Galanin <al@galanin.nnov.ru>]

On Wed, 04 Jul 2012 22:26:10 +0400
"Артём Н." <artiom14@yandex.ru> wrote:

> > Это, конечно, не объясняет мотивов всех разработчиков, но некоторые вещи
> > на Tcl/Tk сделать настолько просто, что это не вызывает интереса. Нет
> > _вызова_. Например, аналог k3b пишется за пару вечеров (tkdvd,
> > например)
> Вы серьёзно? o.O

Абсолютно. Там делов-то:
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 сложно, и, сделав это, можно считать себя героем.
> An hero? Да ну нафиг. Лучше работу сделать и быть довольным
> нормальными радостями.

Тем не менее при живом tkdvd клепают комбайны вроде k3b. С отдельными
радостями по написанию класса, реализующего функциональность fileevent,
который ещё и поломался при переходе с qt3 на qt4 (читал как-то на
опеннете страдания разработчика k3b по этому поводу).

-- 
Alexander Galanin