SUPER
SUPER
Retorna uma referência ao objeto corrente que irá utilizar a implementação simbólica da classe herdada.
Exemplos
' MyListBox class
INHERITS ListBox
PRIVATE $cPos AS NEW Collection
PRIVATE $aKey AS NEW String[]
...
' Reimplementa o método Add
PUBLIC SUB Add(Text AS String, Key AS String, OPTIONAL Pos AS Integer = -1)
' Adiciona o item ao list box
SUPER.Add(Text, Key, Pos)
' Adiciona uma chave
IF Pos \< 0 THEN
$cPos.Clear
$cPos[Key] = $aKey.Count
$aKey.Add(Key)
ELSE
$aKey.Add(Key, Pos)
ENDIF
END
...
Veja também