SET SYSMENU TO DEFAULT 
SET SYSMENU AUTOMATIC
PUBLIC goMainWindow as Form 
PUBLIC ARRAY gaWindows[ 1 ]
goMainWindow=NEWOBJECT('TopLevel')
goMainWindow.Visible=.T.
READ EVENTS 
RELEASE ALL EXTENDED 

PROCEDURE NewWindow
	LOCAL n as Integer 
	n=ALEN(gaWindows)
	IF n> 1  OR VARTYPE(gaWindows[ 1 ])#'L'
		n=n+ 1 
	ENDIF 
	DIMENSION gaWindows[n]
	gaWindows[n]=NEWOBJECT('InTopLevel')
	gaWindows[n].Visible=.T.
ENDPROC 

PROCEDURE HideAll
*!*		LOCAL i as Integer 
*!*		FOR i= 1  TO ALEN(gaWindows)
*!*			IF VARTYPE(gaWindows[ 1 ])='O' AND !ISNULL(gaWindows[ 1 ])
*!*				gaWindows[i].Visible=.F.
*!*			ENDIF 
*!*		ENDFOR 
	LOCAL loWindow as Form
	FOR EACH loWindow IN _screen.Forms 
		loWindow.Visible= .F. 
	ENDFOR 
ENDPROC 

DEFINE CLASS TopLevel AS form
	ShowWindow =  2 
	Caption = "TopLevel"
	WindowState =  2 
	Name = "toplevel"
	PROCEDURE newwindow
		DO FORM form2
	ENDPROC
	PROCEDURE Init
		* *
		* * Menu Definition
		* *
		* *********************************************************
		*SET PROCEDURE TO proc.prg
		Define Menu My_menu_name In (this.Name) Bar
		DEFINE PAD test OF My_menu_name PROMPT "\<Test" COLOR SCHEME  3  
		DEFINE PAD _msm_windo OF My_menu_name PROMPT "\<Oкно" COLOR SCHEME  3  ;
		KEY ALT+O, ""
		ON PAD test OF My_menu_name ACTIVATE POPUP test
		ON PAD _msm_windo OF My_menu_name ACTIVATE POPUP _msm_windo
		DEFINE POPUP test MARGIN RELATIVE SHADOW COLOR SCHEME  4 
		DEFINE BAR  1  OF test PROMPT "Новое окно" ;
		KEY Ctrl+N ;
		PICTRES _MFI_NEW;
		MESSAGE "Отобразить новое окно"
		DEFINE POPUP _mwindow MARGIN RELATIVE SHADOW COLOR SCHEME  4 
		DEFINE BAR _mwi_cascade OF _mwindow PROMPT "Kаскадом" ;
		PICTRES _mwi_cascade;
		MESSAGE "Расположить окна каскадом"
		DEFINE BAR _mwi_arran OF _mwindow PROMPT "Разместить все окна" ;
		PICTRES _mwi_arran;
		MESSAGE "Отображает на экране все окна так, чтобы они не перекрывались."
		DEFINE BAR  1  OF _mwindow PROMPT "\-"
		DEFINE BAR _mwi_dockable OF _mwindow PROMPT "Doc\<kable" ;
		PICTRES _mwi_dockable;
		MESSAGE "Enable docking of this window"
		DEFINE BAR  2  OF _mwindow PROMPT "\-"
		DEFINE BAR _mwi_hide OF _mwindow PROMPT "Скрыть окно" ;
		PICTRES _mwi_hide;
		MESSAGE "Скрывает активное окно"
		DEFINE BAR  3  OF _mwindow PROMPT "Скрыть все окна" ;
		PICTRES _mwi_hidea;
		MESSAGE "Скрывает все окна"
		DEFINE BAR _mwi_clear OF _mwindow PROMPT "Очистить" ;
		PICTRES _mwi_clear;
		MESSAGE "Clears text from the application workspace or the current output window"
		DEFINE BAR  4  OF _mwindow PROMPT "\-"
		DEFINE BAR _mwi_rotat OF _mwindow PROMPT "Следующее окно" ;
		PICTRES _mwi_rotat;
		KEY CTRL+F1, "Ctrl+F1" ;
		MESSAGE "Показать следующее окно."
		DEFINE BAR _mwi_showa OF _mwindow PROMPT "Показать все окна" ;
		PICTRES _mwi_showa;
		MESSAGE "Отображает все открытые окна."
		oThis=this
		ON SELECTION BAR  1  OF test do NewWindow
		ON SELECTION BAR  3  OF _mwindow do HideAll
		ACTIVATE MENU My_menu_name NOWAIT 
	ENDPROC
	PROCEDURE Unload
		DEACTIVATE MENU My_menu_name
		RELEASE MENUS My_menu_name
		CLEAR EVENTS 
	ENDPROC
	PROCEDURE visible_assign
		LPARAMETERS vNewVal
		*To do: Modify this routine for the Assign method
		THIS.Visible = .T.
	ENDPROC
ENDDEFINE

DEFINE CLASS intoplevel AS form
	Top =  0 
	Left =  0 
	Height =  169 
	Width =  210 
	ShowWindow =  1 
	Caption = "InLevel"
	MDIForm = .T.
	Name = "intoplevel"
ENDDEFINE