p4_opts.idlg

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

	p4_opts.cb_msize.show
END

SCRIPT p4_opts_range_line_opts_show
BEGIN
	script p4_opts_common_area_opts_show
	script p4_opts_common_area_opts_setpos
	p4_opts.tx_connect.setposition	210 75 65  .
	p4_opts.cb_connect.setposition	280 75 99  .
	p4_opts.tx_blpattern.show
	p4_opts.cb_blpattern.show
	p4_opts.tx_connect.show
	p4_opts.cb_connect.show
	script p4_opts_orientation_show
END

SCRIPT p4_opts_scatter_opts_hide
BEGIN
	p4_opts.gb_marker.hide
	p4_opts.tx_msymbol.hide
	p4_opts.cb_msymbol.hide
	p4_opts.tx_mcolor.hide
	p4_opts.cb_mcolor.hide
	p4_opts.cl_mcolor.hide
	p4_opts.tx_msize.hide
	p4_opts.cb_msize.hide
	p4_opts.ck_mlabel.hide
	p4_opts.tx_mlabel.hide
	p4_opts.vn_mlabel.hide
	p4_opts.tx_mlsize.hide
	p4_opts.cb_mlsize.hide
	p4_opts.tx_mlcolor.hide
	p4_opts.cb_mlcolor.hide
	p4_opts.cl_mlcolor.hide
	p4_opts.tx_mlposition.hide
	p4_opts.cb_mlposition.hide
	p4_opts.tx_orientation.hide
	p4_opts.cb_orientation.hide
END

SCRIPT p4_opts_line_opts_hide
BEGIN
	p4_opts.gb_line.hide
	p4_opts.tx_clcolor.hide
	p4_opts.cb_clcolor.hide
	p4_opts.cl_clcolor.hide
	p4_opts.tx_clpattern.hide
	p4_opts.cb_clpattern.hide
	p4_opts.tx_clwidth.hide
	p4_opts.cb_clwidth.hide
	p4_opts.tx_connect.hide
	p4_opts.cb_connect.hide
END

SCRIPT p4_opts_hide_all
BEGIN
	script p4_opts_scatter_opts_hide
	script p4_opts_line_opts_hide
	p4_opts.tx_clwidth.hide
	p4_opts.cb_clwidth.hide
	p4_opts.tx_clpattern.hide
	p4_opts.cb_clpattern.hide
	p4_opts.gb_common.hide
	p4_opts.tx_blcolor.hide
	p4_opts.cb_blcolor.hide
	p4_opts.cl_blcolor.hide
	p4_opts.tx_blwidth.hide
	p4_opts.cb_blwidth.hide
	p4_opts.tx_blpattern.hide
	p4_opts.cb_blpattern.hide
	p4_opts.tx_bfcolor.hide
	p4_opts.cb_bfcolor.hide
	p4_opts.cl_bfcolor.hide
	p4_opts.tx_barwidth.hide
	p4_opts.en_barwidth.hide
	p4_opts.tx_base.hide
	p4_opts.en_base.hide
END

SCRIPT p4_opts_do_none
BEGIN
	script p4_opts_hide_all
	program p4_opts_check_default
END

SCRIPT p4_opts_do_line
BEGIN
	p4_opts.tx_type.setlabel "Plot type: (Line)"
	script p4_opts_hide_all

	script p4_opts_line_setLayout_1
	script p4_opts_line_show
END

SCRIPT p4_opts_do_scatter
BEGIN
	p4_opts.tx_type.setlabel "Plot type: (Scatter)"
	script p4_opts_hide_all

	script p4_opts_scatter_setLayout_1
	script p4_opts_scatter_show
	p4_opts.gb_marker.setlabel "Markers"
END

SCRIPT p4_opts_do_connected
BEGIN
	p4_opts.tx_type.setlabel "Plot type: (Connected)"
	script p4_opts_hide_all

	script p4_opts_line_setLayout_1
	script p4_opts_line_show
	script p4_opts_scatter_setLayout_2
	script p4_opts_scatter_show
	p4_opts.gb_marker.setlabel "Markers"
END

SCRIPT p4_opts_do_area
BEGIN
	p4_opts.tx_type.setlabel "Plot type: (Area)"
	script p4_opts_hide_all

	script p4_opts_area_opts_show
	p4_opts.gb_common.setlabel "Area"
END

SCRIPT p4_opts_do_bar
BEGIN
	p4_opts.tx_type.setlabel "Plot type: (Bar)"
	script p4_opts_hide_all
	script p4_opts_bar_opts_show
	p4_opts.gb_common.setlabel "Bars"
END

