gbaryaxis.idlg

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

END

PROGRAM gbaryaxis_hide_scale_check
BEGIN
	if !H(gbaryaxis.ck_scaleoff) {
		if gbaryaxis.ck_scaleoff {
			call script gbaryaxis_hide_scale_on
		}
		if !gbaryaxis.ck_scaleoff {
			call script gbaryaxis_hide_scale_off
		}
	}

END

SCRIPT gbaryaxis_hide_scale_off
BEGIN
	program gbarytitle_enable
	program gbaryscale_enable
	program gbarymajor_enable
	program gbaryminor_enable
END

PROGRAM gbarytitle_enable
BEGIN
	call gaction gbaryaxis.gb_title.enable
	call gaction gbaryaxis.ed_title.enable
	call gaction gbaryaxis.tx_size.enable
	call gaction gbaryaxis.cb_size.enable
	call gaction gbaryaxis.tx_tclr.enable
	call gaction gbaryaxis.cb_tclr.enable
	call gaction gbaryaxis.cl_tclr.enable
	call gaction gbaryaxis.tx_orient.enable
	call gaction gbaryaxis.cb_orient.enable
	call gaction gbaryaxis.tx_just.enable
	call gaction gbaryaxis.cb_just.enable
	call gaction gbaryaxis.tx_align.enable
	call gaction gbaryaxis.cb_align.enable
	call gaction gbaryaxis.tx_margin.enable
	call gaction gbaryaxis.cb_margin.enable
	call gaction gbaryaxis.tx_ttlgp.enable
	call gaction gbaryaxis.ed_ttlgp.enable
	call gaction gbaryaxis.ck_box.enable
	if gbaryaxis.ck_box {
		call script gbarybox_enable
	}
END

PROGRAM gbaryscale_enable
BEGIN
	call gaction gbaryaxis.tx_lclr.enable
	call gaction gbaryaxis.cb_lclr.enable
	call gaction gbaryaxis.cl_lclr.enable
	call gaction gbaryaxis.tx_outergp.enable
	call gaction gbaryaxis.ed_outergp.enable
/// !- add in ck_exclude */
	call gaction gbaryaxis.ck_exclude.enable
END

PROGRAM gbarymajor_enable
BEGIN
/// Major ticks */
	call gaction gbaryaxis.tx_rule.enable
	call gaction gbaryaxis.ed_rule.enable
	call gaction gbaryaxis.bt_rule.enable
	call gaction gbaryaxis.tx_cstm.enable
	call gaction gbaryaxis.ed_cstm.enable
	call gaction gbaryaxis.bt_cstm.enable
	call gaction gbaryaxis.tx_tpos.enable
	call gaction gbaryaxis.cb_tpos.enable
	call gaction gbaryaxis.tx_tlng.enable
	call gaction gbaryaxis.ed_tlng.enable
	call gaction gbaryaxis.tx_notk.enable
	call gaction gbaryaxis.cb_notk.enable
	call gaction gbaryaxis.tx_nolab.enable
	call gaction gbaryaxis.cb_nolab.enable
	call gaction gbaryaxis.ck_vlab.enable
	call gaction gbaryaxis.ck_altr.enable
	call gaction gbaryaxis.tx_tlclr.enable
	call gaction gbaryaxis.cb_tlclr.enable
	call gaction gbaryaxis.cl_tlclr.enable
	call gaction gbaryaxis.tx_ang.enable
	call gaction gbaryaxis.cb_ang.enable
	call gaction gbaryaxis.tx_fmt.enable
	call gaction gbaryaxis.ed_fmt.enable
	call gaction gbaryaxis.bt_fmt.enable
	call gaction gbaryaxis.tx_lgap.enable
	call gaction gbaryaxis.ed_lgap.enable
	call gaction gbaryaxis.tx_lsize.enable
	call gaction gbaryaxis.cb_lsize.enable
	call gaction gbaryaxis.ck_grid.enable
	if gbaryaxis.ck_grid {
		call script gbarygrid_enable
	}
