[Haskell-cafe] qtHaskell signal and slots

c8h10n4o2 asaferibeiro4 at ymail.com
Sat Nov 27 21:23:18 CET 2010

I have the following code that tries to resize window after a click. But
nothing happens. If I use a builtin slot that does not need a function, such
as "close", "quit" it works, however for any other slot it seems my function
is ignored. Which slot/signal should I use and how?

module Main where

import Qtc.Classes.Qccs
import Qtc.Classes.Gui
import Qtc.Gui.Base
import Qtc.Gui.QApplication
import Qtc.Gui.QPushButton
import Qtc.Core.QFile
import Qtc.Tools.QUiLoader
import Qtc.Enums.Core.QIODevice
import Qtc.Core.Base
import Qtc.ClassTypes.Gui
import Qtc.Gui.QAbstractButton

main = do 
         app <- qApplication  ()
         loader <- qUiLoader ()
         uiFile <- qFile "slide.ui"
         open uiFile fReadOnly
         ui <- load loader uiFile
         close uiFile ()
         add <- findChild ui ("<QPushButton*>", "pushButton")         
         connectSlot add "clicked()" add "click()"  $ t ui
         qshow ui ()
         qApplicationExec ()
t :: QWidget () -> QWidget () -> IO ()
t ui _= resize ui (500::Int ,500::Int)

View this message in context: http://haskell.1045720.n5.nabble.com/qtHaskell-signal-and-slots-tp3282748p3282748.html
Sent from the Haskell - Haskell-Cafe mailing list archive at Nabble.com.

More information about the Haskell-Cafe mailing list