gby.idlg

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

BEGIN
	gby.cl_ttlclr.hide
	gby.cl_ttlclr.show
	gby.cl_ttlclr.hide
END

LIST gby_cl_ttlbclr_sel
BEGIN
	gby.cl_ttlbclr.hide
	gby.cl_ttlbclr.show
	gby.cl_ttlbclr.hide
END

LIST gby_cl_ttlblclr_sel
BEGIN
	gby.cl_ttlblclr.hide
	gby.cl_ttlblclr.show
	gby.cl_ttlblclr.hide
END

LIST gby_cl_stlclr_sel
BEGIN
	gby.cl_stlclr.hide
	gby.cl_stlclr.show
	gby.cl_stlclr.hide
END

LIST gby_cl_stlbclr_sel
BEGIN
	gby.cl_stlbclr.hide
	gby.cl_stlbclr.show
	gby.cl_stlbclr.hide
END

LIST gby_cl_stlblclr_sel
BEGIN
	gby.cl_stlblclr.hide
	gby.cl_stlblclr.show
	gby.cl_stlblclr.hide
END

LIST gby_cl_capclr_sel
BEGIN
	gby.cl_capclr.hide
	gby.cl_capclr.show
	gby.cl_capclr.hide
END

LIST gby_cl_capbclr_sel
BEGIN
	gby.cl_capbclr.hide
	gby.cl_capbclr.show
	gby.cl_capbclr.hide
END

LIST gby_cl_capblclr_sel
BEGIN
	gby.cl_capblclr.hide
	gby.cl_capblclr.show
	gby.cl_capblclr.hide
END

LIST gby_cl_notclr_sel
BEGIN
	gby.cl_notclr.hide
	gby.cl_notclr.show
	gby.cl_notclr.hide
END

LIST gby_cl_notbclr_sel
BEGIN
	gby.cl_notbclr.hide
	gby.cl_notbclr.show
	gby.cl_notbclr.hide
END

LIST gby_cl_notblclr_sel
BEGIN
	gby.cl_notblclr.hide
	gby.cl_notblclr.show
	gby.cl_notblclr.hide
END

LIST gby_legend_values
BEGIN
	""
	"on"
	"off"
END

LIST gby_legend_action
BEGIN
	program gby_legend_opt_on
	program gby_legend_opt_on
	script gby_legend_opt_off
END

PROGRAM gby_legend_opt_on
BEGIN
	if !H(gby.cb_legend) {
		call gaction gby.ck_leghole.enable
		if gby.ck_leghole {
			call gaction gby.tx_leghole.enable
			call gaction gby.ed_leghole.enable
		}
		call gaction gby.ck_legspan.enable
		call gaction gby.tx_legpos.enable
		call gaction gby.cb_legpos.enable
	}
END

SCRIPT gby_legend_opt_off
BEGIN
	gby.ck_leghole.disable
	gby.tx_leghole.disable
	gby.ed_leghole.disable
	gby.ck_legspan.disable
	gby.tx_legpos.disable
	gby.cb_legpos.disable
END

/* Begin Region programming */
PROGRAM gby_graph_region_opt_subpr
BEGIN
	if H(gby.cl_gregfclr) {
		optionarg /hidedefault gby.cb_gregfclr
	}
	if !H(gby.cl_gregfclr) {
		optionarg /quoted gby.cl_gregfclr
	}
	if H(gby.cl_greglclr) {
		optionarg /hidedefault gby.cb_greglclr
	}
	if !H(gby.cl_greglclr) {
		optionarg /quoted gby.cl_greglclr
	}
	optionarg /hidedefault gby.cb_greglwd
	optionarg /hidedefault gby.cb_gregmarg
END

PROGRAM gby_plot_region_opt_subpr
BEGIN
	if H(gby.cl_pregfclr) {
		optionarg /hidedefault gby.cb_pregfclr
	}
	if !H(gby.cl_pregfclr) {
		optionarg /quoted gby.cl_pregfclr
	}
	if H(gby.cl_preglclr) {
		optionarg /hidedefault gby.cb_preglclr
	}
	if !H(gby.cl_preglclr) {
		optionarg /quoted gby.cl_preglclr
	}
	optionarg /hidedefault gby.cb_preglwd
	optionarg /hidedefault gby.cb_pregmarg

END
/* End Region programming */

