在Gtk2Hs中获取ComboBox小部件值

Question

我正在尝试使用以下代码获取ComboBox小部件值：

selectRadioB cb = do
ntxt <- comboBoxGetActiveText cb
case ntxt of
            Just ("Option 1") -> ...
            Just ("Option 2") -> ...
            Just ("Option 3") -> ... 
return ()

但是，当我编译它时，会出现此错误：

  Couldn't match type ‘[Char]’
                   with ‘text-1.2.2.0:Data.Text.Internal.Text’
    Expected type: ComboBoxText
      Actual type: [Char]
    In the pattern: "Option 1"
    In the pattern: Just ("Option 1")
    In a case alternative:
        Just ("Option 1") -> ...

我该如何解决？我提出了一个类似问题（Create a ComboBox widget in Gtk2HS），但我不想使用包功能。

为什么我不能像这样使用fromString？

cb <- comboBoxNewText
comboBoxAppendText cb (fromString "Option 1")
comboBoxAppendText cb (fromString "Option 2")
comboBoxAppendText cb (fromString "Option 3")
comboBoxSetActive cb 0

提前致谢。

Answer 1

如果我们查看documentation，我们会发现ComboBoxText是Text的别名：

type ComboBoxText = Text

现在Text和String都是表示文字的方式，但Text以紧凑的方式执行此操作，而String（实际上是{[Char]的别名1}}）以链表方式执行此操作（这会消耗更多内存，并且通常会导致处理效率降低）。

使用unpack

然而，您可以使用pack :: String -> Text and unpack :: Text -> String在String和Text之间进行转换：

  

<强> pack :: String -> Text

     

<强> unpack :: Text -> String

所以你可以使用：

selectRadioB cb = do
    ntxt <- comboBoxGetActiveText cb
    case fmap unpack ntxt of
            Just "Option 1" -> ...
            Just "Option 2" -> ...
            Just "Option 3" -> ... 
    return ()

使用OverloadedStrings

然而，这是非常低效的：您将首先将Text转换为String，然后Haskell将执行（通常）效率较低的比较。

然而，您可以使用语言指令：

{-# LANGUAGE OverloadedStrings #-}

您可以放在文件的头部。现在这意味着如果你写一个字符串文字Haskell 可以将其解释为Text元素。

所以如果你写：

{-# LANGUAGE OverloadedStrings #-}

selectRadioB cb = do
    ntxt <- comboBoxGetActiveText cb
    case ntxt of
            Just "Option 1" -> ...
            Just "Option 2" -> ...
            Just "Option 3" -> ...
    return ()

Haskell将推导ntxt具有类型Maybe Text，因此"Option 1"应被解释为Text元素。

如果您使用此语法扩展名，您还可以编写：

{-# LANGUAGE OverloadedStrings #-}

-- ...

cb <- comboBoxNewText
comboBoxAppendText cb "Option 1"
comboBoxAppendText cb "Option 2"
comboBoxAppendText cb "Option 3"
comboBoxSetActive cb 0

所以你可以放弃fromString功能。