Hi,

I'm having problems to run the demo of cells-gtk. I compiled libcellsgtk.so (I'm running Ubuntu 7.10 AMD64 and SBCL 1.0.6) When I run (test-gtk:gtk-demo) sbcl halts with this error:

Unhandled memory fault at #x400000004B.
   [Condition of type SB-SYS:MEMORY-FAULT-ERROR]

Restarts:
 0: [ABORT] Return to SLIME's top level.
1: [TERMINATE-THREAD] Terminate this thread (#<THREAD "repl-thread" {1002AB65E1}>)

Backtrace:
  0: (SB-SYS:MEMORY-FAULT-ERROR)
  1: (SB-SYS:MEMORY-FAULT-ERROR)
  2: ("foreign function: #x41D7B2")
  3: ("foreign function: #x41D880")

If I enable debug:

-------------------------------------------------------------------
CL-USER> (test-gtk:gtk-demo t)

eval (INIT-GTK)
Calling (gtk-adds-g-thread-supported )
  (gtk-adds-g-thread-supported ) returns 1--> NIL
eval (SHOW-WIN APP-NAME TERMINATE-ON-CLOSE T)
eval (SETF APP
             (APPLY #'MAKE-INSTANCE APP-NAME VISIBLE (C-IN NIL) INITARGS))
Calling (gtk-statusbar-new )
  (gtk-statusbar-new ) returns #.(SB-SYS:INT-SAP #X00AF7330)
Calling (gtk-statusbar-get-context-id #.(SB-SYS:INT-SAP #X00AF7330) MAIN)
(gtk-statusbar-get-context-id #.(SB-SYS:INT-SAP #X00AF7330) MAIN) returns 1
Calling (gtk-list-store-newv 2 #.(SB-SYS:INT-SAP #X00ABAF90))

-------------------------------------------------------------------

And the debugger pops up with above error.

If I modify the model test-gtk like:

(defmodel test-gtk (gtk-app)
  ()
  (:default-initargs
      :title "GTK Testing"
    ;;:tooltips nil ;;dkwt
    ;;:tooltips-enable nil ;;dkwt
    :icon (namestring *small-image*)
    :stock-icons (list (list :my-g (namestring *stock-icon-image*)))
    :position :center
    :splash-screen-image (namestring *splash-image*)
    :width 650 :height 550
    :kids (let ((tabs '("Buttons"
                        "Display"
                        "Layout"
                        ;"Menus" <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< HERE
                        "Dialogs"
                        "Addon"
                        "Entry"
                        "Textview"
                        ;"Tree-view" <<<<<<<<<<<<<<<<<<<<<<<<<<<<< HERE
                        ;"Drawing"
                        )))
            (list (mk-notebook
                   :tab-labels tabs
                   :kids  (loop for test-name in tabs
                              collect (make-instance
                                          (intern (string-upcase
(format nil "test-~a" test-name))
                                            :test-gtk))))))))

the demo runs, but the treeview and menu demos are missing (of course).

Using Cells 2.0 and CFFI 0.9.2, from asdf-install and cells-gtk from CVS

Any ideas?

Thanks in advance,

Leandro

_______________________________________________
cells-gtk-devel site list
[email protected]
http://common-lisp.net/mailman/listinfo/cells-gtk-devel

Reply via email to