hg/stx-goodies-libcairo: Cairo__TextExampleView.st@2a1c3c0439ea (annotated)

88 9d51db2ba641 Add copyright notice Jan Vrany <jan.vrany@labware.com> parents: 29 diff changeset	1	"
9d51db2ba641 Add copyright notice Jan Vrany <jan.vrany@labware.com> parents: 29 diff changeset	2	stx:goodies/libcairo - Cairo graphics bindings for Smalltalk/X
9d51db2ba641 Add copyright notice Jan Vrany <jan.vrany@labware.com> parents: 29 diff changeset	3
9d51db2ba641 Add copyright notice Jan Vrany <jan.vrany@labware.com> parents: 29 diff changeset	4	Copyright (C) 2008-2019 Jan Vrany
9d51db2ba641 Add copyright notice Jan Vrany <jan.vrany@labware.com> parents: 29 diff changeset	5
9d51db2ba641 Add copyright notice Jan Vrany <jan.vrany@labware.com> parents: 29 diff changeset	6	This code is licensed under Creative Commons Attribution-NonCommercial License.
9d51db2ba641 Add copyright notice Jan Vrany <jan.vrany@labware.com> parents: 29 diff changeset	7	For full text of the license, see file LICENSE.txt
9d51db2ba641 Add copyright notice Jan Vrany <jan.vrany@labware.com> parents: 29 diff changeset	8	"
18 fae6edf1bdbd - Cairo::TextExampleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	"{ Package: 'stx:goodies/libcairo' }"
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	"{ NameSpace: Cairo }"
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	SimpleView subclass:#TextExampleView
28 1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	14	instanceVariableNames:''
18 fae6edf1bdbd - Cairo::TextExampleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	classVariableNames:''
fae6edf1bdbd - Cairo::TextExampleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16	poolDictionaries:''
fae6edf1bdbd - Cairo::TextExampleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	category:'Cairo-Examples'
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
88 9d51db2ba641 Add copyright notice Jan Vrany <jan.vrany@labware.com> parents: 29 diff changeset	20	!TextExampleView class methodsFor:'documentation'!
9d51db2ba641 Add copyright notice Jan Vrany <jan.vrany@labware.com> parents: 29 diff changeset	21
9d51db2ba641 Add copyright notice Jan Vrany <jan.vrany@labware.com> parents: 29 diff changeset	22	copyright
9d51db2ba641 Add copyright notice Jan Vrany <jan.vrany@labware.com> parents: 29 diff changeset	23	"
9d51db2ba641 Add copyright notice Jan Vrany <jan.vrany@labware.com> parents: 29 diff changeset	24	stx:goodies/libcairo - Cairo graphics bindings for Smalltalk/X
9d51db2ba641 Add copyright notice Jan Vrany <jan.vrany@labware.com> parents: 29 diff changeset	25
9d51db2ba641 Add copyright notice Jan Vrany <jan.vrany@labware.com> parents: 29 diff changeset	26	Copyright (C) 2008-2019 Jan Vrany
9d51db2ba641 Add copyright notice Jan Vrany <jan.vrany@labware.com> parents: 29 diff changeset	27
9d51db2ba641 Add copyright notice Jan Vrany <jan.vrany@labware.com> parents: 29 diff changeset	28	This code is licensed under Creative Commons Attribution-NonCommercial License.
9d51db2ba641 Add copyright notice Jan Vrany <jan.vrany@labware.com> parents: 29 diff changeset	29	For full text of the license, see file LICENSE.txt
9d51db2ba641 Add copyright notice Jan Vrany <jan.vrany@labware.com> parents: 29 diff changeset	30	"
9d51db2ba641 Add copyright notice Jan Vrany <jan.vrany@labware.com> parents: 29 diff changeset	31	! !
18 fae6edf1bdbd - Cairo::TextExampleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32
fae6edf1bdbd - Cairo::TextExampleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33	!TextExampleView methodsFor:'accessing-dimensions'!
fae6edf1bdbd - Cairo::TextExampleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34
fae6edf1bdbd - Cairo::TextExampleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35	preferredExtent
fae6edf1bdbd - Cairo::TextExampleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36
fae6edf1bdbd - Cairo::TextExampleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37	^400 @ 400
fae6edf1bdbd - Cairo::TextExampleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	38
fae6edf1bdbd - Cairo::TextExampleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	39	"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	40	! !
fae6edf1bdbd - Cairo::TextExampleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	41
fae6edf1bdbd - Cairo::TextExampleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	42	!TextExampleView methodsFor:'redrawing'!
fae6edf1bdbd - Cairo::TextExampleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	43
fae6edf1bdbd - Cairo::TextExampleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	44	redraw
fae6edf1bdbd - Cairo::TextExampleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	45
28 1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	46	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	47	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	48
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	49	self redrawWithCairo
18 fae6edf1bdbd - Cairo::TextExampleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	50
28 1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	51	"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	52	"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	53	!
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	54
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	55	redrawWithCairo: cr
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	56
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	57	self clippingBounds: nil.
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	58
18 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	self font: (Font family: 'Helvetica' face: 'medium' style: 'italic' size: 32).
fae6edf1bdbd - Cairo::TextExampleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	61	self displayString: 'Hello world!!' x: 10 y: 40.
fae6edf1bdbd - Cairo::TextExampleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62
29 6ba06265e543 Bindinge updated to recent Cairo version. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 28 diff changeset	63	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	64	cr fontSize: 42.
fae6edf1bdbd - Cairo::TextExampleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	65
fae6edf1bdbd - Cairo::TextExampleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	66	cr moveToX: 10 y: 82.
fae6edf1bdbd - Cairo::TextExampleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	67	cr showText: 'Hello World!!'
fae6edf1bdbd - Cairo::TextExampleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	68
28 1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	69	"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	70	"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	71	!
fae6edf1bdbd - Cairo::TextExampleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	72
fae6edf1bdbd - Cairo::TextExampleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	73	redrawX: x y: y width: w height: h
fae6edf1bdbd - Cairo::TextExampleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	74	self redraw
fae6edf1bdbd - Cairo::TextExampleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	75
fae6edf1bdbd - Cairo::TextExampleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	76	"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	77	"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	78	! !
fae6edf1bdbd - Cairo::TextExampleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	79
fae6edf1bdbd - Cairo::TextExampleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	80	!TextExampleView class methodsFor:'documentation'!
fae6edf1bdbd - Cairo::TextExampleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	81
23 38ee47dbd976 Added version_HG to make Mercurial happy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 18 diff changeset	82	version_HG
38ee47dbd976 Added version_HG to make Mercurial happy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 18 diff changeset	83	^ '$Changeset: <not expanded> $'
18 fae6edf1bdbd - Cairo::TextExampleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	84	! !
28 1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	85

author	Jan Vrany <jan.vrany@labware.com>
	Mon, 15 Jun 2020 15:14:31 +0100
changeset 89	2a1c3c0439ea
parent 88	9d51db2ba641
permissions	-rw-r--r--