SCRIPT p4_opts_do_spike
BEGIN
	p4_opts.tx_type.setlabel "Plot type: (Spike)"
	script p4_opts_hide_all

	script p4_opts_spike_drop_opts_show
	p4_opts.gb_common.setlabel "Spikes"
END

SCRIPT p4_opts_do_dropline
BEGIN
	p4_opts.tx_type.setlabel "Plot type: (Dropline)"
	script p4_opts_hide_all

	script p4_opts_scatter_setLayout_2
	script p4_opts_scatter_show
	script p4_opts_spike_drop_opts_show
	p4_opts.gb_common.setlabel "Droplines"
	p4_opts.gb_marker.setlabel "Markers"
END

SCRIPT p4_opts_do_rarea
BEGIN
	p4_opts.tx_type.setlabel "Plot type: (Range area)"

	script p4_opts_hide_all

	script p4_opts_range_area_opts_show
	p4_opts.gb_common.setlabel "Range area"
END

SCRIPT p4_opts_do_rbar
BEGIN
	p4_opts.tx_type.setlabel "Plot type: (Range bar)"

	script p4_opts_hide_all

	script p4_opts_range_bar_opts_show
	p4_opts.gb_common.setlabel "Range bars"
END

SCRIPT p4_opts_do_rspike
BEGIN
	p4_opts.tx_type.setlabel "Plot type: (Range spike)"

	script p4_opts_hide_all

	script p4_opts_rng_spike_drop_opts_show
	p4_opts.gb_common.setlabel "Range spikes"
END

SCRIPT p4_opts_do_rspike_cap
BEGIN
	p4_opts.tx_type.setlabel "Plot type: (Range spike w/cap)"

	script p4_opts_hide_all

	script p4_opts_rng_spike_drop_opts_show
	script p4_opts_rng_cap_show
	p4_opts.gb_common.setlabel "Range spike with caps"
END

SCRIPT p4_opts_do_rspike_capsym
BEGIN
	p4_opts.tx_type.setlabel "Plot type: (Range spike w/sym.)"

	script p4_opts_hide_all

	script p4_opts_rng_spike_drop_opts_show
	script p4_opts_scatter_setLayout_2
	script p4_opts_scatter_show
	p4_opts.gb_common.setlabel "Range spikes"
	p4_opts.gb_marker.setlabel "Markers"
END

SCRIPT p4_opts_do_rline
BEGIN
	p4_opts.tx_type.setlabel "Plot type: (Range line)"

	script p4_opts_hide_all

	script p4_opts_range_line_opts_show
	p4_opts.gb_common.setlabel "Range lines"
END

SCRIPT p4_opts_do_rconnected
BEGIN
	p4_opts.tx_type.setlabel "Plot type: (Range connected)"

	script p4_opts_hide_all

	script p4_opts_range_line_opts_show
	script p4_opts_scatter_setLayout_2
	script p4_opts_scatter_show
	p4_opts.gb_common.setlabel "Range lines"
END

SCRIPT p4_opts_do_rscatter
BEGIN
	p4_opts.tx_type.setlabel "Plot type: (Range scatter)"

	script p4_opts_hide_all

	script p4_opts_scatter_setLayout_3
	script p4_opts_scatter_show
	script p4_opts_orientation_show
	p4_opts.gb_marker.setlabel "Range scatter (markers)"
END

PROGRAM p4_opts_line_opts
BEGIN
	if !Hcc(p4_opts.cb_clcolor) {
		optionarg /hidedefault p4_opts.cb_clcolor
	}
	if Hcc(p4_opts.cb_clcolor) {
		optionarg /quoted p4_opts.cl_clcolor
	}
	optionarg p4_opts.cb_clpattern
	optionarg p4_opts.cb_clwidth
	optionarg p4_opts.cb_connect
END

PROGRAM p4_opts_scatter_opts
BEGIN
	optionarg p4_opts.cb_msymbol
	if !Hcc(p4_opts.cb_mcolor) {
		optionarg /hidedefault p4_opts.cb_mcolor
	}
	if Hcc(p4_opts.cb_mcolor) {
		optionarg /quoted p4_opts.cl_mcolor
	}
	optionarg p4_opts.cb_msize
	if p4_opts.ck_mlabel {
		require p4_opts.vn_mlabel
		optionarg p4_opts.vn_mlabel
		optionarg p4_opts.cb_mlsize
		if !Hcc(p4_opts.cb_mlcolor) {
			optionarg /hidedefault p4_opts.cb_mlcolor
		}
		if Hcc(p4_opts.cb_mlcolor) {
			optionarg /quoted p4_opts.cl_mlcolor
		}
		optionarg p4_opts.cb_mlposition
	}
END

