--- 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> $'
! !
+