From 547e538476a788dfeb5974f9b8ad29441d18980b Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Thu, 6 Feb 2025 19:28:33 +1300 Subject: Slightly better / more consistent comments --- spec/fltk-widgets-valuators-value_inputs.ads | 14 ++++++++++++++ 1 file changed, 14 insertions(+) (limited to 'spec/fltk-widgets-valuators-value_inputs.ads') diff --git a/spec/fltk-widgets-valuators-value_inputs.ads b/spec/fltk-widgets-valuators-value_inputs.ads index 7392e78..ba1d66f 100644 --- a/spec/fltk-widgets-valuators-value_inputs.ads +++ b/spec/fltk-widgets-valuators-value_inputs.ads @@ -42,6 +42,8 @@ package FLTK.Widgets.Valuators.Value_Inputs is + -- Attributes -- + function Text_Field (This : in out Value_Input) return FLTK.Widgets.Inputs.Text.Text_Input_Reference; @@ -49,6 +51,8 @@ package FLTK.Widgets.Valuators.Value_Inputs is + -- Cursors -- + function Get_Cursor_Color (This : in Value_Input) return Color; @@ -60,6 +64,8 @@ package FLTK.Widgets.Valuators.Value_Inputs is + -- Shortcut -- + function Get_Shortcut (This : in Value_Input) return Key_Combo; @@ -71,6 +77,8 @@ package FLTK.Widgets.Valuators.Value_Inputs is + -- Allow Outside Range -- + function Is_Soft (This : in Value_Input) return Boolean; @@ -82,6 +90,8 @@ package FLTK.Widgets.Valuators.Value_Inputs is + -- Text Settings -- + function Get_Text_Color (This : in Value_Input) return Color; @@ -109,6 +119,8 @@ package FLTK.Widgets.Valuators.Value_Inputs is + -- Dimensions -- + procedure Resize (This : in out Value_Input; X, Y, W, H : in Integer); @@ -116,6 +128,8 @@ package FLTK.Widgets.Valuators.Value_Inputs is + -- Drawing, Events -- + procedure Draw (This : in out Value_Input); -- cgit