From bb03d6089f86108279830da00e30837f32f6bb41 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Tue, 14 Jan 2025 21:16:06 +1300 Subject: Missed a few Input -> Text_Input issues --- src/windows-replace.adb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/windows-replace.adb') diff --git a/src/windows-replace.adb b/src/windows-replace.adb index 4b9345e..5dce69e 100644 --- a/src/windows-replace.adb +++ b/src/windows-replace.adb @@ -5,7 +5,7 @@ package body Windows.Replace 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; @@ -60,10 +60,10 @@ package body Windows.Replace is return This : Replace_Window := (WD.Double_Window'(WD.Forge.Create (0, 0, My_Width, My_Height, "Replace")) with - Find_What => IP.Input'(IP.Forge.Create + Find_What => IP.Text_Input'(IP.Forge.Create (My_Width - Input_Width - Input_Margin_Right, Find_Line, Input_Width, Input_Height, "Find what:")), - Replace_With => IP.Input'(IP.Forge.Create + Replace_With => IP.Text_Input'(IP.Forge.Create (My_Width - Input_Width - Input_Margin_Right, Replace_Line, Input_Width, Input_Height, "Replace with:")), Match_Case => LC.Check_Button'(LC.Forge.Create -- cgit