I have an entry widget like this:
(mk-entry :id :callsign-entry
:value (c?n (let ((pm (selected-pm (fm^ :pmutil-gui))))
(if pm
(callsign pm))))
:enabled (c? (pm-selected-p (fm^ :pmutil-gui)))
:width 17
:tk-justify 'left
:relief 'sunken
:borderwidth 1
:parent-x 424
:parent-y 321
:background (c_? (required-field-color .parent))
:tile? nil)
Intention is to be able to set the value initially and afterwards
have the rule kick-in and setting the value automagically. Alas,
neither the initial setting of the value really works nor does the
cell rule fire ...
Are the rules off here or is it just another point where a tiny little code fragment is missing in Celtk that drives the entry widget?
Any pointers really appreciated! Frank
PGP.sig
Description: PGP signature
_______________________________________________ cells-devel site list [email protected] http://common-lisp.net/mailman/listinfo/cells-devel
