of_toolbarexists

pfcwnsrv.pbl   >   pfc_n_cst_menu   >   of_toolbarexists

Name	Datatype
lb_null	boolean
lb_toolbarexists	boolean
li_cnt	integer
li_limit	integer

public function boolean of_toolbarexists (menu am_source);//////////////////////////////////////////////////////////////////////////////
//
//	Function:  		of_ToolbarExists
//
//	Access:  		public
//
//	Arguments:		
//	am_source			The menu that should be searched.
//
//	Returns:  		boolean
//						True if it Toolbar Exists.
//						False if the Toolbar does not Exists.
//						If any argument's value is NULL or not Valid,
//						  function returns NULL.
//						
//
//	Description:  	Determines if the toolbar exists on the passed menu.
//
//////////////////////////////////////////////////////////////////////////////
//
//	Revision History
//
//	Version
//	5.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
//	Copyright © 1996-1997 Sybase, Inc. and its subsidiaries.  All rights reserved.
//	Any distribution of the PowerBuilder Foundation Classes (PFC)
//	source code by other than Sybase, Inc. and its subsidiaries is prohibited.
//
//////////////////////////////////////////////////////////////////////////////

integer	li_limit
integer	li_cnt
boolean	lb_toolbarexists

//Check arguments
If Not IsValid(am_source) or IsNull(am_source) Then
	boolean lb_null
	SetNull(lb_null)
	Return lb_null
End If

If Len (am_source.ToolbarItemName) > 0 Then
	Return True
End If
	
//Search through the rest of the menu until an item with a 
//Toolbar item is found.
li_limit = UpperBound (am_source.item)
For li_cnt = 1 to li_limit
	lb_toolbarexists = of_ToolbarExists (am_source.item[li_cnt])
	If lb_toolbarexists = True or IsNull(lb_toolbarexists) Then
		Return lb_toolbarexists
	End If
Next

Return False

end function

Name	Owner
pfc_n_cst_winsrv_preference.of_save	pfc_n_cst_winsrv_preference
pfc_n_cst_menu.of_toolbarexists	pfc_n_cst_menu

Name	Owner
systemfunctions.isnull	systemfunctions
systemfunctions.isvalid	systemfunctions
systemfunctions.len	systemfunctions
systemfunctions.setnull	systemfunctions
systemfunctions.upperbound	systemfunctions
pfc_n_cst_menu.of_toolbarexists	pfc_n_cst_menu