shownavtoolbar Method
Class: application
Expand/Collapse source code of procedure shownavtoolbar Source Code
LPARAMETERS tcToolBar
*-- Create and show the navigation toolbar if this is the first
*-- form instance. Otherwise, just increment the number of
*-- form instances. 
IF this.nFormInstanceCount = 0
  SET SYSMENU ON
  this.oToolBar = CREATEOBJECT(tcToolBar)
  this.oToolBar.Show()
  this.oToolBar.Refresh()
  DO navigate.mpr
ENDIF
this.nFormInstanceCount = this.nFormInstanceCount + 1