/* Begin Title, Subtitle, Caption, and Note Option Programming */
PROGRAM gby_text_opt_pr
BEGIN
	if gby.ed_title | gby.cb_ttlsize | gby.cb_ttlclr | gby.cb_ttlpos  ///
	   | gby.cb_ttljust | gby.ed_ttlgp | gby.ck_ttlbox {
		put " "  "title("
		put /hidden gby.ed_title
		put /program gby_title_opt_pr
		put ")"
	}
	if gby.ed_stitle | gby.cb_stlsize | gby.cb_stlclr | gby.cb_stlpos  ///
	   | gby.cb_stljust | gby.ed_stlgp | gby.ck_stlbox {
		put " "  "subtitle("
		put /hidden gby.ed_stitle
		put /program gby_subtitle_opt_pr
		put ")"
	}
	if gby.ed_caption | gby.cb_capsize | gby.cb_capclr | gby.cb_cappos  ///
	   | gby.cb_capjust | gby.ed_capgp | gby.ck_capbox {
		put " "  "caption("
		put /hidden gby.ed_caption
		put /program gby_caption_opt_pr
		put ")"
	}
	if gby.ed_note | gby.cb_notsize | gby.cb_notclr | gby.cb_notpos  ///
	   | gby.cb_notjust | gby.ed_notgp | gby.ck_notbox {
		put " "  "note("
		put /hidden gby.ed_note
		put /program gby_note_opt_pr
		put ")"
	}
END
PROGRAM gby_title_opt_pr
BEGIN
	beginoptions
		hoptionarg /hidedefault gby.cb_ttlsize
		if !Hcc(gby.cb_ttlclr) {
			hoptionarg /hidedefault gby.cb_ttlclr
		}
		if Hcc(gby.cb_ttlclr) {
			hoptionarg /quoted gby.cl_ttlclr
		}
	        hoptionarg /hidedefault gby.cb_ttlpos
		hoptionarg /hidedefault gby.cb_ttljust
		hoptionarg gby.ed_ttlgp
		hoption gby.ck_ttlbox
		if !Hcc(gby.cb_ttlbclr) {
			hoptionarg /hidedefault gby.cb_ttlbclr
		}
		if Hcc(gby.cb_ttlbclr) {
			hoptionarg /quoted gby.cl_ttlbclr
		}
		if !Hcc(gby.cb_ttlblclr) {
			hoptionarg /hidedefault gby.cb_ttlblclr
		}
		if Hcc(gby.cb_ttlblclr) {
			hoptionarg /quoted gby.cl_ttlblclr
		}
		hoptionarg gby.cb_ttlmarg
		hoption gby.ck_ttlexp
	endoptions
END

PROGRAM gby_subtitle_opt_pr
BEGIN
	beginoptions
		hoptionarg /hidedefault gby.cb_stlsize
		if !Hcc(gby.cb_stlclr) {
			hoptionarg /hidedefault gby.cb_stlclr
		}
		if Hcc(gby.cb_stlclr) {
			hoptionarg /quoted gby.cl_stlclr
		}
	        hoptionarg /hidedefault gby.cb_stlpos
		hoptionarg /hidedefault gby.cb_stljust
		hoptionarg gby.ed_stlgp
		hoption gby.ck_stlbox
		if !Hcc(gby.cb_stlbclr) {
			hoptionarg /hidedefault gby.cb_stlbclr
		}
		if Hcc(gby.cb_stlbclr) {
			hoptionarg /quoted gby.cl_stlbclr
		}
		if !Hcc(gby.cb_stlblclr) {
			hoptionarg /hidedefault gby.cb_stlblclr
		}
		if Hcc(gby.cb_stlblclr) {
			hoptionarg /quoted gby.cl_stlblclr
		}
		hoptionarg gby.cb_stlmarg
		hoption gby.ck_stlexp
	endoptions
END

PROGRAM gby_caption_opt_pr
BEGIN
	beginoptions
		hoptionarg /hidedefault gby.cb_capsize
		if !Hcc(gby.cb_capclr) {
			hoptionarg /hidedefault gby.cb_capclr
		}
		if Hcc(gby.cb_capclr) {
			hoptionarg /quoted gby.cl_capclr
		}
	        hoptionarg /hidedefault gby.cb_cappos
		hoptionarg /hidedefault gby.cb_capjust
		hoptionarg gby.ed_capgp
		hoption gby.ck_capbox
		if !Hcc(gby.cb_capbclr) {
			hoptionarg /hidedefault gby.cb_capbclr
		}
		if Hcc(gby.cb_capbclr) {
			hoptionarg /quoted gby.cl_capbclr
		}
		if !Hcc(gby.cb_capblclr) {
			hoptionarg /hidedefault gby.cb_capblclr
		}
		if Hcc(gby.cb_capblclr) {
			hoptionarg /quoted gby.cl_capblclr
		}
		hoptionarg gby.cb_capmarg
		hoption gby.ck_capexp
	endoptions
