[Cl-smoke] GLuint conversion error

[Elliott Slaughter]

Hi,

When I try to bind a texture in a customized subclass of glwidget using the
following code, I get some sort of conversion error.

(cxx:bind-texture my-glwidget (make-instance 'qt:pixmap :arg0
"texture.png"))

I'm rather lost at how to debug this, so any help would be appreciated.
Thanks.



debugger invoked on a SIMPLE-ERROR in thread #<THREAD "initial thread"
RUNNING
                                               {AA03BE1}>:
  Do not know how to convert the type #<SMOKE-TYPE GLuint> to Lisp.

Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [CONTINUE    ] Return the pointer
  1: [CALL-DEFAULT] Call default implementation #<SMOKE-METHOD virtual
protected void QGLWidget::initializeGL() > instead.
  2: [RETURN      ] Return void for virtual protected void
QGLWidget::initializeGL() .
  3: [RETRY       ] Try again calling virtual protected void
QGLWidget::initializeGL() .
  4:                Ignore runtime option --load "qt-opengl.lisp".
  5: [ABORT       ] Skip rest of --eval and --load options.
  6:                Skip to toplevel READ/EVAL/PRINT loop.
  7: [QUIT        ] Quit SBCL (calling #'QUIT, killing the process).

(SMOKE::ENUM-TO-LISP #<unavailable argument> #<unavailable argument>)
0] ba

0: (SMOKE::ENUM-TO-LISP #<unavailable argument> #<unavailable argument>)
1: (SMOKE::S-CALL
    #<SMOKE::SMOKE-METHOD
      public GLuint QGLWidget::bindTexture(const QPixmap&) >
    #.(SB-SYS:INT-SAP #X081F3580)
    (#<CL-SMOKE.QT:PIXMAP #.(SB-SYS:INT-SAP #X0823A0B8)>))
2: ((SB-PCL::FAST-METHOD NO-APPLICABLE-METHOD (SMOKE::SMOKE-GF))
    #<unavailable argument>
    #<unavailable argument>
    #<unavailable argument>)[:EXTERNAL]
3: ((SB-PCL::FAST-METHOD CXX:INITIALIZE-GL (MY-GLWIDGET))
    #(NIL NIL NIL NIL)
    #<unavailable argument>
    #<MY-GLWIDGET  {C4DDAE9}>)
4: ((LAMBDA (METHOD SMOKE::OBJECT-PTR SMOKE::STACK SMOKE::ABSTRACT))
    #<unavailable argument>
    #<unavailable argument>
    #<unavailable argument>
    #<unavailable argument>)
5: ((LAMBDA (SB-ALIEN::ARGS-POINTER SB-ALIEN::RESULT-POINTER FUNCTION))
    -303398876
    -303398880
    #<FUNCTION (LAMBDA #) {B3E7125}>)
6: ("foreign function: #x8066ECB")
7: ("foreign function: #x8052F0E")
8: ("foreign function: #x1100955")
9: ("foreign function: #xB789538E")
10: ("foreign function: #xB60547CE")
11: ("foreign function: #xB5F2625F")
12: ("foreign function: #xB605446D")
13: ("foreign function: #xB5F896D1")
14: ("foreign function: #xB6055364")
15: ("foreign function: #xB622F6EC")
16: ("foreign function: #xB5F2AEE7")
17: ("foreign function: #xB60564C6")
18: ("foreign function: #xB61CD93F")
19: ("foreign function: #xB61D073E")
20: ("foreign function: #xB6F239F7")
21: ("foreign function: #xB777376B")
22: ("foreign function: #xB622C393")
23: ("foreign function: #xB6232BE9")
24: ("foreign function: #xB6235503")
25: ("foreign function: #xB6055C02")
26: ("foreign function: #xB715BA58")
27: ("foreign function: #xB7160C67")
28: ("foreign function: #xB715709E")
29: (SMOKE::S-CALL
     #<SMOKE::SMOKE-METHOD public void QWidget::show() >
     #.(SB-SYS:INT-SAP #X081F3580)
     NIL)
30: ((SB-PCL::FAST-METHOD NO-APPLICABLE-METHOD (SMOKE::SMOKE-GF))
     #<unavailable argument>
     #<unavailable argument>
     #<unavailable argument>)[:EXTERNAL]
31: (HELLO-WORLD)
32: (SB-INT:SIMPLE-EVAL-IN-LEXENV (HELLO-WORLD) #<NULL-LEXENV>)
33: (SB-FASL::LOAD-AS-SOURCE
     #<SB-SYS:FD-STREAM
       for "file
/home/linux/ieng6/oce/64/eslaught/blackthorn-0.2/qt-opengl.lisp"
       {ACAB211}>
     NIL
     NIL)
34: ((FLET SB-FASL::LOAD-STREAM)
     #<SB-SYS:FD-STREAM
       for "file
/home/linux/ieng6/oce/64/eslaught/blackthorn-0.2/qt-opengl.lisp"
       {ACAB211}>
     NIL)
35: (LOAD #P"qt-opengl.lisp")[:EXTERNAL]
36: (SB-IMPL::PROCESS-EVAL/LOAD-OPTIONS ((:LOAD . "qt-opengl.lisp")))
37: (SB-IMPL::TOPLEVEL-INIT)
38: ((LABELS SB-IMPL::RESTART-LISP))


-- 
Elliott Slaughter

"Don't worry about what anybody else is going to do. The best way to predict
the future is to invent it." - Alan Kay
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://tobias.rautenkranz.ch/pipermail/cl-smoke_tobias.rautenkranz.ch/attachments/20100308/dc45b2a9/attachment-0002.html>