From 36e546c1c9a9bb8e778fb637c17f94390b4d23c2 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Sat, 15 Feb 2025 14:29:16 +1300 Subject: Reorganising Fl / FLTK, improving enum docs --- spec/fltk-static.ads | 19 +++---------------- 1 file changed, 3 insertions(+), 16 deletions(-) (limited to 'spec/fltk-static.ads') diff --git a/spec/fltk-static.ads b/spec/fltk-static.ads index 71d5b3f..a2a9ff4 100644 --- a/spec/fltk-static.ads +++ b/spec/fltk-static.ads @@ -18,10 +18,10 @@ package FLTK.Static is type Awake_Handler is access procedure; - type Timeout_Handler is access procedure; - type Idle_Handler is access procedure; + type Timeout_Handler is access procedure; + type Buffer_Kind is (Selection, Clipboard); @@ -266,18 +266,12 @@ package FLTK.Static is - -- Input Focus -- + -- Input Methods -- procedure Enable_System_Input; procedure Disable_System_Input; - function Has_Visible_Focus - return Boolean; - - procedure Set_Visible_Focus - (To : in Boolean); - @@ -307,8 +301,6 @@ package FLTK.Static is function Read_Queue return access FLTK.Widgets.Widget'Class; - procedure Do_Widget_Deletion; - @@ -366,8 +358,6 @@ private pragma Import (C, Enable_System_Input, "fl_static_enable_im"); pragma Import (C, Disable_System_Input, "fl_static_disable_im"); - pragma Import (C, Do_Widget_Deletion, "fl_static_do_widget_deletion"); - pragma Import (C, Reload_Scheme, "fl_static_reload_scheme"); @@ -427,8 +417,6 @@ private pragma Inline (Enable_System_Input); pragma Inline (Disable_System_Input); - pragma Inline (Has_Visible_Focus); - pragma Inline (Set_Visible_Focus); pragma Inline (Default_Window_Close); pragma Inline (Get_First_Window); @@ -437,7 +425,6 @@ private pragma Inline (Get_Top_Modal); pragma Inline (Read_Queue); - pragma Inline (Do_Widget_Deletion); pragma Inline (Get_Scheme); pragma Inline (Set_Scheme); -- cgit