<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en" dir="ltr">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<link rel="stylesheet" href="../../style.css">
<title>
Gambas Documentation - SUPER
</title>
</head>
<table class="none" width="100%" cellpadding="0" cellspacing="0" border="0">
<tr><td align="left">
<font size="-1">
<a href="../../help+en"><img class="flag" alt="Home" border="0" src="../../img/lang/en.png" align="center"></a>&nbsp;
<a href="../lang+en">Up</a>&nbsp;
<a href="subst+en">Previous</a>&nbsp;
<a href="swap+en">Next</a>&nbsp;
</td></tr></table>
<div class="notab">
<h1>
SUPER
</h1>
<div class="black"><font size="-2"><b>Syntax</b></font></div>
<pre class="syntax"><b>SUPER</b></pre><p>

Return a reference to the current <a href="../def/object+en">object</a> that will use the symbol implementation of the inherited class.
<p>
<div class="gray"><font size="-2"><b>Example</b></font></div>
<pre class="example">' 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 &lt; 0 THEN
    $cPos.Clear
    $cPos[Key] = $aKey.Count
    $aKey.Add(Key)
  ELSE
    $aKey.Add(Key, Pos)
  ENDIF

END
...</pre>
<p>
<hr><b>See also</b><br>
<a href="../cat/object+en">Object &amp; Class Management</a>&nbsp;

</div>
</body>
</html>

