gxaxis.idlg

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

	gxaxis.bt_mrule.show
	gxaxis.tx_mcstm.show
	gxaxis.ed_mcstm.show
	gxaxis.bt_mcstm.show
	gxaxis.tx_mnotk.show
	gxaxis.cb_mnotk.show
	gxaxis.tx_mnolab.show
	gxaxis.cb_mnolab.show
	gxaxis.ck_mvlab.show
	gxaxis.ck_maltr.show
	gxaxis.tx_mfmt.show
	gxaxis.ed_mfmt.show
	gxaxis.bt_mfmt.show
	gxaxis.tx_mang.show
	gxaxis.cb_mang.show
	gxaxis.tx_mlgap.show
	gxaxis.ed_mlgap.show
	gxaxis.tx_mlsize.show
	gxaxis.cb_mlsize.show
	gxaxis.tx_mtlclr.show
	gxaxis.cb_mtlclr.show
	gxaxis.cb_mtlclr.withvalue gxaxis.cb_mtlclr.setvalue "@"
	gxaxis.tx_mtlng.show
	gxaxis.ed_mtlng.show
	gxaxis.tx_mtpos.show
	gxaxis.cb_mtpos.show
	gxaxis.ck_mgrid.show
	gxaxis.tx_mgall.show
	gxaxis.cb_mgall.show
	gxaxis.tx_mgwd.show
	gxaxis.cb_mgwd.show
	gxaxis.tx_mgclr.show
	gxaxis.cb_mgclr.show
	gxaxis.cb_mgclr.withvalue gxaxis.cb_mgclr.setvalue "@"
	gxaxis.tx_mpat.show
	gxaxis.cb_mpat.show
	gxaxis.tx_mextend.show
	gxaxis.cb_mextend.show
	gxaxis.tx_tkmode.setlabel "Minor tick options"
END

SCRIPT gxminor_hide
BEGIN
	gxaxis.tx_mrule.hide
	gxaxis.ed_mrule.hide
	gxaxis.bt_mrule.hide
	gxaxis.tx_mcstm.hide
	gxaxis.ed_mcstm.hide
	gxaxis.bt_mcstm.hide
	gxaxis.tx_mnotk.hide
	gxaxis.cb_mnotk.hide
	gxaxis.tx_mnolab.hide
	gxaxis.cb_mnolab.hide
	gxaxis.ck_mvlab.hide
	gxaxis.ck_maltr.hide
	gxaxis.tx_mfmt.hide
	gxaxis.ed_mfmt.hide
	gxaxis.bt_mfmt.hide
	gxaxis.tx_mang.hide
	gxaxis.cb_mang.hide
	gxaxis.tx_mlgap.hide
	gxaxis.ed_mlgap.hide
	gxaxis.tx_mlsize.hide
	gxaxis.cb_mlsize.hide
	gxaxis.tx_mtlclr.hide
	gxaxis.cb_mtlclr.hide
	gxaxis.cl_mtlclr.hide
	gxaxis.tx_mtlng.hide
	gxaxis.ed_mtlng.hide
	gxaxis.tx_mtpos.hide
	gxaxis.cb_mtpos.hide
	gxaxis.ck_mgrid.hide
	gxaxis.tx_mgall.hide
	gxaxis.cb_mgall.hide
	gxaxis.tx_mgwd.hide
	gxaxis.cb_mgwd.hide
	gxaxis.tx_mgclr.hide
	gxaxis.cb_mgclr.hide
	gxaxis.cl_mgclr.hide
	gxaxis.tx_mpat.hide
	gxaxis.cb_mpat.hide
	gxaxis.tx_mextend.hide
	gxaxis.cb_mextend.hide
END

SCRIPT gxlines_show
BEGIN
	gxaxis.tx_lline.show
	gxaxis.ed_lline.show
	gxaxis.tx_llwd.show
	gxaxis.cb_llwd.show
	gxaxis.tx_llclr.show
	gxaxis.cb_llclr.show
	gxaxis.cb_llclr.withvalue gxaxis.cb_llclr.setvalue "@"
	gxaxis.tx_llpat.show
	gxaxis.cb_llpat.show
	gxaxis.tx_lextend.show
	gxaxis.cb_lextend.show
	gxaxis.tx_tkmode.setlabel "Additional lines options"
END

SCRIPT gxlines_hide
BEGIN
	gxaxis.tx_lline.hide
	gxaxis.ed_lline.hide
	gxaxis.tx_llwd.hide
	gxaxis.cb_llwd.hide
	gxaxis.tx_llclr.hide
	gxaxis.cb_llclr.hide
	gxaxis.cl_llclr.hide
	gxaxis.tx_llpat.hide
	gxaxis.cb_llpat.hide
	gxaxis.tx_lextend.hide
	gxaxis.cb_lextend.hide
