hg/stx-libview: tests/FormTests.st@aed1314a2448 (annotated)

7315 aed1314a2448 Issue #82: UIPainterView does not understand: #deviceClippingRectangle Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'stx:libview/tests' }"
aed1314a2448 Issue #82: UIPainterView does not understand: #deviceClippingRectangle Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
aed1314a2448 Issue #82: UIPainterView does not understand: #deviceClippingRectangle Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	"{ NameSpace: Smalltalk }"
aed1314a2448 Issue #82: UIPainterView does not understand: #deviceClippingRectangle Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
aed1314a2448 Issue #82: UIPainterView does not understand: #deviceClippingRectangle Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	TestCase subclass:#FormTests
aed1314a2448 Issue #82: UIPainterView does not understand: #deviceClippingRectangle Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	instanceVariableNames:''
aed1314a2448 Issue #82: UIPainterView does not understand: #deviceClippingRectangle Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
aed1314a2448 Issue #82: UIPainterView does not understand: #deviceClippingRectangle Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	poolDictionaries:''
aed1314a2448 Issue #82: UIPainterView does not understand: #deviceClippingRectangle Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	category:'Compatibility-ST80-Graphics-Display Objects-Tests'
aed1314a2448 Issue #82: UIPainterView does not understand: #deviceClippingRectangle Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
aed1314a2448 Issue #82: UIPainterView does not understand: #deviceClippingRectangle Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
aed1314a2448 Issue #82: UIPainterView does not understand: #deviceClippingRectangle Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12	!FormTests methodsFor:'running'!
aed1314a2448 Issue #82: UIPainterView does not understand: #deviceClippingRectangle Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13
aed1314a2448 Issue #82: UIPainterView does not understand: #deviceClippingRectangle Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14	setUp
aed1314a2448 Issue #82: UIPainterView does not understand: #deviceClippingRectangle Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	self skipIf: Display isNil description: 'Display connection not available'
aed1314a2448 Issue #82: UIPainterView does not understand: #deviceClippingRectangle Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16
aed1314a2448 Issue #82: UIPainterView does not understand: #deviceClippingRectangle Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	"Created: / 25-04-2016 / 20:30:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
aed1314a2448 Issue #82: UIPainterView does not understand: #deviceClippingRectangle Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	! !
aed1314a2448 Issue #82: UIPainterView does not understand: #deviceClippingRectangle Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19
aed1314a2448 Issue #82: UIPainterView does not understand: #deviceClippingRectangle Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20	!FormTests methodsFor:'tests - regression'!
aed1314a2448 Issue #82: UIPainterView does not understand: #deviceClippingRectangle Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21
aed1314a2448 Issue #82: UIPainterView does not understand: #deviceClippingRectangle Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	test_issue_82
aed1314a2448 Issue #82: UIPainterView does not understand: #deviceClippingRectangle Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23	"
aed1314a2448 Issue #82: UIPainterView does not understand: #deviceClippingRectangle Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24	https://swing.fit.cvut.cz/projects/stx-jv/ticket/82
aed1314a2448 Issue #82: UIPainterView does not understand: #deviceClippingRectangle Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	"
aed1314a2448 Issue #82: UIPainterView does not understand: #deviceClippingRectangle Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	\| f \|
aed1314a2448 Issue #82: UIPainterView does not understand: #deviceClippingRectangle Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	f := Form width:8 height:8 depth:1.
aed1314a2448 Issue #82: UIPainterView does not understand: #deviceClippingRectangle Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	f colorMap:(Array with:Screen current blackColor with: Screen current whiteColor).
aed1314a2448 Issue #82: UIPainterView does not understand: #deviceClippingRectangle Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29	f clear.
aed1314a2448 Issue #82: UIPainterView does not understand: #deviceClippingRectangle Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30	f paint:(Color colorId:1).
aed1314a2448 Issue #82: UIPainterView does not understand: #deviceClippingRectangle Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31	self assert: (f bits allSatisfy:[:byte \| byte = 0 ])
aed1314a2448 Issue #82: UIPainterView does not understand: #deviceClippingRectangle Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32
aed1314a2448 Issue #82: UIPainterView does not understand: #deviceClippingRectangle Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33	"Created: / 25-04-2016 / 20:04:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
aed1314a2448 Issue #82: UIPainterView does not understand: #deviceClippingRectangle Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34	! !
aed1314a2448 Issue #82: UIPainterView does not understand: #deviceClippingRectangle Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 25 Apr 2016 20:34:59 +0100
branch	jv
changeset 7315	aed1314a2448
child 7721	97e40cfd96bb
child 7764	618f2a37eee2
permissions	-rw-r--r--