ts3.idlg

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

	call p3.tx_msym.enable
	call p3.cb_msym.enable
	call p3.tx_mcol.enable
	call p3.cb_mcol.enable
	call p3.cl_mcol.enable
	call p3.tx_msize.enable
	call p3.cb_msize.enable
	call p3.ck_mlab.enable
	if p3.ck_mlab {
		call script p3_mlabel_enable
	}
END


SCRIPT p3_mlabel_disable
BEGIN
	p3.tx_mlab.disable
	p3.vl_mlab.disable
	p3.tx_mlsiz.disable
	p3.cb_mlsiz.disable
	p3.tx_mlcol.disable
	p3.cb_mlcol.disable
	p3.cl_mlcol.disable
	p3.tx_mlpos.disable
	p3.cb_mlpos.disable
END

SCRIPT p3_scatter_opts_off
BEGIN
	p3.gb_marker.disable
	p3.tx_msym.disable
	p3.cb_msym.disable
	p3.tx_mcol.disable
	p3.cb_mcol.disable
	p3.cl_mcol.disable
	p3.tx_msize.disable
	p3.cb_msize.disable
	p3.ck_mlab.disable
	script p3_mlabel_disable

END

SCRIPT p3_orient_opts_on
BEGIN
	p3.gb_orient.show
	p3.rb_vertical.show
	p3.rb_horizontal.show
END

SCRIPT p3_orient_opts_off
BEGIN
	p3.gb_orient.hide
	p3.rb_vertical.hide
	p3.rb_horizontal.hide
END

/* Common opts for area, bar, spike, and dropline */
SCRIPT p3_common_area_opts_on
BEGIN
	p3.gb_common.show
	p3.tx_blcol.show
	p3.cb_blcol.show
	p3.cb_blcol.withvalue p3.cb_blcol.setvalue "@"
	p3.tx_blwid.show
	p3.cb_blwid.show
	p3.tx_base.show
	p3.en_base.show
END

/* Common opts for area, bar, spike, and dropline */
SCRIPT p3_common_area_opts_off
BEGIN
	p3.gb_common.hide
	p3.tx_blcol.hide
	p3.cb_blcol.hide
	p3.cl_blcol.hide
	p3.tx_blwid.hide
	p3.cb_blwid.hide
	p3.tx_base.hide
	p3.en_base.hide
END

SCRIPT p3_area_opts_on
BEGIN
	script p3_common_area_opts_on
	p3.tx_blpat.show
	p3.cb_blpat.show
	p3.tx_bfcol.show
	p3.cb_bfcol.show
	p3.cb_bfcol.withvalue p3.cb_bfcol.setvalue "@"
END

SCRIPT p3_area_opts_off
BEGIN
	script p3_common_area_opts_off
	p3.tx_blpat.hide
	p3.cb_blpat.hide
	p3.tx_bfcol.hide
	p3.cb_bfcol.hide
	p3.cl_bfcol.hide
END

SCRIPT p3_bar_opts_on
BEGIN
	script p3_common_area_opts_on
	p3.tx_bfcol.show
	p3.cb_bfcol.show
	p3.cb_bfcol.withvalue p3.cb_bfcol.setvalue "@"
	p3.tx_barwidth.show
	p3.en_barwidth.show
END

SCRIPT p3_bar_opts_off
BEGIN
	script p3_common_area_opts_off
	p3.tx_bfcol.hide
	p3.cb_bfcol.hide
	p3.cl_bfcol.hide
	p3.tx_barwidth.hide
	p3.en_barwidth.hide
END

SCRIPT p3_spike_drop_opts_on
BEGIN
	script p3_common_area_opts_on
	p3.tx_blpat2.show
	p3.cb_blpat2.show
END

SCRIPT p3_spike_drop_opts_off
BEGIN
	script p3_common_area_opts_off
	p3.tx_blpat2.hide
	p3.cb_blpat2.hide
END

SCRIPT p3_rcap_opts_on
BEGIN
	script p3_common_area_opts_on
	p3.tx_capsize.show
	p3.cb_capsize.show
END

