#------------------------------------------------------------------------ # 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)" } #======================================================================