Thu Jun 11 16:59:48 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* :qt and :qt-impl packages to prevent collision with :cl symbols and fix object with non smoke parent.

--- old-qt.gui/src/ownership.lisp 2014-10-30 07:47:02.000000000 +0100

+++ new-qt.gui/src/ownership.lisp 2014-10-30 07:47:02.000000000 +0100

@@ -1,7 +1,7 @@

-(in-package :qt)

+(in-package :cl-smoke.qt-impl)

;; undo-stack

-(define-takes-ownership cxx:push ((undo-stack undo-stack) undo-command)

+(define-takes-ownership cxx:push ((undo-stack qt:undo-stack) undo-command)

undo-command)

@@ -23,46 +23,46 @@

;; AbstractFileEngine::beginEntryList return value

;; grid-layout

-(define-takes-ownership cxx:add-item ((layout grid-layout) (item layout-item)

+(define-takes-ownership cxx:add-item ((layout qt:grid-layout) (item qt:layout-item)

row column)

item)

-(define-takes-ownership cxx:add-item ((layout grid-layout) (item layout-item)

+(define-takes-ownership cxx:add-item ((layout qt:grid-layout) (item qt:layout-item)

row column row-span)

item)

-(define-takes-ownership cxx:add-item ((layout grid-layout) (item layout-item)

+(define-takes-ownership cxx:add-item ((layout qt:grid-layout) (item qt:layout-item)

row column row-span colum-span)

item)

-(define-takes-ownership cxx:add-item ((layout grid-layout) (item layout-item)

+(define-takes-ownership cxx:add-item ((layout qt:grid-layout) (item qt:layout-item)

row column row-span colum-span aligment)

item)

-(define-takes-ownership cxx:add-item ((layout layout) (item layout-item))

+(define-takes-ownership cxx:add-item ((layout qt:layout) (item qt:layout-item))

item)

;; QIcon::QIcon(QIconEngine* engine)

-(define-takes-ownership cxx:register-editor ((factory item-editor-factory)

+(define-takes-ownership cxx:register-editor ((factory qt:item-editor-factory)

type creator)

creator)

-(define-takes-ownership cxx:set-child ((this standard-item) row colum item)

+(define-takes-ownership cxx:set-child ((this qt:standard-item) row colum item)

item)

-(define-takes-ownership cxx:set-child ((this standard-item) row item)

+(define-takes-ownership cxx:set-child ((this qt:standard-item) row item)

item)

-(define-takes-ownership cxx:set-horizontal-header-item ((this standard-item-model)

+(define-takes-ownership cxx:set-horizontal-header-item ((this qt:standard-item-model)

column item)

item)

-(define-takes-ownership cxx:set-vertical-header-item ((this standard-item-model)

+(define-takes-ownership cxx:set-vertical-header-item ((this qt:standard-item-model)

row item)

item)

-(define-takes-ownership cxx:set-item ((this standard-item-model)

+(define-takes-ownership cxx:set-item ((this qt:standard-item-model)

row column item)

item)

-(define-takes-ownership cxx:set-item ((this standard-item-model)

+(define-takes-ownership cxx:set-item ((this qt:standard-item-model)

row item)

item)

-(define-takes-ownership cxx:set-item-prototype ((this standard-item-model)

+(define-takes-ownership cxx:set-item-prototype ((this qt:standard-item-model)

item)

item)