summaryrefslogtreecommitdiff
path: root/src/fltk-widgets-valuators-sliders-scrollbars.ads
diff options
context:
space:
mode:
Diffstat (limited to 'src/fltk-widgets-valuators-sliders-scrollbars.ads')
-rw-r--r--src/fltk-widgets-valuators-sliders-scrollbars.ads16
1 files changed, 16 insertions, 0 deletions
diff --git a/src/fltk-widgets-valuators-sliders-scrollbars.ads b/src/fltk-widgets-valuators-sliders-scrollbars.ads
index 9b229b6..c69aa4b 100644
--- a/src/fltk-widgets-valuators-sliders-scrollbars.ads
+++ b/src/fltk-widgets-valuators-sliders-scrollbars.ads
@@ -5,6 +5,9 @@ package FLTK.Widgets.Valuators.Sliders.Scrollbars is
type Scrollbar is new Slider with private;
+ type Scrollbar_Reference (Data : not null access Scrollbar'Class) is
+ limited null record with Implicit_Dereference => Data;
+
@@ -64,5 +67,18 @@ private
(This : in out Scrollbar);
+
+
+ pragma Inline (Get_Line_Size);
+ pragma Inline (Set_Line_Size);
+ pragma Inline (Get_Position);
+ pragma Inline (Set_Position);
+ pragma Inline (Set_All);
+
+
+ pragma Inline (Draw);
+ pragma Inline (Handle);
+
+
end FLTK.Widgets.Valuators.Sliders.Scrollbars;