Cairo__TextExampleView.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Tue, 05 Apr 2016 10:00:57 +0100
changeset 77 cdf856e78998
parent 29 6ba06265e543
child 88 9d51db2ba641
permissions -rw-r--r--
CairoGraphicsContext: Fixed paint setting Even though methods like #foreground: / #foreground:background: method are marked obsolete for quite some time, a lot of core widgets are still using them (!). Therefore CairoGraphicsContext must implement them to correctly update Cairo context. This fixes issues with EditField.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
18
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     1
"{ Package: 'stx:goodies/libcairo' }"
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     2
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     3
"{ NameSpace: Cairo }"
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     4
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     5
SimpleView subclass:#TextExampleView
28
1bd3d147cd77 Added utility methods to SimpleView...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 24
diff changeset
     6
	instanceVariableNames:''
18
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     7
	classVariableNames:''
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     8
	poolDictionaries:''
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     9
	category:'Cairo-Examples'
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    10
!
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    11
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    12
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    13
!TextExampleView methodsFor:'accessing-dimensions'!
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    14
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    15
preferredExtent
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    16
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    17
    ^400 @ 400
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    18
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    19
    "Created: / 17-06-2012 / 22:37:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    20
! !
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    21
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    22
!TextExampleView methodsFor:'redrawing'!
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    23
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    24
redraw
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    25
28
1bd3d147cd77 Added utility methods to SimpleView...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 24
diff changeset
    26
    self font: (Font family: 'Helvetica' face: 'medium' style: 'italic' size: 32).
1bd3d147cd77 Added utility methods to SimpleView...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 24
diff changeset
    27
    self displayString: 'Hello world!!' x: 10 y: 40.
1bd3d147cd77 Added utility methods to SimpleView...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 24
diff changeset
    28
1bd3d147cd77 Added utility methods to SimpleView...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 24
diff changeset
    29
    self redrawWithCairo
18
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    30
28
1bd3d147cd77 Added utility methods to SimpleView...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 24
diff changeset
    31
    "Created: / 16-06-2012 / 23:25:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1bd3d147cd77 Added utility methods to SimpleView...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 24
diff changeset
    32
    "Modified: / 27-12-2014 / 00:37:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1bd3d147cd77 Added utility methods to SimpleView...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 24
diff changeset
    33
!
1bd3d147cd77 Added utility methods to SimpleView...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 24
diff changeset
    34
1bd3d147cd77 Added utility methods to SimpleView...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 24
diff changeset
    35
redrawWithCairo: cr
1bd3d147cd77 Added utility methods to SimpleView...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 24
diff changeset
    36
1bd3d147cd77 Added utility methods to SimpleView...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 24
diff changeset
    37
    self clippingBounds: nil. 
1bd3d147cd77 Added utility methods to SimpleView...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 24
diff changeset
    38
18
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    39
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    40
    self font: (Font family: 'Helvetica' face: 'medium' style: 'italic' size: 32).
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    41
    self displayString: 'Hello world!!' x: 10 y: 40.
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    42
29
6ba06265e543 Bindinge updated to recent Cairo version.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 28
diff changeset
    43
    cr fontFaceFamily: 'Helvetice' slant: Cairo::FontSlant CAIRO_FONT_SLANT_ITALIC weight: Cairo::FontWeight CAIRO_FONT_WEIGHT_NORMAL. 
18
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    44
    cr fontSize: 42.
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    45
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    46
    cr moveToX: 10 y: 82.
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    47
    cr showText: 'Hello World!!'
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    48
28
1bd3d147cd77 Added utility methods to SimpleView...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 24
diff changeset
    49
    "Created: / 27-12-2014 / 00:36:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
29
6ba06265e543 Bindinge updated to recent Cairo version.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 28
diff changeset
    50
    "Modified: / 28-12-2014 / 22:13:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
18
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    51
!
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    52
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    53
redrawX: x y: y width: w height: h
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    54
    self redraw
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    55
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    56
    "Created: / 17-06-2012 / 21:33:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
28
1bd3d147cd77 Added utility methods to SimpleView...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 24
diff changeset
    57
    "Modified: / 27-12-2014 / 00:37:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
18
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    58
! !
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    59
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    60
!TextExampleView class methodsFor:'documentation'!
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    61
23
38ee47dbd976 Added version_HG to make Mercurial happy
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18
diff changeset
    62
version_HG
38ee47dbd976 Added version_HG to make Mercurial happy
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18
diff changeset
    63
    ^ '$Changeset: <not expanded> $'
18
fae6edf1bdbd - Cairo::TextExampleView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    64
! !
28
1bd3d147cd77 Added utility methods to SimpleView...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 24
diff changeset
    65