Win_IO is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation.
 

1. Menu_Window Example

with Menu_Windows;
with Ada.Text_IO; use Ada.Text_IO;

procedure Test_Menu_Window is
   type Options is (Insert, Extract, View, Modify, Exit_Application);

   package Menus is new Menu_Windows(Options);
   use Menus;

   Menu : Menus.Menu_Window_Type:=Menu_Window("Test Menu");
   Selection : Options;

begin
   loop
      Wait(Menu,Selection);
      Put_Line("Option chosen : "&Options'Image(Selection));
      exit when Selection=Exit_Application;
   end loop;
   Put_Line("Test completed");
end Test_Menu_Window;