END

SCRIPT gxmajor_on
BEGIN
	script gxminor_hide
	script gxlines_hide
	script gxmajor_show
END

SCRIPT gxminor_on
BEGIN
	script gxmajor_hide
	script gxlines_hide
	script gxminor_show
END

SCRIPT gxlines_on
BEGIN
	script gxmajor_hide
	script gxminor_hide
	script gxlines_show
END

//* For external use
SCRIPT gxaxis_removeTitleOpts
BEGIN
	gxaxis.gb_title.hide
	gxaxis.ed_title.hide
	gxaxis.tx_size.hide
	gxaxis.cb_size.hide
	gxaxis.tx_tclr.hide
	gxaxis.cb_tclr.hide
	gxaxis.cl_tclr.hide
	gxaxis.tx_orient.hide
	gxaxis.cb_orient.hide
	gxaxis.tx_just.hide
	gxaxis.cb_just.hide
	gxaxis.tx_align.hide
	gxaxis.cb_align.hide
	gxaxis.tx_margin.hide
	gxaxis.cb_margin.hide
	gxaxis.tx_ttlgp.hide
	gxaxis.ed_ttlgp.hide
	gxaxis.ck_box.hide
	gxaxis.tx_bclr.hide
	gxaxis.cb_bclr.hide
	gxaxis.cl_bclr.hide
	gxaxis.tx_blclr.hide
	gxaxis.cb_blclr.hide
	gxaxis.cl_blclr.hide
	gxaxis.tx_bmargin.hide
	gxaxis.cb_bmargin.hide
	gxaxis.ck_expand.hide
END

SCRIPT gxaxis_setScaleOptsToTop
BEGIN
	gxaxis.gb_option.setposition	.  10
	gxaxis.ck_range.setposition	.  30
	gxaxis.ed_rangefm.setposition	.  30
	gxaxis.tx_rangeto.setposition	.  30
	gxaxis.ed_rangeto.setposition	.  30
	gxaxis.tx_lclr.setposition	.  55
	gxaxis.cb_lclr.setposition	.  55
	gxaxis.cl_lclr.setposition	.  55
	gxaxis.tx_outergp.setposition	.  80
	gxaxis.ed_outergp.setposition	.  80
	gxaxis.ck_scaleoff.setposition	.  30
	gxaxis.ck_log.setposition  	.  55
	gxaxis.ck_rev.setposition	.  80
END

SCRIPT gxaxis_setMatrixTab
BEGIN
	script gxaxis_removeTitleOpts
	script gxaxis_setScaleOptsToTop
	gxaxis_maxes.setstring "maxes"
END

PROGRAM gxaxis_title_pr
BEGIN
   if !H(gxaxis.gb_title) {
     if gxaxis.ed_title  | gxaxis.cb_size | gxaxis.cb_tclr | 		/*
	*/ !H(gxaxis.cl_tclr) | gxaxis.cb_orient | gxaxis.cb_just | 	/*
	*/ gxaxis.cb_align | gxaxis.cb_margin | gxaxis.ck_box {
	put "xtitle("
	if gxaxis.ed_title {
		put gxaxis.ed_title
	}
	put /program gxaxis_title_opt_pr
	put ") "
     }
   }
END

PROGRAM gxaxis_title_opt_pr
BEGIN
	beginoptions
		optionarg /hidedefault gxaxis.cb_size
		if H(gxaxis.cl_tclr) {
			optionarg /hidedefault gxaxis.cb_tclr
		}
		if !H(gxaxis.cl_tclr) {
			optionarg /quoted gxaxis.cl_tclr
		}
		optionarg /hidedefault gxaxis.cb_orient
		optionarg /hidedefault gxaxis.cb_just
		optionarg /hidedefault gxaxis.cb_align
		optionarg /hidedefault gxaxis.cb_margin
		option gxaxis.ck_box
		if H(gxaxis.cl_bclr) {
			optionarg /hidedefault gxaxis.cb_bclr
		}
		if !H(gxaxis.cl_bclr) {
			optionarg /quoted gxaxis.cl_bclr
		}
		if H(gxaxis.cl_blclr) {
			optionarg /hidedefault gxaxis.cb_blclr
		}
		if !H(gxaxis.cl_blclr) {
			optionarg /quoted gxaxis.cl_blclr
		}
		optionarg /hidedefault gxaxis.cb_bmargin
		option gxaxis.ck_expand
	endoptions
END