END

PROGRAM gby_note_opt_pr
BEGIN
	beginoptions
		hoptionarg /hidedefault gby.cb_notsize
		if !Hcc(gby.cb_notclr) {
			hoptionarg /hidedefault gby.cb_notclr
		}
		if Hcc(gby.cb_notclr) {
			hoptionarg /quoted gby.cl_notclr
		}
	        hoptionarg /hidedefault gby.cb_notpos
		hoptionarg /hidedefault gby.cb_notjust
		hoptionarg gby.ed_notgp
		hoption gby.ck_notbox
		if !Hcc(gby.cb_notbclr) {
			hoptionarg /hidedefault gby.cb_notbclr
		}
		if Hcc(gby.cb_notbclr) {
			hoptionarg /quoted gby.cl_notbclr
		}
		if !Hcc(gby.cb_notblclr) {
			hoptionarg /hidedefault gby.cb_notblclr
		}
		if Hcc(gby.cb_notblclr) {
			hoptionarg /quoted gby.cl_notblclr
		}
		hoptionarg gby.cb_notmarg
		hoption gby.ck_notexp
	endoptions
END
/* End Title, Subtitle, Caption, and Note Option Programming */

/* Begin Legend Option Programming */
PROGRAM gby_legend_opt_pr
BEGIN
	put " " gby.cb_legend
	optionarg /hidedefault gby.cb_legpos
	if gby.ck_leghole {
		require gby.ed_leghole
		put " "  "at(" gby.ed_leghole ")"
	}
	option gby.ck_legspan
END
/* End Legend Option Programming */

PROGRAM gby_options_output
BEGIN
	option gby.ck_total
	option gby.ck_missing
	option gby.ck_colfirst
	optionarg gby.ed_holes
	if gby.cb_layout {
		put " " gby.cb_layout "("
		put gby.sp_rowcol
		put ")"
	}
	optionarg gby.cb_style
	optionarg gby.cb_imargin
	if gby.ed_iscale & !default(gby.ed_iscale) {
		put "iscale(*" gby.ed_iscale ")"
	}
	if gby.cb_xrescale {
		put " " gby.cb_xrescale
	}
	if gby.cb_yrescale {
		put " " gby.cb_yrescale
	}

	if gby.cb_gregfclr | !H(gby.cl_gregfclr) 		/*
	   */ | gby.cb_greglclr | !H(gby.cl_greglclr)		/*
	   */ | gby.cb_greglwd  | gby.cb_gregmarg {
		put " "  "graphregion("
		put /program gby_graph_region_opt_subpr
		put ")"
	}
	if gby.cb_pregfclr | !H(gby.cl_pregfclr) 		/*
	   */ | gby.cb_preglclr | !H(gby.cl_preglclr)		/*
	   */ | gby.cb_preglwd  | gby.cb_pregmarg {
		put " "  "plotregion("
		put /program gby_plot_region_opt_subpr
		put ")"
	}

	put " " /program gby_text_opt_pr
	if gby.cb_legend | gby.ck_leghole | gby.ck_legspan | gby.cb_legpos {
		put " "  "legend("
		put /program gby_legend_opt_pr
		put ")"
	}
END

PROGRAM gby_opt_pr	/* graph by option programming */
BEGIN
	put gby.vl_vars
	beginoptions
		put /program gby_options_output
	endoptions
END

PROGRAM gby_output /* To be used with out programming include */
BEGIN
	if !H(gby.vl_vars) & gby.vl_vars {
		put " "  "by("
		put /program gby_opt_pr
		put ")"
	}
END

PROGRAM gby_byopts_output
BEGIN
	if gby.ck_colfirst | gby.cb_style | gby.ed_holes 	///
	 | gby.cb_imargin | gby.cb_layout | gby.ck_total	///
	 | (gby.ed_iscale & ! gby.ed_iscale.isdefault())	///
	 | gby.cb_xrescale | gby.cb_yrescale | gby.cb_gregfclr	///
	 | gby.cb_greglclr | gby.cb_greglwd | gby.cb_gregmarg	///
	 | gby.cb_pregfclr | gby.cb_preglclr | gby.cb_preglwd	///
	 | gby.cb_pregmarg | gby.ed_title | gby.ed_stitle	///
	 | gby.ed_caption | gby.ed_note | gby.cb_legend		///
	 | gby.ck_leghole | gby.ck_legspan | gby.cb_legpos	///
	{
		if _gby_isenabled { 	// is the tab enabled?
			put " " "byopts("
			put /program gby_options_output
			put ")"
		}
	}
END