/* Common opts for area, bar, spike, and dropline */
PROGRAM p4_opts_common_area_opts
BEGIN
	if !Hcc(p4_opts.cb_blcolor) {
		optionarg /hidedefault p4_opts.cb_blcolor
	}
	if Hcc(p4_opts.cb_blcolor) {
		optionarg /quoted p4_opts.cl_blcolor
	}
  	optionarg p4_opts.cb_blwidth
  	optionarg /hidedefault p4_opts.en_base

	put p4_opts.cb_orientation " "

	// bfcolor is used with area and bar
	if !Hcc(p4_opts.cb_bfcolor) {
		optionarg /hidedefault p4_opts.cb_bfcolor
	}
	if Hcc(p4_opts.cb_bfcolor) {
		optionarg /quoted p4_opts.cl_bfcolor
	}

	// blpattern is used with area
	optionarg p4_opts.cb_blpattern

	// barwidth is used with bar
	optionarg /hidedefault p4_opts.en_barwidth
END

PROGRAM p4_opts_plotoptions
BEGIN
	put /program p4_opts_line_opts " "
	put /program p4_opts_common_area_opts " "
	put /program p4_opts_scatter_opts " "
END

PROGRAM p4_opts_output
BEGIN
	put /program p4_opts_recast_output
END

PROGRAM p4_opts_recast_output
BEGIN
	if p4_opts.cb_type & !D(p4_opts.cb_type) {
		put "recast(" p4_opts.cb_type ") "
		put /program p4_opts_plotoptions
	}
END

PROGRAM p4_opts_common_output
BEGIN
	put p4_opts.cb_type " "

	beginoptions
		put /program p4_opts_plotoptions
	endoptions
END

PROGRAM p4_opts_ci_output
BEGIN
	if p4_opts.cb_type & !D(p4_opts.cb_type) {
		put "ciopts("
		put /program p4_opts_recast_output
		put ") "
	}
END

PROGRAM p4_opts_cl_output
BEGIN
	if p4_opts.cb_type & !D(p4_opts.cb_type) {
		put "clopts("
		put /program p4_opts_recast_output
		put ") "
	}
END

PROGRAM p4_opts_mv_output
BEGIN
	if p4_opts.cb_type & !D(p4_opts.cb_type) {
		put "mvopts("
		put /program p4_opts_recast_output
		put ") "
	}
END

PROGRAM p4_opts_ob_output
BEGIN
	if p4_opts.cb_type & !D(p4_opts.cb_type) {
		put "obopts("
		put /program p4_opts_recast_output
		put ") "
	}
END

PROGRAM p4_opts_special_output
BEGIN
	if p4_opts.cb_type & !D(p4_opts.cb_type) {
		put p4_opts_specialOutput "("
		put /program p4_opts_recast_output
		put ") "
	}
END

SCRIPT p4_opts_setup
BEGIN
	create ARRAY	p4_opts_graph_type
	create ARRAY	p4_opts_graph_type_val
	create ARRAY	p4_opts_change
	create STRING	p4_opts_default
END

SCRIPT p4_opts_createAsNoRange
BEGIN
	script p4_opts_setup
	p4_opts_graph_type.Arrpush <Default>
	p4_opts_graph_type.Arrpush Scatter
	p4_opts_graph_type.Arrpush Line
	p4_opts_graph_type.Arrpush Connected
	p4_opts_graph_type.Arrpush Area
	p4_opts_graph_type.Arrpush Bar
	p4_opts_graph_type.Arrpush Spike
	p4_opts_graph_type.Arrpush Dropline

	p4_opts_graph_type_val.Arrpush ""
	p4_opts_graph_type_val.Arrpush scatter
	p4_opts_graph_type_val.Arrpush line
	p4_opts_graph_type_val.Arrpush connected
	p4_opts_graph_type_val.Arrpush area
	p4_opts_graph_type_val.Arrpush bar
	p4_opts_graph_type_val.Arrpush spike
	p4_opts_graph_type_val.Arrpush dropline

	p4_opts_change.Arrpush script p4_opts_do_none
	p4_opts_change.Arrpush script p4_opts_do_scatter
	p4_opts_change.Arrpush script p4_opts_do_line
	p4_opts_change.Arrpush script p4_opts_do_connected
	p4_opts_change.Arrpush script p4_opts_do_area
	p4_opts_change.Arrpush script p4_opts_do_bar
	p4_opts_change.Arrpush script p4_opts_do_spike
	p4_opts_change.Arrpush script p4_opts_do_dropline
END

