Tem fontes da minigui que fico confuso

[JoséQuintas]

Fico confuso com esse fonte

Código: Selecionar todos

*--------------------------------------------------------*
Static Procedure MsgBalloon( cMessage, cTitle )
*--------------------------------------------------------*
   Local i := Ascan( _HMG_SYSDATA, GetFormHandle("Main") )

   Default cMessage := "Prompt", cTitle := PROGRAM

   ShowNotifyInfo( _HMG_SYSDATA[i], .F. , NIL, NIL, NIL, NIL )

   ShowNotifyInfo( _HMG_SYSDATA[i], .T. , LoadTrayIcon( GetInstance(), ;
      "Speak1.ico" ), "", cMessage, cTitle )

Return

Pequeno e confuso.

A princípio não teria como fazer isso com classe.
Mas .....

Pega o handle da janela Main.
Procura na lista se tem elemento com o handle, digamos que encontra o elemento 5.
E aí, usa o conteúdo do elemento 5.
Se não encontrar, daria erro.

O que deixa confuso ?
Tem o handle, procura o handle, e usa o handle.
Procurou pra que ? se já tem ?

Digamos que o array é _hmg_sysdata := { 10, 20, 30, 40, 50 }
procura o 50, é o elemento 5
usa _hmg_sysdata[ 5 ], que contém 50

Então... porque procurar 50, se vai usar 50, faz sentido ?

Até pensei na hipótese do zero, mas daria erro.
Se não encontrar é ZERO, e _HMG_SYSDATA[ ZERO ] daria erro.

Ainda não mexi nesse fonte, está todo original ainda.
Se eu tivesse mexido, acharia que fiz coisa errada.