[cells-gtk-devel] Problems with demo

[Leandro Ríos]

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