END

PROGRAM gbaryminor_enable
BEGIN
/// Minor ticks */
	call gaction gbaryaxis.tx_mrule.enable
	call gaction gbaryaxis.ed_mrule.enable
	call gaction gbaryaxis.bt_mrule.enable
	call gaction gbaryaxis.tx_mcstm.enable
	call gaction gbaryaxis.ed_mcstm.enable
	call gaction gbaryaxis.bt_mcstm.enable
	call gaction gbaryaxis.tx_mtpos.enable
	call gaction gbaryaxis.cb_mtpos.enable
	call gaction gbaryaxis.tx_mtlng.enable
	call gaction gbaryaxis.ed_mtlng.enable
	call gaction gbaryaxis.tx_mnotk.enable
	call gaction gbaryaxis.cb_mnotk.enable
	call gaction gbaryaxis.tx_mnolab.enable
	call gaction gbaryaxis.cb_mnolab.enable
	call gaction gbaryaxis.ck_mvlab.enable
	call gaction gbaryaxis.ck_maltr.enable
	call gaction gbaryaxis.tx_mtlclr.enable
	call gaction gbaryaxis.cb_mtlclr.enable
	call gaction gbaryaxis.cl_mtlclr.enable
	call gaction gbaryaxis.tx_mang.enable
	call gaction gbaryaxis.cb_mang.enable
	call gaction gbaryaxis.tx_mfmt.enable
	call gaction gbaryaxis.ed_mfmt.enable
	call gaction gbaryaxis.bt_mfmt.enable
	call gaction gbaryaxis.tx_mlgap.enable
	call gaction gbaryaxis.ed_mlgap.enable
	call gaction gbaryaxis.tx_mlsize.enable
	call gaction gbaryaxis.cb_mlsize.enable
	call gaction gbaryaxis.ck_mgrid.enable
	if gbaryaxis.ck_mgrid {
		call script gbarymgrid_enable
	}
END

/* Begin Enable All */
SCRIPT gbaryaxis_enable
BEGIN
	program gbaryaxis_enable_pr
END

PROGRAM gbaryaxis_enable_pr
BEGIN
	call gaction gbaryaxis.gb_option.enable
/// !- remove gbaryaxis.ck_range references */
/// !- add in gbaryaxis.ck_exclude */
	call gaction gbaryaxis.ck_exclude.enable
/// !- change ck_log ck_yalt*/
	call gaction gbaryaxis.ck_yalt.enable
	call gaction gbaryaxis.ck_rev.enable
	call gaction gbaryaxis.ck_scaleoff.enable
	if !gbaryaxis.ck_scaleoff {
		call program gbarytitle_enable
		call program gbaryscale_enable
		call program gbarymajor_enable
		call program gbaryminor_enable

	}

	call gaction gbaryaxis.gb_mode.enable
	call gaction gbaryaxis.cb_tkmode.enable
	call gaction gbaryaxis.tx_tkmode.enable

/// Line options */
	call gaction gbaryaxis.tx_lline.enable
	call gaction gbaryaxis.ed_lline.enable
	call gaction gbaryaxis.tx_llwd.enable
	call gaction gbaryaxis.cb_llwd.enable
	call gaction gbaryaxis.tx_llclr.enable
	call gaction gbaryaxis.cb_llclr.enable
	call gaction gbaryaxis.cl_llclr.enable
	call gaction gbaryaxis.tx_llpat.enable
	call gaction gbaryaxis.cb_llpat.enable
	call gaction gbaryaxis.tx_lextend.enable
	call gaction gbaryaxis.cb_lextend.enable
END
/* End Enable All */

