/ lang / super SUPER
Return a reference to the current object that will use the symbol implementation of the inherited class.
' MyListBox class
INHERITS ListBox
PRIVATE $cPos AS NEW Collection
PRIVATE $aKey AS NEW String[]
...
' Reimplements the Add method
PUBLIC SUB Add(Text AS String, Key AS String, OPTIONAL Pos AS Integer = -1)
' Adds the item to the list box
SUPER.Add(Text, Key, Pos)
' Adds the key to key array
IF Pos \< 0 THEN
$cPos.Clear
$cPos[Key] = $aKey.Count
$aKey.Add(Key)
ELSE
$aKey.Add(Key, Pos)
ENDIF
END
...