ts2.idlg

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

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


SCRIPT p2_mlabel_disable
BEGIN
	p2.tx_mlab.disable
	p2.vl_mlab.disable
	p2.tx_mlsiz.disable
	p2.cb_mlsiz.disable
	p2.tx_mlcol.disable
	p2.cb_mlcol.disable
	p2.cl_mlcol.disable
	p2.tx_mlpos.disable
	p2.cb_mlpos.disable
END

SCRIPT p2_scatter_opts_off
BEGIN
	p2.gb_marker.disable
	p2.tx_msym.disable
	p2.cb_msym.disable
	p2.tx_mcol.disable
	p2.cb_mcol.disable
	p2.cl_mcol.disable
	p2.tx_msize.disable
	p2.cb_msize.disable
	p2.ck_mlab.disable
	script p2_mlabel_disable

END

SCRIPT p2_orient_opts_on
BEGIN
	p2.gb_orient.show
	p2.rb_vertical.show
	p2.rb_horizontal.show
END

SCRIPT p2_orient_opts_off
BEGIN
	p2.gb_orient.hide
	p2.rb_vertical.hide
	p2.rb_horizontal.hide
END

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

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

SCRIPT p2_area_opts_on
BEGIN
	script p2_common_area_opts_on
	p2.tx_blpat.show
	p2.cb_blpat.show
	p2.tx_bfcol.show
	p2.cb_bfcol.show
	p2.cb_bfcol.withvalue p2.cb_bfcol.setvalue "@"
END

SCRIPT p2_area_opts_off
BEGIN
	script p2_common_area_opts_off
	p2.tx_blpat.hide
	p2.cb_blpat.hide
	p2.tx_bfcol.hide
	p2.cb_bfcol.hide
	p2.cl_bfcol.hide
END

SCRIPT p2_bar_opts_on
BEGIN
	script p2_common_area_opts_on
	p2.tx_bfcol.show
	p2.cb_bfcol.show
	p2.cb_bfcol.withvalue p2.cb_bfcol.setvalue "@"
	p2.tx_barwidth.show
	p2.en_barwidth.show
END

SCRIPT p2_bar_opts_off
BEGIN
	script p2_common_area_opts_off
	p2.tx_bfcol.hide
	p2.cb_bfcol.hide
	p2.cl_bfcol.hide
	p2.tx_barwidth.hide
	p2.en_barwidth.hide
END

SCRIPT p2_spike_drop_opts_on
BEGIN
	script p2_common_area_opts_on
	p2.tx_blpat2.show
	p2.cb_blpat2.show
END

SCRIPT p2_spike_drop_opts_off
BEGIN
	script p2_common_area_opts_off
	p2.tx_blpat2.hide
	p2.cb_blpat2.hide
END

SCRIPT p2_rcap_opts_on
BEGIN
	script p2_common_area_opts_on
	p2.tx_capsize.show
	p2.cb_capsize.show
END

SCRIPT p2_rcap_opts_off
BEGIN
	script p2_common_area_opts_off
	p2.tx_capsize.hide
	p2.cb_capsize.hide
END

PROGRAM p2_do_line
BEGIN
	// test hidden condition to prevent action from LIST on load
	if !H(p2.cb_tstype) {
		call script p2_scatter_opts_off
		call script p2_orient_opts_off
		call script p2_area_opts_off
		call script p2_bar_opts_off
		call script p2_spike_drop_opts_off
		call script p2_rcap_opts_off

		call script p2_line_opts_on
	}
END

PROGRAM p2_do_rline
BEGIN
	// test hidden condition to prevent action from LIST on load
	if !H(p2.cb_tsrtype) {
		call script p2_scatter_opts_off
		call script p2_area_opts_off
		call script p2_bar_opts_off
		call script p2_spike_drop_opts_off
		call script p2_rcap_opts_off

		call script p2_line_opts_on
		call script p2_orient_opts_on
	}
END

PROGRAM p2_do_scatter
BEGIN
	call script p2_line_opts_off
	call script p2_orient_opts_off
	call script p2_area_opts_off
	call script p2_bar_opts_off
	call script p2_spike_drop_opts_off
	call script p2_rcap_opts_off

	call program p2_scatter_opts_on
END