SCRIPT gbarytitle_disable
BEGIN
	gbaryaxis.gb_title.disable
	gbaryaxis.ed_title.disable
	gbaryaxis.tx_size.disable
	gbaryaxis.cb_size.disable
	gbaryaxis.tx_tclr.disable
	gbaryaxis.cb_tclr.disable
	gbaryaxis.cl_tclr.disable
	gbaryaxis.tx_orient.disable
	gbaryaxis.cb_orient.disable
	gbaryaxis.tx_just.disable
	gbaryaxis.cb_just.disable
	gbaryaxis.tx_align.disable
	gbaryaxis.cb_align.disable
	gbaryaxis.tx_margin.disable
	gbaryaxis.cb_margin.disable
	gbaryaxis.tx_ttlgp.disable
	gbaryaxis.ed_ttlgp.disable
	gbaryaxis.ck_box.disable
	script gbarybox_disable
END

SCRIPT gbaryscale_opt_disable
BEGIN
	gbaryaxis.tx_lclr.disable
	gbaryaxis.cb_lclr.disable
	gbaryaxis.cl_lclr.disable
	gbaryaxis.tx_outergp.disable
	gbaryaxis.ed_outergp.disable
/// !- add in ck_exclude */
	gbaryaxis.ck_exclude.disable
END

SCRIPT gbarymajor_disable
BEGIN
/// Major ticks */
	gbaryaxis.tx_rule.disable
	gbaryaxis.ed_rule.disable
	gbaryaxis.bt_rule.disable
	gbaryaxis.tx_cstm.disable
	gbaryaxis.ed_cstm.disable
	gbaryaxis.bt_cstm.disable
	gbaryaxis.tx_tpos.disable
	gbaryaxis.cb_tpos.disable
	gbaryaxis.tx_tlng.disable
	gbaryaxis.ed_tlng.disable
	gbaryaxis.tx_notk.disable
	gbaryaxis.cb_notk.disable
	gbaryaxis.tx_nolab.disable
	gbaryaxis.cb_nolab.disable
	gbaryaxis.ck_vlab.disable
	gbaryaxis.ck_altr.disable
	gbaryaxis.tx_tlclr.disable
	gbaryaxis.cb_tlclr.disable
	gbaryaxis.cl_tlclr.disable
	gbaryaxis.tx_ang.disable
	gbaryaxis.cb_ang.disable
	gbaryaxis.tx_fmt.disable
	gbaryaxis.ed_fmt.disable
	gbaryaxis.bt_fmt.disable
	gbaryaxis.tx_lgap.disable
	gbaryaxis.ed_lgap.disable
	gbaryaxis.tx_lsize.disable
	gbaryaxis.cb_lsize.disable
	gbaryaxis.ck_grid.disable
	script gbarygrid_disable
END

SCRIPT gbaryminor_disable
BEGIN
/// Minor ticks */
	gbaryaxis.tx_mrule.disable
	gbaryaxis.ed_mrule.disable
	gbaryaxis.bt_mrule.disable
	gbaryaxis.tx_mcstm.disable
	gbaryaxis.ed_mcstm.disable
	gbaryaxis.bt_mcstm.disable
	gbaryaxis.tx_mtpos.disable
	gbaryaxis.cb_mtpos.disable
	gbaryaxis.tx_mtlng.disable
	gbaryaxis.ed_mtlng.disable
	gbaryaxis.tx_mnotk.disable
	gbaryaxis.cb_mnotk.disable
	gbaryaxis.tx_mnolab.disable
	gbaryaxis.cb_mnolab.disable
	gbaryaxis.ck_mvlab.disable
	gbaryaxis.ck_maltr.disable
	gbaryaxis.tx_mtlclr.disable
	gbaryaxis.cb_mtlclr.disable
	gbaryaxis.cl_mtlclr.disable
	gbaryaxis.tx_mang.disable
	gbaryaxis.cb_mang.disable
	gbaryaxis.tx_mfmt.disable
	gbaryaxis.ed_mfmt.disable
	gbaryaxis.bt_mfmt.disable
	gbaryaxis.tx_mlgap.disable
	gbaryaxis.ed_mlgap.disable
	gbaryaxis.tx_mlsize.disable
	gbaryaxis.cb_mlsize.disable
	gbaryaxis.ck_mgrid.disable
	script gbarymgrid_disable