SCRIPT p4_opts_createAsRange
BEGIN
	script p4_opts_setup
	p4_opts_graph_type.Arrpush <Default>
	p4_opts_graph_type.Arrpush Range area
	p4_opts_graph_type.Arrpush Range bar
	p4_opts_graph_type.Arrpush Range spike
	p4_opts_graph_type.Arrpush Range spike w/cap
	p4_opts_graph_type.Arrpush Range spike w/symbol
	p4_opts_graph_type.Arrpush Range line
	p4_opts_graph_type.Arrpush Range connected
	p4_opts_graph_type.Arrpush Range scatter

	p4_opts_graph_type_val.Arrpush ""
	p4_opts_graph_type_val.Arrpush rarea
	p4_opts_graph_type_val.Arrpush rbar
	p4_opts_graph_type_val.Arrpush rspike
	p4_opts_graph_type_val.Arrpush rcap
	p4_opts_graph_type_val.Arrpush rcapsym
	p4_opts_graph_type_val.Arrpush rline
	p4_opts_graph_type_val.Arrpush rconnected
	p4_opts_graph_type_val.Arrpush rscatter

	p4_opts_change.Arrpush script p4_opts_do_none
	p4_opts_change.Arrpush script p4_opts_do_rarea
	p4_opts_change.Arrpush script p4_opts_do_rbar
	p4_opts_change.Arrpush script p4_opts_do_rspike
	p4_opts_change.Arrpush script p4_opts_do_rspike_cap
	p4_opts_change.Arrpush script p4_opts_do_rspike_capsym
	p4_opts_change.Arrpush script p4_opts_do_rline
	p4_opts_change.Arrpush script p4_opts_do_rconnected
	p4_opts_change.Arrpush script p4_opts_do_rscatter
END

//--- scripts for setting defalut
SCRIPT p4_opts_setDefaultScatter
BEGIN
	p4_opts_default.setstring "Plot type: (Scatter w/defaults)"
END
SCRIPT p4_opts_setDefaultLine
BEGIN
	p4_opts_default.setstring "Plot type: (Line w/defaults)"
END
SCRIPT p4_opts_setDefaultConnected
BEGIN
	p4_opts_default.setstring "Plot type: (Connected w/defaults)"
END
SCRIPT p4_opts_setDefaultArea
BEGIN
	p4_opts_default.setstring "Plot type: (Area w/defaults)"
END
SCRIPT p4_opts_setDefaultBar
BEGIN
	p4_opts_default.setstring "Plot type: (Bar w/defaults)"
END
SCRIPT p4_opts_setDefaultSpike
BEGIN
	p4_opts_default.setstring "Plot type: (Spike w/defaults)"
END
SCRIPT p4_opts_setDefaultDropline
BEGIN
	p4_opts_default.setstring "Plot type: (Dropline w/defaults)"
END
SCRIPT p4_opts_setDefaultRarea
BEGIN
	p4_opts_default.setstring "Plot type: (Range area w/defaults)"
END
SCRIPT p4_opts_setDefaultRbar
BEGIN
	p4_opts_default.setstring "Plot type: (Range bar w/defaults)"
END
SCRIPT p4_opts_setDefaultRspike
BEGIN
	p4_opts_default.setstring "Plot type: (Range spike w/defaults)"
END
SCRIPT p4_opts_setDefaultRcap
BEGIN
	p4_opts_default.setstring "Plot type: (Range cap w/defaults)"
END
SCRIPT p4_opts_setDefaultRcapsym
BEGIN
	p4_opts_default.setstring "Plot type: (Range capped symbols w/defaults)"
END
SCRIPT p4_opts_setDefaultRline
BEGIN
	p4_opts_default.setstring "Plot type: (Range line w/defaults)"
END
SCRIPT p4_opts_setDefaultRconnected
BEGIN
	p4_opts_default.setstring "Plot type: (Range connected w/defaults)"
END
SCRIPT p4_opts_setDefaultRscatter
BEGIN
	p4_opts_default.setstring "Plot type: (Range scatter w/defaults)"
END
//---

PROGRAM p4_opts_check_default
BEGIN
	if ! (p4_opts_default.equals("")) {
		call p4_opts_default.withvalue p4_opts.tx_type.setlabel "@"
	}
	if (p4_opts_default.equals("")) {
		call p4_opts.tx_type.setlabel "Plot type: (Default)"
	}
END

SCRIPT p4_opts_disable
BEGIN
	p4_opts.tx_type.disable
	p4_opts.cb_type.disable
	script p4_opts_do_none
END

SCRIPT p4_opts_enable
BEGIN
	p4_opts.tx_type.enable
	p4_opts.cb_type.enable
	p4_opts.cb_type.withvalue p4_opts.cb_type.setvalue "@"
END

SCRIPT p4_opts_setTabtitleCi
BEGIN
	p4_opts.settabtitle "CI plot"
END