Hi Peter,
thank you very much for your answer! I did what you told me, and now I have a
different problem .... ;) When I try :
(let ((*gtk-debug* t))
(start-win 'test-gtk))
everything's stopped after few line:
Calling (gtk-adds-g-thread-supported)
(.........) returns 0 <---- It's here the problem?
Calling (g-thread-init #. (SB-SYS: INT-SAP #X00000000))
(........) retuns NIL
Calling (gdk-threads-init)
(........) returns NIL
Calling (gtk-init-check #. (SB-SYS: INT-SAP #X00000000) #. (SB-SYS: INT-SAP
#X00000000))
(.......) returns T
Calling (gtk-init #. (SB-SYS: INT-SAP #X00000000) #. (SB-SYS: INT-SAP
#X00000000))
(.......) returns NIL
eval (SETF APP (APPLY #'MAKE-INSTANCE APP-NAME VISIBLE (C-IN NIL) INITARGS))
Calling (gtk-statusbar-new)
..........................................................
......and everything stopped. Thank you,
Roberto
_______________________________________________
cells-gtk-devel site list
cells-gtk-devel@common-lisp.net
http://common-lisp.net/mailman/listinfo/cells-gtk-devel
