diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/windows-find.adb | 4 | ||||
| -rw-r--r-- | src/windows-find.ads | 4 | ||||
| -rw-r--r-- | src/windows-replace.adb | 6 | ||||
| -rw-r--r-- | src/windows-replace.ads | 4 |
4 files changed, 9 insertions, 9 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 diff --git a/src/windows-find.ads b/src/windows-find.ads index d920398..9f78048 100644 --- a/src/windows-find.ads +++ b/src/windows-find.ads @@ -2,7 +2,7 @@ private with - FLTK.Widgets.Inputs, + FLTK.Widgets.Inputs.Text, FLTK.Widgets.Buttons.Enter, FLTK.Widgets.Buttons.Light.Check; @@ -41,7 +41,7 @@ private type Find_Window is new Window with record - Find_What : FLTK.Widgets.Inputs.Input; + Find_What : FLTK.Widgets.Inputs.Text.Text_Input; Match_Case : FLTK.Widgets.Buttons.Light.Check.Check_Button; Cancel : FLTK.Widgets.Buttons.Button; Start : FLTK.Widgets.Buttons.Enter.Enter_Button; 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 diff --git a/src/windows-replace.ads b/src/windows-replace.ads index 5b02055..5e020e6 100644 --- a/src/windows-replace.ads +++ b/src/windows-replace.ads @@ -2,7 +2,7 @@ private with - FLTK.Widgets.Inputs, + FLTK.Widgets.Inputs.Text, FLTK.Widgets.Buttons.Enter, FLTK.Widgets.Buttons.Light.Check; @@ -32,7 +32,7 @@ private type Replace_Window is new Window with record - Find_What, Replace_With : FLTK.Widgets.Inputs.Input; + Find_What, Replace_With : FLTK.Widgets.Inputs.Text.Text_Input; Match_Case, Replace_All : FLTK.Widgets.Buttons.Light.Check.Check_Button; Cancel : FLTK.Widgets.Buttons.Button; Start : FLTK.Widgets.Buttons.Enter.Enter_Button; |