: init-qt-smoke ( -- )
    smoke_init

    smoke_get_qt_Smoke smoke-delete-callback smoke-call-method-callback smoke_bind
    FactorSmokeBound memory>struct qt-bound set
 
    smoke_get_qtwebkit_Smoke smoke-delete-callback smoke-call-method-callback smoke_bind   
    FactorSmokeBound memory>struct qt-webkit-bound set
    
    ;