PROGRAM p2_do_rscatter
BEGIN
	call script p2_line_opts_off
	call script p2_area_opts_off
	call script p2_bar_opts_off
	call script p2_spike_drop_opts_off
	call script p2_rcap_opts_off

	call program p2_scatter_opts_on
	call script p2_orient_opts_on
END

PROGRAM p2_do_connected
BEGIN
	call script p2_orient_opts_off
	call script p2_area_opts_off
	call script p2_bar_opts_off
	call script p2_spike_drop_opts_off
	call script p2_rcap_opts_off

	call script p2_line_opts_on
	call program p2_scatter_opts_on
END

PROGRAM p2_do_rconnected
BEGIN
	call script p2_area_opts_off
	call script p2_bar_opts_off
	call script p2_spike_drop_opts_off
	call script p2_rcap_opts_off

	call script p2_line_opts_on
	call program p2_scatter_opts_on
	call script p2_orient_opts_on
END

PROGRAM p2_do_area
BEGIN
	call script p2_line_opts_off
	call script p2_scatter_opts_off
	call script p2_bar_opts_off
	call script p2_spike_drop_opts_off
	call script p2_rcap_opts_off

	call script p2_orient_opts_on
	call script p2_area_opts_on
	call p2.gb_common.setlabel "Area"
END


PROGRAM p2_do_bar
BEGIN
	call script p2_line_opts_off
	call script p2_scatter_opts_off
	call script p2_area_opts_off
	call script p2_spike_drop_opts_off

	call script p2_orient_opts_on
	call script p2_bar_opts_on
	call p2.gb_common.setlabel "Bars"
END

PROGRAM p2_do_spike
BEGIN
	call script p2_line_opts_off
	call script p2_scatter_opts_off
	call script p2_area_opts_off
	call script p2_bar_opts_off
	call script p2_rcap_opts_off

	call script p2_orient_opts_on
	call script p2_spike_drop_opts_on
	call p2.gb_common.setlabel "Spikes"
END

PROGRAM p2_do_rcap
BEGIN
	call script p2_line_opts_off
	call script p2_scatter_opts_off
	call script p2_area_opts_off
	call script p2_bar_opts_off

	call script p2_orient_opts_on
	call script p2_spike_drop_opts_on
	call p2.gb_common.setlabel "Spikes"
	call script p2_rcap_opts_on
END

PROGRAM p2_do_dropline
BEGIN
	call script p2_line_opts_off
	call script p2_area_opts_off
	call script p2_bar_opts_off
	call script p2_rcap_opts_off

	call program p2_scatter_opts_on
	call script p2_orient_opts_on
	call script p2_spike_drop_opts_on
	call p2.gb_common.setlabel "Droplines"
END

PROGRAM p2_do_rcapsym
BEGIN
	call script p2_line_opts_off
	call script p2_area_opts_off
	call script p2_bar_opts_off
	call script p2_rcap_opts_off

	call program p2_scatter_opts_on
	call script p2_orient_opts_on
	call script p2_spike_drop_opts_on
	call p2.gb_common.setlabel "Spikes"
END

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

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

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


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


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

	// blpat is used with area
	optionarg p2.cb_blpat

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

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

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

PROGRAM p2_tsline_sub
BEGIN
	varlist p2.vn_var
	ifexp p2.ex_if
	beginoptions
		optionarg p2.cb_tstype
		put " " /program p2_line_opts
		put " " /program p2_scatter_opts
		option p2.rb_horizontal
		put " " /program p2_common_area_opts
		option p2.ck_rtaxis
	endoptions
END

PROGRAM p2_tsrline_sub
BEGIN
	varlist p2.vn_var
	varlist p2.vn_var2
	ifexp p2.ex_if2
	beginoptions
		optionarg p2.cb_tsrtype
		put " " /program p2_rline_opts
		put " " /program p2_scatter_opts
		option p2.rb_horizontal
		put " " /program p2_common_area_opts
		option p2.ck_rtaxis
	endoptions
END

PROGRAM p2_output
BEGIN
	if p2.rb_tsline {
		put "(tsline "
		put /program p2_tsline_sub
		put ") "
	}
	if p2.rb_tsrline {
		put "(tsrline "
		put /program p2_tsrline_sub
		put ") "
	}
END