alignment.class

是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到

/* 				alignment

	Not currently used because it creates a style at a level that is
	does not make for nice named styles.
*/
*! version 1.0.0  30jul2002
version 8

class {
	horizontal = .horizontal.new
	vertical   = .vertical.new
}, inherit(style)


/* ------------------------------------------------------------------------- */

program define new
	.Super.new , `.set `0''
end

program define set

	syntax [, Horizontal(string) Vertical(string) * ]

	if "`horizontal'" != "" {
		.horizontal.setstyle, style(`horizontal')
	}
	if "`vertical'" != "" {
		.vertical.setstyle, style(`vertical')
	}

	cexit `"`options'"'
end