Mudar de Cor Fill-in

Boa Tarde,
Gostaria de saber se existe uma forma de mudar de cor a fill-in quando entramos nela e voltar a cor que era quando sair, mas isso eu queria da seguinte maneira, colocar este comando na main-block, que seria geral, não precisaria fazer uma a uma....
Fazendo uma a uma já tenho hoje, mas dá muito trabalho e pesa o programa, gostaria de saber se tem como colocar em um local apenas como regra para todas as fill-in?
Hoje faço assim na própria fill-in
Na entrada:
ENTRY
fill-in:bgcolor = 14.
END.

Na Saída:
LEAVE
fill-in:bgcolor = ?.
END.

voce pode fazer desta forma:

Código:

on entry of current-window anywhere
do:
    if self:type = "fill-in" then
        self:bgcolor = 14.
end.

on leave of current-window anywhere
do:
    if self:type = "fill-in" then
        self:bgcolor = ?.
end.

Onde devo colocar este comando, na windows, na frame ou na mais block?

Att,

Diogo

Copie e cole o codigo no MAIN-BLOCK.

Colei o procedimento na main block, a sintax está ok, mas não funcionou, será q estou esquecendo alguma coisa?

Ops, agora deu certo, só não funciona na fill-in que eu utilisei o leav ou o entry para outras finalizadas, mas neste caso eu incluo o comento...
Obrigado colega!!!!