Sun Jan 10 09:52:09 CET 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Split up in qt.core.

- Fix qt:with-core-app

- cleanup name prefixes

--- old-qt.core/src/ownership.lisp 2014-10-30 07:27:11.000000000 +0100

+++ new-qt.core/src/ownership.lisp 2014-10-30 07:27:11.000000000 +0100

@@ -1,79 +1 @@

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

-

-;; undo-stack

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

- undo-command)

-

-

-#|

-;; FIXME TODO

-;; application

-(define-takes-ownership cxx:set-style ((application application) (style style))

- ;; NOT QString style

- style) ;; STATIC

-

-

-;; core-application

-(define-takes-ownership cxx:post-event ((app core-application) receiver (event event))

- event) ;; STATIC

-(define-takes-ownership cxx:post-event ((app core-application) receiver event priority)

- event) ;; STATIC

-|#

-

-;; AbstractFileEngine::beginEntryList return value

-

-;; grid-layout

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

- row column)

- 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 qt:grid-layout) (item qt:layout-item)

- row column row-span colum-span)

- 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 qt:layout) (item qt:layout-item))

- item)

-

-;; QIcon::QIcon(QIconEngine* engine)

-

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

- type creator)

- creator)

-

-

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

- item)

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

- item)

-(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 qt:standard-item-model)

- row item)

- item)

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

- row column item)

- item)

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

- row item)

- item)

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

- item)

- item)

-

-

-;; Allocates return value

-;; QLineEdit::createStandardContextMenu()

-

-;; parent

-;; QListwidgetitem

-

-

-;; Releases ownership

-;;QList<QStandardItem *> QStandardItemModel::takeColumn ( int column )

-;; etc

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