#------------------------------------------------------------------------
# Compagny	:	4Js
# Developper	:	PM
# Program	:	$PROJET/font.obj
# Date		:	19.04.1995
# Title		:	Description de la classes Font
#------------------------------------------------------------------------

#------------------
# 4Js convenience
#------------------

global _STDDEF
if { $_STDDEF != "OK" } { source stddef.tcl }

#=====================================================================
# Class Font :
#	This is a resource class. It does not herits from Widget,
# because its functionnality has a different sense.
#
# Ce fichier est en plein developpement au 15 09 1995. Version actuelle
# non significative dans son contenu.
#
#.....................................................................

CLASS Font { _name libelle } {
upvar #0 $_name name

puts "Font: creation Fonte $libelle"

#vars :
	set name(int,name)	$libelle

	set name(int,foundry)	adobe
	set name(int,family)	times
	set name(int,weight)	bold
	set name(int,slant)	r
	set name(int,set_width)	normal
	set name(int,style)	""
	set name(int,pixels)	18
	set name(int,points)	180
	set name(int,x_res)	75
	set name(int,y_res)	75
	set name(int,spacing)	p
	set name(int,width)	99
	set name(int,registry)	iso8859
	set name(int,encoding)	1

#methodes :
	set name(meth,create)	{Font}
}

#-----------------------------------------------------------------------

METHODE Define_Font { _name } {
upvar #0 $_name name

set name(int,name) "-$name(int,foundry)-$name(int,family)-$name(int,weight)-$name(int,slant)-$name(int,set_width)-$name(int,style)-$name(int,pixels)-$name(int,points)-$name(int,x_res)-$name(int,y_res)-$name(int,spacing)-$name(int,width)-$name(int,registry)-$name(int,encoding)"
}

#======================================================================