Ok... so I've been working on implementing the widget support for the 21.2
branch of the GTK code. And it striked me that shoe-horning this into the
glyph code is pretty horrible.
Why not have a very thin lisp wrapper around the various widget functions
we need and then just have a simple glyph specification like:
[widget :widget foo]?
Does anybody really think it is easier or more intuitive to write this:
;; progress the progress ...
(let ((x 0))
(while (<= x 100)
(set-glyph-image pgauge `[progress-gauge :width 10 :height 2
:descriptor "ok" :value ,x])
(setq x (+ x 5))
(sit-for 0.1)))
Than:
(let ((x 0))
(while (<= x 100)
(progress-gauge-set-value progress-gauge x)
(setq x (+ x 5))
(sit-for 0.1)))
Maybe I've just been spoiled by writing so much stuff using the GTK
bindings, but the glyph stuff seems incredibly painful for the limited
`api' we are exposing for the widgets.
No offense meant Andy, you've done a great job getting the code as far as
it is. I just don't see how a medium-to-large GUI project could use the
current stuff without going bonkers in the process.
I'm going go listen to the new dropkick murphys cd and try not to think
about XEmacs for a night now that jen is back home. :)
-Bill P.