tests/CairoGraphicsContextTests.st
changeset 75 e3ca2f982493
parent 73 ad44e7d3a06d
child 77 cdf856e78998
--- a/tests/CairoGraphicsContextTests.st	Mon Apr 04 18:47:45 2016 +0100
+++ b/tests/CairoGraphicsContextTests.st	Tue Apr 05 07:44:27 2016 +0100
@@ -298,6 +298,32 @@
     "Created: / 16-03-2016 / 19:30:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!CairoGraphicsContextTests methodsFor:'tests - manual'!
+
+manual_01
+    "
+    CairoGraphicsContextTests new manual_01
+    "
+
+    |top textView text |
+
+    top := StandardSystemView new.
+    top extent:300@200.
+
+    textView := EditTextView new.
+    textView cairoify.
+    textView origin:0.0 @ 0.0 corner:1.0 @ 1.0.
+    top addSubView:textView.
+
+    text := 'Hello ' asText , 'World!!' asText allBold.
+    text allUnderwaved.
+    textView contents: text.
+
+    top open.
+
+    "Created: / 04-04-2016 / 18:45:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !CairoGraphicsContextTests class methodsFor:'documentation'!
 
 version_HG