gbaryaxis_98s.idlg

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

	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
	gbaryaxis.ck_exclude.disable
	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.ck_llclr.disable
	gbaryaxis.cl_llclr.disable
	gbaryaxis.tx_llpat.disable
	gbaryaxis.cb_llpat.disable
END
/* End Disable All */

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.ck_gclr.enable
	gbaryaxis.cl_gclr.enable
	gbaryaxis.tx_pat.enable
	gbaryaxis.cb_pat.enable
END

SCRIPT gbarygrid_disable
BEGIN
	gbaryaxis.ck_gclr.disable
	gbaryaxis.cl_gclr.disable
	gbaryaxis.tx_pat.disable
	gbaryaxis.cb_pat.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.ck_mgclr.enable
	gbaryaxis.cl_mgclr.enable
	gbaryaxis.tx_mpat.enable
	gbaryaxis.cb_mpat.enable
END

SCRIPT gbarymgrid_disable
BEGIN
	gbaryaxis.ck_mgclr.disable
	gbaryaxis.cl_mgclr.disable
	gbaryaxis.tx_mpat.disable
	gbaryaxis.cb_mpat.disable
END

PROGRAM gbarymajor_show
BEGIN
	call gaction gbaryaxis.tx_rule.show
	call gaction gbaryaxis.ed_rule.show
	call gaction gbaryaxis.bt_rule.show
	call gaction gbaryaxis.tx_cstm.show
	call gaction gbaryaxis.ed_cstm.show
	call gaction gbaryaxis.bt_cstm.show
	call gaction gbaryaxis.tx_fmt.show
	call gaction gbaryaxis.ed_fmt.show
	call gaction gbaryaxis.bt_fmt.show
	call gaction gbaryaxis.tx_ang.show
	call gaction gbaryaxis.cb_ang.show
	call gaction gbaryaxis.tx_lsize.show
	call gaction gbaryaxis.cb_lsize.show
	call gaction gbaryaxis.ck_grid.show
	call gaction gbaryaxis.ck_gclr.show
	if gbaryaxis.ck_gclr {
		call gaction gbaryaxis.cl_gclr.show
	}
	call gaction gbaryaxis.tx_pat.show
	call gaction gbaryaxis.cb_pat.show
	call gaction gbaryaxis.tx_tkmode.setlabel "Major tick options"
END

SCRIPT gbarymajor_hide
BEGIN
	gbaryaxis.tx_rule.hide
	gbaryaxis.ed_rule.hide
	gbaryaxis.bt_rule.hide
	gbaryaxis.tx_cstm.hide
	gbaryaxis.ed_cstm.hide
	gbaryaxis.bt_cstm.hide
	gbaryaxis.tx_fmt.hide
	gbaryaxis.ed_fmt.hide
	gbaryaxis.bt_fmt.hide
	gbaryaxis.tx_ang.hide
	gbaryaxis.cb_ang.hide
	gbaryaxis.tx_lsize.hide
	gbaryaxis.cb_lsize.hide
	gbaryaxis.ck_grid.hide
	gbaryaxis.ck_gclr.hide
	gbaryaxis.cl_gclr.hide
	gbaryaxis.tx_pat.hide
	gbaryaxis.cb_pat.hide
END

PROGRAM gbaryminor_show
BEGIN
	call gaction gbaryaxis.tx_mrule.show
	call gaction gbaryaxis.ed_mrule.show
	call gaction gbaryaxis.bt_mrule.show
	call gaction gbaryaxis.tx_mcstm.show
	call gaction gbaryaxis.ed_mcstm.show
	call gaction gbaryaxis.bt_mcstm.show
	call gaction gbaryaxis.tx_mfmt.show
	call gaction gbaryaxis.ed_mfmt.show
	call gaction gbaryaxis.bt_mfmt.show
	call gaction gbaryaxis.tx_mang.show
	call gaction gbaryaxis.cb_mang.show
	call gaction gbaryaxis.tx_mlsize.show
	call gaction gbaryaxis.cb_mlsize.show
	call gaction gbaryaxis.ck_mgrid.show
	call gaction gbaryaxis.ck_mgclr.show
	if gbaryaxis.ck_mgclr {
		call gaction gbaryaxis.cl_mgclr.show
	}
	call gaction gbaryaxis.tx_mpat.show
	call gaction gbaryaxis.cb_mpat.show
	call gaction gbaryaxis.tx_tkmode.setlabel "Minor tick options"