PROGRAM gxaxis_scale_pr
BEGIN
/* xaxis scale options */
  if !D(gxaxis.gb_option) { /* If scale options are disabled then do nothing */
     if gxaxis.ck_range | gxaxis.cb_lclr | gxaxis.ed_outergp | 		/*
	*/ !H(gxaxis.cl_lclr) | gxaxis.ck_log | gxaxis.ck_rev  		/*
	*/ | gxaxis.ed_ttlgp  | gxaxis.ck_scaleoff {
	if gxaxis_maxes {
		put gxaxis_maxes "("
	}
	put "xscale("
	put /program gxaxis_scale_opt_pr
	put ")"
	if gxaxis_maxes {
		put ")"
	}
	put " "
     }
  }
END

PROGRAM gxaxis_scale_opt_pr
BEGIN
	optionarg gxaxis.ed_ttlgp
	if gxaxis.ck_range {
		require gxaxis.ed_rangefm
		require gxaxis.ed_rangeto
		put " " "range(" gxaxis.ed_rangefm " " gxaxis.ed_rangeto ")"
	}
	if H(gxaxis.cl_lclr) {
		optionarg /hidedefault gxaxis.cb_lclr
	}
	if !H(gxaxis.cl_lclr) {
		optionarg /quoted gxaxis.cl_lclr
	}
	optionarg gxaxis.ed_outergp
	option gxaxis.ck_log
	option gxaxis.ck_rev
	option gxaxis.ck_scaleoff
END

PROGRAM gxaxis_major_tick_pr
BEGIN

   /* Programming for major ticks */
   /* if any xlabel options put out "xlabel(" */
   if !D(gxaxis.ed_rule) { /* if ed_rule is disabled then do nothing */
     if gxaxis.ed_rule | gxaxis.ed_cstm | gxaxis.cb_tpos | 	/*
	*/ gxaxis.ed_tlng | gxaxis.cb_notk | gxaxis.cb_nolab | 		/*
	*/ gxaxis.ck_vlab |  gxaxis.cb_tlclr | !H(gxaxis.cl_tlclr) |	/*
	*/ gxaxis.cb_ang | gxaxis.ed_fmt | gxaxis.ed_lgap | 		/*
	*/ gxaxis.cb_lsize | gxaxis.ck_grid | gxaxis.ck_altr {
	put "xlabel("
	if gxaxis.ed_rule | gxaxis.ed_cstm {
		put /hidden gxaxis.ed_rule
		if gxaxis.ed_cstm {
			put " "
			put /hidden gxaxis.ed_cstm
		}
	}
	put /program gxaxis_major_tick_opt_pr
	put ")"
     }
   }
END
PROGRAM gxaxis_major_tick_opt_pr
BEGIN
	beginoptions
		hoptionarg /hidedefault gxaxis.cb_tpos
		hoptionarg /hidedefault gxaxis.ed_tlng
		if gxaxis.cb_notk {
			put " "
			put /hidden gxaxis.cb_notk
		}
		if gxaxis.cb_nolab {
			put " "
			put /hidden gxaxis.cb_nolab
		}
		hoption gxaxis.ck_vlab
		hoption gxaxis.ck_altr
		if !Hcc(gxaxis.cb_tlclr) & gxaxis.cb_tlclr {
			put " " "tlcolor("
			put /hidden gxaxis.cb_tlclr
			put ")"
			put " "
			put "labcolor("
			put /hidden gxaxis.cb_tlclr
			put ")"
		}
		if Hcc(gxaxis.cb_tlclr) {
			put " " `"tlcolor(""'
			put /hidden gxaxis.cl_tlclr
			put `"")"'
			put " " `"labcolor(""'
			put /hidden gxaxis.cl_tlclr
			put `"")"'
		}
		hoptionarg /hidedefault gxaxis.cb_ang
		hoptionarg /hidedefault gxaxis.ed_fmt
		hoptionarg /hidedefault gxaxis.ed_lgap
		hoptionarg /hidedefault gxaxis.cb_lsize
		hoption gxaxis.ck_grid
		if gxaxis.cb_gall {
			put " "
			put /hidden gxaxis.cb_gall
		}
		hoptionarg /hidedefault gxaxis.cb_gwd
		if !Hcc(gxaxis.cb_gclr) {
			hoptionarg /hidedefault gxaxis.cb_gclr
		}
		if Hcc(gxaxis.cb_gclr) {
			hoptionarg /quoted gxaxis.cl_gclr
		}
		hoptionarg /hidedefault gxaxis.cb_pat
		if gxaxis.cb_extend {
			put " "
			put /hidden gxaxis.cb_extend
		}
	endoptions
