Re: [Lisp-cffi-qt4-list] text-browser's anchor-clicked signal

[Radoslav A. <rsd...@gm...>]

If I remove the "connect" form it works just fine. If I connect another 
signal (e.g. text-changed), it also works. I also tried with "text-edit" 
instead of "text-browser" - the effect was the same. For me that's a 
hint, that the problem is in "anchor-clicked" signal's implementation.

Radoslav Atanasov wrote:
> Hi, all.
>
> At first, thanks to the author of the project - it's something I was 
> waiting to find :)
>
> I'm just playing with 0.2g, and it worked fine with some simple things 
> I tried. The first toy I have in mind is to build a simple browser for 
> some preformatted text, so I tried the following:
>
>> (require :qt "qt")
>>
>> (defpackage qt-user    (:use cl qt))
>> (in-package qt-user)
>>
>> (defun a-clicked (&rest args))   
>> (with-qt ()
>>     (object html 'text-browser) ; 'text-edit)
>>     (setpr html :html "<font color='red'>Hello, <a 
>> href='http://dir.bg'>Bulgaria</a>!</font>")
>>     (connect html 'anchor-clicked #'a-clicked)) ;(lambda (&rest args) 
>> (print (getpr (sender) :html))))) ; (lambda () (message-box :info 
>> (format nil "~A" url)))))
> And then:
>
>> D:\Opt\Lisp\qt\examples-0.2g>ecl -shell test.lisp
>> ;;; Loading #P"D:/Opt/Lisp/qt/examples-0.2g/qt.lisp"
>> ;;; Loading "D:/Opt/Lisp/qt/examples-0.2g/cffi/cffi.fas"
>> ;;; Loading "D:/Opt/Lisp/qt/examples-0.2g/cffi/utils.fas"
>> ;;; Loading "D:/Opt/Lisp/qt/examples-0.2g/cffi/features.fas"
>> ;;; Loading "D:/Opt/Lisp/qt/examples-0.2g/cffi/cffi-ecl.fas"
>> ;;; Loading "D:/Opt/Lisp/qt/examples-0.2g/cffi/package.fas"
>> ;;; Loading "D:/Opt/Lisp/qt/examples-0.2g/cffi/libraries.fas"
>> ;;; Loading "D:/Opt/Lisp/qt/examples-0.2g/cffi/early-types.fas"
>> ;;; Loading "D:/Opt/Lisp/qt/examples-0.2g/cffi/types.fas"
>> ;;; Loading "D:/Opt/Lisp/qt/examples-0.2g/cffi/enum.fas"
>> ;;; Loading "D:/Opt/Lisp/qt/examples-0.2g/cffi/strings.fas"
>> ;;; Loading "D:/Opt/Lisp/qt/examples-0.2g/cffi/functions.fas"
>> ;;; Loading "D:/Opt/Lisp/qt/examples-0.2g/cffi/foreign-vars.fas"
>> An error occurred during initialization:
>> Segmentation violation..
>>
>> D:\Opt\Lisp\qt\examples-0.2g>
> I tried with (lamda () ...), #'(lambda () ...), (lambda (&rest) ...), 
> #'(lambda (&rest) ...) and then with defun-ed function... - getting 
> each time "Segmentation fault".
>
> Any ideas?
>
> Greetings,
> Rado
>
> P.S. I see that the mailing list is not used much, but I had no other 
> idea how to contact the admin/team, as the "Admin" tab is restricted. 
> I'm also a SF project administrator, of a small, almost dead, C++/QT 
> project (http://sourceforge.net/projects/bgbible), I would like to 
> renew some day, maybe in Lisp. So as a first step, maybe I can help 
> with something to lisp-cffi-qt4...
>