ts4.idlg

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

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


SCRIPT p4_mlabel_disable
BEGIN
	p4.tx_mlab.disable
	p4.vl_mlab.disable
	p4.tx_mlsiz.disable
	p4.cb_mlsiz.disable
	p4.tx_mlcol.disable
	p4.cb_mlcol.disable
	p4.cl_mlcol.disable
	p4.tx_mlpos.disable
	p4.cb_mlpos.disable
END

SCRIPT p4_scatter_opts_off
BEGIN
	p4.gb_marker.disable
	p4.tx_msym.disable
	p4.cb_msym.disable
	p4.tx_mcol.disable
	p4.cb_mcol.disable
	p4.cl_mcol.disable
	p4.tx_msize.disable
	p4.cb_msize.disable
	p4.ck_mlab.disable
	script p4_mlabel_disable

END

SCRIPT p4_orient_opts_on
BEGIN
	p4.gb_orient.show
	p4.rb_vertical.show
	p4.rb_horizontal.show
END

SCRIPT p4_orient_opts_off
BEGIN
	p4.gb_orient.hide
	p4.rb_vertical.hide
	p4.rb_horizontal.hide
END

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

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

SCRIPT p4_area_opts_on
BEGIN
	script p4_common_area_opts_on
	p4.tx_blpat.show
	p4.cb_blpat.show
	p4.tx_bfcol.show
	p4.cb_bfcol.show
	p4.cb_bfcol.withvalue p4.cb_bfcol.setvalue "@"
END

SCRIPT p4_area_opts_off
BEGIN
	script p4_common_area_opts_off
	p4.tx_blpat.hide
	p4.cb_blpat.hide
	p4.tx_bfcol.hide
	p4.cb_bfcol.hide
	p4.cl_bfcol.hide
END

SCRIPT p4_bar_opts_on
BEGIN
	script p4_common_area_opts_on
	p4.tx_bfcol.show
	p4.cb_bfcol.show
	p4.cb_bfcol.withvalue p4.cb_bfcol.setvalue "@"
	p4.tx_barwidth.show
	p4.en_barwidth.show
END

SCRIPT p4_bar_opts_off
BEGIN
	script p4_common_area_opts_off
	p4.tx_bfcol.hide
	p4.cb_bfcol.hide
	p4.cl_bfcol.hide
	p4.tx_barwidth.hide
	p4.en_barwidth.hide
END

SCRIPT p4_spike_drop_opts_on
BEGIN
	script p4_common_area_opts_on
	p4.tx_blpat2.show
	p4.cb_blpat2.show
END

SCRIPT p4_spike_drop_opts_off
BEGIN
	script p4_common_area_opts_off
	p4.tx_blpat2.hide
	p4.cb_blpat2.hide
END

SCRIPT p4_rcap_opts_on
BEGIN
	script p4_common_area_opts_on
	p4.tx_capsize.show
	p4.cb_capsize.show
END

SCRIPT p4_rcap_opts_off
BEGIN
	script p4_common_area_opts_off
	p4.tx_capsize.hide
	p4.cb_capsize.hide
END

PROGRAM p4_do_line
BEGIN
	// test hidden condition to prevent action from LIST on load
	if !H(p4.cb_tstype) {
		call script p4_scatter_opts_off
		call script p4_orient_opts_off
		call script p4_area_opts_off
		call script p4_bar_opts_off
		call script p4_spike_drop_opts_off
		call script p4_rcap_opts_off

		call script p4_line_opts_on
	}
END

PROGRAM p4_do_rline
BEGIN
	// test hidden condition to prevent action from LIST on load
	if !H(p4.cb_tsrtype) {
		call script p4_scatter_opts_off
		call script p4_area_opts_off
		call script p4_bar_opts_off
		call script p4_spike_drop_opts_off
		call script p4_rcap_opts_off

		call script p4_line_opts_on
		call script p4_orient_opts_on
	}
END

PROGRAM p4_do_scatter
BEGIN
	call script p4_line_opts_off
	call script p4_orient_opts_off
	call script p4_area_opts_off
	call script p4_bar_opts_off
	call script p4_spike_drop_opts_off
	call script p4_rcap_opts_off

	call program p4_scatter_opts_on
END