SCRIPT p3_rcap_opts_off
BEGIN
	script p3_common_area_opts_off
	p3.tx_capsize.hide
	p3.cb_capsize.hide
END

PROGRAM p3_do_line
BEGIN
	// test hidden condition to prevent action from LIST on load
	if !H(p3.cb_tstype) {
		call script p3_scatter_opts_off
		call script p3_orient_opts_off
		call script p3_area_opts_off
		call script p3_bar_opts_off
		call script p3_spike_drop_opts_off
		call script p3_rcap_opts_off

		call script p3_line_opts_on
	}
END

PROGRAM p3_do_rline
BEGIN
	// test hidden condition to prevent action from LIST on load
	if !H(p3.cb_tsrtype) {
		call script p3_scatter_opts_off
		call script p3_area_opts_off
		call script p3_bar_opts_off
		call script p3_spike_drop_opts_off
		call script p3_rcap_opts_off

		call script p3_line_opts_on
		call script p3_orient_opts_on
	}
END

PROGRAM p3_do_scatter
BEGIN
	call script p3_line_opts_off
	call script p3_orient_opts_off
	call script p3_area_opts_off
	call script p3_bar_opts_off
	call script p3_spike_drop_opts_off
	call script p3_rcap_opts_off

	call program p3_scatter_opts_on
END

PROGRAM p3_do_rscatter
BEGIN
	call script p3_line_opts_off
	call script p3_area_opts_off
	call script p3_bar_opts_off
	call script p3_spike_drop_opts_off
	call script p3_rcap_opts_off

	call program p3_scatter_opts_on
	call script p3_orient_opts_on
END

PROGRAM p3_do_connected
BEGIN
	call script p3_orient_opts_off
	call script p3_area_opts_off
	call script p3_bar_opts_off
	call script p3_spike_drop_opts_off
	call script p3_rcap_opts_off

	call script p3_line_opts_on
	call program p3_scatter_opts_on
END

PROGRAM p3_do_rconnected
BEGIN
	call script p3_area_opts_off
	call script p3_bar_opts_off
	call script p3_spike_drop_opts_off
	call script p3_rcap_opts_off

	call script p3_line_opts_on
	call program p3_scatter_opts_on
	call script p3_orient_opts_on
END

PROGRAM p3_do_area
BEGIN
	call script p3_line_opts_off
	call script p3_scatter_opts_off
	call script p3_bar_opts_off
	call script p3_spike_drop_opts_off
	call script p3_rcap_opts_off

	call script p3_orient_opts_on
	call script p3_area_opts_on
	call p3.gb_common.setlabel "Area"
END


PROGRAM p3_do_bar
BEGIN
	call script p3_line_opts_off
	call script p3_scatter_opts_off
	call script p3_area_opts_off
	call script p3_spike_drop_opts_off

	call script p3_orient_opts_on
	call script p3_bar_opts_on
	call p3.gb_common.setlabel "Bars"
END

PROGRAM p3_do_spike
BEGIN
	call script p3_line_opts_off
	call script p3_scatter_opts_off
	call script p3_area_opts_off
	call script p3_bar_opts_off
	call script p3_rcap_opts_off

	call script p3_orient_opts_on
	call script p3_spike_drop_opts_on
	call p3.gb_common.setlabel "Spikes"
END

PROGRAM p3_do_rcap
BEGIN
	call script p3_line_opts_off
	call script p3_scatter_opts_off
	call script p3_area_opts_off
	call script p3_bar_opts_off

	call script p3_orient_opts_on
	call script p3_spike_drop_opts_on
	call p3.gb_common.setlabel "Spikes"
	call script p3_rcap_opts_on
END

PROGRAM p3_do_dropline
BEGIN
	call script p3_line_opts_off
	call script p3_area_opts_off
	call script p3_bar_opts_off
	call script p3_rcap_opts_off

	call program p3_scatter_opts_on
	call script p3_orient_opts_on
	call script p3_spike_drop_opts_on
	call p3.gb_common.setlabel "Droplines"
END

