repos / qt.tests / annotate_shade
summary | shortlog | log | tree | commit | commitdiff | headdiff | annotate | headblob | headfilediff | filehistory
normal | plain | shade | zebra
Test QGraphicsScene::setItem
Annotate for file /src/graphics-item.lisp
2010-01-25 tobias 1 (in-package :qt.tests)
21:13:40 ' 2
' 3 (5am:in-suite :qt.suite)
' 4
' 5 (5am:test set-graphics-item
' 6 "Ownership transfer for QGraphicsScene::setItem."
' 7 (qt:with-app ()
' 8 (let ((scene (make-instance 'qt:graphics-scene)))
' 9 (let ((item (make-instance 'qt:graphics-item)))
' 10 (cxx:set-tool-tip item "Foo")
' 11 (cxx:add-item scene item))
' 12 (tg:gc :full t)
' 13 (tg:gc :full t)
' 14 (5am:is (= 1 (length (cxx:items scene))))
' 15 (5am:is (string= "Foo"
' 16 (cxx:tool-tip (elt (cxx:items scene) 0))))
' 17 ;; FIXME delete QGraphicsScene before the QApplication is deleted
' 18 (smoke::delete-object scene))))
Crece desde el pueblo el futuro / crece desde el pie