Design Scripting Documentation


	Right Shift (alias of insert(0))


	Inputs:

nothing


	Outputs:

the "not really disposed" element

Implementation

01  function rshift( )
02    if( pointer >= 0 ) then
03      if( isobject( elements( pointer ) ) ) then
04        set rshift = elements( pointer )
05      else
06        rshift = elements( pointer )
07      end if
08      call insert( 0, vbnull )
09    else
10      rshift = vbnull
11    end if
12  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 }