diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-02-10 22:50:09 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-02-10 22:50:09 +1300 |
| commit | 446989277ad276e9820e54ea1fb4ed550b93e998 (patch) | |
| tree | a37115bfb16f215f93a46bd32829c3306e938cf3 /body/fltk-screen.adb | |
| parent | 11d2b6c11604a1e355e3f9b40762f59b4d434e07 (diff) | |
Filled holes in Enumerations and FLTK (Screen) APIs
Diffstat (limited to 'body/fltk-screen.adb')
| -rw-r--r-- | body/fltk-screen.adb | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/body/fltk-screen.adb b/body/fltk-screen.adb index c7c7957..54618fe 100644 --- a/body/fltk-screen.adb +++ b/body/fltk-screen.adb @@ -20,6 +20,16 @@ package body FLTK.Screen is -- Functions From C -- ------------------------ + -- Environment -- + + procedure fl_screen_display + (V : in Interfaces.C.char_array); + pragma Import (C, fl_screen_display, "fl_screen_display"); + pragma Inline (fl_screen_display); + + + + -- Basic Dimensions -- function fl_screen_x @@ -127,6 +137,17 @@ package body FLTK.Screen is -- API Subprograms -- ----------------------- + -- Environment -- + + procedure Set_Display_Var + (Value : in String) is + begin + fl_screen_display (Interfaces.C.To_C (Value)); + end Set_Display_Var; + + + + -- Basic Dimensions -- function Get_X return Integer is |