如何使用gi-gtk修改Entry的背景色及其他颜色（含格式校验场景）

Gtk（包括Haskell绑定的gi-gtk）并没有直接提供类似setEntryColor的方法来修改Entry的背景色，这类外观控制需要通过CSS样式系统来实现。以下是具体的实现步骤：

1. 定义CSS样式规则
   先创建一个CSS类，专门用于标记输入非法的状态，比如：

   entry.invalid {
       background-color: #ffcccc; /* 浅红色背景，可根据需求调整 */
   }
   

2. 将CSS样式加载到应用中
   使用CssProvider加载上述样式，并添加到Gtk的样式上下文里：

   import GI.Gtk as Gtk
   
   loadInvalidStyle :: IO ()
   loadInvalidStyle = do
       provider <- cssProviderNew
       cssProviderLoadFromString provider "entry.invalid { background-color: #ffcccc; }"
       screen <- getDefaultScreen
       styleContextAddProviderForScreen screen provider $ fromIntegral Gtk.STYLE_PROVIDER_PRIORITY_APPLICATION
   

3. 监听文本变化并动态切换样式类
   给Entry绑定changed信号，在回调函数中检查输入文本的格式是否合法，通过添加/移除invalid类来切换背景色：

   setupEntryValidation :: Entry -> IO ()
   setupEntryValidation entry = do
       -- 绑定文本变化信号
       on entry #changed $ do
           text <- entryGetText entry
           let isValid = validateText text -- 替换为你的实际格式校验逻辑
           if isValid
               then widgetRemoveCssClass entry "invalid"
               else widgetAddCssClass entry "invalid"
   
   -- 示例校验函数：检查输入是否全为数字
   validateText :: Text -> Bool
   validateText = all isDigit
   

4. 初始化时完成配置
   在应用初始化阶段调用loadInvalidStyle，并对目标Entry执行setupEntryValidation即可生效。

关键API说明 #

• widgetAddCssClass/widgetRemoveCssClass：Gtk4中动态控制控件样式的标准方法，通过切换CSS类实现外观变化。
• CssProvider：用于加载自定义CSS规则，将样式注入到应用的样式系统中。
• #changed信号：Entry文本内容变化时触发，适合做实时格式校验。

内容的提问来源于stack exchange，提问作者JeanJouX