END

/* Disable components associated with scale(off) */
SCRIPT gbaryaxis_hide_scale_on
BEGIN
	script gbarytitle_disable
	script gbaryscale_opt_disable
	script gbarymajor_disable
	script gbaryminor_disable
	gbaryaxis.cb_tkmode.setvalue "Additional lines"
END

/* Begin Disable All */
SCRIPT gbaryaxis_disable
BEGIN
	script gbarytitle_disable
	gbaryaxis.gb_option.disable
	gbaryaxis.ck_scaleoff.disable
	script gbaryscale_opt_disable
/// !- remove gbaryaxis.ck_range references */
/// !- add in gbaryaxis.ck_exclude */
	gbaryaxis.ck_exclude.disable
/// !- change ck_log ck_yalt*/
	gbaryaxis.ck_yalt.disable
	gbaryaxis.ck_rev.disable

	gbaryaxis.gb_mode.disable
	gbaryaxis.cb_tkmode.disable
	gbaryaxis.tx_tkmode.disable

	script gbarymajor_disable
	script gbaryminor_disable

/// Line options */
	gbaryaxis.tx_lline.disable
	gbaryaxis.ed_lline.disable
	gbaryaxis.tx_llwd.disable
	gbaryaxis.cb_llwd.disable
	gbaryaxis.tx_llclr.disable
	gbaryaxis.cb_llclr.disable
	gbaryaxis.cl_llclr.disable
	gbaryaxis.tx_llpat.disable
	gbaryaxis.cb_llpat.disable
	gbaryaxis.tx_lextend.disable
	gbaryaxis.cb_lextend.disable
END
/* End Disable All */

/* !- removed gbaryaxis_range_enable */
/* !- removed gbaryaxis_range_disable */

PROGRAM gbaryaxis_grid_check
BEGIN
	if !H(gbaryaxis.ck_grid) {
		if gbaryaxis.ck_grid {
			call script gbarygrid_enable
		}
		if !gbaryaxis.ck_grid {
			call script gbarygrid_disable
		}
	}
END

SCRIPT gbarygrid_enable
BEGIN
	gbaryaxis.tx_gall.enable
	gbaryaxis.cb_gall.enable
	gbaryaxis.tx_gwd.enable
	gbaryaxis.cb_gwd.enable
	gbaryaxis.tx_gclr.enable
	gbaryaxis.cb_gclr.enable
	gbaryaxis.cl_gclr.enable
	gbaryaxis.tx_pat.enable
	gbaryaxis.cb_pat.enable
	gbaryaxis.tx_extend.enable
	gbaryaxis.cb_extend.enable
END

SCRIPT gbarygrid_disable
BEGIN
	gbaryaxis.tx_gall.disable
	gbaryaxis.cb_gall.disable
	gbaryaxis.tx_gwd.disable
	gbaryaxis.cb_gwd.disable
	gbaryaxis.tx_gclr.disable
	gbaryaxis.cb_gclr.disable
	gbaryaxis.cl_gclr.disable
	gbaryaxis.tx_pat.disable
	gbaryaxis.cb_pat.disable
	gbaryaxis.tx_extend.disable
	gbaryaxis.cb_extend.disable
END

PROGRAM gbaryaxis_mgrid_check
BEGIN
	if !D(gbaryaxis.ck_mgrid) {
		if gbaryaxis.ck_mgrid {
			call script gbarymgrid_enable
		}
		if !gbaryaxis.ck_mgrid {
			call script gbarymgrid_disable
		}
	}
END

