twoway_rbar_parse.class

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

//				twoway_rbar_parse
//
// Parser for rbar views.

*! version 1.0.0 23oct2002

class {
//	barwidth = -1
} , inherit(twoway_y2xview_parse)



// ---------------------------------------------------------------------------

program parse
	if "`.viewtype'" == "" {
		.viewtype = "rbar"
	}
	.Super.parse `0'

/* moved to twoway_y2xview_parse
	local 0 `", `.options'"'
	_parse combop 0 : 0 , option(BARWidth)   rightmost
	syntax [ , MWidth BARWidth(real -1) * ]

	.barwidth = `barwidth'
	if "`mwidth'" != "" {
		.viewtype = "rbarm"
	}
	.options = `"`options'"'
*/
end



/* moved to twoway_y2xview_parse
// ---------------------------------------------------------------------------
//  Pushes onto the specified log any post-creation commands implied by 
//  the parsed syntax that must be applied to the created view.

program log_edits
	args log view i

	.Super.log_edits `log' `view' `i'

	if `.barwidth' != -1 {
		.`log'.Arrpush .`view'.bar_size = `.barwidth'
	}

	.`log'.Arrpush .`view'.register_with_scale
end
*/