END

SCRIPT gbaryminor_hide
BEGIN
	gbaryaxis.tx_mrule.hide
	gbaryaxis.ed_mrule.hide
	gbaryaxis.bt_mrule.hide
	gbaryaxis.tx_mcstm.hide
	gbaryaxis.ed_mcstm.hide
	gbaryaxis.bt_mcstm.hide
	gbaryaxis.tx_mfmt.hide
	gbaryaxis.ed_mfmt.hide
	gbaryaxis.bt_mfmt.hide
	gbaryaxis.tx_mang.hide
	gbaryaxis.cb_mang.hide
	gbaryaxis.tx_mlsize.hide
	gbaryaxis.cb_mlsize.hide
	gbaryaxis.ck_mgrid.hide
	gbaryaxis.ck_mgclr.hide
	gbaryaxis.cl_mgclr.hide
	gbaryaxis.tx_mpat.hide
	gbaryaxis.cb_mpat.hide
END

PROGRAM gbarylines_show
BEGIN
	call gaction gbaryaxis.tx_lline.show
	call gaction gbaryaxis.ed_lline.show
	call gaction gbaryaxis.ck_llclr.show
	if gbaryaxis.ck_llclr {
		call gaction gbaryaxis.cl_llclr.show
	}
	call gaction gbaryaxis.tx_llpat.show
	call gaction gbaryaxis.cb_llpat.show
	call gaction gbaryaxis.tx_tkmode.setlabel "Additional lines options"
END

SCRIPT gbarylines_hide
BEGIN
	gbaryaxis.tx_lline.hide
	gbaryaxis.ed_lline.hide
	gbaryaxis.ck_llclr.hide
	gbaryaxis.cl_llclr.hide
	gbaryaxis.tx_llpat.hide
	gbaryaxis.cb_llpat.hide
END

SCRIPT gbarymajor_on
BEGIN
	script gbaryminor_hide
	script gbarylines_hide
	program gbarymajor_show
END

SCRIPT gbaryminor_on
BEGIN
	script gbarymajor_hide
	script gbarylines_hide
	program gbaryminor_show
END

SCRIPT gbarylines_on
BEGIN
	script gbarymajor_hide
	script gbaryminor_hide
	program gbarylines_show
END

PROGRAM gbaryaxis_title_pr
BEGIN
   if !H(gbaryaxis.gb_title) {
     if gbaryaxis.ed_title | gbaryaxis.cb_size  {
	put "ytitle("
	if gbaryaxis.ed_title {
		put gbaryaxis.ed_title
	}
	put /program gbaryaxis_title_opt_pr
	put ") "
     }
   }
END

PROGRAM gbaryaxis_title_opt_pr
BEGIN
	beginoptions
		optionarg /hidedefault gbaryaxis.cb_size
	endoptions
END

PROGRAM gbaryaxis_scale_pr
BEGIN
/* yaxis scale options */
  if !D(gbaryaxis.gb_option) { /* If scale options are disabled then do nothing */
     if gbaryaxis.ck_scaleoff {
	put "yscale("
	put /program gbaryaxis_scale_opt_pr
	put ") "
     }
  }
END

PROGRAM gbaryaxis_scale_opt_pr
BEGIN
	option gbaryaxis.ck_scaleoff
END

