diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-27 15:27:42 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-27 15:27:42 +1300 |
| commit | f5f624fd78421dbeb15fdda489caed6f210c730f (patch) | |
| tree | c6547ba84c217cff8e884956c89ffc24ebcd95ed /spec/fltk-widgets-groups-tables.ads | |
| parent | 47dc4ac9eccd2e808b4c4d8e9e2be3702e1a6444 (diff) | |
Added Fl_Table_Row
Diffstat (limited to 'spec/fltk-widgets-groups-tables.ads')
| -rw-r--r-- | spec/fltk-widgets-groups-tables.ads | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/spec/fltk-widgets-groups-tables.ads b/spec/fltk-widgets-groups-tables.ads index 7d398b5..5b52623 100644 --- a/spec/fltk-widgets-groups-tables.ads +++ b/spec/fltk-widgets-groups-tables.ads @@ -11,7 +11,8 @@ with private with - Interfaces.C; + Interfaces.C, + System; package FLTK.Widgets.Groups.Tables is @@ -31,7 +32,7 @@ package FLTK.Widgets.Groups.Tables is type Tab_Navigation is (Widget_Focus, Navigate_Cells); - Out_Of_Range_Error : exception; + Range_Error : exception; @@ -493,6 +494,7 @@ private type Table is new Group with record Horizon, Vertigo : aliased Valuators.Sliders.Scrollbars.Scrollbar; Playing_Area : aliased Scrolls.Scroll; + Draw_Cell_Ptr : System.Address; end record; overriding procedure Initialize |