多个添加而不是单个 [gtk2hs]答案

【问题标题】：Multiple additions instead of single [gtk2hs]多个添加而不是单个 [gtk2hs]
【发布时间】：2012-02-23 12:38:15
【问题描述】：

我还有一个无法解决的问题

我有以下代码将用户（名字、姓氏和年龄）添加到树视图中。除了一件小事之外，一切都很好：只有当您第一次添加用户时它才能正常工作。当您点击添加然后尝试添加另一个用户时，它将尝试添加 2 个用户，然后是 3、4 等等，随着每次添加而增加。下面是捕获点击事件的代码：

onClicked (dodajUczBt gui) (dodajUcz gui dbh stores)

这是处理点击的函数dodajUcz：

dodajUcz gui dbh stores =
    do  entrySetText (nImie gui) ""
        entrySetText (nNazwisko gui) ""
        entrySetText (nWiek gui) ""
        onClicked (cancelAddUczBt gui) (widgetHide (dodajUzDialog gui))
        onClicked (zapiszUczBtn gui) procADD
        windowPresent (dodajUzDialog gui)
    where procADD = do
            ucz <- getUczestnik
            let store = uczestnicy stores
            New.listStoreAppend store ucz
            dlugosc <- New.listStoreGetSize store
            labelSetText (lblLiczbaUcz gui) $ "Liczba uczestników: "++ show dlugosc 
            widgetHide (dodajUzDialog gui)
            addUser ucz dbh
          getUczestnik = do
                                imie <- entryGetText (nImie gui)
                                nazwisko <- entryGetText (nNazwisko gui)
                                wiek <- entryGetText (nWiek gui)
                                let wiek' = read wiek :: Integer
                                return $ Uczestnik 0 imie nazwisko wiek' False

Uczestnik 是一种代数数据类型，addUser 是将Uczestnik 添加到数据库中的函数。 gui 也是一个代数数据类型GUI，它包含castToXml 创建的所有gui 元素

在我看来widgetHide 是主要问题，因为即使您什么都不做（只需打开对话框然后关闭它），它会在您下次打开它时尝试添加 2 个用户。

任何想法如何解决这个问题？任何帮助将不胜感激:)

【问题讨论】：

标签： user-interface haskell dialog widget gtk2hs

【解决方案1】：

嗯，我的理解是：

要再次显示该对话框，请从代码中的其他位置调用 dodajUcz。
每次添加用户时，都会隐藏对话框（并请求再次显示）
最重要的是：每次评估（即执行）dodajUcz 时，都会为zapiszUczBtn 上的“单击”事件安装事件处理程序再次（使用onClicked）。当您为事件安装事件处理程序时，它会永远保留在那里，并且每次触发事件时都会执行。如果你安装它两次，它将被执行两次。在这种特殊情况下，调用dodajUcz 两次后，当在zapiszUczBtn 上触发 Clicked 事件时，事件处理程序将被执行两次。

使用 onClicked 或任何其他事件处理程序安装程序不会删除以前的处理程序，它们会被添加到该小部件和事件的处理程序堆栈中。

当您初始化 gui 时（当您第一次创建它时），在您的代码中只设置一次事件处理程序，并且不要再次执行该代码。然后，您可以将 gui 和商店作为 args 传递给 procADD。

例如：
```
startGUI :: DBH -> IO (GUI, Stores)
startGUI dbh = do
  gui <- giveMeGUI -- or some other function that returns a gui
  stores <- giveMeStores -- or some other function that returns the stores
  onClicked (cancelAddUczBT gui) (widgetHide (dodaUzDialog gui))
  onClicked (zapiszUczBtn gui) (procADD gui dbh stores)
  return (gui, stores)

dodajUcz gui dbh stores = do
   entrySetText (nImie gui) ""
   entrySetText (nNazwisko gui) ""
   entrySetText (nWiek gui) ""
   windowPresent (dodajUzDialog gui)

procADD gui dbh stores = do
   ...
```

【讨论】：