PROGRAM gbaryaxis_major_tick_pr
BEGIN

   /* Programming for major ticks */
   /* if any ylabel options put out "ylabel(" */
   if !D(gbaryaxis.ed_rule) { /* if ed_rule is disabled then do nothing */
     if gbaryaxis.ed_rule | gbaryaxis.ed_cstm | gbaryaxis.cb_ang | /*
	*/ gbaryaxis.ed_fmt | gbaryaxis.cb_lsize | gbaryaxis.ck_grid {

	put "ylabel("
	if gbaryaxis.ed_rule | gbaryaxis.ed_cstm {
		put /hidden gbaryaxis.ed_rule
		if gbaryaxis.ed_cstm {
			put " "
			put /hidden gbaryaxis.ed_cstm
		}
	}
	put /program gbaryaxis_major_tick_opt_pr
	put ")"
     }
   }
END
PROGRAM gbaryaxis_major_tick_opt_pr
BEGIN
	beginoptions
		hoptionarg /hidedefault gbaryaxis.cb_ang
		hoptionarg /hidedefault gbaryaxis.ed_fmt
		hoptionarg /hidedefault gbaryaxis.cb_lsize
		hoption gbaryaxis.ck_grid
		if gbaryaxis.ck_grid {
			if gbaryaxis.ck_gclr {
				hoptionarg /quoted gbaryaxis.cl_gclr
			}
			hoptionarg /hidedefault gbaryaxis.cb_pat
		}
	endoptions
END

PROGRAM gbaryaxis_minor_tick_pr
BEGIN

   /* Programming for minor ticks */

   /* if any ylabel options put out "ylabel(" */
   if !D(gbaryaxis.ed_mrule) { /* if ed_mrule is disabled then do nothing */
     if gbaryaxis.ed_mrule | gbaryaxis.ed_mcstm  |	/*
	*/ gbaryaxis.cb_mang | gbaryaxis.ed_mfmt |  		/*
	*/ gbaryaxis.cb_mlsize | gbaryaxis.ck_mgrid {
	put "ymlabel("
	if gbaryaxis.ed_mrule | gbaryaxis.ed_mcstm {
		put /hidden gbaryaxis.ed_mrule
		if gbaryaxis.ed_mcstm {
			put " "
			put /hidden gbaryaxis.ed_mcstm
		}
	}
	put /program gbaryaxis_minor_tick_opt_pr
	put ")"
     }
   }
END
PROGRAM gbaryaxis_minor_tick_opt_pr
BEGIN
	beginoptions
		hoptionarg /hidedefault gbaryaxis.cb_mang
		hoptionarg /hidedefault gbaryaxis.ed_mfmt
		hoptionarg /hidedefault gbaryaxis.cb_mlsize
		hoption gbaryaxis.ck_mgrid
		if gbaryaxis.ck_mgclr {
			hoptionarg /quoted gbaryaxis.cl_mgclr
		}
		hoptionarg /hidedefault gbaryaxis.cb_mpat
	endoptions
END

PROGRAM gbaryaxis_lines_pr
BEGIN
/* yaxis line options */
  if !D(gbaryaxis.ed_lline) { /* if ed_lline is disabled then do nothing */
     if gbaryaxis.ed_lline  {
	put "yline("
	put /hidden gbaryaxis.ed_lline
	put /program gbaryaxis_lines_opt_pr
	put ")"
     }
   }
END
PROGRAM gbaryaxis_lines_opt_pr
BEGIN
	beginoptions
		if gbaryaxis.ck_llclr {
			hoptionarg /quoted gbaryaxis.cl_llclr
		}
		hoptionarg /hidedefault gbaryaxis.cb_llpat
	endoptions
END

PROGRAM gbaryaxis_output
BEGIN
	put " " /program gbaryaxis_title_pr
	put " " /program gbaryaxis_scale_pr
	put " " /program gbaryaxis_major_tick_pr
	put " " /program gbaryaxis_minor_tick_pr
	put " " /program gbaryaxis_lines_pr
	option gbaryaxis.ck_yalt
	option gbaryaxis.ck_rev
	option gbaryaxis.ck_exclude
END