PUSHBUTTON + ISPRESSED

[tonyx]

VERSAO XH 1.0
fazer menu simples usava @ prompy

vi modelo do manual do XH; PUSHBUTTON com ISPRESSED()

ao compilar da error nao achar o ISPRESSED() em que lib esta ??
//--------
nao sei se passo para o modelo RADIOGROUP

ATE VI ALGO SOBRE O VISUAL.CH - MAS TENTAR PUSHBUTTON MAIS FACIL

AGRADECO AJUDA :'(

[sygecom]

Código: Selecionar todos

FUNCTION IsPressed( nButton )
      IF GetActive():control:buffer
         ReadKill( .T. )
      ELSE
         nButton := 0
      ENDIF
   RETURN nButton