I'm cc'ing David (qthaskell's author).
On Wed, Mar 10, 2010 at 1:59 AM, Philip Beadling
<phil.beadling@googlemail.com> wrote:
Hi,
I know this isn't a qtHaskell list, but I don't think there is one.
Was wondering if anyone has any ideas on the below.
Basically I'm trying to control a Marble (Map software) Qt widget from
qtHaskell.
So I've mocked up a very simple user interface in Qt Designer (1 form, 1
Marble widget).
I can load this up and display it fine in Haskell, but as soon as I try
to interrogate the widget I get a seg fault (eg qObjectProperty)
My guess is that the call to findChild, although it executes OK it is
not producing a valid QObject - probably casting to
Marble::MarbleWidget* it crux of the problem.
I can get this working using standard Qt Widgets (just like the examples
show from qtHaskell), so I know the method is sound - although calling
3rd party widgets like this may be ambitious or impossible.
I recognise this is a fairly broad query! Has anyone tried anything
similar? Is it even possible to do this in qtHaskell as I'm proposing?
I'm a Qt novice, so it may well be that I've misunderstood qtHaskell.
Cheers,
Phil.
Using:
GHC 6.12.1 / QT4.5 / Marble 0.8 / Ubuntu 9.04
module Main where
import Qtc
main :: IO ()
main
= do
app <- qApplication ()
rok <- registerResource "marble.rcc"
loader <- qUiLoader ()
uiFile <- qFile ":/marble.ui"
open uiFile fReadOnly
ui <- load loader uiFile
close uiFile ()
ui_map <- findChild ui ("<Marble::MarbleWidget*>", "MarbleWidget")
sc <- qObjectProperty ui_map "showCompass"
qshow ui ()
ok <- qApplicationExec ()
return ()
_______________________________________________
Haskell-Cafe mailing list
Haskell-Cafe@haskell.org
http://www.haskell.org/mailman/listinfo/haskell-cafe