;; | ----------------------------------------------------------------------------
;; | MI_GetHighestPullDownMenu
;; | ----------------------------------------------------------------------------
;; | Function : Returns the number of the highest pulldown menu currently loaded
;; | Arguments: (none)
;; | Returns  : An integer, which is numerically the highest pulldown menu.
;; | Updated  : February 8, 1999
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun MI_GetHighestPullDownMenu( / Counter )
(setq Counter 1)
(while (menucmd (strcat "P" (itoa Counter) ".1=?"))
	(setq Counter (1+ Counter))
)
(1- Counter)
)