Segmentation fault when adding QListWidgetItem

[jokob]

Hi,

I am having a problem adding a new QListWidgetItem into a QListWidget. Could you please take a look at my code if you see any problems? I am using haskell.

module Main where
 
import Qtc.Classes.Base
import Qtc.Classes.Qccs
import Qtc.Classes.Qccs_h
import Qtc.Classes.Core
import Qtc.Classes.Gui
import Qtc.Classes.Network
import Qtc.Enums.Base
import Qtc.ClassTypes.Core
import Qtc.Core.Base
import Qtc.Enums.Core.Qt
import Qtc.Core.QSize
import Qtc.Core.QCoreApplication
import Qtc.Core.QIODevice
import Qtc.Enums.Core.QIODevice
import Qtc.Core.QFile
import Qtc.ClassTypes.Gui
import Qtc.Gui.Base
import Qtc.Gui.QApplication
import Qtc.Gui.QWidget
import Qtc.Gui.QColor
import Qtc.Gui.QSpinBox
import Qtc.Gui.QTextEdit
import Qtc.Gui.QListWidgetItem
import Qtc.Gui.QListWidget
import Qtc.Gui.QLineEdit
import Qtc.Gui.QPushButton
import Qtc.Gui.QPushButton_h
import Qtc.ClassTypes.Network
import Qtc.Network.QHostAddress
import Qtc.Network.QAbstractSocket
import Qtc.Enums.Network.QAbstractSocket
import Qtc.Network.QTcpSocket
import Qtc.ClassTypes.Tools
import Qtc.Tools.QUiLoader
import Qtc.Tools.QUiLoader_h
import Control.Monad
import Qtc.Classes.Object
 
type MyQWidget = QWidgetSc (CMyQWidget)
data CMyQWidget = CMyQWidget
 
myQWidget :: (QWidget ()) -> IO (MyQWidget)
myQWidget mw = qSubClass $ qCast_QWidget mw
 
main :: IO ()
main
  = do
    app <- qApplication ()
    rok <- registerResource "mainwindow.rcc"
    loader <- qUiLoader ()
    uiFile <- qFile "mainwindow.ui"
    open uiFile fReadOnly
    ui <- load loader uiFile
    close uiFile ()
    mwb <- ui_init ui
    qshow mwb ()
    ok <- qApplicationExec ()
    returnGC
 
ui_init :: QWidget () -> IO MyQWidget
ui_init ui
  = do
    ui_url <- findChild ui ("<QLineEdit*>", "lineEdit_url") -- URL
    ui_reg <- findChild ui ("<QLineEdit*>", "lineEdit_reg") -- regular expression
    ui_log <- findChild ui ("<QLineEdit*>", "lineEdit_log") -- login
    ui_pwd <- findChild ui ("<QLineEdit*>", "lineEdit_pwd") -- password
    ui_dpt <- findChild ui ("<QSpinBox*>", "spinBox_dpt")   -- depth
    ui_trv <- findChild ui ("<QTreeView*>", "treeView")     -- treeview area (left)
    ui_lst <- findChild ui ("<QListWidget*>", "listWidget")     -- listView area (right)
    ui_b_log <- findChild ui ("<QPushButton*>", "pushButton_log") :: IO (QPushButton ()) -- button login
    mwb <- myQWidget ui
    connectSlot ui_b_log "clicked()" mwb "logClicked()" $ logClicked ui_url ui_dpt ui_pwd ui_log ui_trv ui_lst
    return mwb
 
-- function called when the button "Login" clicked
logClicked :: QLineEdit () -> QSpinBox () -> QLineEdit () -> QLineEdit () -> QTreeView () -> QListWidget () -> MyQWidget -> IO ()
logClicked url depth password login tree_view list_widget mwb  
   = do 
    setText url "button Login clicked, function logClicked"
    newitem <- qListWidgetItem "text"
    addItem list_widget newitem  -- error happens if this gets executed
    return ()

