;; | ---------------------------------------------------------------------------
;; | TX_LoadStyle
;; | ---------------------------------------------------------------------------
;; | Function : Loads a given text style with default parameters
;; | Arguments: 'Sty' - Style Name
;; |            'Fnt' - Font file name (make sure that the font file name is
;; |                    available and valid). This function makes no attempt
;; |                    to see if the font is available. It could be an SHX
;; |                    font, a TTF font or 
;; | Returns  : None
;; | Action   : Loads the text style
;; | Updated  : January 4, 2002
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ---------------------------------------------------------------------------


(defun TX_LoadStyle( Sty Fnt / tbl CmdN )

(setq tbl (tblsearch "STYLE" Sty))
(if (not tbl)
(progn
	(command "._Style" Sty Fnt)
	(setq CmdN "STYLE")
	(while (= CmdN "STYLE")
		(setq CmdN (getvar "CMDNAMES"))
		(if (= CmdN "STYLE")
			(command "")
		)
	)
))
)