diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-14 21:16:06 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-14 21:16:06 +1300 |
| commit | bb03d6089f86108279830da00e30837f32f6bb41 (patch) | |
| tree | 5aa8cef13b79b0ba97aa7f4ad0316b6d0deee983 /src/windows-find.adb | |
| parent | 1e676b49bee920605529fd5e8f18c14fdfc900e2 (diff) | |
Missed a few Input -> Text_Input issues
Diffstat (limited to 'src/windows-find.adb')
| -rw-r--r-- | src/windows-find.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/windows-find.adb b/src/windows-find.adb index 0336ce0..ea6a807 100644 --- a/src/windows-find.adb +++ b/src/windows-find.adb @@ -5,7 +5,7 @@ package body Windows.Find is package W renames FLTK.Widgets.Groups.Windows; package WD renames FLTK.Widgets.Groups.Windows.Double; - package IP renames FLTK.Widgets.Inputs; + package IP renames FLTK.Widgets.Inputs.Text; package BU renames FLTK.Widgets.Buttons; package EN renames FLTK.Widgets.Buttons.Enter; package LC renames FLTK.Widgets.Buttons.Light.Check; @@ -57,7 +57,7 @@ package body Windows.Find is return This : Find_Window := (WD.Double_Window'(WD.Forge.Create (0, 0, My_Width, My_Height, "Find")) with - Find_What => IP.Input'(IP.Forge.Create + Find_What => IP.Text_Input'(IP.Forge.Create (My_Width - Input_Width - Input_Margin_Right, Input_Line, Input_Width, Input_Height, "Find what:")), Match_Case => LC.Check_Button'(LC.Forge.Create |