From b870f2a1e8fcb956ce316e6a600d7d0625604830 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Sun, 29 Dec 2024 23:51:07 +1300 Subject: Revised FLTK.Devices.Surface subhierarchy --- test/page_formats.adb | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 test/page_formats.adb (limited to 'test') diff --git a/test/page_formats.adb b/test/page_formats.adb new file mode 100644 index 0000000..2f79d98 --- /dev/null +++ b/test/page_formats.adb @@ -0,0 +1,29 @@ + + +-- Programmed by Jedidiah Barber +-- Released into the public domain + + +with + + Ada.Text_IO, + FLTK.Devices.Surface.Paged; + + +procedure Page_Formats is + + package TIO renames Ada.Text_IO; + package PD renames FLTK.Devices.Surface.Paged; + +begin + + for Format in PD.Page_Formats'Range loop + TIO.Put_Line (PD.Page_Formats (Format).Name); + TIO.Put_Line (Integer'Image (PD.Page_Formats (Format).Width)); + TIO.Put_Line (Integer'Image (PD.Page_Formats (Format).Height)); + TIO.New_Line; + end loop; + +end Page_Formats; + + -- cgit