IMPLEMENTATION MODULE HelpWindows ;

FROM Universe IMPORT EndOfLineCh , BYTE , Editing , EscapeCh , TabCh ;
IMPORT Windows ;

FROM Help IMPORT HelpWindow , HighLight , HelpLevel ,
		 Changed , MenuPosition ,
		 SelectedSensitive , SensitiveBox , Details , Header ,
		 PadTo , PadToNextColumn ,
		 AddText , AddChar , NewLine , ReplaceChar ;

IMPORT Debug ;

PROCEDURE HelpWindows( CurrentLevel : CARDINAL ; RelativeY : CARDINAL) ;
BEGIN
   IF ( HelpLevel = CurrentLevel + 1 ) AND
      MenuPosition[ CurrentLevel + 1 ].Virgin THEN
      WITH MenuPosition[ CurrentLevel + 1 ] DO
	 Virgin := FALSE ;
	 Y := 0 ;
	 MinY := 0 ;
	 MaxY := 5 ;
	 X := 0 ;
	 MaxX := 0 ;
	 Changed := TRUE ;
      END (* with *) ;
   END (* if *) ;
   IF RelativeY < 3 THEN
      Header( RelativeY ) ;
   ELSIF RelativeY = 3 THEN
      AddText( "No 'Windows' help yet" ) ;
   END (* if *) ;
END HelpWindows ;

END HelpWindows.