ToolBarEnabled Function
Expand/Collapse source code of procedure ToolBarEnabled Source Code
  *- Return value of Toolbar object
  PARAMETER oObject
  LOCAL oToolObj
  oToolObj = "oApp.oToolBar." + oobject + ".enabled"
  IF TYPE(oToolObj) # "L"
    RETURN .F. 
  ELSE
    RETURN EVAL(oToolObj)
  ENDIF