gmxaxis_98s.idlg

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

	call gaction gmxaxis.ed_fmt.enable
	call gaction gmxaxis.bt_fmt.enable
	call gaction gmxaxis.tx_lsize.enable
	call gaction gmxaxis.cb_lsize.enable
	call gaction gmxaxis.ck_grid.enable
	if gmxaxis.ck_grid {
		call script gmxgrid_on
	}

	call gaction gmxaxis.tx_mrule.enable
	call gaction gmxaxis.ed_mrule.enable
	call gaction gmxaxis.bt_mrule.enable
	call gaction gmxaxis.tx_mcstm.enable
	call gaction gmxaxis.ed_mcstm.enable
	call gaction gmxaxis.bt_mcstm.enable
	call gaction gmxaxis.tx_mang.enable
	call gaction gmxaxis.cb_mang.enable
	call gaction gmxaxis.tx_mfmt.enable
	call gaction gmxaxis.ed_mfmt.enable
	call gaction gmxaxis.bt_mfmt.enable
	call gaction gmxaxis.tx_mlsize.enable
	call gaction gmxaxis.cb_mlsize.enable
	call gaction gmxaxis.ck_mgrid.enable
	if gmxaxis.ck_mgrid {
		call script gmxmgrid_on
	}

END

SCRIPT gmxgrid_on
BEGIN
	gmxaxis.ck_gclr.enable
	gmxaxis.cl_gclr.enable
	gmxaxis.tx_pat.enable
	gmxaxis.cb_pat.enable
END

SCRIPT gmxgrid_off
BEGIN
	gmxaxis.ck_gclr.disable
	gmxaxis.cl_gclr.disable
	gmxaxis.tx_pat.disable
	gmxaxis.cb_pat.disable
END

SCRIPT gmxmgrid_on
BEGIN
	gmxaxis.ck_mgclr.enable
	gmxaxis.cl_mgclr.enable
	gmxaxis.tx_mpat.enable
	gmxaxis.cb_mpat.enable
END

SCRIPT gmxmgrid_off
BEGIN
	gmxaxis.ck_mgclr.disable
	gmxaxis.cl_mgclr.disable
	gmxaxis.tx_mpat.disable
	gmxaxis.cb_mpat.disable
END


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

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

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

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

SCRIPT gmxmajor_on
BEGIN
	script gmxminor_hide
	program gmxmajor_show
END

SCRIPT gmxminor_on
BEGIN
	script gmxmajor_hide
	program gmxminor_show
END

PROGRAM gmxaxis_style_pr
BEGIN
/* xaxis style options */
   if gmxaxis.ck_range |  gmxaxis.ed_outergp |	/*
	*/ gmxaxis.ck_log | gmxaxis.ck_rev/*
	*/ {

	put "maxes(xscale("
	put /program gmxaxis_style_opt_pr
	put ")) "
   }
END

PROGRAM gmxaxis_style_opt_pr
BEGIN
	if gmxaxis.ck_range {
		require gmxaxis.ed_rangefm
		require gmxaxis.ed_rangeto
		put " " "range(" gmxaxis.ed_rangefm " " gmxaxis.ed_rangeto ")"
	}
	optionarg gmxaxis.ed_outergp
	option gmxaxis.ck_hide
	option gmxaxis.ck_log
	option gmxaxis.ck_rev
END

PROGRAM gmxaxis_major_tick_pr
BEGIN

   /* Programming for major ticks */

   /* if any xlabel options put out "xlabel(" */
   if !D(gmxaxis.ed_rule) & (gmxaxis.ed_rule | gmxaxis.ed_cstm |	/*
	*/ gmxaxis.cb_ang | gmxaxis.ed_fmt | 		/*
	*/ gmxaxis.cb_lsize | gmxaxis.ck_grid){
	put "maxes(xlabel("
	if ((gmxaxis.ed_rule | gmxaxis.ed_cstm) & (!D(gmxaxis.ed_rule) | /*
	*/ !D(gmxaxis.ed_cstm))) {
		put /hidden gmxaxis.ed_rule
		if gmxaxis.ed_cstm & !D(gmxaxis.ed_cstm) {
			put " " /hidden gmxaxis.ed_cstm
		}
	}
	put /program gmxaxis_major_tick_opt_pr
	put "))"
   }
END
PROGRAM gmxaxis_major_tick_opt_pr
BEGIN
	beginoptions
		hoptionarg /hidedefault gmxaxis.cb_ang
		hoptionarg /hidedefault gmxaxis.ed_fmt
		hoptionarg /hidedefault gmxaxis.cb_lsize
		hoption gmxaxis.ck_grid
		if (gmxaxis.ck_gclr) {
			hoptionarg /quoted gmxaxis.cl_gclr
		}
		hoptionarg /hidedefault gmxaxis.cb_pat
	endoptions
END

PROGRAM gmxaxis_minor_tick_pr
BEGIN

   /* Programming for minor ticks */

   /* if any xmlabel options put out "xmlabel(" */
   if !D(gmxaxis.ed_mrule) & (gmxaxis.ed_mrule | gmxaxis.ed_mcstm |	/*
	*/ gmxaxis.cb_mang | gmxaxis.ed_mfmt | 		/*
	*/ gmxaxis.cb_mlsize | gmxaxis.ck_mgrid){
	put "maxes(xmlabel("
	if ((gmxaxis.ed_mrule | gmxaxis.ed_mcstm) & (!D(gmxaxis.ed_mrule) | /*
	*/ !D(gmxaxis.ed_mcstm))) {
		put /hidden gmxaxis.ed_mrule
		if gmxaxis.ed_mcstm & !D(gmxaxis.ed_mcstm) {
			put " " /hidden gmxaxis.ed_mcstm
		}
	}
	put /program gmxaxis_minor_tick_opt_pr
	put "))"
   }
END

PROGRAM gmxaxis_minor_tick_opt_pr
BEGIN
	beginoptions
		hoptionarg /hidedefault gmxaxis.cb_mang
		hoptionarg /hidedefault gmxaxis.ed_mfmt
		hoptionarg /hidedefault gmxaxis.cb_mlsize
		hoption gmxaxis.ck_mgrid
		if (gmxaxis.ck_mgclr) {
			hoptionarg /quoted gmxaxis.cl_mgclr
		}
		hoptionarg /hidedefault gmxaxis.cb_mpat
	endoptions
END

PROGRAM gmxaxis_output
BEGIN
	put " " /program gmxaxis_style_pr
	put " " /program gmxaxis_major_tick_pr
	put " " /program gmxaxis_minor_tick_pr
END