lang • super

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