hg/stx-libview: FontDescription.st@36e00ebd27fc (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	"
3246 213e4771d6fb typo fixed Claus Gittinger <cg@exept.de> parents: 3159 diff changeset	12	"{ Package: 'stx:libview' }"
213e4771d6fb typo fixed Claus Gittinger <cg@exept.de> parents: 3159 diff changeset	13
52 edf02eb2939c Initial revision claus parents: diff changeset	14	Object subclass:#FontDescription
1275 9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	15	instanceVariableNames:'family face style size encoding manufacturer name flags masks
5185 c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	16	sizeUnit pixelSize'
1265 c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	17	classVariableNames:'BoldnessMask FixedFlag ItalicFlag OutlineFlag SerifFlag
3987 796ff0ae8306 more mapping Claus Gittinger <cg@exept.de> parents: 3880 diff changeset	18	ShadowFlag StrikeoutFlag UnderlineFlag CharacterSetToFontMapping
796ff0ae8306 more mapping Claus Gittinger <cg@exept.de> parents: 3880 diff changeset	19	CharacterEncodingToCharacterSetMapping'
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	20	poolDictionaries:''
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	21	category:'Graphics-Support'
52 edf02eb2939c Initial revision claus parents: diff changeset	22	!
edf02eb2939c Initial revision claus parents: diff changeset	23
1275 9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	24	!FontDescription class methodsFor:'documentation'!
52 edf02eb2939c Initial revision claus parents: diff changeset	25
edf02eb2939c Initial revision claus parents: diff changeset	26	copyright
edf02eb2939c Initial revision claus parents: diff changeset	27	"
edf02eb2939c Initial revision claus parents: diff changeset	28	COPYRIGHT (c) 1994 by Claus Gittinger
89 ea2bf46eb669 * empty log message * claus parents: 52 diff changeset	29	All Rights Reserved
52 edf02eb2939c Initial revision claus parents: diff changeset	30
edf02eb2939c Initial revision claus parents: diff changeset	31	This software is furnished under a license and may be used
edf02eb2939c Initial revision claus parents: diff changeset	32	only in accordance with the terms of that license and with the
edf02eb2939c Initial revision claus parents: diff changeset	33	inclusion of the above copyright notice. This software may not
edf02eb2939c Initial revision claus parents: diff changeset	34	be provided or otherwise made available to, or used by, any
edf02eb2939c Initial revision claus parents: diff changeset	35	other person. No title to or ownership of the software is
edf02eb2939c Initial revision claus parents: diff changeset	36	hereby transferred.
edf02eb2939c Initial revision claus parents: diff changeset	37	"
edf02eb2939c Initial revision claus parents: diff changeset	38	!
edf02eb2939c Initial revision claus parents: diff changeset	39
edf02eb2939c Initial revision claus parents: diff changeset	40	documentation
edf02eb2939c Initial revision claus parents: diff changeset	41	"
edf02eb2939c Initial revision claus parents: diff changeset	42	FontDescription is just a place-holder for scanned font names.
edf02eb2939c Initial revision claus parents: diff changeset	43
611 e0442439a3c6 documentation Claus Gittinger <cg@exept.de> parents: 576 diff changeset	44	[Instance variables:]
e0442439a3c6 documentation Claus Gittinger <cg@exept.de> parents: 576 diff changeset	45	family <String> the fonts family ('courier', 'helvetica' etc)
e0442439a3c6 documentation Claus Gittinger <cg@exept.de> parents: 576 diff changeset	46	face <String> the fonts face ('bold', 'medium' etc)
e0442439a3c6 documentation Claus Gittinger <cg@exept.de> parents: 576 diff changeset	47	style <String> the fonts style ('roman', 'italic', 'oblique')
e0442439a3c6 documentation Claus Gittinger <cg@exept.de> parents: 576 diff changeset	48	size <String> the fonts size (not in pixels)
3991 9810f304f469 printString Claus Gittinger <cg@exept.de> parents: 3989 diff changeset	49	encoding <Symbol> the fonts encoding (usually #iso8859-1)
611 e0442439a3c6 documentation Claus Gittinger <cg@exept.de> parents: 576 diff changeset	50
3991 9810f304f469 printString Claus Gittinger <cg@exept.de> parents: 3989 diff changeset	51	manufacturer <nil\|String\|Array>
9810f304f469 printString Claus Gittinger <cg@exept.de> parents: 3989 diff changeset	52	the fonts origin - if known
9810f304f469 printString Claus Gittinger <cg@exept.de> parents: 3989 diff changeset	53	name <nil\|String\|Array>
9810f304f469 printString Claus Gittinger <cg@exept.de> parents: 3989 diff changeset	54	the platform specific name
1265 c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	55
3991 9810f304f469 printString Claus Gittinger <cg@exept.de> parents: 3989 diff changeset	56	flags <SmallInteger> holds serif/italic etc. as flag bits
9810f304f469 printString Claus Gittinger <cg@exept.de> parents: 3989 diff changeset	57	masks <SmallInteger> currently dummy; to allow ST-80 compatible subclassing
9810f304f469 printString Claus Gittinger <cg@exept.de> parents: 3989 diff changeset	58	pixelSize <SmallInteger> currently dummy; to allow ST-80 compatible subclassing
1265 c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	59
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	60	[class variables:]
3991 9810f304f469 printString Claus Gittinger <cg@exept.de> parents: 3989 diff changeset	61	BoldnessMask currently dummy; to allow ST-80 compatible subclassing
9810f304f469 printString Claus Gittinger <cg@exept.de> parents: 3989 diff changeset	62	FixedFlag currently dummy; to allow ST-80 compatible subclassing
9810f304f469 printString Claus Gittinger <cg@exept.de> parents: 3989 diff changeset	63	ItalicFlag currently dummy; to allow ST-80 compatible subclassing
9810f304f469 printString Claus Gittinger <cg@exept.de> parents: 3989 diff changeset	64	OutlineFlag currently dummy; to allow ST-80 compatible subclassing
9810f304f469 printString Claus Gittinger <cg@exept.de> parents: 3989 diff changeset	65	SerifFlag currently dummy; to allow ST-80 compatible subclassing
9810f304f469 printString Claus Gittinger <cg@exept.de> parents: 3989 diff changeset	66	ShadowFlag currently dummy; to allow ST-80 compatible subclassing
9810f304f469 printString Claus Gittinger <cg@exept.de> parents: 3989 diff changeset	67	StrikeoutFlag currently dummy; to allow ST-80 compatible subclassing
9810f304f469 printString Claus Gittinger <cg@exept.de> parents: 3989 diff changeset	68	UnderlineFlag currently dummy; to allow ST-80 compatible subclassing
1265 c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	69
611 e0442439a3c6 documentation Claus Gittinger <cg@exept.de> parents: 576 diff changeset	70	[author:]
e0442439a3c6 documentation Claus Gittinger <cg@exept.de> parents: 576 diff changeset	71	Claus Gittinger
629 458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	72
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	73	[see also:]
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	74	Font
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	75	FontPanel
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	76	GraphicsContext
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	77	( introduction to view programming :html: programming/viewintro.html#FONTS )
52 edf02eb2939c Initial revision claus parents: diff changeset	78	"
edf02eb2939c Initial revision claus parents: diff changeset	79	! !
edf02eb2939c Initial revision claus parents: diff changeset	80
1265 c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	81	!FontDescription class methodsFor:'initialization'!
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	82
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	83	initialize
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	84	"initialize class variables"
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	85
3827 3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	86	BoldnessMask := 2r0000000111. "/ allows for 8 boldnesses to be encoded
1265 c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	87	FixedFlag := 2r0000001000.
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	88	ItalicFlag := 2r0000010000.
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	89	OutlineFlag := 2r0000100000.
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	90	SerifFlag := 2r0001000000.
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	91	ShadowFlag := 2r0010000000.
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	92	StrikeoutFlag := 2r0100000000.
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	93	UnderlineFlag := 2r1000000000.
3827 3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	94
3987 796ff0ae8306 more mapping Claus Gittinger <cg@exept.de> parents: 3880 diff changeset	95	self initializeCharacterEncodingToCharacterSetMapping.
3827 3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	96	self initializeCharacterSetToFontMapping.
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	97	!
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	98
3987 796ff0ae8306 more mapping Claus Gittinger <cg@exept.de> parents: 3880 diff changeset	99	initializeCharacterEncodingToCharacterSetMapping
796ff0ae8306 more mapping Claus Gittinger <cg@exept.de> parents: 3880 diff changeset	100	"character encoding"
796ff0ae8306 more mapping Claus Gittinger <cg@exept.de> parents: 3880 diff changeset	101
796ff0ae8306 more mapping Claus Gittinger <cg@exept.de> parents: 3880 diff changeset	102	CharacterEncodingToCharacterSetMapping isNil ifTrue:[
796ff0ae8306 more mapping Claus Gittinger <cg@exept.de> parents: 3880 diff changeset	103	CharacterEncodingToCharacterSetMapping := Dictionary new
796ff0ae8306 more mapping Claus Gittinger <cg@exept.de> parents: 3880 diff changeset	104	].
796ff0ae8306 more mapping Claus Gittinger <cg@exept.de> parents: 3880 diff changeset	105
796ff0ae8306 more mapping Claus Gittinger <cg@exept.de> parents: 3880 diff changeset	106	#(
796ff0ae8306 more mapping Claus Gittinger <cg@exept.de> parents: 3880 diff changeset	107	'utf7' 'unicode'
4011 724145f3d343 * empty log message * Claus Gittinger <cg@exept.de> parents: 4010 diff changeset	108	'utf-7' 'unicode'
3987 796ff0ae8306 more mapping Claus Gittinger <cg@exept.de> parents: 3880 diff changeset	109	'utf8' 'unicode'
4011 724145f3d343 * empty log message * Claus Gittinger <cg@exept.de> parents: 4010 diff changeset	110	'utf-8' 'unicode'
3987 796ff0ae8306 more mapping Claus Gittinger <cg@exept.de> parents: 3880 diff changeset	111	) pairWiseDo:[:encoding :fontEncoding\|
796ff0ae8306 more mapping Claus Gittinger <cg@exept.de> parents: 3880 diff changeset	112	CharacterEncodingToCharacterSetMapping at:encoding put:fontEncoding
796ff0ae8306 more mapping Claus Gittinger <cg@exept.de> parents: 3880 diff changeset	113	].
796ff0ae8306 more mapping Claus Gittinger <cg@exept.de> parents: 3880 diff changeset	114	!
796ff0ae8306 more mapping Claus Gittinger <cg@exept.de> parents: 3880 diff changeset	115
3827 3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	116	initializeCharacterSetToFontMapping
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	117	"character sets"
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	118
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	119	CharacterSetToFontMapping isNil ifTrue:[
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	120	CharacterSetToFontMapping := Dictionary new
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	121	].
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	122
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	123	#(
3987 796ff0ae8306 more mapping Claus Gittinger <cg@exept.de> parents: 3880 diff changeset	124	'unicode' 'iso10646-*'
796ff0ae8306 more mapping Claus Gittinger <cg@exept.de> parents: 3880 diff changeset	125
796ff0ae8306 more mapping Claus Gittinger <cg@exept.de> parents: 3880 diff changeset	126	'koi8-r' 'iso8859-5'
796ff0ae8306 more mapping Claus Gittinger <cg@exept.de> parents: 3880 diff changeset	127
3827 3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	128	'iso2022-jp' 'jis0208'
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	129	'x-iso2022-jp' 'jis0208'
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	130	'x-euc-jp' 'jis0208'
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	131	'x-shift-jis' 'jis0208'
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	132	'x-sjis' 'jis0208'
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	133	'x-jis7' 'jis0208'
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	134	'jis7' 'jis0208'
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	135	'euc' 'jis0208'
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	136	'euc-jp' 'jis0208'
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	137	'sjis' 'jis0208'
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	138
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	139	'big5' 'big5*'
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	140
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	141	'gb2312' 'gb*'
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	142	'hz-gb-2312' 'gb*'
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	143	'x-gbk' 'gb*'
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	144
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	145	'iso2022-kr' 'ksc*'
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	146	'x-euc-kr' 'ksc*'
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	147	) pairWiseDo:[:charSet :fontEncoding\|
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	148	CharacterSetToFontMapping at:charSet put:fontEncoding
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	149	].
1265 c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	150	! !
c8030e99f941 added ST-80 compatible instVars (currently ignored, though) Claus Gittinger <cg@exept.de> parents: 1071 diff changeset	151
1275 9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	152	!FontDescription class methodsFor:'instance creation'!
52 edf02eb2939c Initial revision claus parents: diff changeset	153
153 c56277fa4865 . claus parents: 109 diff changeset	154	family:familyString
c56277fa4865 . claus parents: 109 diff changeset	155	"returns a font for given family and default (12pt) size
3996 9ed3e413700c * empty log message * ca parents: 3993 diff changeset	156	with default encoding.
629 458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	157	The new fonts face defaults `medium', its style to `roman'.
153 c56277fa4865 . claus parents: 109 diff changeset	158	The returned font is not associated to a specific device"
c56277fa4865 . claus parents: 109 diff changeset	159
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	160	^ self
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	161	family:familyString
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	162	face:(self defaultFace)
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	163	style:(self defaultStyle)
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	164	size:(self defaultSize)
5185 c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	165	sizeUnit:#pt
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	166	encoding:(self defaultEncoding)
153 c56277fa4865 . claus parents: 109 diff changeset	167
c56277fa4865 . claus parents: 109 diff changeset	168	"
c56277fa4865 . claus parents: 109 diff changeset	169	Font family:'helvetica'
c56277fa4865 . claus parents: 109 diff changeset	170	Font family:'courier'
c56277fa4865 . claus parents: 109 diff changeset	171	"
629 458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	172
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	173	"Modified: 30.4.1996 / 17:20:44 / cg"
153 c56277fa4865 . claus parents: 109 diff changeset	174	!
c56277fa4865 . claus parents: 109 diff changeset	175
109 ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	176	family:familyString face:faceString size:sizeNum
3996 9ed3e413700c * empty log message * ca parents: 3993 diff changeset	177	"returns a font for given family and size with default encoding.
629 458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	178	The new fonts style defaults to `roman'.
109 ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	179	The returned font is not associated to a specific device"
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	180
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	181	^ self
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	182	family:familyString
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	183	face:faceString
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	184	style:(self defaultStyle)
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	185	size:sizeNum
5185 c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	186	sizeUnit:#pt
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	187	encoding:(self defaultEncoding)
109 ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	188
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	189	"
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	190	Font family:'helvetica' face:'medium' size:10
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	191	Font family:'helvetica' face:'bold' size:10
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	192	Font family:'courier' face:'bold' size:10
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	193	"
629 458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	194
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	195	"Modified: 30.4.1996 / 17:21:07 / cg"
109 ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	196	!
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	197
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	198	family:familyString face:faceString style:styleString size:sizeNum
3996 9ed3e413700c * empty log message * ca parents: 3993 diff changeset	199	"returns a font for given family, face, style and size with default encoding.
109 ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	200	The returned font is not associated to a specific device"
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	201
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	202	^ self
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	203	family:familyString
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	204	face:faceString
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	205	style:styleString
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	206	size:sizeNum
5185 c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	207	sizeUnit:#pt
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	208	encoding:(self defaultEncoding)
109 ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	209
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	210	"
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	211	Font family:'helvetica' face:'medium' style:'roman' size:10
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	212	Font family:'helvetica' face:'medium' style:'italic' size:10
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	213	Font family:'helvetica' face:'bold' style:'roman' size:10
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	214	Font family:'courier' face:'bold' style:'italic' size:10
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	215	"
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	216	!
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	217
3993 7fc0939208e2 defaultEncoding is now 8859-1 Claus Gittinger <cg@exept.de> parents: 3991 diff changeset	218	family:familyString face:faceString style:styleString size:sizeNum encoding:encoding
3996 9ed3e413700c * empty log message * ca parents: 3993 diff changeset	219	"returns a font for given family, face, style, size and the specified encoding.
576 6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	220	The returned font is not associated to a specific device"
6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	221
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	222	^ self
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	223	family:familyString
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	224	face:faceString
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	225	style:styleString
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	226	size:sizeNum
5185 c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	227	sizeUnit:#pt
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	228	encoding:encoding
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	229
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	230	"Modified: 20.4.1996 / 23:19:04 / cg"
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	231	!
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	232
5185 c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	233	family:familyString face:faceString style:styleString size:size sizeUnit:sizeUnit encoding:encoding
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	234	"returns a font for given family, face, style, size and the specified encoding.
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	235	The returned font is not associated to a specific device"
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	236
52 edf02eb2939c Initial revision claus parents: diff changeset	237	^ self new
576 6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	238	family:familyString
6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	239	face:faceString
6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	240	style:styleString
5185 c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	241	size:size
c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	242	sizeUnit:sizeUnit
3993 7fc0939208e2 defaultEncoding is now 8859-1 Claus Gittinger <cg@exept.de> parents: 3991 diff changeset	243	encoding:encoding
576 6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	244
6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	245	"Modified: 20.4.1996 / 23:19:04 / cg"
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	246	!
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	247
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	248	family:familyString pixelSize:sizeNum
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	249	"returns a font for given family and pixelSize with default encoding.
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	250	The new fonts face defaults to `medium', its style to `roman'.
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	251	Notice: the returned font will typically only be usable on a screen,
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	252	and will not scale as to the devices resolution.
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	253	Use #family:size: for resolution-independent sizing."
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	254
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	255	^ self
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	256	family:familyString
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	257	face:(self defaultFace)
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	258	style:(self defaultStyle)
5185 c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	259	size:sizeNum
c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	260	sizeUnit:#px
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	261	encoding:(self defaultEncoding)
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	262
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	263	"
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	264	(Font family:'helvetica' size:10) onDevice:Screen current
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	265	(Font family:'helvetica' pixelSize:10) onDevice:Screen current
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	266	"
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	267	!
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	268
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	269	family:familyString size:sizeNum
3996 9ed3e413700c * empty log message * ca parents: 3993 diff changeset	270	"returns a font for given family and size with default encoding.
629 458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	271	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	272	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	273
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	274	^ self
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	275	family:familyString
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	276	face:(self defaultFace)
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	277	style:(self defaultStyle)
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	278	size:sizeNum
5185 c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	279	sizeUnit:#pt
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	280	encoding:(self defaultEncoding)
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	281
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	282	"
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	283	Font family:'helvetica' size:10
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	284	Font family:'courier' size:10
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	285	"
629 458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	286
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	287	"Modified: 30.4.1996 / 17:21:40 / cg"
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	288	!
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	289
4005 cbe56ccc85fa checkin from browser Claus Gittinger <cg@exept.de> parents: 3996 diff changeset	290	family:familyString size:sizeNum encoding:encoding
cbe56ccc85fa checkin from browser Claus Gittinger <cg@exept.de> parents: 3996 diff changeset	291	"returns a font for given family and size with default encoding.
cbe56ccc85fa checkin from browser Claus Gittinger <cg@exept.de> parents: 3996 diff changeset	292	The new fonts face defaults to `medium', its style to `roman'.
cbe56ccc85fa checkin from browser Claus Gittinger <cg@exept.de> parents: 3996 diff changeset	293	The returned font is not associated to a specific device"
cbe56ccc85fa checkin from browser Claus Gittinger <cg@exept.de> parents: 3996 diff changeset	294
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	295	^ self
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	296	family:familyString
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	297	face:(self defaultFace)
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	298	style:(self defaultStyle)
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	299	size:sizeNum
5185 c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	300	sizeUnit:#pt
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	301	encoding:encoding
4005 cbe56ccc85fa checkin from browser Claus Gittinger <cg@exept.de> parents: 3996 diff changeset	302
cbe56ccc85fa checkin from browser Claus Gittinger <cg@exept.de> parents: 3996 diff changeset	303	"
cbe56ccc85fa checkin from browser Claus Gittinger <cg@exept.de> parents: 3996 diff changeset	304	Font family:'helvetica' size:10 encoding:#'iso8859-1'
cbe56ccc85fa checkin from browser Claus Gittinger <cg@exept.de> parents: 3996 diff changeset	305	Font family:'courier' size:10 encoding:#'iso8859-1'
cbe56ccc85fa checkin from browser Claus Gittinger <cg@exept.de> parents: 3996 diff changeset	306	"
cbe56ccc85fa checkin from browser Claus Gittinger <cg@exept.de> parents: 3996 diff changeset	307
cbe56ccc85fa checkin from browser Claus Gittinger <cg@exept.de> parents: 3996 diff changeset	308	"Modified: 30.4.1996 / 17:21:40 / cg"
cbe56ccc85fa checkin from browser Claus Gittinger <cg@exept.de> parents: 3996 diff changeset	309	!
cbe56ccc85fa checkin from browser Claus Gittinger <cg@exept.de> parents: 3996 diff changeset	310
1071 ae5b36b93cf3 checkin from browser Claus Gittinger <cg@exept.de> parents: 629 diff changeset	311	family:familyString style:aStyle size:sizeNum
3996 9ed3e413700c * empty log message * ca parents: 3993 diff changeset	312	"returns a font for given family and size with default encoding.
1071 ae5b36b93cf3 checkin from browser Claus Gittinger <cg@exept.de> parents: 629 diff changeset	313	The new fonts face defaults to `medium', its style to `roman'.
ae5b36b93cf3 checkin from browser Claus Gittinger <cg@exept.de> parents: 629 diff changeset	314	The returned font is not associated to a specific device"
ae5b36b93cf3 checkin from browser Claus Gittinger <cg@exept.de> parents: 629 diff changeset	315
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	316	^ self
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	317	family:familyString
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	318	face:(self defaultFace)
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	319	style:aStyle
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	320	size:sizeNum
5185 c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	321	sizeUnit:#pt
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	322	encoding:(self defaultEncoding)
1071 ae5b36b93cf3 checkin from browser Claus Gittinger <cg@exept.de> parents: 629 diff changeset	323
ae5b36b93cf3 checkin from browser Claus Gittinger <cg@exept.de> parents: 629 diff changeset	324	"
ae5b36b93cf3 checkin from browser Claus Gittinger <cg@exept.de> parents: 629 diff changeset	325	Font family:'helvetica' style:#roman size:48
ae5b36b93cf3 checkin from browser Claus Gittinger <cg@exept.de> parents: 629 diff changeset	326	Font family:'courier' style:#roman size:10
ae5b36b93cf3 checkin from browser Claus Gittinger <cg@exept.de> parents: 629 diff changeset	327	"
ae5b36b93cf3 checkin from browser Claus Gittinger <cg@exept.de> parents: 629 diff changeset	328
ae5b36b93cf3 checkin from browser Claus Gittinger <cg@exept.de> parents: 629 diff changeset	329	"Modified: 30.4.1996 / 17:21:40 / cg"
ae5b36b93cf3 checkin from browser Claus Gittinger <cg@exept.de> parents: 629 diff changeset	330	"Created: 8.10.1996 / 18:33:55 / cg"
ae5b36b93cf3 checkin from browser Claus Gittinger <cg@exept.de> parents: 629 diff changeset	331	!
ae5b36b93cf3 checkin from browser Claus Gittinger <cg@exept.de> parents: 629 diff changeset	332
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	333	name:aFontName
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	334	"returns a font with the given explicit name.
629 458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	335	WARNING:
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	336	You shuld not use explicit naming, since font names vary
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	337	with operatingSystems, devices and architecture.
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	338
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	339	This interface is provided for special purposes only.
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	340	On X, the name given should be according the X fontname conventions;
629 458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	341	i.e. something like: '--times-bold-r-normal---240----*-iso8859-1'.
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	342
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	343	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	344
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	345	^ self
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	346	family:aFontName
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	347	face:nil
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	348	style:nil
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	349	size:nil
5185 c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	350	sizeUnit:#px
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	351	encoding:nil
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	352
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	353	"
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	354	Font name:'--times-bold-r-normal---240----*-iso8859-1'
629 458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	355	Font name:'6x10'
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	356	Font name:'k14'
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	357	((Font name:'k14') on:Display) encoding
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	358	"
629 458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	359
458959e7d64b docu Claus Gittinger <cg@exept.de> parents: 611 diff changeset	360	"Modified: 30.4.1996 / 17:23:09 / cg"
52 edf02eb2939c Initial revision claus parents: diff changeset	361	! !
edf02eb2939c Initial revision claus parents: diff changeset	362
3993 7fc0939208e2 defaultEncoding is now 8859-1 Claus Gittinger <cg@exept.de> parents: 3991 diff changeset	363	!FontDescription class methodsFor:'defaults'!
7fc0939208e2 defaultEncoding is now 8859-1 Claus Gittinger <cg@exept.de> parents: 3991 diff changeset	364
7fc0939208e2 defaultEncoding is now 8859-1 Claus Gittinger <cg@exept.de> parents: 3991 diff changeset	365	defaultEncoding
7fc0939208e2 defaultEncoding is now 8859-1 Claus Gittinger <cg@exept.de> parents: 3991 diff changeset	366	^ #'iso8859-1'
3996 9ed3e413700c * empty log message * ca parents: 3993 diff changeset	367	!
9ed3e413700c * empty log message * ca parents: 3993 diff changeset	368
9ed3e413700c * empty log message * ca parents: 3993 diff changeset	369	defaultFace
9ed3e413700c * empty log message * ca parents: 3993 diff changeset	370	^ 'medium'
9ed3e413700c * empty log message * ca parents: 3993 diff changeset	371	!
9ed3e413700c * empty log message * ca parents: 3993 diff changeset	372
9ed3e413700c * empty log message * ca parents: 3993 diff changeset	373	defaultSize
9ed3e413700c * empty log message * ca parents: 3993 diff changeset	374	^ 12
9ed3e413700c * empty log message * ca parents: 3993 diff changeset	375	!
9ed3e413700c * empty log message * ca parents: 3993 diff changeset	376
9ed3e413700c * empty log message * ca parents: 3993 diff changeset	377	defaultStyle
9ed3e413700c * empty log message * ca parents: 3993 diff changeset	378	^ 'roman'
3993 7fc0939208e2 defaultEncoding is now 8859-1 Claus Gittinger <cg@exept.de> parents: 3991 diff changeset	379	! !
7fc0939208e2 defaultEncoding is now 8859-1 Claus Gittinger <cg@exept.de> parents: 3991 diff changeset	380
3827 3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	381	!FontDescription class methodsFor:'queries'!
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	382
3987 796ff0ae8306 more mapping Claus Gittinger <cg@exept.de> parents: 3880 diff changeset	383	characterSetForCharacterEncoding:encodingName
796ff0ae8306 more mapping Claus Gittinger <cg@exept.de> parents: 3880 diff changeset	384	"return the font-encoding for a character encoding"
796ff0ae8306 more mapping Claus Gittinger <cg@exept.de> parents: 3880 diff changeset	385
4018 473a63a09368 checkin from browser Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	386	^ CharacterEncodingToCharacterSetMapping at:encodingName ifAbsent:encodingName
3987 796ff0ae8306 more mapping Claus Gittinger <cg@exept.de> parents: 3880 diff changeset	387
796ff0ae8306 more mapping Claus Gittinger <cg@exept.de> parents: 3880 diff changeset	388	"
4018 473a63a09368 checkin from browser Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	389	FontDescription characterSetForCharacterEncoding:'utf8'
473a63a09368 checkin from browser Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	390	FontDescription characterSetForCharacterEncoding:'koi8-r'
473a63a09368 checkin from browser Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	391	FontDescription characterSetForCharacterEncoding:'unicode'
3987 796ff0ae8306 more mapping Claus Gittinger <cg@exept.de> parents: 3880 diff changeset	392	"
796ff0ae8306 more mapping Claus Gittinger <cg@exept.de> parents: 3880 diff changeset	393	!
796ff0ae8306 more mapping Claus Gittinger <cg@exept.de> parents: 3880 diff changeset	394
3827 3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	395	fontNamePatternForCharset:aCharSetName
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	396	"return the font-encoding for an iso-charset"
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	397
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	398	^ CharacterSetToFontMapping at:aCharSetName ifAbsent:nil
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	399
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	400	"
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	401	FontDescription fontNamePatternForCharset:'iso2022-jp'
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	402	FontDescription fontNamePatternForCharset:'euc-jp'
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	403	"
4010 7f899eceaf2d preferredFontEncodingFor moved from FileBrowser Claus Gittinger <cg@exept.de> parents: 4005 diff changeset	404	!
7f899eceaf2d preferredFontEncodingFor moved from FileBrowser Claus Gittinger <cg@exept.de> parents: 4005 diff changeset	405
7f899eceaf2d preferredFontEncodingFor moved from FileBrowser Claus Gittinger <cg@exept.de> parents: 4005 diff changeset	406	preferredFontEncodingFor:fileEncoding
7f899eceaf2d preferredFontEncodingFor moved from FileBrowser Claus Gittinger <cg@exept.de> parents: 4005 diff changeset	407	"given a file encoding, return a corresponding match pattern for a preferred fontEncoding"
7f899eceaf2d preferredFontEncodingFor moved from FileBrowser Claus Gittinger <cg@exept.de> parents: 4005 diff changeset	408
7f899eceaf2d preferredFontEncodingFor moved from FileBrowser Claus Gittinger <cg@exept.de> parents: 4005 diff changeset	409	\|ce fe\|
7f899eceaf2d preferredFontEncodingFor moved from FileBrowser Claus Gittinger <cg@exept.de> parents: 4005 diff changeset	410
7f899eceaf2d preferredFontEncodingFor moved from FileBrowser Claus Gittinger <cg@exept.de> parents: 4005 diff changeset	411	ce := FontDescription characterSetForCharacterEncoding:fileEncoding.
7f899eceaf2d preferredFontEncodingFor moved from FileBrowser Claus Gittinger <cg@exept.de> parents: 4005 diff changeset	412	ce isNil ifTrue:[
7f899eceaf2d preferredFontEncodingFor moved from FileBrowser Claus Gittinger <cg@exept.de> parents: 4005 diff changeset	413	ce := fileEncoding.
7f899eceaf2d preferredFontEncodingFor moved from FileBrowser Claus Gittinger <cg@exept.de> parents: 4005 diff changeset	414	].
7f899eceaf2d preferredFontEncodingFor moved from FileBrowser Claus Gittinger <cg@exept.de> parents: 4005 diff changeset	415
7f899eceaf2d preferredFontEncodingFor moved from FileBrowser Claus Gittinger <cg@exept.de> parents: 4005 diff changeset	416	fe := FontDescription fontNamePatternForCharset:ce.
7f899eceaf2d preferredFontEncodingFor moved from FileBrowser Claus Gittinger <cg@exept.de> parents: 4005 diff changeset	417	fe notNil ifTrue:[^ fe].
7f899eceaf2d preferredFontEncodingFor moved from FileBrowser Claus Gittinger <cg@exept.de> parents: 4005 diff changeset	418	^ ce ? 'iso8859*'
3827 3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	419	! !
3390983893a2 font stuff moved from MIMETypes Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	420
3880 c4c8268a2d9f method category rename Claus Gittinger <cg@exept.de> parents: 3827 diff changeset	421	!FontDescription methodsFor:'Compatibility-ST80'!
1277 f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	422
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	423	boldness:aNumber
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	424	"added for ST-80 compatibility; actually ignored currently"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	425
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	426	\|val\|
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	427
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	428	flags isNil ifTrue:[
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	429	flags := masks := 0
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	430	].
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	431
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	432	"/ scale from 0..1 to 0..BoldnessMask
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	433	val := (aNumber max:0.0) min:1.0.
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	434	val := (BoldnessMask * val) rounded.
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	435
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	436	flags := flags bitOr:val.
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	437	masks := masks bitOr:BoldnessMask
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	438
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	439	"Created: 25.1.1997 / 03:20:05 / cg"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	440	"Modified: 25.1.1997 / 03:20:47 / cg"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	441	!
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	color:aColor
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	444	"added for ST-80 compatibility; actually ignored currently"
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	"Created: 25.1.1997 / 03:21:28 / cg"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	447	!
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	448
1760 ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	449	encodings:aCollectionOfEncodings
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	450	"added for ST-80 compatibility; actually ignored currently"
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	451
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	452	"Created: 20.6.1997 / 09:52:46 / cg"
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	453	!
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	454
1277 f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	455	fixedWidth:aBoolean
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	456	"added for ST-80 compatibility; actually ignored currently"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	457
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	458	flags isNil ifTrue:[
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	459	flags := masks := 0
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	460	].
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	461	flags := flags bitOr:FixedFlag.
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	462	masks := masks bitOr:FixedFlag
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	463
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	464	"Created: 25.1.1997 / 03:14:06 / cg"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	465	"Modified: 25.1.1997 / 03:21:03 / cg"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	466	!
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	467
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	468	italic:aBoolean
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	469	"added for ST-80 compatibility; actually ignored currently"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	470
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	471	flags isNil ifTrue:[
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	472	flags := masks := 0
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	473	].
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	474	flags := flags bitOr:ItalicFlag.
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	475	masks := masks bitOr:ItalicFlag
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	476
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	477	"Created: 25.1.1997 / 03:15:37 / cg"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	478	"Modified: 25.1.1997 / 03:20:55 / cg"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	479	!
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	480
1760 ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	481	outline:aBoolean
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	482	"added for ST-80 compatibility; actually ignored currently"
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	483
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	484	flags isNil ifTrue:[
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	485	flags := masks := 0
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	486	].
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	487	flags := flags bitOr:OutlineFlag.
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	488	masks := masks bitOr:OutlineFlag
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	489
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	490	"Modified: 25.1.1997 / 03:20:55 / cg"
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	491	"Created: 20.6.1997 / 09:50:06 / cg"
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	492	!
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	493
5165 3b03bd5bb18e preps for pixelSize fonts Claus Gittinger <cg@exept.de> parents: 4894 diff changeset	494	pixelSize
3b03bd5bb18e preps for pixelSize fonts Claus Gittinger <cg@exept.de> parents: 4894 diff changeset	495	^ pixelSize
3b03bd5bb18e preps for pixelSize fonts Claus Gittinger <cg@exept.de> parents: 4894 diff changeset	496	!
3b03bd5bb18e preps for pixelSize fonts Claus Gittinger <cg@exept.de> parents: 4894 diff changeset	497
1277 f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	498	pixelSize:aNumber
5185 c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	499	"if specified, the size is ignored, and a pixel-sized font is chosen."
1277 f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	500
5185 c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	501	pixelSize := aNumber.
c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	502	sizeUnit := #px.
1277 f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	503	!
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	504
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	505	serif:aBoolean
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	506	"added for ST-80 compatibility; actually ignored currently"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	507
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	508	flags isNil ifTrue:[
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	509	flags := masks := 0
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	510	].
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	511	flags := flags bitOr:SerifFlag.
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	512	masks := masks bitOr:SerifFlag
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	513
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	514	"Created: 25.1.1997 / 03:15:17 / cg"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	515	"Modified: 25.1.1997 / 03:20:59 / cg"
1760 ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	516	!
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	517
5196 90aeedb2a2b7 * empty log message * Claus Gittinger <cg@exept.de> parents: 5191 diff changeset	518	setPixelSize:aNumber
90aeedb2a2b7 * empty log message * Claus Gittinger <cg@exept.de> parents: 5191 diff changeset	519	pixelSize := aNumber.
90aeedb2a2b7 * empty log message * Claus Gittinger <cg@exept.de> parents: 5191 diff changeset	520	!
90aeedb2a2b7 * empty log message * Claus Gittinger <cg@exept.de> parents: 5191 diff changeset	521
1760 ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	522	shadow:aBoolean
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	523	"added for ST-80 compatibility; actually ignored currently"
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	524
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	525	flags isNil ifTrue:[
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	526	flags := masks := 0
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	527	].
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	528	flags := flags bitOr:ShadowFlag.
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	529	masks := masks bitOr:ShadowFlag
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	530
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	531	"Modified: 25.1.1997 / 03:20:55 / cg"
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	532	"Created: 20.6.1997 / 09:51:03 / cg"
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	533	!
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	534
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	535	strikeout:aBoolean
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	536	"added for ST-80 compatibility; actually ignored currently"
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	537
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	538	flags isNil ifTrue:[
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	539	flags := masks := 0
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	540	].
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	541	flags := flags bitOr:StrikeoutFlag.
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	542	masks := masks bitOr:StrikeoutFlag
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	543
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	544	"Modified: 25.1.1997 / 03:20:55 / cg"
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	545	"Created: 20.6.1997 / 09:51:36 / cg"
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	546	!
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	547
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	548	underline:aBoolean
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	549	"added for ST-80 compatibility; actually ignored currently"
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	550
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	551	flags isNil ifTrue:[
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	552	flags := masks := 0
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	553	].
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	554	flags := flags bitOr:UnderlineFlag.
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	555	masks := masks bitOr:UnderlineFlag
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	556
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	557	"Modified: 25.1.1997 / 03:20:55 / cg"
ccd221469891 more ST80 compatibility (partially dummy) Claus Gittinger <cg@exept.de> parents: 1740 diff changeset	558	"Created: 20.6.1997 / 09:51:18 / cg"
1277 f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	559	! !
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	560
52 edf02eb2939c Initial revision claus parents: diff changeset	561	!FontDescription methodsFor:'accessing'!
edf02eb2939c Initial revision claus parents: diff changeset	562
2544 8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	563	device
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	564	"return the device I am on"
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	565
4146 4c46ae30bd64 Use #graphicsDevice Stefan Vogel <sv@exept.de> parents: 4018 diff changeset	566	<resource:#obsolete>
4c46ae30bd64 Use #graphicsDevice Stefan Vogel <sv@exept.de> parents: 4018 diff changeset	567
3661 b96d4f68b36e device -> graphicsDevice Michael Beyl <mb@exept.de> parents: 3629 diff changeset	568	self obsoleteMethodWarning:'use #graphicsDevice'.
b96d4f68b36e device -> graphicsDevice Michael Beyl <mb@exept.de> parents: 3629 diff changeset	569	^ self graphicsDevice
2544 8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	570	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	571
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	572	encoding
575 ad65411701b0 commentary Claus Gittinger <cg@exept.de> parents: 478 diff changeset	573	"return the fonts encoding, as a symbol
456 3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	574	such as #'iso8859', #'jis0208.1983' or #ascii.
3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	575	If the fonts encoding is not known, return nil;
3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	576	You should assume ascii-encoding then."
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	577
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	578	^ encoding
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	579
575 ad65411701b0 commentary Claus Gittinger <cg@exept.de> parents: 478 diff changeset	580	"Modified: 20.4.1996 / 23:14:36 / cg"
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	581	!
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	582
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	583	face
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	584	"return the face, a string"
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	585
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	586	^ face
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	587	!
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	588
4892 9b15605f58ff check: bad change of attributes of a REAL font Claus Gittinger <cg@exept.de> parents: 4627 diff changeset	589	face:aString
9b15605f58ff check: bad change of attributes of a REAL font Claus Gittinger <cg@exept.de> parents: 4627 diff changeset	590	"set the face, a string such as 'bold'"
9b15605f58ff check: bad change of attributes of a REAL font Claus Gittinger <cg@exept.de> parents: 4627 diff changeset	591
9b15605f58ff check: bad change of attributes of a REAL font Claus Gittinger <cg@exept.de> parents: 4627 diff changeset	592	self assert:(self fontId isNil). "/ cannot change an instanciated font
9b15605f58ff check: bad change of attributes of a REAL font Claus Gittinger <cg@exept.de> parents: 4627 diff changeset	593	face := aString
9b15605f58ff check: bad change of attributes of a REAL font Claus Gittinger <cg@exept.de> parents: 4627 diff changeset	594
9b15605f58ff check: bad change of attributes of a REAL font Claus Gittinger <cg@exept.de> parents: 4627 diff changeset	595	"Created: 25.1.1997 / 03:12:12 / cg"
9b15605f58ff check: bad change of attributes of a REAL font Claus Gittinger <cg@exept.de> parents: 4627 diff changeset	596	!
9b15605f58ff check: bad change of attributes of a REAL font Claus Gittinger <cg@exept.de> parents: 4627 diff changeset	597
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	598	family
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	599	"return the family, a string"
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	600
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	601	^ family
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	602	!
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	603
1277 f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	604	family:aString
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	605	"set the family, a string"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	606
4892 9b15605f58ff check: bad change of attributes of a REAL font Claus Gittinger <cg@exept.de> parents: 4627 diff changeset	607	self assert:(self fontId isNil). "/ cannot change an instanciated font
1277 f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	608	family := aString
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	609
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	610	"Created: 25.1.1997 / 03:12:12 / cg"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	611	!
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	612
89 ea2bf46eb669 * empty log message * claus parents: 52 diff changeset	613	family:familyString face:faceString style:styleString size:sizeNum encoding:encodingString
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	614	<resource: #obsolete>
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	615	"set the instance values"
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	616
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	617	self
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	618	family:familyString
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	619	face:faceString
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	620	style:styleString
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	621	size:sizeNum
5185 c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	622	sizeUnit:#pt
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	623	encoding:encodingString
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	624	!
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	625
5185 c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	626	family:familyString face:faceString style:styleString size:sizeArg sizeUnit:sizeUnitArg encoding:encodingString
576 6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	627	"set the instance values"
6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	628
4892 9b15605f58ff check: bad change of attributes of a REAL font Claus Gittinger <cg@exept.de> parents: 4627 diff changeset	629	self assert:(self fontId isNil). "/ cannot change an instanciated font
5185 c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	630
89 ea2bf46eb669 * empty log message * claus parents: 52 diff changeset	631	family := familyString asSymbol.
229 099543e5d779 handle empty family/style/encoding strings Claus Gittinger <cg@exept.de> parents: 219 diff changeset	632	(faceString notNil and:[faceString notEmpty]) ifTrue:[
576 6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	633	face := faceString asSymbol.
89 ea2bf46eb669 * empty log message * claus parents: 52 diff changeset	634	].
229 099543e5d779 handle empty family/style/encoding strings Claus Gittinger <cg@exept.de> parents: 219 diff changeset	635	(styleString notNil and:[styleString notEmpty]) ifTrue:[
576 6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	636	style := styleString asSymbol.
89 ea2bf46eb669 * empty log message * claus parents: 52 diff changeset	637	].
5185 c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	638	sizeUnit := sizeUnitArg.
c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	639	sizeUnit == #px ifTrue:[
c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	640	pixelSize := sizeArg.
c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	641	] ifFalse:[
c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	642	size := sizeArg.
c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	643	].
229 099543e5d779 handle empty family/style/encoding strings Claus Gittinger <cg@exept.de> parents: 219 diff changeset	644	(encodingString notNil and:[encodingString notEmpty]) ifTrue:[
576 6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	645	encoding := encodingString asSymbol.
89 ea2bf46eb669 * empty log message * claus parents: 52 diff changeset	646	]
229 099543e5d779 handle empty family/style/encoding strings Claus Gittinger <cg@exept.de> parents: 219 diff changeset	647
576 6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	648	"Modified: 20.4.1996 / 23:19:25 / cg"
52 edf02eb2939c Initial revision claus parents: diff changeset	649	!
edf02eb2939c Initial revision claus parents: diff changeset	650
2544 8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	651	fontId
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	652	"return the device-dependent font-id"
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	653
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	654	^ nil
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	655
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	656
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	657	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	658
3661 b96d4f68b36e device -> graphicsDevice Michael Beyl <mb@exept.de> parents: 3629 diff changeset	659	graphicsDevice
b96d4f68b36e device -> graphicsDevice Michael Beyl <mb@exept.de> parents: 3629 diff changeset	660	"return the device I am on"
b96d4f68b36e device -> graphicsDevice Michael Beyl <mb@exept.de> parents: 3629 diff changeset	661
b96d4f68b36e device -> graphicsDevice Michael Beyl <mb@exept.de> parents: 3629 diff changeset	662	^ nil
b96d4f68b36e device -> graphicsDevice Michael Beyl <mb@exept.de> parents: 3629 diff changeset	663	!
b96d4f68b36e device -> graphicsDevice Michael Beyl <mb@exept.de> parents: 3629 diff changeset	664
1277 f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	665	manufacturer
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	666	"return the value of the instance variable 'manufacturer' (automatically generated)"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	667
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	668	^ manufacturer
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	669
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	670	"Created: 25.1.1997 / 03:12:43 / cg"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	671	!
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	672
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	673	manufacturer:something
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	674	"set the value of the instance variable 'manufacturer' (automatically generated)"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	675
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	676	manufacturer := something.
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	677
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	678	"Created: 25.1.1997 / 03:12:43 / cg"
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	679	!
f79716195219 more ST-80 stuff Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	680
5185 c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	681	sizeUnit
c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	682	"currently returns one of #pt or #px (internal use only)"
c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	683
c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	684	^ sizeUnit ? #pt
c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	685	!
c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	686
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	687	style
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	688	"return the style, a string"
109 ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	689
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	690	^ style
109 ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	691	! !
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	692
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	693	!FontDescription methodsFor:'comparing'!
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	694
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	695	= aFont
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	696	"two fonts are considered equal, if the font-name components are;
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	697	independent of the device, the font is on"
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	698
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	699	(aFont species == self species) ifTrue:[
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	700	(size == aFont size) ifTrue:[
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	701	(family = aFont family) ifTrue:[
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	702	(face = aFont face) ifTrue:[
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	703	(style = aFont style) ifTrue:[
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	704	(encoding == aFont encoding) ifTrue:[
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	705	^ true
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	706	]
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	707	]
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	708	]
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	709	]
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	710	]
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	711	].
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	712	^ false
2160 b57a3f138ae3 added #hash Claus Gittinger <cg@exept.de> parents: 1760 diff changeset	713	!
b57a3f138ae3 added #hash Claus Gittinger <cg@exept.de> parents: 1760 diff changeset	714
b57a3f138ae3 added #hash Claus Gittinger <cg@exept.de> parents: 1760 diff changeset	715	hash
b57a3f138ae3 added #hash Claus Gittinger <cg@exept.de> parents: 1760 diff changeset	716	"return a number for hashing - req'd since = is redefined."
b57a3f138ae3 added #hash Claus Gittinger <cg@exept.de> parents: 1760 diff changeset	717
2771 25c96682a2f3 really avoid LargeInteger arithmetic Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	718	^ ( (family hash bitAnd:16r1FFFFFFF)
25c96682a2f3 really avoid LargeInteger arithmetic Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	719	+ (face hash bitAnd:16r1FFFFFFF)
25c96682a2f3 really avoid LargeInteger arithmetic Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	720	+ (style hash bitAnd:16r1FFFFFFF)
3019 6dc6821c111c oops - care for fractional size in #hash Claus Gittinger <cg@exept.de> parents: 2980 diff changeset	721	+ (size ? 0) asInteger) bitAnd:16r3FFFFFFF
2160 b57a3f138ae3 added #hash Claus Gittinger <cg@exept.de> parents: 1760 diff changeset	722
b57a3f138ae3 added #hash Claus Gittinger <cg@exept.de> parents: 1760 diff changeset	723	"Created: / 19.6.1998 / 04:19:06 / cg"
2164 2bd89f5166a9 oops - fixed #hash. Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	724	"Modified: / 20.6.1998 / 17:04:00 / cg"
5166 a9cd84083df5 preps for pixelSized fonts Claus Gittinger <cg@exept.de> parents: 5165 diff changeset	725	!
a9cd84083df5 preps for pixelSized fonts Claus Gittinger <cg@exept.de> parents: 5165 diff changeset	726
a9cd84083df5 preps for pixelSized fonts Claus Gittinger <cg@exept.de> parents: 5165 diff changeset	727	sameDeviceFontAs:aFont
a9cd84083df5 preps for pixelSized fonts Claus Gittinger <cg@exept.de> parents: 5165 diff changeset	728	(family = aFont family) ifFalse:[ ^ false ].
a9cd84083df5 preps for pixelSized fonts Claus Gittinger <cg@exept.de> parents: 5165 diff changeset	729	(face = aFont face) ifFalse:[ ^ false ].
a9cd84083df5 preps for pixelSized fonts Claus Gittinger <cg@exept.de> parents: 5165 diff changeset	730	((style = aFont style)
a9cd84083df5 preps for pixelSized fonts Claus Gittinger <cg@exept.de> parents: 5165 diff changeset	731	or:[ (style = 'italic' and:[aFont style = 'oblique'])
a9cd84083df5 preps for pixelSized fonts Claus Gittinger <cg@exept.de> parents: 5165 diff changeset	732	or:[ style = 'oblique' and:[aFont style = 'italic']]]) ifFalse:[ ^ false ].
a9cd84083df5 preps for pixelSized fonts Claus Gittinger <cg@exept.de> parents: 5165 diff changeset	733	(encoding isNil or:[encoding = aFont encoding]) ifFalse:[ ^ false ].
5185 c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	734	(sizeUnit ? #pt) = aFont sizeUnit ifFalse:[ ^ false ].
5191 d3b4c72a8871 changed #sameDeviceFontAs: Claus Gittinger <cg@exept.de> parents: 5185 diff changeset	735	(sizeUnit ? #pt) == #pt ifTrue:[
d3b4c72a8871 changed #sameDeviceFontAs: Claus Gittinger <cg@exept.de> parents: 5185 diff changeset	736	(size = aFont size) ifFalse:[ ^ false ].
d3b4c72a8871 changed #sameDeviceFontAs: Claus Gittinger <cg@exept.de> parents: 5185 diff changeset	737	] ifFalse:[
d3b4c72a8871 changed #sameDeviceFontAs: Claus Gittinger <cg@exept.de> parents: 5185 diff changeset	738	(pixelSize = aFont pixelSize) ifFalse:[ ^ false ].
d3b4c72a8871 changed #sameDeviceFontAs: Claus Gittinger <cg@exept.de> parents: 5185 diff changeset	739	].
5166 a9cd84083df5 preps for pixelSized fonts Claus Gittinger <cg@exept.de> parents: 5165 diff changeset	740	^ true
109 ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	741	! !
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	742
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	743	!FontDescription methodsFor:'converting'!
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	744
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	745	asBold
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	746	"return the bold font corresponding to the receiver"
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	747
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	748	^ self asFace:'bold'
4627 c3992b15969c asBold / asItalic return device fonts, if the receiver is one. Claus Gittinger <cg@exept.de> parents: 4626 diff changeset	749	!
c3992b15969c asBold / asItalic return device fonts, if the receiver is one. Claus Gittinger <cg@exept.de> parents: 4626 diff changeset	750
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	751	asFace:anotherFace
4894 37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	752	"return the bold font corresponding to the receiver"
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	753
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	754	family isNil ifTrue:[
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	755	"CompoundFonts do not have a family"
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	756	^ self
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	757	].
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	758	^ (self class
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	759	family:family
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	760	face:anotherFace
4894 37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	761	style:style
5185 c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	762	size:(sizeUnit == #px ifTrue:[pixelSize] ifFalse:[size])
c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	763	sizeUnit:sizeUnit
4894 37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	764	encoding:encoding) onDevice:self graphicsDevice.
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	765	!
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	766
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	767	asFamily:anotherFamily
4894 37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	768	"return another font corresponding to the receiver face, style and size but
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	769	with another family"
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	770
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	771	family isNil ifTrue:[
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	772	"CompoundFonts do not have a family"
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	773	^ self
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	774	].
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	775	^ (self class
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	776	family:anotherFamily
4894 37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	777	face:face
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	778	style:style
5185 c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	779	size:(sizeUnit == #px ifTrue:[pixelSize] ifFalse:[size])
c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	780	sizeUnit:sizeUnit
4894 37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	781	encoding:encoding) onDevice:self graphicsDevice.
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	782	!
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	783
5196 90aeedb2a2b7 * empty log message * Claus Gittinger <cg@exept.de> parents: 5191 diff changeset	784	asFontWithPixelSize:anotherSize
5185 c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	785	"return another font corresponding to the receivers family, face and style but
c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	786	with another pixel size"
c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	787
c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	788	family isNil ifTrue:[
c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	789	"CompoundFonts do not have a family"
c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	790	^ self
c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	791	].
c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	792	^ (self class
c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	793	family:family
c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	794	face:face
c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	795	style:style
c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	796	size:anotherSize
c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	797	sizeUnit:#px
c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	798	encoding:encoding) onDevice:self graphicsDevice.
c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	799	!
c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	800
5196 90aeedb2a2b7 * empty log message * Claus Gittinger <cg@exept.de> parents: 5191 diff changeset	801	asItalic
90aeedb2a2b7 * empty log message * Claus Gittinger <cg@exept.de> parents: 5191 diff changeset	802	"return the italic font corresponding to the receiver"
90aeedb2a2b7 * empty log message * Claus Gittinger <cg@exept.de> parents: 5191 diff changeset	803
5223 36e00ebd27fc changed #asItalic - have to change style instead of face Stefan Vogel <sv@exept.de> parents: 5196 diff changeset	804	^ self asStyle:'oblique'
5196 90aeedb2a2b7 * empty log message * Claus Gittinger <cg@exept.de> parents: 5191 diff changeset	805	!
90aeedb2a2b7 * empty log message * Claus Gittinger <cg@exept.de> parents: 5191 diff changeset	806
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	807	asSize:anotherSize
4894 37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	808	"return another font corresponding to the receivers family, face and style but
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	809	with another size"
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	810
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	811	family isNil ifTrue:[
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	812	"CompoundFonts do not have a family"
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	813	^ self
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	814	].
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	815	^ (self class
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	816	family:family
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	817	face:face
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	818	style:style
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	819	size:anotherSize
5185 c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	820	sizeUnit:#pt
4894 37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	821	encoding:encoding) onDevice:self graphicsDevice.
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	822	!
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	823
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	824	asStyle:anotherStyle
4894 37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	825	family isNil ifTrue:[
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	826	"CompoundFonts do not have a family"
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	827	^ self
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	828	].
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	829	^ (self class
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	830	family:family
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	831	face:face
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	832	style:anotherStyle
5185 c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	833	size:(sizeUnit == #px ifTrue:[pixelSize] ifFalse:[size])
c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	834	sizeUnit:sizeUnit
4894 37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	835	encoding:encoding) onDevice:self graphicsDevice.
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	836
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	837	"Modified: / 27-09-2006 / 13:08:11 / cg"
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	838	!
37a8c77e6206 * empty log message * Claus Gittinger <cg@exept.de> parents: 4892 diff changeset	839
4297 10b461a37e26 added encoding to literal vector Claus Gittinger <cg@exept.de> parents: 4146 diff changeset	840	fromLiteralArrayEncoding:literalEncoding
2436 4ef8d33c8951 * empty log message * Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	841	"read my contents from a aLiteralEncodedArray.
4ef8d33c8951 * empty log message * Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	842	Must match to what is generated in #literalArrayEncoding"
1740 804c5b51ec29 fromLiteralArrayEncoding: ca parents: 1618 diff changeset	843
4297 10b461a37e26 added encoding to literal vector Claus Gittinger <cg@exept.de> parents: 4146 diff changeset	844	family := literalEncoding at:2.
10b461a37e26 added encoding to literal vector Claus Gittinger <cg@exept.de> parents: 4146 diff changeset	845	face := literalEncoding at:3.
10b461a37e26 added encoding to literal vector Claus Gittinger <cg@exept.de> parents: 4146 diff changeset	846	style := literalEncoding at:4.
10b461a37e26 added encoding to literal vector Claus Gittinger <cg@exept.de> parents: 4146 diff changeset	847	size := literalEncoding at:5.
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	848	"/ the following kludge is for backward compatibility
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	849	"/ do not cleanup !!
4297 10b461a37e26 added encoding to literal vector Claus Gittinger <cg@exept.de> parents: 4146 diff changeset	850	literalEncoding size > 5 ifTrue:[
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	851	literalEncoding size > 6 ifTrue:[
5185 c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	852	sizeUnit := literalEncoding at:7.
c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	853	literalEncoding size > 7 ifTrue:[
c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	854	pixelSize := literalEncoding at:8.
c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	855	].
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	856	].
4297 10b461a37e26 added encoding to literal vector Claus Gittinger <cg@exept.de> parents: 4146 diff changeset	857	encoding := literalEncoding at:6
4298 2b347bca3941 encoding Claus Gittinger <cg@exept.de> parents: 4297 diff changeset	858	] ifFalse:[
2b347bca3941 encoding Claus Gittinger <cg@exept.de> parents: 4297 diff changeset	859	encoding := #'iso8859-1'
4297 10b461a37e26 added encoding to literal vector Claus Gittinger <cg@exept.de> parents: 4146 diff changeset	860	].
1740 804c5b51ec29 fromLiteralArrayEncoding: ca parents: 1618 diff changeset	861	!
804c5b51ec29 fromLiteralArrayEncoding: ca parents: 1618 diff changeset	862
804c5b51ec29 fromLiteralArrayEncoding: ca parents: 1618 diff changeset	863	literalArrayEncoding
2436 4ef8d33c8951 * empty log message * Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	864	"return myself encoded as a literal array.
4ef8d33c8951 * empty log message * Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	865	Must match to what is expected in #fromLiteralArrayEncoding:"
1740 804c5b51ec29 fromLiteralArrayEncoding: ca parents: 1618 diff changeset	866
4298 2b347bca3941 encoding Claus Gittinger <cg@exept.de> parents: 4297 diff changeset	867	\|myName\|
2b347bca3941 encoding Claus Gittinger <cg@exept.de> parents: 4297 diff changeset	868
4532 81d5a57183bd Fix comments. Stefan Vogel <sv@exept.de> parents: 4526 diff changeset	869	myName := self class name.
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	870	"/ see comment in #fromLiteralArrayEncoding
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	871	"/ do not cleanup !!
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	872	(pixelSize isNil
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	873	and:[ encoding == #'iso8859-1' ]) ifTrue:[
4298 2b347bca3941 encoding Claus Gittinger <cg@exept.de> parents: 4297 diff changeset	874	^ Array
2b347bca3941 encoding Claus Gittinger <cg@exept.de> parents: 4297 diff changeset	875	with:myName
2b347bca3941 encoding Claus Gittinger <cg@exept.de> parents: 4297 diff changeset	876	with:family
2b347bca3941 encoding Claus Gittinger <cg@exept.de> parents: 4297 diff changeset	877	with:face
2b347bca3941 encoding Claus Gittinger <cg@exept.de> parents: 4297 diff changeset	878	with:style
2b347bca3941 encoding Claus Gittinger <cg@exept.de> parents: 4297 diff changeset	879	with:size
2b347bca3941 encoding Claus Gittinger <cg@exept.de> parents: 4297 diff changeset	880	].
5185 c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	881	(pixelSize isNil and:[self sizeUnit == #pt]) ifTrue:[
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	882	^ Array
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	883	with:myName
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	884	with:family
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	885	with:face
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	886	with:style
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	887	with:size
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	888	with:encoding
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	889	].
1740 804c5b51ec29 fromLiteralArrayEncoding: ca parents: 1618 diff changeset	890	^ Array
4298 2b347bca3941 encoding Claus Gittinger <cg@exept.de> parents: 4297 diff changeset	891	with:myName
1740 804c5b51ec29 fromLiteralArrayEncoding: ca parents: 1618 diff changeset	892	with:family
804c5b51ec29 fromLiteralArrayEncoding: ca parents: 1618 diff changeset	893	with:face
804c5b51ec29 fromLiteralArrayEncoding: ca parents: 1618 diff changeset	894	with:style
804c5b51ec29 fromLiteralArrayEncoding: ca parents: 1618 diff changeset	895	with:size
4297 10b461a37e26 added encoding to literal vector Claus Gittinger <cg@exept.de> parents: 4146 diff changeset	896	with:encoding
5185 c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	897	with:sizeUnit
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	898	with:pixelSize
1740 804c5b51ec29 fromLiteralArrayEncoding: ca parents: 1618 diff changeset	899	!
804c5b51ec29 fromLiteralArrayEncoding: ca parents: 1618 diff changeset	900
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	901	on:aDevice
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	902	"given the receiver, return a device Font"
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	903
3623 16665d9b7263 #on: -> #onDevice Claus Gittinger <cg@exept.de> parents: 3265 diff changeset	904	"/ send out a warning: #on: is typically used to create views
16665d9b7263 #on: -> #onDevice Claus Gittinger <cg@exept.de> parents: 3265 diff changeset	905	"/ operating on a model.
16665d9b7263 #on: -> #onDevice Claus Gittinger <cg@exept.de> parents: 3265 diff changeset	906	"/ Please use #onDevice: to avoid confusion.
16665d9b7263 #on: -> #onDevice Claus Gittinger <cg@exept.de> parents: 3265 diff changeset	907
16665d9b7263 #on: -> #onDevice Claus Gittinger <cg@exept.de> parents: 3265 diff changeset	908	<resource:#obsolete>
16665d9b7263 #on: -> #onDevice Claus Gittinger <cg@exept.de> parents: 3265 diff changeset	909
16665d9b7263 #on: -> #onDevice Claus Gittinger <cg@exept.de> parents: 3265 diff changeset	910	self obsoleteMethodWarning:'use #onDevice:'.
3629 9d06228191a6 Fix obsolete methods Stefan Vogel <sv@exept.de> parents: 3623 diff changeset	911	^ self onDevice:aDevice.
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	912	!
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	913
1497 697ac9b15962 added #onDevice: for protocol completeness. Claus Gittinger <cg@exept.de> parents: 1277 diff changeset	914	onDevice:aDevice
697ac9b15962 added #onDevice: for protocol completeness. Claus Gittinger <cg@exept.de> parents: 1277 diff changeset	915	"given the receiver, return a device Font"
697ac9b15962 added #onDevice: for protocol completeness. Claus Gittinger <cg@exept.de> parents: 1277 diff changeset	916
2980 409e9547a45c ignore nil device in #onDevice: Claus Gittinger <cg@exept.de> parents: 2934 diff changeset	917	aDevice isNil ifTrue:[^ self].
3629 9d06228191a6 Fix obsolete methods Stefan Vogel <sv@exept.de> parents: 3623 diff changeset	918	^ (Font
9d06228191a6 Fix obsolete methods Stefan Vogel <sv@exept.de> parents: 3623 diff changeset	919	family:family
9d06228191a6 Fix obsolete methods Stefan Vogel <sv@exept.de> parents: 3623 diff changeset	920	face:face
9d06228191a6 Fix obsolete methods Stefan Vogel <sv@exept.de> parents: 3623 diff changeset	921	style:style
5185 c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	922	size:(sizeUnit == #px ifTrue:[pixelSize] ifFalse:[size])
c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	923	sizeUnit:sizeUnit
3629 9d06228191a6 Fix obsolete methods Stefan Vogel <sv@exept.de> parents: 3623 diff changeset	924	encoding:encoding) onDevice:aDevice
1497 697ac9b15962 added #onDevice: for protocol completeness. Claus Gittinger <cg@exept.de> parents: 1277 diff changeset	925
697ac9b15962 added #onDevice: for protocol completeness. Claus Gittinger <cg@exept.de> parents: 1277 diff changeset	926	"Created: 28.3.1997 / 16:09:30 / cg"
697ac9b15962 added #onDevice: for protocol completeness. Claus Gittinger <cg@exept.de> parents: 1277 diff changeset	927	!
697ac9b15962 added #onDevice: for protocol completeness. Claus Gittinger <cg@exept.de> parents: 1277 diff changeset	928
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	929	size:anotherSize
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	930	<resource: #obsolete>
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	931
109 ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	932	"return a font corresponding to the receiver, but with different size."
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	933
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	934	self obsoleteMethodWarning:'use #asSize:'.
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	935
109 ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	936	^ self class
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	937	family:family
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	938	face:face
ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	939	style:style
5185 c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	940	size:anotherSize
c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	941	sizeUnit:#pt
5169 ad531e713603 pixelSized font preps Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	942	encoding:encoding
109 ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	943	! !
ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	944
2544 8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	945	!FontDescription methodsFor:'displaying'!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	946
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	947	displayOpaqueString:aString from:index1 to:index2 x:x y:y in:aGC
3663 d40999d6cd1e refactored Michael Beyl <mb@exept.de> parents: 3661 diff changeset	948	"display a partial string at some position in aGC.
d40999d6cd1e refactored Michael Beyl <mb@exept.de> parents: 3661 diff changeset	949	- display part of a string, drawing both fore- and background pixels"
2544 8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	950
3663 d40999d6cd1e refactored Michael Beyl <mb@exept.de> parents: 3661 diff changeset	951	self displayString:aString from:index1 to:index2 x:x y:y in:aGC opaque:true
2544 8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	952	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	953
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	954	displayOpaqueString:aString x:x y:y in:aGC
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	955	"display a string at some position in aGC."
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	956
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	957	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	958	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	959
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	960	displayString:aString from:index1 to:index2 x:x y:y in:aGC
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	961	"display a partial string at some position in aGC."
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	962
3663 d40999d6cd1e refactored Michael Beyl <mb@exept.de> parents: 3661 diff changeset	963	self displayString:aString from:index1 to:index2 x:x y:y in:aGC opaque:false
d40999d6cd1e refactored Michael Beyl <mb@exept.de> parents: 3661 diff changeset	964	!
d40999d6cd1e refactored Michael Beyl <mb@exept.de> parents: 3661 diff changeset	965
d40999d6cd1e refactored Michael Beyl <mb@exept.de> parents: 3661 diff changeset	966	displayString:aString from:index1 to:index2 x:x y:y in:aGC opaque:opaque
d40999d6cd1e refactored Michael Beyl <mb@exept.de> parents: 3661 diff changeset	967	"display a partial string at some position in aGC."
d40999d6cd1e refactored Michael Beyl <mb@exept.de> parents: 3661 diff changeset	968
2544 8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	969	self subclassResponsibility
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	970	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	971
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	972	displayString:aString x:x y:y in:aGC
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	973	"display a string at some position in aGC."
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	974
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	975	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	976
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	977	! !
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	978
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	979	!FontDescription methodsFor:'errors'!
109 ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	980
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	981	errorNoDevice
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	982	"a query was made for device-specific info"
109 ba47d9d6bda8 * empty log message * claus parents: 89 diff changeset	983
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	984	"
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	985	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	986	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	987	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	988	associated to a device.
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	989	You should always use
3159 3b040b0e4ae4 Fix error string 'for for' Stefan Vogel <sv@exept.de> parents: 3144 diff changeset	990	font := font on:someDevice
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	991	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	992	"
3159 3b040b0e4ae4 Fix error string 'for for' Stefan Vogel <sv@exept.de> parents: 3144 diff changeset	993	self error:'query device independent font for device specific info'
3b040b0e4ae4 Fix error string 'for for' Stefan Vogel <sv@exept.de> parents: 3144 diff changeset	994
3b040b0e4ae4 Fix error string 'for for' Stefan Vogel <sv@exept.de> parents: 3144 diff changeset	995	"Modified: / 27.1.2000 / 16:55:05 / stefan"
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	996	! !
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	997
3785 045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	998	!FontDescription methodsFor:'getting a device font'!
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	999
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	1000	onDevice:aDevice ifAbsent:exceptionBlock
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	1001	"create a new Font representing the same font as
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	1002	myself on aDevice. This does NOT try to look for existing
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	1003	or replacement fonts (i.e. can be used to get physical fonts)."
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	1004
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	1005	\|newFont id\|
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	1006
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	1007	"ask that device for the font"
5166 a9cd84083df5 preps for pixelSized fonts Claus Gittinger <cg@exept.de> parents: 5165 diff changeset	1008	id := aDevice
a9cd84083df5 preps for pixelSized fonts Claus Gittinger <cg@exept.de> parents: 5165 diff changeset	1009	getFontWithFamily:family
a9cd84083df5 preps for pixelSized fonts Claus Gittinger <cg@exept.de> parents: 5165 diff changeset	1010	face:face
a9cd84083df5 preps for pixelSized fonts Claus Gittinger <cg@exept.de> parents: 5165 diff changeset	1011	style:style
5185 c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	1012	size:(sizeUnit == #px ifTrue:[pixelSize] ifFalse:[size])
c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	1013	sizeUnit:sizeUnit
5166 a9cd84083df5 preps for pixelSized fonts Claus Gittinger <cg@exept.de> parents: 5165 diff changeset	1014	encoding:encoding.
3785 045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	1015	id isNil ifTrue:[
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	1016	"oops did not work - (device has no such font)"
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	1017
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	1018	^ exceptionBlock value
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	1019	].
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	1020
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	1021	newFont := (Font basicNew)
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	1022	setFamily:family
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	1023	face:face
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	1024	style:style
5185 c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	1025	size:(sizeUnit == #px ifTrue:[pixelSize] ifFalse:[size])
c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	1026	sizeUnit:sizeUnit
3785 045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	1027	encoding:encoding
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	1028	device:aDevice.
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	1029	newFont setFontId:id.
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	1030	newFont getFontInfos.
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	1031	aDevice registerFont:newFont.
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	1032	^ newFont
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	1033	! !
045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	1034
1618 044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	1035	!FontDescription methodsFor:'printing & storing'!
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	1036
3991 9810f304f469 printString Claus Gittinger <cg@exept.de> parents: 3989 diff changeset	1037	printOn:aStream
9810f304f469 printString Claus Gittinger <cg@exept.de> parents: 3989 diff changeset	1038	"append a user-friendly representation of the receiver to aStream"
9810f304f469 printString Claus Gittinger <cg@exept.de> parents: 3989 diff changeset	1039
9810f304f469 printString Claus Gittinger <cg@exept.de> parents: 3989 diff changeset	1040	aStream nextPutAll:self userFriendlyName
9810f304f469 printString Claus Gittinger <cg@exept.de> parents: 3989 diff changeset	1041	!
9810f304f469 printString Claus Gittinger <cg@exept.de> parents: 3989 diff changeset	1042
1618 044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	1043	userFriendlyName
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	1044	"return a user-friendly printed representation of the receiver"
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	1045
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	1046	\|nm\|
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	1047
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	1048	nm := family.
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	1049	face notNil ifTrue:[
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	1050	nm := nm , '-', face.
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	1051	].
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	1052	style notNil ifTrue:[
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	1053	nm := nm , '-', style.
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	1054	].
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	1055	size notNil ifTrue:[
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	1056	nm := nm , '-', size printString.
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	1057	].
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	1058	encoding notNil ifTrue:[
3991 9810f304f469 printString Claus Gittinger <cg@exept.de> parents: 3989 diff changeset	1059	nm := nm , '(', encoding , ')'.
1618 044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	1060	].
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	1061	^ nm
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	1062
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	1063	"
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	1064	View defaultFont userFriendlyName
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	1065	Button defaultFont userFriendlyName
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	1066	"
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	1067
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	1068	"Modified: 20.4.1996 / 23:25:36 / cg"
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	1069	"Created: 19.4.1997 / 18:09:25 / cg"
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	1070	! !
044de84f0d5f moved userFriendlyName up Claus Gittinger <cg@exept.de> parents: 1585 diff changeset	1071
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1072	!FontDescription methodsFor:'queries'!
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1073
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1074	bold
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1075	"return true, if the receiver is a bold font -
1585 7892ed31d333 fixed #italic and #bold Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	1076	Added for st-80 compatibility."
7892ed31d333 fixed #italic and #bold Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	1077
7892ed31d333 fixed #italic and #bold Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	1078	"/ 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	1079
1275 9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	1080	^ face = 'bold'
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	1081
1585 7892ed31d333 fixed #italic and #bold Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	1082	"Modified: 11.4.1997 / 21:31:25 / cg"
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1083	!
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1084
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1085	boldness
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1086	"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	1087	Added for st-80 compatibility"
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1088
1585 7892ed31d333 fixed #italic and #bold Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	1089	"/ 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	1090
7892ed31d333 fixed #italic and #bold Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	1091	face = 'roman' ifTrue:[^ 0.5].
7892ed31d333 fixed #italic and #bold Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	1092	face = 'normal' ifTrue:[^ 0.5].
7892ed31d333 fixed #italic and #bold Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	1093	face = 'bold' ifTrue:[^ 0.75].
7892ed31d333 fixed #italic and #bold Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	1094	face = 'light' ifTrue:[^ 0.25].
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1095	^ 0.5
1275 9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	1096
1585 7892ed31d333 fixed #italic and #bold Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	1097	"Modified: 11.4.1997 / 21:31:31 / cg"
1275 9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	1098	!
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	1099
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	1100	color
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	1101	"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	1102	Added for st-80 compatibility.
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	1103	For now always black."
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	1104
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	1105	^ Color black
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	1106
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	1107	"Created: 25.1.1997 / 02:59:15 / cg"
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	1108	"Modified: 25.1.1997 / 03:02:14 / cg"
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1109	!
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1110
2544 8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1111	existsOn:aDevice
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1112	"return true, if the recevier is available on aDevice;
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1113	false otherwise. This is a kludge method; its better to
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1114	ask a device for its available fonts and use this info ...
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1115	Notice, that if you simply use a font by name, the system
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1116	will automatically take a replacement font."
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1117
3629 9d06228191a6 Fix obsolete methods Stefan Vogel <sv@exept.de> parents: 3623 diff changeset	1118	^ ((Font
9d06228191a6 Fix obsolete methods Stefan Vogel <sv@exept.de> parents: 3623 diff changeset	1119	family:family
9d06228191a6 Fix obsolete methods Stefan Vogel <sv@exept.de> parents: 3623 diff changeset	1120	face:face
9d06228191a6 Fix obsolete methods Stefan Vogel <sv@exept.de> parents: 3623 diff changeset	1121	style:style
5185 c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	1122	size:(sizeUnit == #px ifTrue:[pixelSize] ifFalse:[size])
c807ae478014 pixelSize stuff Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	1123	sizeUnit:sizeUnit
3629 9d06228191a6 Fix obsolete methods Stefan Vogel <sv@exept.de> parents: 3623 diff changeset	1124	encoding:encoding) onDevice:aDevice ifAbsent:nil) notNil
2544 8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1125	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1126
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1127	fullName
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1128	^ nil
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1129
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1130	"Created: 23.2.1996 / 00:45:45 / cg"
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1131	!
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1132
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1133	italic
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1134	"return true if this is an italic font -
1585 7892ed31d333 fixed #italic and #bold Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	1135	Added for st-80 compatibility"
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1136
1585 7892ed31d333 fixed #italic and #bold Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	1137	"/ 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	1138
7892ed31d333 fixed #italic and #bold Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	1139	style = 'italic' ifTrue:[^ true].
3246 213e4771d6fb typo fixed Claus Gittinger <cg@exept.de> parents: 3159 diff changeset	1140	style = 'oblique' ifTrue:[^ true].
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1141	^ false
1275 9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	1142
1585 7892ed31d333 fixed #italic and #bold Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	1143	"Modified: 11.4.1997 / 21:31:42 / cg"
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1144	!
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1145
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1146	serif
1275 9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	1147	"return true, if this font has serifs.
1585 7892ed31d333 fixed #italic and #bold Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	1148	Added for st-80 compatibility"
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1149
1585 7892ed31d333 fixed #italic and #bold Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	1150	"/ 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	1151
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1152	family = 'Times' ifTrue:[^ true].
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1153	family = 'times' ifTrue:[^ true].
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1154	^ false.
1275 9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	1155
1585 7892ed31d333 fixed #italic and #bold Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	1156	"Modified: 11.4.1997 / 21:31:51 / cg"
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1157	!
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1158
3265 408fac627dc4 category change Claus Gittinger <cg@exept.de> parents: 3254 diff changeset	1159	size
408fac627dc4 category change Claus Gittinger <cg@exept.de> parents: 3254 diff changeset	1160	"return the size, a number"
408fac627dc4 category change Claus Gittinger <cg@exept.de> parents: 3254 diff changeset	1161
408fac627dc4 category change Claus Gittinger <cg@exept.de> parents: 3254 diff changeset	1162	^ size
408fac627dc4 category change Claus Gittinger <cg@exept.de> parents: 3254 diff changeset	1163	!
408fac627dc4 category change Claus Gittinger <cg@exept.de> parents: 3254 diff changeset	1164
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1165	species
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1166	^ Font
1275 9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	1167	!
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	1168
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	1169	underline
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	1170	"return true if this is an underlined font -
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	1171	Added for st-80 compatibility
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	1172	(always false here)"
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	1173
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	1174	^ false
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	1175
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	1176	"Created: 25.1.1997 / 02:58:30 / cg"
9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	1177	"Modified: 25.1.1997 / 03:01:12 / cg"
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1178	! !
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1179
2544 8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1180	!FontDescription methodsFor:'queries-dimensions'!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1181
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1182	ascent
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1183	"return the ascent - the number of pixels above the baseLine."
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1184
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1185	^ self subclassResponsibility
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1186	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1187
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1188	ascentOn:aDevice
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1189	"return the ascent - the number of pixels above the baseLine."
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1190
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1191	^ (self onDevice:aDevice) ascent
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1192	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1193
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1194	descent
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1195	"return the descent - the number of pixels below the baseLine."
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1196
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1197	^ self subclassResponsibility
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1198	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1199
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1200	descentOn:aDevice
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1201	"return the ascent - the number of pixels above the baseLine."
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1202
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1203	^ (self onDevice:aDevice) descent
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1204
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1205
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1206	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1207
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1208	height
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1209	"return the height - the number of pixels above plus below the baseLine."
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1210
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1211	^ self subclassResponsibility
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1212	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1213
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1214	heightOf:aString
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1215	"return the height of the given string.
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1216	Here, assume the characters are of constant height"
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1217
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1218	^ self height
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1219	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1220
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1221	heightOf:aString on:aDevice
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1222	"return the height of the given string on the given device."
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1223
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1224	^ (self onDevice:aDevice) heightOf:aString
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1225	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1226
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1227	heightOn:aDevice
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1228	"return the height - the number of pixels above PLUS below the baseLine."
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1229
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1230	^ (self onDevice:aDevice) height
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1231	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1232
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1233	isFixedWidth
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1234	"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	1235	are of the same width)"
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1236
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1237	self subclassResponsibility
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1238	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1239
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1240	maxAscent
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1241	"return the fonts maximum-ascent (i.e. the maximum of all characters);
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1242	That is the number of units (usually pixels) above the baseline."
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1243
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1244	^ self subclassResponsibility
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1245
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1246	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1247
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1248	maxDescent
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1249	"return the fonts maximum-descent (i.e. the maximum of all characters);
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1250	That is the number of units (usually pixels) below the baseline."
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1251
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1252	^ self subclassResponsibility
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1253
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1254	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1255
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1256	maxHeight
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1257	"return the fonts characters maximum height;
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1258	That is the number of units (usually pixels)."
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1259
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1260	^ self maxAscent + self maxDescent
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1261
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1262	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1263
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1264	maxWidth
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1265	"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	1266	That is a number of units (usually pixels)."
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1267
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1268	^ self subclassResponsibility
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1269
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1270	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1271
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1272	width
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1273	"return the fonts characters width;
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1274	That is a number of units (usually pixels).
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1275	For variable pitch fonts, the width of the space character is returned.
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1276	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	1277	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	1278
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1279	^ self widthOf:' '
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1280
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1281	"Modified: 30.4.1996 / 16:43:45 / cg"
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1282
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1283
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1284	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1285
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1286	widthOf:aString
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1287	"return the width of a string"
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1288
3667 53ebf11c6dd9 widthOf fixed for Text-item Michael Beyl <mb@exept.de> parents: 3663 diff changeset	1289	^ self widthOf:aString string from:1 to:aString size
2544 8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1290
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1291
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1292	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1293
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1294	widthOf:aString from:start to:stop
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1295	"return the width of a sub string"
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1296
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1297	^ self subclassResponsibility
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1298
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1299
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1300	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1301
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1302	widthOf:aString from:start to:stop on:aDevice
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1303	"return the width of a sub string.
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1304	Here, assume that this fonts width is device independent."
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1305
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1306	^ (self onDevice:aDevice) widthOf:aString from:start to:stop
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1307
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1308
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1309	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1310
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1311	widthOf:aString on:aDevice
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1312	"return the width of a string"
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1313
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1314	^ (self onDevice:aDevice) widthOf:aString
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1315
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1316
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1317
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1318
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1319
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1320	!
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1321
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1322	widthOn:aDevice
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1323	"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	1324	(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	1325
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1326	^ (self onDevice:aDevice) width
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1327	! !
8fdf3d873964 code refactoring Claus Gittinger <cg@exept.de> parents: 2436 diff changeset	1328
456 3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1329	!FontDescription methodsFor:'queries-encoding'!
3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1330
3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1331	isASCII
576 6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	1332	"return true, if the receivers encoding is
6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	1333	compatible with ascii (i.e. its ascii or iso8859)"
6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	1334
456 3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1335	^ (encoding == #iso8859) or:[encoding == #ascii]
3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1336
3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1337	"Created: 24.2.1996 / 22:47:30 / cg"
576 6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	1338	"Modified: 20.4.1996 / 23:20:01 / cg"
456 3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1339	!
3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1340
3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1341	isISO8859
576 6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	1342	"return true, if the receivers encoding is
6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	1343	compatible with iso8859 (i.e. iso8859)"
6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	1344
456 3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1345	^ encoding == #iso8859
3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1346
3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1347	"Created: 24.2.1996 / 22:47:12 / cg"
576 6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	1348	"Modified: 20.4.1996 / 23:20:13 / cg"
456 3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1349	!
3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1350
3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1351	isJIS
576 6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	1352	"return true, if the receivers encoding is
6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	1353	compatible with jis (i.e. jisXXX)"
6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	1354
456 3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1355	^ (encoding startsWith:'jis')
3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1356
3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1357	"Created: 24.2.1996 / 22:47:47 / cg"
576 6a7392220976 commentary Claus Gittinger <cg@exept.de> parents: 575 diff changeset	1358	"Modified: 20.4.1996 / 23:20:30 / cg"
456 3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1359	! !
3ab60f26b5a1 checkin from browser Claus Gittinger <cg@exept.de> parents: 437 diff changeset	1360
1275 9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	1361	!FontDescription class methodsFor:'documentation'!
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1362
a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1363	version
5223 36e00ebd27fc changed #asItalic - have to change style instead of face Stefan Vogel <sv@exept.de> parents: 5196 diff changeset	1364	^ '$Header: /cvs/stx/stx/libview/FontDescription.st,v 1.71 2009-03-17 17:56:05 stefan Exp $'
437 a81ce3a8038b return dummy default encoding & fullNames Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1365	! !
3785 045a05c6abbe onDevice:ifAbsent: Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	1366
1275 9c3461bb0232 more ST-80 mimicri Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	1367	FontDescription initialize!

author	Stefan Vogel <sv@exept.de>
	Tue, 17 Mar 2009 18:56:05 +0100
changeset 5223	36e00ebd27fc
parent 5196	90aeedb2a2b7
child 5441	04ebe289a7e0
permissions	-rw-r--r--