END

PROGRAM gxaxis_minor_tick_pr
BEGIN

   /* Programming for minor ticks */

   /* if any xlabel options put out "xlabel(" */
   if !D(gxaxis.ed_mrule) { /* if ed_mrule is disabled then do nothing */
     if gxaxis.ed_mrule | gxaxis.ed_mcstm | gxaxis.cb_mtpos |     	/*
	*/ gxaxis.ed_mtlng | gxaxis.cb_mnotk | gxaxis.cb_mnolab | 	/*
	*/ gxaxis.ck_mvlab |  gxaxis.cb_mtlclr | !H(gxaxis.cl_mtlclr) |	/*
	*/ gxaxis.cb_mang | gxaxis.ed_mfmt | gxaxis.ed_mlgap | 		/*
	*/ gxaxis.cb_mlsize | gxaxis.ck_mgrid | gxaxis.ck_maltr {
	put "xmlabel("
	if gxaxis.ed_mrule | gxaxis.ed_mcstm {
		put /hidden gxaxis.ed_mrule
		if gxaxis.ed_mcstm {
			put " "
			put /hidden gxaxis.ed_mcstm
		}
	}
	put /program gxaxis_minor_tick_opt_pr
	put ")"
     }
   }
END
PROGRAM gxaxis_minor_tick_opt_pr
BEGIN
	beginoptions
		hoptionarg /hidedefault gxaxis.cb_mtpos
		hoptionarg /hidedefault gxaxis.ed_mtlng
		if gxaxis.cb_mnotk {
			put " "
			put /hidden gxaxis.cb_mnotk
		}
		if gxaxis.cb_mnolab {
			put " "
			put /hidden gxaxis.cb_mnolab
		}
		hoption gxaxis.ck_mvlab
		hoption gxaxis.ck_maltr
		if !Hcc(gxaxis.cb_mtlclr) & gxaxis.cb_mtlclr {
			put " " "tlcolor("
			put /hidden gxaxis.cb_mtlclr
			put ")"
			put " " "labcolor("
			put /hidden gxaxis.cb_mtlclr
			put ")"
		}
		if Hcc(gxaxis.cb_mtlclr) {
			put " " `"tlcolor(""'
			put /hidden gxaxis.cl_mtlclr
			put `"")"'
			put " " `"labcolor(""'
			put /hidden gxaxis.cl_mtlclr
			put `"")"'
		}
		hoptionarg /hidedefault gxaxis.cb_mang
		hoptionarg /hidedefault gxaxis.ed_mfmt
		hoptionarg /hidedefault gxaxis.ed_mlgap
		hoptionarg /hidedefault gxaxis.cb_mlsize
		hoption gxaxis.ck_mgrid
		if gxaxis.cb_mgall {
			put " "
			put /hidden gxaxis.cb_mgall
		}
		hoptionarg /hidedefault gxaxis.cb_mgwd
		if !Hcc(gxaxis.cb_mgclr) {
			hoptionarg /hidedefault gxaxis.cb_mgclr
		}
		if Hcc(gxaxis.cb_mgclr) {
			hoptionarg /quoted gxaxis.cl_mgclr
		}
		hoptionarg /hidedefault gxaxis.cb_mpat
		if gxaxis.cb_mextend {
			put " "
			put /hidden gxaxis.cb_mextend
		}
	endoptions
END

PROGRAM gxaxis_lines_pr
BEGIN
/* xaxis line options */
  if !D(gxaxis.ed_lline) { /* if ed_lline is disabled then do nothing */
     if gxaxis.ed_lline  {
	put "xline("
	put /hidden gxaxis.ed_lline
	put /program gxaxis_lines_opt_pr
	put ")"
     }
   }
END
PROGRAM gxaxis_lines_opt_pr
BEGIN
	beginoptions
		hoptionarg /hidedefault gxaxis.cb_llwd
		if !Hcc(gxaxis.cb_llclr) {
			hoptionarg /hidedefault gxaxis.cb_llclr
		}
		if Hcc(gxaxis.cb_llclr) {
			hoptionarg /quoted gxaxis.cl_llclr
		}
		hoptionarg /hidedefault gxaxis.cb_llpat
		if gxaxis.cb_lextend {
			put " "
			put /hidden gxaxis.cb_lextend
		}
	endoptions
END

PROGRAM gxaxis_output
BEGIN
	put " " /program gxaxis_title_pr
	put " " /program gxaxis_scale_pr
	put " " /program gxaxis_major_tick_pr
	put " " /program gxaxis_minor_tick_pr
	put " " /program gxaxis_lines_pr
END
/* end */