0

按下按钮时我需要做一些动作。我该怎么做？

我有版本 0.12.4。

PS：出于某种原因，onButtonActivate在

import Graphics.UI.Gtk
import Control.Concurrent
main = do
    initGUI
    window <- windowNew

    but <-buttonNewWithLabel "Write A"

    onButtonActivate  but $ do
        putStr "A"
        threadDelay 1000000
        return()

    containerAdd window but

    widgetShowAll window
    onDestroy window mainQuit
    mainGUI

不要做任何事。

此外，如果在按下键盘上的某个键时会重复执行操作，那也很好。

4

2 回答 2

1

根据文档onButtonActivate 已贬值，因此您可能不应该使用它。虽然我很难找到正确的方法，但您应该在某处使用一些泛型信号。您可以尝试我使用 onPressed 和 onRelease 的解决方案（这些也被标记为折旧）。您可以按照评论中的建议进行操作并分叉一个线程：

import Control.Concurrent (forkIO, killThread, threadDelay)
import Control.Monad (void, when)

whilePressed button action = do
    onPressed button $ do
        threadId <- forkIO go
        onReleased button (killThread threadId)
    where
        go = do
            action
            threadDelay 1000000
            go

然后重写你的主要做：

whilePressed but (putStr "A")

我不确定这是否安全，因为在注册 killThread 之前似乎可能会触发 buttonReleased 事件。使用 IORef 可能更安全：

import Data.IORef


whilePressed button action = do
    isPressed <- newIORef False

    onPressed button $ do
        writeIORef isPressed True
        void $ forkIO $ go isPressed

    onReleased button (writeIORef isPressed False)

    where
        go isPressed = do
            c <- readIORef isPressed
            when c $ do
                action
                threadDelay 1000000
                void $ forkIO $ go isPressed

不幸的是，我还没有编译或测试代码，因为我无法在这台计算机上安装 GTK，但如果您有任何问题，请告诉我。

于 2014-02-27T12:13:52.857 回答
1

这使用了一个 ToggleButton、一个“超时”对象（参见文档中 System.Glib.MainLoop 模块中的 timeoutAdd）和一个 IORef。按下 ToggleButton 时会启动一个计时器，但前提是当前没有其他计时器正在运行（这就是 IORef 的目的）。如果释放按钮，则计时器停止。定时器的回调函数返回 IO False 来停止和销毁定时器对象。

import Graphics.UI.Gtk
import Data.IORef
import Control.Monad(void, when)

action but idle = do
    butDown <- get but toggleButtonActive
    if butDown
        then do
            putStrLn "A"
            writeIORef idle False
            return True
        else do
            writeIORef idle True
            return False

main = do
    initGUI
    window <- windowNew

    but <-toggleButtonNewWithLabel "Write A"

    idle <- newIORef True

    on but toggled $ do
        butDown <- get but toggleButtonActive
        isIdle  <- readIORef idle
        when (butDown && isIdle) $ void $ timeoutAdd (action but idle) 1000

    containerAdd window but

    widgetShowAll window
    on window objectDestroy mainQuit
    mainGUI

注册信号回调的首选方式是使用“on”。另请注意，“on window objectDestroy mainQuit”正确地破坏了窗口并停止了 Gtk 主循环（您的版本没有破坏 GHCi 中的计时器，它们在再次调用“main”后继续运行）。

于 2014-02-27T23:00:06.913 回答