SCRIPT gbarymgrid_enable
BEGIN
	gbaryaxis.tx_mgall.enable
	gbaryaxis.cb_mgall.enable
	gbaryaxis.tx_mgwd.enable
	gbaryaxis.cb_mgwd.enable
	gbaryaxis.tx_mgclr.enable
	gbaryaxis.cb_mgclr.enable
	gbaryaxis.cl_mgclr.enable
	gbaryaxis.tx_mpat.enable
	gbaryaxis.cb_mpat.enable
	gbaryaxis.tx_mextend.enable
	gbaryaxis.cb_mextend.enable
END

SCRIPT gbarymgrid_disable
BEGIN
	gbaryaxis.tx_mgall.disable
	gbaryaxis.cb_mgall.disable
	gbaryaxis.tx_mgwd.disable
	gbaryaxis.cb_mgwd.disable
	gbaryaxis.tx_mgclr.disable
	gbaryaxis.cb_mgclr.disable
	gbaryaxis.cl_mgclr.disable
	gbaryaxis.tx_mpat.disable
	gbaryaxis.cb_mpat.disable
	gbaryaxis.tx_mextend.disable
	gbaryaxis.cb_mextend.disable
END

SCRIPT gbarybox_enable
BEGIN
	gbaryaxis.tx_bclr.enable
	gbaryaxis.cb_bclr.enable
	gbaryaxis.cl_bclr.enable
	gbaryaxis.tx_blclr.enable
	gbaryaxis.cb_blclr.enable
	gbaryaxis.cl_blclr.enable
	gbaryaxis.tx_bmargin.enable
	gbaryaxis.cb_bmargin.enable
	gbaryaxis.ck_expand.enable
END
SCRIPT gbarybox_disable
BEGIN
	gbaryaxis.tx_bclr.disable
	gbaryaxis.cb_bclr.disable
	gbaryaxis.cl_bclr.disable
	gbaryaxis.tx_blclr.disable
	gbaryaxis.cb_blclr.disable
	gbaryaxis.cl_blclr.disable
	gbaryaxis.tx_bmargin.disable
	gbaryaxis.cb_bmargin.disable
	gbaryaxis.ck_expand.disable
END

SCRIPT gbarymajor_show
BEGIN
	gbaryaxis.tx_rule.show
	gbaryaxis.ed_rule.show
	gbaryaxis.bt_rule.show
	gbaryaxis.tx_cstm.show
	gbaryaxis.ed_cstm.show
	gbaryaxis.bt_cstm.show
	gbaryaxis.tx_notk.show
	gbaryaxis.cb_notk.show
	gbaryaxis.tx_nolab.show
	gbaryaxis.cb_nolab.show
	gbaryaxis.ck_vlab.show
	gbaryaxis.ck_altr.show
	gbaryaxis.tx_fmt.show
	gbaryaxis.ed_fmt.show
	gbaryaxis.bt_fmt.show
	gbaryaxis.tx_ang.show
	gbaryaxis.cb_ang.show
	gbaryaxis.tx_lgap.show
	gbaryaxis.ed_lgap.show
	gbaryaxis.tx_lsize.show
	gbaryaxis.cb_lsize.show
	gbaryaxis.tx_tlclr.show
	gbaryaxis.cb_tlclr.show
	gbaryaxis.cb_tlclr.withvalue gbaryaxis.cb_tlclr.setvalue "@"
	gbaryaxis.tx_tlng.show
	gbaryaxis.ed_tlng.show
	gbaryaxis.tx_tpos.show
	gbaryaxis.cb_tpos.show
	gbaryaxis.ck_grid.show
	gbaryaxis.tx_gall.show
	gbaryaxis.cb_gall.show
	gbaryaxis.tx_gwd.show
	gbaryaxis.cb_gwd.show
	gbaryaxis.tx_gclr.show
	gbaryaxis.cb_gclr.show
	gbaryaxis.cb_gclr.withvalue gbaryaxis.cb_gclr.setvalue "@"
	gbaryaxis.tx_pat.show
	gbaryaxis.cb_pat.show
	gbaryaxis.tx_extend.show
	gbaryaxis.cb_extend.show
	gbaryaxis.tx_tkmode.setlabel "Major tick options"