[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: hiliting of editable text in newly created dialog?
- To: email@example.com
- Subject: Re: hiliting of editable text in newly created dialog?
- From: firstname.lastname@example.org (Richard Lynch)
- Date: Wed, 31 Oct 90 14:28:50 CST
- Cc: email@example.com
>When I create a new dialog window one of the
>editable text boxes gets hilited if it has text in it (execute
>example below). How can I prevent this hiliting?
> :dialog-items (list (oneof *editable-text-dialog-item*
> :dialog-item-text "hi there")))
(defobfun (add-self-to-dialog *my-subclass-of-editable-text-dialog-item*)
(let ((teptr (ask dialog te-handle))
(ask dialog (set-current-editable-text self)) ;Maybe already done, so
(_TESetSelect :long 0 :long 0 :ptr teptr)
;Hmmmm. Maybe these constants (0) need to be replaced by a (let
((start 0) (end 0)...?
This should get you started. You may be able to do a test and see if this
is the _1st_ editable-text, which is probably the only one for which the
_TESetSelect is done by MACL to be the whole text.
"TANSTAAFL" Rich firstname.lastname@example.org