hg/stx-libview: FontDescription.st@c4c8268a2d9f (annotated)

52 edf02eb2939c Initial revision claus parents: diff changeset	1	"
edf02eb2939c Initial revision claus parents: diff changeset	2	COPYRIGHT (c) 1994 by Claus Gittinger
89 ea2bf46eb669 * empty log message * claus parents: 52 diff changeset	3	All Rights Reserved
52 edf02eb2939c Initial revision claus parents: diff changeset	4
edf02eb2939c Initial revision claus parents: diff changeset	5	This software is furnished under a license and may be used
edf02eb2939c Initial revision claus parents: diff changeset	6	only in accordance with the terms of that license and with the
edf02eb2939c Initial revision claus parents: diff changeset	7	inclusion of the above copyright notice. This software may not
edf02eb2939c Initial revision claus parents: diff changeset	8	be provided or otherwise made available to, or used by, any
edf02eb2939c Initial revision claus parents: diff changeset	9	other person. No title to or ownership of the software is
edf02eb2939c Initial revision claus parents: diff changeset	10	hereby transferred.
edf02eb2939c Initial revision claus parents: diff changeset	11	"
edf02eb2939c Initial revision claus parents: diff changeset	12
3246 213e4771d6fb typo fixed Claus Gittinger <cg@exept.de> parents: 3159 diff changeset	13	"{ Package: 'stx:libview' }"
213e4771d6fb typo fixed Claus Gittinger <cg@exept.de> parents: 3159 diff changeset	14
52 edf02eb2939c Initial revision claus parents: diff changeset	15	Object subclass:#FontDescription
1275 9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	16	instanceVariableNames:'family face style size encoding manufacturer name flags masks
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	17	pixelSize'
1265 c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	18	classVariableNames:'BoldnessMask FixedFlag ItalicFlag OutlineFlag SerifFlag
3827 3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	19	ShadowFlag StrikeoutFlag UnderlineFlag CharacterSetToFontMapping'
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	20	poolDictionaries:''
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	21	category:'Graphics-Support'
52 edf02eb2939c Initial revision claus parents: diff changeset	22	!
edf02eb2939c Initial revision claus parents: diff changeset	23
1275 9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	24	!FontDescription class methodsFor:'documentation'!
52 edf02eb2939c Initial revision claus parents: diff changeset	25
edf02eb2939c Initial revision claus parents: diff changeset	26	copyright
edf02eb2939c Initial revision claus parents: diff changeset	27	"
edf02eb2939c Initial revision claus parents: diff changeset	28	COPYRIGHT (c) 1994 by Claus Gittinger
89 ea2bf46eb669 * empty log message * claus parents: 52 diff changeset	29	All Rights Reserved
52 edf02eb2939c Initial revision claus parents: diff changeset	30
edf02eb2939c Initial revision claus parents: diff changeset	31	This software is furnished under a license and may be used
edf02eb2939c Initial revision claus parents: diff changeset	32	only in accordance with the terms of that license and with the
edf02eb2939c Initial revision claus parents: diff changeset	33	inclusion of the above copyright notice. This software may not
edf02eb2939c Initial revision claus parents: diff changeset	34	be provided or otherwise made available to, or used by, any
edf02eb2939c Initial revision claus parents: diff changeset	35	other person. No title to or ownership of the software is
edf02eb2939c Initial revision claus parents: diff changeset	36	hereby transferred.
edf02eb2939c Initial revision claus parents: diff changeset	37	"
edf02eb2939c Initial revision claus parents: diff changeset	38	!
edf02eb2939c Initial revision claus parents: diff changeset	39
edf02eb2939c Initial revision claus parents: diff changeset	40	documentation
edf02eb2939c Initial revision claus parents: diff changeset	41	"
edf02eb2939c Initial revision claus parents: diff changeset	42	FontDescription is just a place-holder for scanned font names.
edf02eb2939c Initial revision claus parents: diff changeset	43
611 e0442439a3c6 documentation Claus Gittinger <cg@exept.de> parents: 576 diff changeset	44	[Instance variables:]
e0442439a3c6 documentation Claus Gittinger <cg@exept.de> parents: 576 diff changeset	45	family <String> the fonts family ('courier', 'helvetica' etc)
e0442439a3c6 documentation Claus Gittinger <cg@exept.de> parents: 576 diff changeset	46	face <String> the fonts face ('bold', 'medium' etc)
e0442439a3c6 documentation Claus Gittinger <cg@exept.de> parents: 576 diff changeset	47	style <String> the fonts style ('roman', 'italic', 'oblique')
e0442439a3c6 documentation Claus Gittinger <cg@exept.de> parents: 576 diff changeset	48	size <String> the fonts size (not in pixels)
e0442439a3c6 documentation Claus Gittinger <cg@exept.de> parents: 576 diff changeset	49	encoding <Symbol> the fonts encoding (usually #iso8859)
e0442439a3c6 documentation Claus Gittinger <cg@exept.de> parents: 576 diff changeset	50
1265 c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	51	manufacturer <nil\|String\|Array>
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	52	the fonts origin - if known
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	53	name <nil\|String\|Array>
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	54	the platform specific name
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	55
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	56	flags <SmallInteger> holds serif/italic etc. as flag bits
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	57	masks <SmallInteger> currently dummy; to allow ST-80 compatible subclassing
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	58	pixelSize <SmallInteger> currently dummy; to allow ST-80 compatible subclassing
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	59
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	60	[class variables:]
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	61	BoldnessMask currently dummy; to allow ST-80 compatible subclassing
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	62	FixedFlag currently dummy; to allow ST-80 compatible subclassing
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	63	ItalicFlag currently dummy; to allow ST-80 compatible subclassing
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	64	OutlineFlag currently dummy; to allow ST-80 compatible subclassing
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	65	SerifFlag currently dummy; to allow ST-80 compatible subclassing
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	66	ShadowFlag currently dummy; to allow ST-80 compatible subclassing
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	67	StrikeoutFlag currently dummy; to allow ST-80 compatible subclassing
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	68	UnderlineFlag currently dummy; to allow ST-80 compatible subclassing
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	69
611 e0442439a3c6 documentation Claus Gittinger <cg@exept.de> parents: 576 diff changeset	70	[author:]
e0442439a3c6 documentation Claus Gittinger <cg@exept.de> parents: 576 diff changeset	71	Claus Gittinger
629 458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	72
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	73	[see also:]
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	74	Font
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	75	FontPanel
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	76	GraphicsContext
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	77	( introduction to view programming :html: programming/viewintro.html#FONTS )
52 edf02eb2939c Initial revision claus parents: diff changeset	78	"
edf02eb2939c Initial revision claus parents: diff changeset	79	! !
edf02eb2939c Initial revision claus parents: diff changeset	80
1265 c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	81	!FontDescription class methodsFor:'initialization'!
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	82
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	83	initialize
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	84	"initialize class variables"
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	85
3827 3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	86	BoldnessMask := 2r0000000111. "/ allows for 8 boldnesses to be encoded
1265 c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	87	FixedFlag := 2r0000001000.
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	88	ItalicFlag := 2r0000010000.
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	89	OutlineFlag := 2r0000100000.
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	90	SerifFlag := 2r0001000000.
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	91	ShadowFlag := 2r0010000000.
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	92	StrikeoutFlag := 2r0100000000.
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	93	UnderlineFlag := 2r1000000000.
3827 3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	94
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	95	self initializeCharacterSetToFontMapping.
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	96	!
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	97
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	98	initializeCharacterSetToFontMapping
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	99	"character sets"
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	100
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	101	CharacterSetToFontMapping isNil ifTrue:[
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	102	CharacterSetToFontMapping := Dictionary new
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	103	].
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	104
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	105	#(
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	106	'iso2022-jp' 'jis0208'
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	107	'x-iso2022-jp' 'jis0208'
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	108	'x-euc-jp' 'jis0208'
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	109	'x-shift-jis' 'jis0208'
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	110	'x-sjis' 'jis0208'
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	111	'x-jis7' 'jis0208'
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	112	'jis7' 'jis0208'
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	113	'euc' 'jis0208'
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	114	'euc-jp' 'jis0208'
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	115	'sjis' 'jis0208'
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	116
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	117	'big5' 'big5*'
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	118
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	119	'gb2312' 'gb*'
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	120	'hz-gb-2312' 'gb*'
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	121	'x-gbk' 'gb*'
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	122
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	123	'iso2022-kr' 'ksc*'
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	124	'x-euc-kr' 'ksc*'
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	125	) pairWiseDo:[:charSet :fontEncoding\|
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	126	CharacterSetToFontMapping at:charSet put:fontEncoding
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	127	].
1265 c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	128	! !
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	129
1275 9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	130	!FontDescription class methodsFor:'instance creation'!
52 edf02eb2939c Initial revision claus parents: diff changeset	131
153 c56277fa4865 . claus parents: 109 diff changeset	132	family:familyString
c56277fa4865 . claus parents: 109 diff changeset	133	"returns a font for given family and default (12pt) size
c56277fa4865 . claus parents: 109 diff changeset	134	with unspecified encoding.
629 458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	135	The new fonts face defaults `medium', its style to `roman'.
153 c56277fa4865 . claus parents: 109 diff changeset	136	The returned font is not associated to a specific device"
c56277fa4865 . claus parents: 109 diff changeset	137
c56277fa4865 . claus parents: 109 diff changeset	138	^ self family:familyString
629 458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	139	face:'medium'
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	140	style:'roman'
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	141	size:12
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	142	encoding:nil
153 c56277fa4865 . claus parents: 109 diff changeset	143
c56277fa4865 . claus parents: 109 diff changeset	144	"
c56277fa4865 . claus parents: 109 diff changeset	145	Font family:'helvetica'
c56277fa4865 . claus parents: 109 diff changeset	146	Font family:'courier'
c56277fa4865 . claus parents: 109 diff changeset	147	"
629 458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	148
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	149	"Modified: 30.4.1996 / 17:20:44 / cg"
153 c56277fa4865 . claus parents: 109 diff changeset	150	!
c56277fa4865 . claus parents: 109 diff changeset	151
109 ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	152	family:familyString face:faceString size:sizeNum
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	153	"returns a font for given family and size with unspecified encoding.
629 458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	154	The new fonts style defaults to `roman'.
109 ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	155	The returned font is not associated to a specific device"
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	156
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	157	^ self family:familyString
629 458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	158	face:faceString
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	159	style:'roman'
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	160	size:sizeNum
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	161	encoding:nil
109 ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	162
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	163	"
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	164	Font family:'helvetica' face:'medium' size:10
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	165	Font family:'helvetica' face:'bold' size:10
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	166	Font family:'courier' face:'bold' size:10
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	167	"
629 458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	168
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	169	"Modified: 30.4.1996 / 17:21:07 / cg"
109 ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	170	!
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	171
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	172	family:familyString face:faceString style:styleString size:sizeNum
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	173	"returns a font for given family, face, style and size with
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	174	unspecified encoding.
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	175	The returned font is not associated to a specific device"
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	176
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	177	^ self family:familyString
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	178	face:faceString
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	179	style:styleString
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	180	size:sizeNum
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	181	encoding:nil
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	182
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	183	"
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	184	Font family:'helvetica' face:'medium' style:'roman' size:10
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	185	Font family:'helvetica' face:'medium' style:'italic' size:10
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	186	Font family:'helvetica' face:'bold' style:'roman' size:10
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	187	Font family:'courier' face:'bold' style:'italic' size:10
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	188	"
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	189	!
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	190
52 edf02eb2939c Initial revision claus parents: diff changeset	191	family:familyString face:faceString style:styleString size:sizeNum encoding:encodingSym
576 6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	192	"returns a font for given family, face, style, size and
6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	193	the specified encoding.
6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	194	The returned font is not associated to a specific device"
6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	195
52 edf02eb2939c Initial revision claus parents: diff changeset	196	^ self new
576 6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	197	family:familyString
6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	198	face:faceString
6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	199	style:styleString
6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	200	size:sizeNum
6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	201	encoding:encodingSym
6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	202
6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	203	"Modified: 20.4.1996 / 23:19:04 / cg"
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	204	!
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	205
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	206	family:familyString size:sizeNum
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	207	"returns a font for given family and size with unspecified encoding.
629 458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	208	The new fonts face defaults to `medium', its style to `roman'.
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	209	The returned font is not associated to a specific device"
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	210
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	211	^ self family:familyString
629 458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	212	face:'medium'
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	213	style:'roman'
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	214	size:sizeNum
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	215	encoding:nil
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	216
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	217	"
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	218	Font family:'helvetica' size:10
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	219	Font family:'courier' size:10
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	220	"
629 458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	221
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	222	"Modified: 30.4.1996 / 17:21:40 / cg"
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	223	!
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	224
1071 ae5b36b93cf3 checkin from browser Claus Gittinger <cg@exept.de> parents: 629 diff changeset	225	family:familyString style:aStyle size:sizeNum
ae5b36b93cf3 checkin from browser Claus Gittinger <cg@exept.de> parents: 629 diff changeset	226	"returns a font for given family and size with unspecified encoding.
ae5b36b93cf3 checkin from browser Claus Gittinger <cg@exept.de> parents: 629 diff changeset	227	The new fonts face defaults to `medium', its style to `roman'.
ae5b36b93cf3 checkin from browser Claus Gittinger <cg@exept.de> parents: 629 diff changeset	228	The returned font is not associated to a specific device"
ae5b36b93cf3 checkin from browser Claus Gittinger <cg@exept.de> parents: 629 diff changeset	229
ae5b36b93cf3 checkin from browser Claus Gittinger <cg@exept.de> parents: 629 diff changeset	230	^ self family:familyString
ae5b36b93cf3 checkin from browser Claus Gittinger <cg@exept.de> parents: 629 diff changeset	231	face:'medium'
ae5b36b93cf3 checkin from browser Claus Gittinger <cg@exept.de> parents: 629 diff changeset	232	style:aStyle
ae5b36b93cf3 checkin from browser Claus Gittinger <cg@exept.de> parents: 629 diff changeset	233	size:sizeNum
ae5b36b93cf3 checkin from browser Claus Gittinger <cg@exept.de> parents: 629 diff changeset	234	encoding:nil
ae5b36b93cf3 checkin from browser Claus Gittinger <cg@exept.de> parents: 629 diff changeset	235
ae5b36b93cf3 checkin from browser Claus Gittinger <cg@exept.de> parents: 629 diff changeset	236	"
ae5b36b93cf3 checkin from browser Claus Gittinger <cg@exept.de> parents: 629 diff changeset	237	Font family:'helvetica' style:#roman size:48
ae5b36b93cf3 checkin from browser Claus Gittinger <cg@exept.de> parents: 629 diff changeset	238	Font family:'courier' style:#roman size:10
ae5b36b93cf3 checkin from browser Claus Gittinger <cg@exept.de> parents: 629 diff changeset	239	"
ae5b36b93cf3 checkin from browser Claus Gittinger <cg@exept.de> parents: 629 diff changeset	240
ae5b36b93cf3 checkin from browser Claus Gittinger <cg@exept.de> parents: 629 diff changeset	241	"Modified: 30.4.1996 / 17:21:40 / cg"
ae5b36b93cf3 checkin from browser Claus Gittinger <cg@exept.de> parents: 629 diff changeset	242	"Created: 8.10.1996 / 18:33:55 / cg"
ae5b36b93cf3 checkin from browser Claus Gittinger <cg@exept.de> parents: 629 diff changeset	243	!
ae5b36b93cf3 checkin from browser Claus Gittinger <cg@exept.de> parents: 629 diff changeset	244
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	245	name:aFontName
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	246	"returns a font with the given explicit name.
629 458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	247	WARNING:
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	248	You shuld not use explicit naming, since font names vary
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	249	with operatingSystems, devices and architecture.
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	250
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	251	This interface is provided for special purposes only.
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	252	On X, the name given should be according the X fontname conventions;
629 458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	253	i.e. something like: '--times-bold-r-normal---240----*-iso8859-1'.
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	254
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	255	On other devices, font naming may be completely different."
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	256
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	257	^ self family:aFontName
629 458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	258	face:nil
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	259	style:nil
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	260	size:nil
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	261	encoding:nil
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	262
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	263	"
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	264	Font name:'--times-bold-r-normal---240----*-iso8859-1'
629 458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	265	Font name:'6x10'
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	266	Font name:'k14'
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	267	((Font name:'k14') on:Display) encoding
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	268	"
629 458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	269
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	270	"Modified: 30.4.1996 / 17:23:09 / cg"
52 edf02eb2939c Initial revision claus parents: diff changeset	271	! !
edf02eb2939c Initial revision claus parents: diff changeset	272
3827 3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	273	!FontDescription class methodsFor:'queries'!
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	274
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	275	fontNamePatternForCharset:aCharSetName
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	276	"return the font-encoding for an iso-charset"
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	277
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	278	^ CharacterSetToFontMapping at:aCharSetName ifAbsent:nil
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	279
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	280	"
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	281	FontDescription fontNamePatternForCharset:'iso2022-jp'
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	282	FontDescription fontNamePatternForCharset:'euc-jp'
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	283	"
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	284	! !
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	285
3880 c4c8268a2d9f method category rename Claus Gittinger <cg@exept.de> parents: 3827 diff changeset	286	!FontDescription methodsFor:'Compatibility-ST80'!
1277 f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	287
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	288	boldness:aNumber
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	289	"added for ST-80 compatibility; actually ignored currently"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	290
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	291	\|val\|
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	292
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	293	flags isNil ifTrue:[
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	294	flags := masks := 0
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	295	].
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	296
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	297	"/ scale from 0..1 to 0..BoldnessMask
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	298	val := (aNumber max:0.0) min:1.0.
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	299	val := (BoldnessMask * val) rounded.
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	300
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	301	flags := flags bitOr:val.
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	302	masks := masks bitOr:BoldnessMask
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	303
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	304	"Created: 25.1.1997 / 03:20:05 / cg"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	305	"Modified: 25.1.1997 / 03:20:47 / cg"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	306	!
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	307
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	308	color:aColor
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	309	"added for ST-80 compatibility; actually ignored currently"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	310
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	311	"Created: 25.1.1997 / 03:21:28 / cg"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	312	!
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	313
1760 ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	314	encodings:aCollectionOfEncodings
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	315	"added for ST-80 compatibility; actually ignored currently"
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	316
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	317	"Created: 20.6.1997 / 09:52:46 / cg"
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	318	!
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	319
1277 f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	320	fixedWidth:aBoolean
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	321	"added for ST-80 compatibility; actually ignored currently"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	322
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	323	flags isNil ifTrue:[
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	324	flags := masks := 0
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	325	].
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	326	flags := flags bitOr:FixedFlag.
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	327	masks := masks bitOr:FixedFlag
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	328
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	329	"Created: 25.1.1997 / 03:14:06 / cg"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	330	"Modified: 25.1.1997 / 03:21:03 / cg"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	331	!
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	332
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	333	italic:aBoolean
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	334	"added for ST-80 compatibility; actually ignored currently"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	335
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	336	flags isNil ifTrue:[
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	337	flags := masks := 0
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	338	].
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	339	flags := flags bitOr:ItalicFlag.
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	340	masks := masks bitOr:ItalicFlag
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	341
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	342	"Created: 25.1.1997 / 03:15:37 / cg"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	343	"Modified: 25.1.1997 / 03:20:55 / cg"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	344	!
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	345
1760 ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	346	outline:aBoolean
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	347	"added for ST-80 compatibility; actually ignored currently"
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	348
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	349	flags isNil ifTrue:[
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	350	flags := masks := 0
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	351	].
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	352	flags := flags bitOr:OutlineFlag.
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	353	masks := masks bitOr:OutlineFlag
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	354
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	355	"Modified: 25.1.1997 / 03:20:55 / cg"
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	356	"Created: 20.6.1997 / 09:50:06 / cg"
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	357	!
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	358
1277 f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	359	pixelSize:aNumber
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	360	"added for ST-80 compatibility; actually ignored currently"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	361
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	362	pixelSize := aNumber
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	363
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	364	"Modified: 25.1.1997 / 03:20:47 / cg"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	365	"Created: 25.1.1997 / 03:21:47 / cg"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	366	!
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	367
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	368	serif:aBoolean
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	369	"added for ST-80 compatibility; actually ignored currently"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	370
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	371	flags isNil ifTrue:[
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	372	flags := masks := 0
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	373	].
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	374	flags := flags bitOr:SerifFlag.
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	375	masks := masks bitOr:SerifFlag
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	376
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	377	"Created: 25.1.1997 / 03:15:17 / cg"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	378	"Modified: 25.1.1997 / 03:20:59 / cg"
1760 ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	379	!
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	380
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	381	shadow:aBoolean
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	382	"added for ST-80 compatibility; actually ignored currently"
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	383
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	384	flags isNil ifTrue:[
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	385	flags := masks := 0
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	386	].
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	387	flags := flags bitOr:ShadowFlag.
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	388	masks := masks bitOr:ShadowFlag
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	389
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	390	"Modified: 25.1.1997 / 03:20:55 / cg"
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	391	"Created: 20.6.1997 / 09:51:03 / cg"
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	392	!
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	393
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	394	strikeout:aBoolean
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	395	"added for ST-80 compatibility; actually ignored currently"
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	396
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	397	flags isNil ifTrue:[
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	398	flags := masks := 0
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	399	].
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	400	flags := flags bitOr:StrikeoutFlag.
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	401	masks := masks bitOr:StrikeoutFlag
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	402
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	403	"Modified: 25.1.1997 / 03:20:55 / cg"
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	404	"Created: 20.6.1997 / 09:51:36 / cg"
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	405	!
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	406
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	407	underline:aBoolean
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	408	"added for ST-80 compatibility; actually ignored currently"
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	409
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	410	flags isNil ifTrue:[
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	411	flags := masks := 0
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	412	].
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	413	flags := flags bitOr:UnderlineFlag.
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	414	masks := masks bitOr:UnderlineFlag
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	415
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	416	"Modified: 25.1.1997 / 03:20:55 / cg"
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	417	"Created: 20.6.1997 / 09:51:18 / cg"
1277 f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	418	! !
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	419
52 edf02eb2939c Initial revision claus parents: diff changeset	420	!FontDescription methodsFor:'accessing'!
edf02eb2939c Initial revision claus parents: diff changeset	421
2544 8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	422	device
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	423	"return the device I am on"
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	424
3661 b96d4f68b36e device -> graphicsDevice Michael Beyl <mb@exept.de> parents: 3629 diff changeset	425	self obsoleteMethodWarning:'use #graphicsDevice'.
b96d4f68b36e device -> graphicsDevice Michael Beyl <mb@exept.de> parents: 3629 diff changeset	426	^ self graphicsDevice
2544 8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	427	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	428
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	429	encoding
575 ad65411701b0 commentary Claus Gittinger <cg@exept.de> parents: 478 diff changeset	430	"return the fonts encoding, as a symbol
456 3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	431	such as #'iso8859', #'jis0208.1983' or #ascii.
3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	432	If the fonts encoding is not known, return nil;
3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	433	You should assume ascii-encoding then."
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	434
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	435	^ encoding
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	436
575 ad65411701b0 commentary Claus Gittinger <cg@exept.de> parents: 478 diff changeset	437	"Modified: 20.4.1996 / 23:14:36 / cg"
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	438	!
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	439
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	440	face
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	441	"return the face, a string"
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	442
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	443	^ face
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	444	!
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	445
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	446	family
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	447	"return the family, a string"
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	448
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	449	^ family
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	450	!
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	451
1277 f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	452	family:aString
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	453	"set the family, a string"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	454
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	455	family := aString
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	456
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	457	"Created: 25.1.1997 / 03:12:12 / cg"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	458	!
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	459
89 ea2bf46eb669 * empty log message * claus parents: 52 diff changeset	460	family:familyString face:faceString style:styleString size:sizeNum encoding:encodingString
576 6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	461	"set the instance values"
6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	462
89 ea2bf46eb669 * empty log message * claus parents: 52 diff changeset	463	family := familyString asSymbol.
229 099543e5d779 handle empty family/style/encoding strings Claus Gittinger <cg@exept.de> parents: 219 diff changeset	464	(faceString notNil and:[faceString notEmpty]) ifTrue:[
576 6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	465	face := faceString asSymbol.
89 ea2bf46eb669 * empty log message * claus parents: 52 diff changeset	466	].
229 099543e5d779 handle empty family/style/encoding strings Claus Gittinger <cg@exept.de> parents: 219 diff changeset	467	(styleString notNil and:[styleString notEmpty]) ifTrue:[
576 6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	468	style := styleString asSymbol.
89 ea2bf46eb669 * empty log message * claus parents: 52 diff changeset	469	].
52 edf02eb2939c Initial revision claus parents: diff changeset	470	size := sizeNum.
229 099543e5d779 handle empty family/style/encoding strings Claus Gittinger <cg@exept.de> parents: 219 diff changeset	471	(encodingString notNil and:[encodingString notEmpty]) ifTrue:[
576 6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	472	encoding := encodingString asSymbol.
89 ea2bf46eb669 * empty log message * claus parents: 52 diff changeset	473	]
229 099543e5d779 handle empty family/style/encoding strings Claus Gittinger <cg@exept.de> parents: 219 diff changeset	474
576 6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	475	"Modified: 20.4.1996 / 23:19:25 / cg"
52 edf02eb2939c Initial revision claus parents: diff changeset	476	!
edf02eb2939c Initial revision claus parents: diff changeset	477
2544 8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	478	fontId
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	479	"return the device-dependent font-id"
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	480
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	481	^ nil
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	482
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	483
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	484	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	485
3661 b96d4f68b36e device -> graphicsDevice Michael Beyl <mb@exept.de> parents: 3629 diff changeset	486	graphicsDevice
b96d4f68b36e device -> graphicsDevice Michael Beyl <mb@exept.de> parents: 3629 diff changeset	487	"return the device I am on"
b96d4f68b36e device -> graphicsDevice Michael Beyl <mb@exept.de> parents: 3629 diff changeset	488
b96d4f68b36e device -> graphicsDevice Michael Beyl <mb@exept.de> parents: 3629 diff changeset	489	^ nil
b96d4f68b36e device -> graphicsDevice Michael Beyl <mb@exept.de> parents: 3629 diff changeset	490	!
b96d4f68b36e device -> graphicsDevice Michael Beyl <mb@exept.de> parents: 3629 diff changeset	491
1277 f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	492	manufacturer
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	493	"return the value of the instance variable 'manufacturer' (automatically generated)"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	494
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	495	^ manufacturer
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	496
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	497	"Created: 25.1.1997 / 03:12:43 / cg"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	498	!
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	499
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	500	manufacturer:something
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	501	"set the value of the instance variable 'manufacturer' (automatically generated)"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	502
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	503	manufacturer := something.
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	504
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	505	"Created: 25.1.1997 / 03:12:43 / cg"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	506	!
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	507
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	508	style
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	509	"return the style, a string"
109 ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	510
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	511	^ style
109 ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	512	! !
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	513
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	514	!FontDescription methodsFor:'comparing'!
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	515
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	516	= aFont
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	517	"two fonts are considered equal, if the font-name components are;
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	518	independent of the device, the font is on"
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	519
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	520	(aFont species == self species) ifTrue:[
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	521	(size == aFont size) ifTrue:[
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	522	(family = aFont family) ifTrue:[
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	523	(face = aFont face) ifTrue:[
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	524	(style = aFont style) ifTrue:[
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	525	(encoding == aFont encoding) ifTrue:[
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	526	^ true
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	527	]
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	528	]
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	529	]
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	530	]
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	531	]
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	532	].
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	533	^ false
2160 b57a3f138ae3 added #hash Claus Gittinger <cg@exept.de> parents: 1760 diff changeset	534	!
b57a3f138ae3 added #hash Claus Gittinger <cg@exept.de> parents: 1760 diff changeset	535
b57a3f138ae3 added #hash Claus Gittinger <cg@exept.de> parents: 1760 diff changeset	536	hash
b57a3f138ae3 added #hash Claus Gittinger <cg@exept.de> parents: 1760 diff changeset	537	"return a number for hashing - req'd since = is redefined."
b57a3f138ae3 added #hash Claus Gittinger <cg@exept.de> parents: 1760 diff changeset	538
2771 25c96682a2f3 really avoid LargeInteger arithmetic Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	539	^ ( (family hash bitAnd:16r1FFFFFFF)
25c96682a2f3 really avoid LargeInteger arithmetic Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	540	+ (face hash bitAnd:16r1FFFFFFF)
25c96682a2f3 really avoid LargeInteger arithmetic Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	541	+ (style hash bitAnd:16r1FFFFFFF)
3019 6dc6821c111c oops - care for fractional size in #hash Claus Gittinger <cg@exept.de> parents: 2980 diff changeset	542	+ (size ? 0) asInteger) bitAnd:16r3FFFFFFF
2160 b57a3f138ae3 added #hash Claus Gittinger <cg@exept.de> parents: 1760 diff changeset	543
b57a3f138ae3 added #hash Claus Gittinger <cg@exept.de> parents: 1760 diff changeset	544	"Created: / 19.6.1998 / 04:19:06 / cg"
2164 2bd89f5166a9 oops - fixed #hash. Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	545	"Modified: / 20.6.1998 / 17:04:00 / cg"
109 ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	546	! !
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	547
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	548	!FontDescription methodsFor:'converting'!
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	549
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	550	asBold
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	551	"return the bold font corresponding to the receiver"
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	552
3254 984d6c2f0f79 asBold: care if not boldifyanle Claus Gittinger <cg@exept.de> parents: 3246 diff changeset	553	family isNil ifTrue:[
984d6c2f0f79 asBold: care if not boldifyanle Claus Gittinger <cg@exept.de> parents: 3246 diff changeset	554	^ self
984d6c2f0f79 asBold: care if not boldifyanle Claus Gittinger <cg@exept.de> parents: 3246 diff changeset	555	].
109 ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	556	^ self class
3254 984d6c2f0f79 asBold: care if not boldifyanle Claus Gittinger <cg@exept.de> parents: 3246 diff changeset	557	family:family
984d6c2f0f79 asBold: care if not boldifyanle Claus Gittinger <cg@exept.de> parents: 3246 diff changeset	558	face:'bold'
984d6c2f0f79 asBold: care if not boldifyanle Claus Gittinger <cg@exept.de> parents: 3246 diff changeset	559	style:style
984d6c2f0f79 asBold: care if not boldifyanle Claus Gittinger <cg@exept.de> parents: 3246 diff changeset	560	size:size
984d6c2f0f79 asBold: care if not boldifyanle Claus Gittinger <cg@exept.de> parents: 3246 diff changeset	561	encoding:encoding
109 ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	562	!
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	563
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	564	asItalic
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	565	"return the italic font corresponding to the receiver"
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	566
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	567	^ self class
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	568	family:family
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	569	face:face
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	570	style:'oblique'
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	571	size:size
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	572	encoding:encoding
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	573	!
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	574
1740 804c5b51ec29 fromLiteralArrayEncoding: ca parents: 1618 diff changeset	575	fromLiteralArrayEncoding:encoding
2436 4ef8d33c8951 * empty log message * Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	576	"read my contents from a aLiteralEncodedArray.
4ef8d33c8951 * empty log message * Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	577	Must match to what is generated in #literalArrayEncoding"
1740 804c5b51ec29 fromLiteralArrayEncoding: ca parents: 1618 diff changeset	578
804c5b51ec29 fromLiteralArrayEncoding: ca parents: 1618 diff changeset	579	family := encoding at:2.
804c5b51ec29 fromLiteralArrayEncoding: ca parents: 1618 diff changeset	580	face := encoding at:3.
804c5b51ec29 fromLiteralArrayEncoding: ca parents: 1618 diff changeset	581	style := encoding at:4.
804c5b51ec29 fromLiteralArrayEncoding: ca parents: 1618 diff changeset	582	size := encoding at:5.
804c5b51ec29 fromLiteralArrayEncoding: ca parents: 1618 diff changeset	583	!
804c5b51ec29 fromLiteralArrayEncoding: ca parents: 1618 diff changeset	584
804c5b51ec29 fromLiteralArrayEncoding: ca parents: 1618 diff changeset	585	literalArrayEncoding
2436 4ef8d33c8951 * empty log message * Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	586	"return myself encoded as a literal array.
4ef8d33c8951 * empty log message * Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	587	Must match to what is expected in #fromLiteralArrayEncoding:"
1740 804c5b51ec29 fromLiteralArrayEncoding: ca parents: 1618 diff changeset	588
804c5b51ec29 fromLiteralArrayEncoding: ca parents: 1618 diff changeset	589	^ Array
804c5b51ec29 fromLiteralArrayEncoding: ca parents: 1618 diff changeset	590	with:self class name asSymbol
804c5b51ec29 fromLiteralArrayEncoding: ca parents: 1618 diff changeset	591	with:family
804c5b51ec29 fromLiteralArrayEncoding: ca parents: 1618 diff changeset	592	with:face
804c5b51ec29 fromLiteralArrayEncoding: ca parents: 1618 diff changeset	593	with:style
804c5b51ec29 fromLiteralArrayEncoding: ca parents: 1618 diff changeset	594	with:size
804c5b51ec29 fromLiteralArrayEncoding: ca parents: 1618 diff changeset	595	!
804c5b51ec29 fromLiteralArrayEncoding: ca parents: 1618 diff changeset	596
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	597	on:aDevice
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	598	"given the receiver, return a device Font"
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	599
3623 16665d9b7263 #on: -> #onDevice Claus Gittinger <cg@exept.de> parents: 3265 diff changeset	600	"/ send out a warning: #on: is typically used to create views
16665d9b7263 #on: -> #onDevice Claus Gittinger <cg@exept.de> parents: 3265 diff changeset	601	"/ operating on a model.
16665d9b7263 #on: -> #onDevice Claus Gittinger <cg@exept.de> parents: 3265 diff changeset	602	"/ Please use #onDevice: to avoid confusion.
16665d9b7263 #on: -> #onDevice Claus Gittinger <cg@exept.de> parents: 3265 diff changeset	603
16665d9b7263 #on: -> #onDevice Claus Gittinger <cg@exept.de> parents: 3265 diff changeset	604	<resource:#obsolete>
16665d9b7263 #on: -> #onDevice Claus Gittinger <cg@exept.de> parents: 3265 diff changeset	605
16665d9b7263 #on: -> #onDevice Claus Gittinger <cg@exept.de> parents: 3265 diff changeset	606	self obsoleteMethodWarning:'use #onDevice:'.
3629 9d06228191a6 Fix obsolete methods Stefan Vogel <sv@exept.de> parents: 3623 diff changeset	607	^ self onDevice:aDevice.
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	608	!
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	609
1497 697ac9b15962 added #onDevice: for protocol completeness. Claus Gittinger <cg@exept.de> parents: 1277 diff changeset	610	onDevice:aDevice
697ac9b15962 added #onDevice: for protocol completeness. Claus Gittinger <cg@exept.de> parents: 1277 diff changeset	611	"given the receiver, return a device Font"
697ac9b15962 added #onDevice: for protocol completeness. Claus Gittinger <cg@exept.de> parents: 1277 diff changeset	612
2980 409e9547a45c ignore nil device in #onDevice: Claus Gittinger <cg@exept.de> parents: 2934 diff changeset	613	aDevice isNil ifTrue:[^ self].
3629 9d06228191a6 Fix obsolete methods Stefan Vogel <sv@exept.de> parents: 3623 diff changeset	614	^ (Font
9d06228191a6 Fix obsolete methods Stefan Vogel <sv@exept.de> parents: 3623 diff changeset	615	family:family
9d06228191a6 Fix obsolete methods Stefan Vogel <sv@exept.de> parents: 3623 diff changeset	616	face:face
9d06228191a6 Fix obsolete methods Stefan Vogel <sv@exept.de> parents: 3623 diff changeset	617	style:style
9d06228191a6 Fix obsolete methods Stefan Vogel <sv@exept.de> parents: 3623 diff changeset	618	size:size
9d06228191a6 Fix obsolete methods Stefan Vogel <sv@exept.de> parents: 3623 diff changeset	619	encoding:encoding) onDevice:aDevice
1497 697ac9b15962 added #onDevice: for protocol completeness. Claus Gittinger <cg@exept.de> parents: 1277 diff changeset	620
697ac9b15962 added #onDevice: for protocol completeness. Claus Gittinger <cg@exept.de> parents: 1277 diff changeset	621	"Created: 28.3.1997 / 16:09:30 / cg"
697ac9b15962 added #onDevice: for protocol completeness. Claus Gittinger <cg@exept.de> parents: 1277 diff changeset	622	!
697ac9b15962 added #onDevice: for protocol completeness. Claus Gittinger <cg@exept.de> parents: 1277 diff changeset	623
109 ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	624	size:newSize
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	625	"return a font corresponding to the receiver, but with different size."
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	626
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	627	^ self class
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	628	family:family
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	629	face:face
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	630	style:style
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	631	size:newSize
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	632	encoding:encoding
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	633	! !
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	634
2544 8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	635	!FontDescription methodsFor:'displaying'!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	636
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	637	displayOpaqueString:aString from:index1 to:index2 x:x y:y in:aGC
3663 d40999d6cd1e refactored Michael Beyl <mb@exept.de> parents: 3661 diff changeset	638	"display a partial string at some position in aGC.
d40999d6cd1e refactored Michael Beyl <mb@exept.de> parents: 3661 diff changeset	639	- display part of a string, drawing both fore- and background pixels"
2544 8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	640
3663 d40999d6cd1e refactored Michael Beyl <mb@exept.de> parents: 3661 diff changeset	641	self displayString:aString from:index1 to:index2 x:x y:y in:aGC opaque:true
2544 8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	642	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	643
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	644	displayOpaqueString:aString x:x y:y in:aGC
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	645	"display a string at some position in aGC."
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	646
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	647	self displayOpaqueString:aString from:1 to:aString size x:x y:y in:aGC
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	648	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	649
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	650	displayString:aString from:index1 to:index2 x:x y:y in:aGC
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	651	"display a partial string at some position in aGC."
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	652
3663 d40999d6cd1e refactored Michael Beyl <mb@exept.de> parents: 3661 diff changeset	653	self displayString:aString from:index1 to:index2 x:x y:y in:aGC opaque:false
d40999d6cd1e refactored Michael Beyl <mb@exept.de> parents: 3661 diff changeset	654	!
d40999d6cd1e refactored Michael Beyl <mb@exept.de> parents: 3661 diff changeset	655
d40999d6cd1e refactored Michael Beyl <mb@exept.de> parents: 3661 diff changeset	656	displayString:aString from:index1 to:index2 x:x y:y in:aGC opaque:opaque
d40999d6cd1e refactored Michael Beyl <mb@exept.de> parents: 3661 diff changeset	657	"display a partial string at some position in aGC."
d40999d6cd1e refactored Michael Beyl <mb@exept.de> parents: 3661 diff changeset	658
2544 8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	659	self subclassResponsibility
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	660	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	661
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	662	displayString:aString x:x y:y in:aGC
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	663	"display a string at some position in aGC."
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	664
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	665	self displayString:aString from:1 to:aString size x:x y:y in:aGC
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	666
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	667	! !
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	668
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	669	!FontDescription methodsFor:'errors'!
109 ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	670
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	671	errorNoDevice
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	672	"a query was made for device-specific info"
109 ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	673
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	674	"
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	675	this happens, when you ask a font for its height or width,
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	676	ascent or any other dimension which depends on the device on
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	677	which the font is rendered, AND the receiver font is not (yet)
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	678	associated to a device.
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	679	You should always use
3159 3b040b0e4ae4 Fix error string 'for for' Stefan Vogel <sv@exept.de> parents: 3144 diff changeset	680	font := font on:someDevice
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	681	to get a device font, before asking for device specifics.
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	682	"
3159 3b040b0e4ae4 Fix error string 'for for' Stefan Vogel <sv@exept.de> parents: 3144 diff changeset	683	self error:'query device independent font for device specific info'
3b040b0e4ae4 Fix error string 'for for' Stefan Vogel <sv@exept.de> parents: 3144 diff changeset	684
3b040b0e4ae4 Fix error string 'for for' Stefan Vogel <sv@exept.de> parents: 3144 diff changeset	685	"Modified: / 27.1.2000 / 16:55:05 / stefan"
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	686	! !
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	687
3785 045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	688	!FontDescription methodsFor:'getting a device font'!
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	689
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	690	onDevice:aDevice ifAbsent:exceptionBlock
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	691	"create a new Font representing the same font as
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	692	myself on aDevice. This does NOT try to look for existing
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	693	or replacement fonts (i.e. can be used to get physical fonts)."
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	694
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	695	\|newFont id\|
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	696
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	697	"ask that device for the font"
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	698	id := aDevice getFontWithFamily:family face:face style:style size:size encoding:encoding.
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	699	id isNil ifTrue:[
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	700	"oops did not work - (device has no such font)"
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	701
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	702	^ exceptionBlock value
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	703	].
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	704
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	705	newFont := (Font basicNew)
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	706	setFamily:family
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	707	face:face
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	708	style:style
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	709	size:size
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	710	encoding:encoding
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	711	device:aDevice.
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	712	newFont setFontId:id.
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	713	newFont getFontInfos.
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	714	aDevice registerFont:newFont.
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	715	^ newFont
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	716	! !
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	717
1618 044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	718	!FontDescription methodsFor:'printing & storing'!
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	719
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	720	userFriendlyName
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	721	"return a user-friendly printed representation of the receiver"
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	722
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	723	\|nm\|
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	724
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	725	nm := family.
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	726	face notNil ifTrue:[
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	727	nm := nm , '-', face.
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	728	].
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	729	style notNil ifTrue:[
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	730	nm := nm , '-', style.
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	731	].
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	732	size notNil ifTrue:[
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	733	nm := nm , '-', size printString.
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	734	].
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	735	encoding notNil ifTrue:[
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	736	nm := nm , '-', encoding .
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	737	].
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	738	^ nm
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	739
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	740	"
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	741	View defaultFont userFriendlyName
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	742	Button defaultFont userFriendlyName
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	743	"
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	744
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	745	"Modified: 20.4.1996 / 23:25:36 / cg"
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	746	"Created: 19.4.1997 / 18:09:25 / cg"
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	747	! !
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	748
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	749	!FontDescription methodsFor:'queries'!
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	750
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	751	bold
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	752	"return true, if the receiver is a bold font -
1585 7892ed31d333 fixed #italic and #bold Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	753	Added for st-80 compatibility."
7892ed31d333 fixed #italic and #bold Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	754
7892ed31d333 fixed #italic and #bold Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	755	"/ Currently, this implementation is a dirty hack and will be changed soon.
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	756
1275 9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	757	^ face = 'bold'
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	758
1585 7892ed31d333 fixed #italic and #bold Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	759	"Modified: 11.4.1997 / 21:31:25 / cg"
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	760	!
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	761
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	762	boldness
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	763	"return the boldness of the characters in this font 0 .. 1 -
1275 9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	764	Added for st-80 compatibility"
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	765
1585 7892ed31d333 fixed #italic and #bold Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	766	"/ Currently, this implementation is a dirty hack and will be changed soon.
7892ed31d333 fixed #italic and #bold Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	767
7892ed31d333 fixed #italic and #bold Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	768	face = 'roman' ifTrue:[^ 0.5].
7892ed31d333 fixed #italic and #bold Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	769	face = 'normal' ifTrue:[^ 0.5].
7892ed31d333 fixed #italic and #bold Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	770	face = 'bold' ifTrue:[^ 0.75].
7892ed31d333 fixed #italic and #bold Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	771	face = 'light' ifTrue:[^ 0.25].
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	772	^ 0.5
1275 9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	773
1585 7892ed31d333 fixed #italic and #bold Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	774	"Modified: 11.4.1997 / 21:31:31 / cg"
1275 9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	775	!
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	776
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	777	color
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	778	"return the default color in which this font is to be rendered.
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	779	Added for st-80 compatibility.
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	780	For now always black."
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	781
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	782	^ Color black
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	783
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	784	"Created: 25.1.1997 / 02:59:15 / cg"
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	785	"Modified: 25.1.1997 / 03:02:14 / cg"
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	786	!
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	787
2544 8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	788	existsOn:aDevice
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	789	"return true, if the recevier is available on aDevice;
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	790	false otherwise. This is a kludge method; its better to
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	791	ask a device for its available fonts and use this info ...
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	792	Notice, that if you simply use a font by name, the system
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	793	will automatically take a replacement font."
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	794
3629 9d06228191a6 Fix obsolete methods Stefan Vogel <sv@exept.de> parents: 3623 diff changeset	795	^ ((Font
9d06228191a6 Fix obsolete methods Stefan Vogel <sv@exept.de> parents: 3623 diff changeset	796	family:family
9d06228191a6 Fix obsolete methods Stefan Vogel <sv@exept.de> parents: 3623 diff changeset	797	face:face
9d06228191a6 Fix obsolete methods Stefan Vogel <sv@exept.de> parents: 3623 diff changeset	798	style:style
9d06228191a6 Fix obsolete methods Stefan Vogel <sv@exept.de> parents: 3623 diff changeset	799	size:size
9d06228191a6 Fix obsolete methods Stefan Vogel <sv@exept.de> parents: 3623 diff changeset	800	encoding:encoding) onDevice:aDevice ifAbsent:nil) notNil
2544 8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	801	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	802
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	803	fullName
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	804	^ nil
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	805
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	806	"Created: 23.2.1996 / 00:45:45 / cg"
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	807	!
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	808
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	809	italic
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	810	"return true if this is an italic font -
1585 7892ed31d333 fixed #italic and #bold Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	811	Added for st-80 compatibility"
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	812
1585 7892ed31d333 fixed #italic and #bold Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	813	"/ Currently, this implementation is a dirty hack and will be changed soon.
7892ed31d333 fixed #italic and #bold Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	814
7892ed31d333 fixed #italic and #bold Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	815	style = 'italic' ifTrue:[^ true].
3246 213e4771d6fb typo fixed Claus Gittinger <cg@exept.de> parents: 3159 diff changeset	816	style = 'oblique' ifTrue:[^ true].
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	817	^ false
1275 9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	818
1585 7892ed31d333 fixed #italic and #bold Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	819	"Modified: 11.4.1997 / 21:31:42 / cg"
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	820	!
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	821
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	822	serif
1275 9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	823	"return true, if this font has serifs.
1585 7892ed31d333 fixed #italic and #bold Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	824	Added for st-80 compatibility"
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	825
1585 7892ed31d333 fixed #italic and #bold Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	826	"/ Currently, this implementation is a dirty hack and will be changed soon.
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	827
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	828	family = 'Times' ifTrue:[^ true].
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	829	family = 'times' ifTrue:[^ true].
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	830	^ false.
1275 9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	831
1585 7892ed31d333 fixed #italic and #bold Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	832	"Modified: 11.4.1997 / 21:31:51 / cg"
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	833	!
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	834
3265 408fac627dc4 category change Claus Gittinger <cg@exept.de> parents: 3254 diff changeset	835	size
408fac627dc4 category change Claus Gittinger <cg@exept.de> parents: 3254 diff changeset	836	"return the size, a number"
408fac627dc4 category change Claus Gittinger <cg@exept.de> parents: 3254 diff changeset	837
408fac627dc4 category change Claus Gittinger <cg@exept.de> parents: 3254 diff changeset	838	^ size
408fac627dc4 category change Claus Gittinger <cg@exept.de> parents: 3254 diff changeset	839	!
408fac627dc4 category change Claus Gittinger <cg@exept.de> parents: 3254 diff changeset	840
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	841	species
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	842	^ Font
1275 9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	843	!
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	844
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	845	underline
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	846	"return true if this is an underlined font -
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	847	Added for st-80 compatibility
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	848	(always false here)"
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	849
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	850	^ false
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	851
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	852	"Created: 25.1.1997 / 02:58:30 / cg"
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	853	"Modified: 25.1.1997 / 03:01:12 / cg"
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	854	! !
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	855
2544 8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	856	!FontDescription methodsFor:'queries-dimensions'!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	857
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	858	ascent
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	859	"return the ascent - the number of pixels above the baseLine."
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	860
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	861	^ self subclassResponsibility
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	862	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	863
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	864	ascentOn:aDevice
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	865	"return the ascent - the number of pixels above the baseLine."
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	866
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	867	^ (self onDevice:aDevice) ascent
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	868	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	869
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	870	descent
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	871	"return the descent - the number of pixels below the baseLine."
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	872
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	873	^ self subclassResponsibility
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	874	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	875
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	876	descentOn:aDevice
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	877	"return the ascent - the number of pixels above the baseLine."
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	878
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	879	^ (self onDevice:aDevice) descent
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	880
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	881
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	882	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	883
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	884	height
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	885	"return the height - the number of pixels above plus below the baseLine."
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	886
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	887	^ self subclassResponsibility
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	888	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	889
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	890	heightOf:aString
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	891	"return the height of the given string.
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	892	Here, assume the characters are of constant height"
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	893
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	894	^ self height
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	895	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	896
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	897	heightOf:aString on:aDevice
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	898	"return the height of the given string on the given device."
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	899
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	900	^ (self onDevice:aDevice) heightOf:aString
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	901	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	902
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	903	heightOn:aDevice
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	904	"return the height - the number of pixels above PLUS below the baseLine."
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	905
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	906	^ (self onDevice:aDevice) height
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	907	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	908
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	909	isFixedWidth
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	910	"return true, if this is a fixed pitch font (i.e. all characters
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	911	are of the same width)"
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	912
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	913	self subclassResponsibility
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	914	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	915
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	916	maxAscent
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	917	"return the fonts maximum-ascent (i.e. the maximum of all characters);
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	918	That is the number of units (usually pixels) above the baseline."
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	919
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	920	^ self subclassResponsibility
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	921
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	922	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	923
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	924	maxDescent
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	925	"return the fonts maximum-descent (i.e. the maximum of all characters);
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	926	That is the number of units (usually pixels) below the baseline."
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	927
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	928	^ self subclassResponsibility
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	929
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	930	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	931
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	932	maxHeight
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	933	"return the fonts characters maximum height;
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	934	That is the number of units (usually pixels)."
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	935
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	936	^ self maxAscent + self maxDescent
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	937
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	938	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	939
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	940	maxWidth
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	941	"return the fonts maximum-width character (i.e. the maximum of all characters);
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	942	That is a number of units (usually pixels)."
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	943
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	944	^ self subclassResponsibility
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	945
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	946	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	947
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	948	width
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	949	"return the fonts characters width;
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	950	That is a number of units (usually pixels).
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	951	For variable pitch fonts, the width of the space character is returned.
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	952	For fixed fonts, this is the same as minWidth or maxWidth (or any character).
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	953	The receiver must be associated to a device, for this query to be legal."
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	954
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	955	^ self widthOf:' '
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	956
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	957	"Modified: 30.4.1996 / 16:43:45 / cg"
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	958
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	959
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	960	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	961
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	962	widthOf:aString
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	963	"return the width of a string"
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	964
3667 53ebf11c6dd9 widthOf fixed for Text-item Michael Beyl <mb@exept.de> parents: 3663 diff changeset	965	^ self widthOf:aString string from:1 to:aString size
2544 8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	966
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	967
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	968	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	969
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	970	widthOf:aString from:start to:stop
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	971	"return the width of a sub string"
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	972
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	973	^ self subclassResponsibility
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	974
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	975
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	976	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	977
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	978	widthOf:aString from:start to:stop on:aDevice
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	979	"return the width of a sub string.
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	980	Here, assume that this fonts width is device independent."
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	981
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	982	^ (self onDevice:aDevice) widthOf:aString from:start to:stop
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	983
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	984
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	985	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	986
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	987	widthOf:aString on:aDevice
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	988	"return the width of a string"
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	989
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	990	^ (self onDevice:aDevice) widthOf:aString
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	991
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	992
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	993
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	994
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	995
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	996	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	997
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	998	widthOn:aDevice
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	999	"return the width on some device; that is the width of the space character
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1000	(which is the width of any character iff the font is a fixed pitch font)"
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1001
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1002	^ (self onDevice:aDevice) width
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1003	! !
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1004
456 3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1005	!FontDescription methodsFor:'queries-encoding'!
3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1006
3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1007	isASCII
576 6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	1008	"return true, if the receivers encoding is
6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	1009	compatible with ascii (i.e. its ascii or iso8859)"
6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	1010
456 3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1011	^ (encoding == #iso8859) or:[encoding == #ascii]
3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1012
3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1013	"Created: 24.2.1996 / 22:47:30 / cg"
576 6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	1014	"Modified: 20.4.1996 / 23:20:01 / cg"
456 3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1015	!
3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1016
3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1017	isISO8859
576 6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	1018	"return true, if the receivers encoding is
6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	1019	compatible with iso8859 (i.e. iso8859)"
6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	1020
456 3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1021	^ encoding == #iso8859
3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1022
3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1023	"Created: 24.2.1996 / 22:47:12 / cg"
576 6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	1024	"Modified: 20.4.1996 / 23:20:13 / cg"
456 3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1025	!
3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1026
3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1027	isJIS
576 6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	1028	"return true, if the receivers encoding is
6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	1029	compatible with jis (i.e. jisXXX)"
6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	1030
456 3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1031	^ (encoding startsWith:'jis')
3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1032
3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1033	"Created: 24.2.1996 / 22:47:47 / cg"
576 6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	1034	"Modified: 20.4.1996 / 23:20:30 / cg"
456 3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1035	! !
3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1036
1275 9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	1037	!FontDescription class methodsFor:'documentation'!
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1038
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1039	version
3880 c4c8268a2d9f method category rename Claus Gittinger <cg@exept.de> parents: 3827 diff changeset	1040	^ '$Header: /cvs/stx/stx/libview/FontDescription.st,v 1.46 2003-05-07 14:32:08 cg Exp $'
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1041	! !
3785 045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	1042
1275 9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	1043	FontDescription initialize!

author	Claus Gittinger <cg@exept.de>
	Wed, 07 May 2003 16:32:08 +0200
changeset 3880	c4c8268a2d9f
parent 3827	3390983893a2
child 3987	796ff0ae8306
permissions	-rw-r--r--