PROGRAM p3_do_rcapsym
BEGIN
	call script p3_line_opts_off
	call script p3_area_opts_off
	call script p3_bar_opts_off
	call script p3_rcap_opts_off

	call program p3_scatter_opts_on
	call script p3_orient_opts_on
	call script p3_spike_drop_opts_on
	call p3.gb_common.setlabel "Spikes"
END

PROGRAM p3_line_opts
BEGIN
	if !Hcc(p3.cb_clcol) {
		optionarg /hidedefault p3.cb_clcol
	}
	if Hcc(p3.cb_clcol) {
		optionarg /quoted p3.cl_clcol
	}
	optionarg p3.cb_clpat
	optionarg p3.cb_clwidth
	optionarg p3.cb_conn
END

PROGRAM p3_rline_opts
BEGIN
	// options and optionarg are not used here because tsrline
	// uses different options, therefore they are hard coded
	if !Hcc(p3.cb_clcol) & p3.cb_clcol {
		put " " "lcolor(" p3.cb_clcol ")"
	}
	if Hcc(p3.cb_clcol) {
		put " " `"lcolor(""' p3.cl_clcol `"")"'
	}
	if p3.cb_clpat {
		put " " "lpattern(" p3.cb_clpat ")"
	}
	if p3.cb_clwidth {
		put " " "lwidth(" p3.cb_clwidth ")"
	}
	optionarg p3.cb_conn
END

PROGRAM p3_scatter_opts
BEGIN
	optionarg p3.cb_msym
	if !Hcc(p3.cb_mcol) {
		optionarg /hidedefault p3.cb_mcol
	}
	if Hcc(p3.cb_mcol) {
		optionarg /quoted p3.cl_mcol
	}
	optionarg p3.cb_msize
	if p3.ck_mlab {
		require p3.vl_mlab
		optionarg p3.vl_mlab
		optionarg p3.cb_mlsiz
		if !Hcc(p3.cb_mlcol) {
			optionarg /hidedefault p3.cb_mlcol
		}
		if Hcc(p3.cb_mlcol) {
			optionarg /quoted p3.cl_mlcol
		}
		optionarg p3.cb_mlpos
	}
END


/* Common opts for area, bar, spike, and dropline */
PROGRAM p3_common_area_opts
BEGIN
	if !Hcc(p3.cb_blcol) {
		optionarg /hidedefault p3.cb_blcol
	}
	if Hcc(p3.cb_blcol) {
		optionarg /quoted p3.cl_blcol
	}
  	optionarg p3.cb_blwid
  	optionarg /hidedefault p3.en_base


	// bfcol is used with area and bar
	if !Hcc(p3.cb_bfcol) {
		optionarg /hidedefault p3.cb_bfcol
	}
	if Hcc(p3.cb_bfcol) {
		optionarg /quoted p3.cl_bfcol
	}

	// blpat is used with area
	optionarg p3.cb_blpat

	// blpat2 is used with spike and dropline
	optionarg p3.cb_blpat2

	// barwidth is used with bar
	optionarg /hidedefault p3.en_barwidth

	// capsize is used with tsrline rcap only
	optionarg /hidedefault p3.cb_capsize
END

PROGRAM p3_tsline_sub
BEGIN
	varlist p3.vn_var
	ifexp p3.ex_if
	beginoptions
		optionarg p3.cb_tstype
		put " " /program p3_line_opts
		put " " /program p3_scatter_opts
		option p3.rb_horizontal
		put " " /program p3_common_area_opts
		option p3.ck_rtaxis
	endoptions
END

PROGRAM p3_tsrline_sub
BEGIN
	varlist p3.vn_var
	varlist p3.vn_var2
	ifexp p3.ex_if2
	beginoptions
		optionarg p3.cb_tsrtype
		put " " /program p3_rline_opts
		put " " /program p3_scatter_opts
		option p3.rb_horizontal
		put " " /program p3_common_area_opts
		option p3.ck_rtaxis
	endoptions
END

PROGRAM p3_output
BEGIN
	if p3.rb_tsline {
		put "(tsline "
		put /program p3_tsline_sub
		put ") "
	}
	if p3.rb_tsrline {
		put "(tsrline "
		put /program p3_tsrline_sub
		put ") "
	}
END