On Thursday, May 23, 2002, at 11:24  PM, Douglas Stemen wrote:

> The following example code demonstrates the bug with static edit fields 
> that
> I am experiencing in my accounting program.
>
> In this example, a regular edit field can be made static and then 
> return to
> non-static.
>
> A static edit field cannot be made non-static.


There are some limitations on converting between static and editable 
fields in the Appearance runtime.
(1) The window must have the _noAutoFocus FB attribute.
(2) If a field is ever going to become editable, it must first be 
created editable (this sets up additional information internally).
(3) After changing a field to static, you must 'divert' the focus either 
to another field or to nowhere (with edit field 0).

Your demo can be made to work by following those (until now 
undocumented) tips.


local fn doDialog
dim as long  evnt
evnt = dialog( 0 )
select evnt
case _btnClick
long if button( 1 ) // make EF 1 static
edit field 1, "static",, _statFramed
edit field 2, "",, _framedNoCR
xelse // make EF 2 static
edit field 2, "static",, _statFramed
edit field 1, "",, _framedNoCR
end if
end select
end fn


appearance window 1,,,,, _noAutoFocus

edit field 1,, (10,10)-(100,25), _framedNoCR _usePlainFrame

// if a field is ever going to be editable, it must be created editable
edit field 2, "static", (120,10)-(220,25), _framedNoCR _usePlainFrame
// change it to be static:
edit field 2,,, _statFramed
// complete the change by setting focus elsewhere:
edit field 1

appearance button 1,, 0,,, "1 is static", (10,50)-(120,70),¬
                   _kControlCheckBoxAutoToggleProc
on dialog fn doDialog
do
handleevents
until 0



Robert P.