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

author	Claus Gittinger <cg@exept.de>
	Tue, 30 Mar 1999 19:40:13 +0200
changeset 2544	8fdf3d873964
parent 2436	4ef8d33c8951
child 2770	681927804a7e
permissions	-rw-r--r--