Cairo__TextExampleView.st
changeset 28 1bd3d147cd77
parent 24 6c74dd51bff4
child 29 6ba06265e543
--- a/Cairo__TextExampleView.st	Thu Dec 25 10:47:49 2014 +0100
+++ b/Cairo__TextExampleView.st	Sat Dec 27 00:45:13 2014 +0100
@@ -3,7 +3,7 @@
 "{ NameSpace: Cairo }"
 
 SimpleView subclass:#TextExampleView
-	instanceVariableNames:'cr updater'
+	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Cairo-Examples'
@@ -23,13 +23,19 @@
 
 redraw
 
-    |  |
+    self font: (Font family: 'Helvetica' face: 'medium' style: 'italic' size: 32).
+    self displayString: 'Hello world!!' x: 10 y: 40.
+
+    self redrawWithCairo
 
-    self clippingRectangle: 
-        (Smalltalk::Rectangle left:1 top:1 width:self width height:self height).
-    cr isNil ifTrue:[
-        cr := self cairo.
-    ].
+    "Created: / 16-06-2012 / 23:25:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 27-12-2014 / 00:37:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+redrawWithCairo: cr
+
+    self clippingBounds: nil. 
+
 
     self font: (Font family: 'Helvetica' face: 'medium' style: 'italic' size: 32).
     self displayString: 'Hello world!!' x: 10 y: 40.
@@ -40,14 +46,14 @@
     cr moveToX: 10 y: 82.
     cr showText: 'Hello World!!'
 
-    "Created: / 16-06-2012 / 23:25:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 27-12-2014 / 00:36:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 redrawX: x y: y width: w height: h
-
     self redraw
 
     "Created: / 17-06-2012 / 21:33:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 27-12-2014 / 00:37:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !TextExampleView class methodsFor:'documentation'!
@@ -55,3 +61,4 @@
 version_HG
     ^ '$Changeset: <not expanded> $'
 ! !
+