21 Mar
2007
21 Mar
'07
3:50 a.m.
Hi,
The command to set the cursor position in an entry widget (icursor) is missing in LTK. Here is a function that implements it. I don't know the way to do it for a text widget, though.
(defmethod (setf cursor-index) (idx (e entry)) (format-wish "senddata [~a icursor ~(~a~)]" (widget-path e) idx))
With this, (setf (cursor-index entry-widget) :end) will ensure that the insertion cursor is at the end of the field.
Cheers Sudhir