Click Method
Object:tstoolbar.cmdPrior
Expand/Collapse source code of procedure cmdPrior.Click Source Code
LOCAL lnResult
lnResult = _screen.ActiveForm.Prior()
DO CASE
  CASE lnResult = FILE_BOF
    this.Parent.Refresh("BOF")
  CASE lnResult = FILE_OK
    this.Parent.Refresh()
ENDCASE