diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-03-23 13:10:56 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-03-23 13:10:56 +1300 |
| commit | 620c9cedb6880f28a2b3657a5d55d120bf83e9ba (patch) | |
| tree | 237cae636dffff5809ac2aef52fabc36a8254209 /test/color_chooser.adb | |
| parent | f2352c6df585d817b3613145ec81446f917dcc21 (diff) | |
Improved project files, constant variables now constant
Diffstat (limited to 'test/color_chooser.adb')
| -rw-r--r-- | test/color_chooser.adb | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/test/color_chooser.adb b/test/color_chooser.adb index 09003b9..b77283c 100644 --- a/test/color_chooser.adb +++ b/test/color_chooser.adb @@ -66,7 +66,8 @@ is Image_Width, Image_Height : constant Natural := 100; - The_Image_Data : FLTK.Color_Component_Array := Make_Image_Data (Image_Width, Image_Height); + The_Image_Data : constant FLTK.Color_Component_Array := + Make_Image_Data (Image_Width, Image_Height); type Pens is new Bx.Box with null record; @@ -108,7 +109,7 @@ is procedure Callback_One - (This : in out FLTK.Widgets.Widget'Class) is + (Ignore : in out FLTK.Widgets.Widget'Class) is begin My_Color := Ask.Show_Colormap (My_Color); The_Box.Set_Background_Color (My_Color); @@ -118,7 +119,7 @@ is procedure Callback_Two - (This : in out FLTK.Widgets.Widget'Class) + (Ignore : in out FLTK.Widgets.Widget'Class) is R, G, B : FLTK.Color_Component; begin |