Design Scripting Documentation


	Dispose Element


	Inputs:

an index


	Outputs:

the disposed element

Implementation

01  function dispose( index )
02    if( ( index < 0 ) or ( index >= pointer + 1 ) ) then
03      retrieve = vbnull
04      exit function
05    else
06      if( isobject( elements( index ) ) ) then
07        set dispose = elements( index )
08      else
09        dispose = elements( index )
10      end if
11      dim skip: skip = index
12      do while( skip < pointer )
13        if( isobject( elements( skip + 1 ) ) ) then
14          set elements( skip ) = elements( skip + 1 )
15        else
16          elements( skip ) = elements( skip + 1 )
17        end if
18        skip = skip + 1
19      loop
20      pointer = pointer - 1
21    end if
22  end function

The Design Scripting Library, including its sources, online documentation and graphics, are licensed under a Creative Commons Attribution-NonCommercial-ShareAlike 2.5 License.

Online Documentation generated by { vbdoclib } version 1.0
Color-Coding generated by { vbcc } version 2.0
Page timestamp: { Feb. 2, 2006 }