diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-02-06 19:28:33 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-02-06 19:28:33 +1300 |
| commit | 547e538476a788dfeb5974f9b8ad29441d18980b (patch) | |
| tree | 00a3c7d80ee403969971bc4b814876b4399f3ada /body/fltk-screen.adb | |
| parent | befe66a0a98a58e0bdb31bb8c2db4a975a744072 (diff) | |
Slightly better / more consistent comments
Diffstat (limited to 'body/fltk-screen.adb')
| -rw-r--r-- | body/fltk-screen.adb | 30 |
1 files changed, 25 insertions, 5 deletions
diff --git a/body/fltk-screen.adb b/body/fltk-screen.adb index ad25cbe..c7c7957 100644 --- a/body/fltk-screen.adb +++ b/body/fltk-screen.adb @@ -16,6 +16,12 @@ use type package body FLTK.Screen is + ------------------------ + -- Functions From C -- + ------------------------ + + -- Basic Dimensions -- + function fl_screen_x return Interfaces.C.int; pragma Import (C, fl_screen_x, "fl_screen_x"); @@ -39,6 +45,8 @@ package body FLTK.Screen is + -- Pixel Density -- + function fl_screen_count return Interfaces.C.int; pragma Import (C, fl_screen_count, "fl_screen_count"); @@ -53,6 +61,8 @@ package body FLTK.Screen is + -- Position Lookup -- + function fl_screen_num (X, Y : in Interfaces.C.int) return Interfaces.C.int; @@ -68,6 +78,8 @@ package body FLTK.Screen is + -- Bounding Boxes -- + procedure fl_screen_work_area (X, Y, W, H : out Interfaces.C.int; PX, PY : in Interfaces.C.int); @@ -85,9 +97,6 @@ package body FLTK.Screen is pragma Import (C, fl_screen_work_area3, "fl_screen_work_area3"); pragma Inline (fl_screen_work_area3); - - - procedure fl_screen_xywh (X, Y, W, H : out Interfaces.C.int; PX, PY : in Interfaces.C.int); @@ -114,6 +123,12 @@ package body FLTK.Screen is + ----------------------- + -- API Subprograms -- + ----------------------- + + -- Basic Dimensions -- + function Get_X return Integer is begin return Integer (fl_screen_x); @@ -140,6 +155,8 @@ package body FLTK.Screen is + -- Pixel Density -- + function Count return Integer is begin return Integer (fl_screen_count); @@ -160,6 +177,8 @@ package body FLTK.Screen is + -- Position Lookup -- + function Containing (X, Y : in Integer) return Integer is @@ -184,6 +203,8 @@ package body FLTK.Screen is + -- Bounding Boxes -- + procedure Work_Area (X, Y, W, H : out Integer; Pos_X, Pos_Y : in Integer) is @@ -222,8 +243,6 @@ package body FLTK.Screen is end Work_Area; - - procedure Bounding_Rect (X, Y, W, H : out Integer; Pos_X, Pos_Y : in Integer) is @@ -280,3 +299,4 @@ package body FLTK.Screen is end FLTK.Screen; + |