module Main where

import Qtc.Classes.Base
import Qtc.Classes.Qccs
import Qtc.Classes.Qccs_h
import Qtc.Classes.Core
import Qtc.Classes.Gui
import Qtc.Classes.Network
import Qtc.Enums.Base
import Qtc.ClassTypes.Core
import Qtc.Core.Base
import Qtc.Enums.Core.Qt
import Qtc.Core.QSize
import Qtc.Core.QCoreApplication
import Qtc.Core.QIODevice
import Qtc.Enums.Core.QIODevice
import Qtc.Core.QFile
import Qtc.ClassTypes.Gui
import Qtc.Gui.Base
import Qtc.Gui.QApplication
import Qtc.Gui.QWidget
import Qtc.Gui.QColor
import Qtc.Gui.QSpinBox
import Qtc.Gui.QTextEdit
import Qtc.Gui.QListWidgetItem
import Qtc.Gui.QListWidget
import Qtc.Gui.QLineEdit
import Qtc.Gui.QPushButton
import Qtc.Gui.QPushButton_h
import Qtc.ClassTypes.Network
import Qtc.Network.QHostAddress
import Qtc.Network.QAbstractSocket
import Qtc.Enums.Network.QAbstractSocket
import Qtc.Network.QTcpSocket
import Qtc.ClassTypes.Tools
import Qtc.Tools.QUiLoader
import Qtc.Tools.QUiLoader_h
import Control.Monad
import Qtc.Classes.Object

type MyQWidget = QWidgetSc (CMyQWidget)
data CMyQWidget = CMyQWidget

myQWidget :: (QWidget ()) -> IO (MyQWidget)
myQWidget mw = qSubClass $ qCast_QWidget mw

main :: IO ()
main
  = do
    app <- qApplication ()
    rok <- registerResource "mainwindow.rcc"
    loader <- qUiLoader ()
    uiFile <- qFile "mainwindow.ui"
    open uiFile fReadOnly
    ui <- load loader uiFile
    close uiFile ()
    mwb <- ui_init ui
    qshow mwb ()
    ok <- qApplicationExec ()
    returnGC

ui_init :: QWidget () -> IO MyQWidget
ui_init ui
  = do
    ui_url <- findChild ui ("<QLineEdit*>", "lineEdit_url") -- URL
    ui_reg <- findChild ui ("<QLineEdit*>", "lineEdit_reg") -- regular expression
    ui_log <- findChild ui ("<QLineEdit*>", "lineEdit_log") -- login
    ui_pwd <- findChild ui ("<QLineEdit*>", "lineEdit_pwd") -- password
    ui_dpt <- findChild ui ("<QSpinBox*>", "spinBox_dpt")   -- depth
    ui_trv <- findChild ui ("<QTreeView*>", "treeView")     -- treeview area (left)
    ui_lst <- findChild ui ("<QListWidget*>", "listWidget")     -- listView area (right)
    ui_b_log <- findChild ui ("<QPushButton*>", "pushButton_log") :: IO (QPushButton ()) -- button login
    mwb <- myQWidget ui
    connectSlot ui_b_log "clicked()" mwb "logClicked()" $ logClicked ui_url ui_dpt ui_pwd ui_log ui_trv ui_lst
    return mwb

-- function called when the button "Login" clicked
logClicked :: QLineEdit () -> QSpinBox () -> QLineEdit () -> QLineEdit () -> QTreeView () -> QListWidget () -> MyQWidget -> IO ()
logClicked url depth password login tree_view list_widget mwb  
   = do 
    setText url "button Login clicked, function logClicked"
    newitem <- qListWidgetItem "text"
    addItem list_widget newitem  -- error happens if this gets executed
    return ()

To copy to clipboard, switch view to plain text mode 

The problem line is number 83.
Thanks in advance for any help,
jokob

ps. to compile you need the ui file attached