global_g.class

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

//                                  global_g
//
//  Globals for the graph system

*! version 1.1.0  08jan2005

version 8

class {
	graphlist	= ""
	current_graph	= ""
} , inherit(object)


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

program set
	gettoken clsvar value : 0

	if "`.`clsvar'.isa'" == "" {
		.Declare `clsvar' = `value'
	}
	else {
		.`clsvar' = `value'
	}
end

// ---------------------------------------------------------------------------
// Fetches the current graph.  Note that the top graph window will take
// precedence over the internally tracked graph.  This lets the system work
// both with windowed interfaces and in console mode.

program current_graph_resync

	if      ("`gdi(topwindow)'" == "__BLANK")  class exit ""
	else if ("`gdi(topwindow)'" == "")         class exit "`.current_graph'"
	else {
		.current_graph = "`gdi(topwindow)'"
		class exit "`.current_graph'"
	}
end

// ---------------------------------------------------------------------------
// Sets the current graph, but does not bring the graph window to the top
// that is the caller's responsibility.  Does not check that the supplied name
// is even a graph and some callers avail themselves of this.

program set_current_graph
	args graph

	.current_graph = "`graph'"
end