diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-22 21:43:02 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-22 21:43:02 +1300 |
| commit | 904cb29183f7753ba5fc103296b24163ebe2fa0b (patch) | |
| tree | cd469ba398582f03d1f3057c65fc2f45982bb525 /body/fltk.adb | |
| parent | d6458841c9134a3b6d8ca260766fca64a72740aa (diff) | |
Improved Alignment values and Button State checking
Diffstat (limited to 'body/fltk.adb')
| -rw-r--r-- | body/fltk.adb | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/body/fltk.adb b/body/fltk.adb index f302b47..d729364 100644 --- a/body/fltk.adb +++ b/body/fltk.adb @@ -122,6 +122,24 @@ package body FLTK is + function "+" + (Left, Right : in Alignment) + return Alignment is + begin + return Left or Right; + end "+"; + + + function "-" + (Left, Right : in Alignment) + return Alignment is + begin + return Left and (not Right); + end "-"; + + + + function Press (Key : in Pressable_Key) return Keypress is |