PROGRAM p4_do_rscatter
BEGIN
	call script p4_line_opts_off
	call script p4_area_opts_off
	call script p4_bar_opts_off
	call script p4_spike_drop_opts_off
	call script p4_rcap_opts_off

	call program p4_scatter_opts_on
	call script p4_orient_opts_on
END

PROGRAM p4_do_connected
BEGIN
	call script p4_orient_opts_off
	call script p4_area_opts_off
	call script p4_bar_opts_off
	call script p4_spike_drop_opts_off
	call script p4_rcap_opts_off

	call script p4_line_opts_on
	call program p4_scatter_opts_on
END

PROGRAM p4_do_rconnected
BEGIN
	call script p4_area_opts_off
	call script p4_bar_opts_off
	call script p4_spike_drop_opts_off
	call script p4_rcap_opts_off

	call script p4_line_opts_on
	call program p4_scatter_opts_on
	call script p4_orient_opts_on
END

PROGRAM p4_do_area
BEGIN
	call script p4_line_opts_off
	call script p4_scatter_opts_off
	call script p4_bar_opts_off
	call script p4_spike_drop_opts_off
	call script p4_rcap_opts_off

	call script p4_orient_opts_on
	call script p4_area_opts_on
	call p4.gb_common.setlabel "Area"
END


PROGRAM p4_do_bar
BEGIN
	call script p4_line_opts_off
	call script p4_scatter_opts_off
	call script p4_area_opts_off
	call script p4_spike_drop_opts_off

	call script p4_orient_opts_on
	call script p4_bar_opts_on
	call p4.gb_common.setlabel "Bars"
END

PROGRAM p4_do_spike
BEGIN
	call script p4_line_opts_off
	call script p4_scatter_opts_off
	call script p4_area_opts_off
	call script p4_bar_opts_off
	call script p4_rcap_opts_off

	call script p4_orient_opts_on
	call script p4_spike_drop_opts_on
	call p4.gb_common.setlabel "Spikes"
END

PROGRAM p4_do_rcap
BEGIN
	call script p4_line_opts_off
	call script p4_scatter_opts_off
	call script p4_area_opts_off
	call script p4_bar_opts_off

	call script p4_orient_opts_on
	call script p4_spike_drop_opts_on
	call p4.gb_common.setlabel "Spikes"
	call script p4_rcap_opts_on
END

PROGRAM p4_do_dropline
BEGIN
	call script p4_line_opts_off
	call script p4_area_opts_off
	call script p4_bar_opts_off
	call script p4_rcap_opts_off

	call program p4_scatter_opts_on
	call script p4_orient_opts_on
	call script p4_spike_drop_opts_on
	call p4.gb_common.setlabel "Droplines"
END

PROGRAM p4_do_rcapsym
BEGIN
	call script p4_line_opts_off
	call script p4_area_opts_off
	call script p4_bar_opts_off
	call script p4_rcap_opts_off

	call program p4_scatter_opts_on
	call script p4_orient_opts_on
	call script p4_spike_drop_opts_on
	call p4.gb_common.setlabel "Spikes"
END

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

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

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


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


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

	// blpat is used with area
	optionarg p4.cb_blpat

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

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

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

PROGRAM p4_tsline_sub
BEGIN
	varlist p4.vn_var
	ifexp p4.ex_if
	beginoptions
		optionarg p4.cb_tstype
		put " " /program p4_line_opts
		put " " /program p4_scatter_opts
		option p4.rb_horizontal
		put " " /program p4_common_area_opts
		option p4.ck_rtaxis
	endoptions
END

PROGRAM p4_tsrline_sub
BEGIN
	varlist p4.vn_var
	varlist p4.vn_var2
	ifexp p4.ex_if2
	beginoptions
		optionarg p4.cb_tsrtype
		put " " /program p4_rline_opts
		put " " /program p4_scatter_opts
		option p4.rb_horizontal
		put " " /program p4_common_area_opts
		option p4.ck_rtaxis
	endoptions
END

PROGRAM p4_output
BEGIN
	if p4.rb_tsline {
		put "(tsline "
		put /program p4_tsline_sub
		put ") "
	}
	if p4.rb_tsrline {
		put "(tsrline "
		put /program p4_tsrline_sub
		put ") "
	}
END