gby_98.idlg

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

	gby.tx_stlsize.disable
	gby.cb_stlsize.disable
	gby.ck_stlclr.disable
	gby.cl_stlclr.disable
	gby.tx_stlpos.disable
	gby.cb_stlpos.disable
	gby.tx_stlgp.disable
	gby.ed_stlgp.disable

	/* Caption options */
	gby.tx_caption.disable
	gby.ed_caption.disable
	gby.tx_capsize.disable
	gby.cb_capsize.disable
	gby.ck_capclr.disable
	gby.cl_capclr.disable
	gby.tx_cappos.disable
	gby.cb_cappos.disable
	gby.tx_capgp.disable
	gby.ed_capgp.disable

	/* Note options */
	gby.tx_note.disable
	gby.ed_note.disable
	gby.tx_notsize.disable
	gby.cb_notsize.disable
	gby.ck_notclr.disable
	gby.cl_notclr.disable
	gby.tx_notpos.disable
	gby.cb_notpos.disable
	gby.tx_notgp.disable
	gby.ed_notgp.disable

	/* Legend options */
	gby.gb_legend.disable
	gby.tx_legend.disable
	gby.cb_legend.disable
	gby.ck_leghole.disable
	gby.ck_legspan.disable
	gby.tx_legpos.disable
	gby.cb_legpos.disable
	gby.tx_leghole.disable
	gby.ed_leghole.disable
END
/* End Disable All */

SCRIPT gby_leghole_on
BEGIN
	gby.tx_leghole.enable
	gby.ed_leghole.enable
END
SCRIPT gby_leghole_off
BEGIN
	gby.tx_leghole.disable
	gby.ed_leghole.disable
END

LIST gby_layout
BEGIN
	"Default"
	"Rows"
	"Columns"
END
LIST gby_layout_values
BEGIN
	""
	"rows"
	"cols"
END

LIST gby_layout_action
BEGIN
	script gbylayout_default_on
	script gbylayout_row_on
	script gbylayout_col_on
END

SCRIPT gbylayout_row_on
BEGIN
	gby.sp_rowcol.show
	gby.tx_layoutsp.setlabel "Rows:"
END

SCRIPT gbylayout_col_on
BEGIN
	gby.sp_rowcol.show
	gby.tx_layoutsp.setlabel "Columns:"
END

SCRIPT gbylayout_default_on
BEGIN
	gby.tx_layoutsp.setlabel ""
	gby.sp_rowcol.hide
END

LIST gby_xrescale_values
BEGIN
	""
	"xrescale"
	"noxrescale"
END

LIST gby_yrescale_values
BEGIN
	""
	"yrescale"
	"noyrescale"
END

LIST gby_mode
BEGIN
	"Title"
	"Subtitle"
	"Caption"
	"Note"
END

LIST gby_mode_action
BEGIN
	script gby_title_on
	script gby_subtitle_on
	script gby_caption_on
	script gby_note_on
END

SCRIPT gby_hide_all
BEGIN
	script gby_subtitle_hide
	script gby_caption_hide
	script gby_note_hide
	script gby_title_hide
END

SCRIPT gby_show_all
BEGIN
	program gby_title_show
	program gby_subtitle_show
	program gby_caption_show
	program gby_note_show
END

SCRIPT gby_title_on
BEGIN
	script gby_hide_all
	program gby_title_show
END
SCRIPT gby_subtitle_on
BEGIN
	script gby_hide_all
	program gby_subtitle_show
END
SCRIPT gby_caption_on
BEGIN
	script gby_hide_all
	program gby_caption_show
END
SCRIPT gby_note_on
BEGIN
	script gby_hide_all
	program gby_note_show
END

PROGRAM gby_title_show
BEGIN
	call gaction gby.tx_mode.setlabel "Title options"
	call gaction gby.tx_title.show
	call gaction gby.ed_title.show
	call gaction gby.tx_ttlsize.show
	call gaction gby.cb_ttlsize.show
	call gaction gby.ck_ttlclr.show
	if gby.ck_ttlclr {
		call gaction gby.cl_ttlclr.show
	}
	call gaction gby.tx_ttlpos.show
	call gaction gby.cb_ttlpos.show
	call gaction gby.tx_ttlgp.show
	call gaction gby.ed_ttlgp.show
END

SCRIPT gby_title_hide
BEGIN
	gby.tx_title.hide
	gby.ed_title.hide
	gby.tx_ttlsize.hide
	gby.cb_ttlsize.hide
	gby.ck_ttlclr.hide
	gby.cl_ttlclr.hide
	gby.tx_ttlpos.hide
	gby.cb_ttlpos.hide
	gby.tx_ttlgp.hide
	gby.ed_ttlgp.hide
END

PROGRAM gby_subtitle_show
BEGIN
	call gaction gby.tx_mode.setlabel "Subtitle options"
	call gaction gby.tx_stitle.show
	call gaction gby.ed_stitle.show
	call gaction gby.tx_stlsize.show
	call gaction gby.cb_stlsize.show
	call gaction gby.ck_stlclr.show
	if gby.ck_stlclr {
		call gaction gby.cl_stlclr.show
	}
	call gaction gby.tx_stlpos.show
	call gaction gby.cb_stlpos.show
	call gaction gby.tx_stlgp.show
	call gaction gby.ed_stlgp.show
END

SCRIPT gby_subtitle_hide
BEGIN
	gby.tx_stitle.hide
	gby.ed_stitle.hide
	gby.tx_stlsize.hide
	gby.cb_stlsize.hide
	gby.ck_stlclr.hide
	gby.cl_stlclr.hide
	gby.tx_stlpos.hide
	gby.cb_stlpos.hide
	gby.tx_stlgp.hide
	gby.ed_stlgp.hide
END

PROGRAM gby_caption_show
BEGIN
	call gaction gby.tx_mode.setlabel "Caption options"
	call gaction gby.tx_caption.show
	call gaction gby.ed_caption.show
	call gaction gby.tx_capsize.show
	call gaction gby.cb_capsize.show
	call gaction gby.ck_capclr.show
	if gby.ck_capclr {
		call gaction gby.cl_capclr.show
	}
	call gaction gby.tx_cappos.show
	call gaction gby.cb_cappos.show
	call gaction gby.tx_capgp.show
	call gaction gby.ed_capgp.show
END

SCRIPT gby_caption_hide
BEGIN
	gby.tx_caption.hide
	gby.ed_caption.hide
	gby.tx_capsize.hide
	gby.cb_capsize.hide
	gby.ck_capclr.hide
	gby.cl_capclr.hide
	gby.tx_cappos.hide
	gby.cb_cappos.hide
	gby.tx_capgp.hide
	gby.ed_capgp.hide
END

PROGRAM gby_note_show
BEGIN
	call gaction gby.tx_mode.setlabel "Note options"
	call gaction gby.tx_note.show
	call gaction gby.ed_note.show
	call gaction gby.tx_notsize.show
	call gaction gby.cb_notsize.show
	call gaction gby.ck_notclr.show
	if gby.ck_notclr {
		call gaction gby.cl_notclr.show
	}
	call gaction gby.tx_notpos.show
	call gaction gby.cb_notpos.show
	call gaction gby.tx_notgp.show
	call gaction gby.ed_notgp.show
END

SCRIPT gby_note_hide
BEGIN
	gby.tx_note.hide
	gby.ed_note.hide
	gby.tx_notsize.hide
	gby.cb_notsize.hide
	gby.ck_notclr.hide
	gby.cl_notclr.hide
	gby.tx_notpos.hide
	gby.cb_notpos.hide
	gby.tx_notgp.hide
	gby.ed_notgp.hide
END

SCRIPT gby_gmatrix_show /* Show some components for gmatrix */
BEGIN
	gby.tx_xrescale.show
	gby.cb_xrescale.show
	gby.tx_yrescale.show
	gby.cb_yrescale.show
	gby.gb_legend.show
	gby.tx_legend.show
	gby.cb_legend.show
	gby.ck_leghole.show
	gby.ck_legspan.show
	gby.tx_legpos.show
	gby.cb_legpos.show
	gby.tx_leghole.show
	gby.ed_leghole.show
END

SCRIPT gby_gmatrix_hide /* Hide some components for gmatrix */
BEGIN
	gby.tx_xrescale.hide
	gby.cb_xrescale.hide
	gby.tx_yrescale.hide
	gby.cb_yrescale.hide
	gby.gb_legend.hide
	gby.tx_legend.hide
	gby.cb_legend.hide
	gby.ck_leghole.hide
	gby.ck_legspan.hide
	gby.tx_legpos.hide
	gby.cb_legpos.hide
	gby.tx_leghole.hide
	gby.ed_leghole.hide
END

LIST gby_legend_values
BEGIN
	""
	"on"
	"off"
END

LIST gby_legend_action
BEGIN
	program gby_legend_opt_on
	program gby_legend_opt_on
	script gby_legend_opt_off
END

PROGRAM gby_legend_opt_on
BEGIN
	if !H(gby.cb_legend) {
		call gaction gby.ck_leghole.enable
		if gby.ck_leghole {
			call gaction gby.tx_leghole.enable
			call gaction gby.ed_leghole.enable
		}
		call gaction gby.ck_legspan.enable
		call gaction gby.tx_legpos.enable
		call gaction gby.cb_legpos.enable
	}
END

SCRIPT gby_legend_opt_off
BEGIN
	gby.ck_leghole.disable
	gby.tx_leghole.disable
	gby.ed_leghole.disable
	gby.ck_legspan.disable
	gby.tx_legpos.disable
	gby.cb_legpos.disable
END

/* Begin Region programming */
PROGRAM gby_graph_region_opt_subpr
BEGIN
	if !H(gby.cl_gregfclr) {
		optionarg /quoted gby.cl_gregfclr
	}
	optionarg /hidedefault gby.cb_gregmarg
END

PROGRAM gby_plot_region_opt_subpr
BEGIN

	if !H(gby.cl_pregfclr) {
		optionarg /quoted gby.cl_pregfclr
	}
	optionarg /hidedefault gby.cb_pregmarg

END
/* End Region programming */

/* Begin Title, Subtitle, Caption, and Note Option Programming */
PROGRAM gby_text_opt_pr
BEGIN
	if gby.ed_title | gby.cb_ttlsize | gby.ck_ttlclr | gby.cb_ttlpos   ///
	   | gby.ed_ttlgp  {
		put " "  "title("
		put /hidden gby.ed_title
		put /program gby_title_opt_pr
		put ")"
	}
	if gby.ed_stitle | gby.cb_stlsize | gby.ck_stlclr | gby.cb_stlpos  ///
	   | gby.ed_stlgp  {
		put " "  "subtitle("
		put /hidden gby.ed_stitle
		put /program gby_subtitle_opt_pr
		put ")"
	}
	if gby.ed_caption | gby.cb_capsize | gby.ck_capclr | gby.cb_cappos ///
	   | gby.ed_capgp  {
		put " "  "caption("
		put /hidden gby.ed_caption
		put /program gby_caption_opt_pr
		put ")"
	}
	if gby.ed_note | gby.cb_notsize | gby.ck_notclr | gby.cb_notpos    ///
	   | gby.ed_notgp  {
		put " "  "note("
		put /hidden gby.ed_note
		put /program gby_note_opt_pr
		put ")"
	}
END
PROGRAM gby_title_opt_pr
BEGIN
	beginoptions
		hoptionarg /hidedefault gby.cb_ttlsize
		if gby.ck_ttlclr {
			hoptionarg /quoted gby.cl_ttlclr
		}
	        hoptionarg /hidedefault gby.cb_ttlpos
		hoptionarg gby.ed_ttlgp
	endoptions
END

PROGRAM gby_subtitle_opt_pr
BEGIN
	beginoptions
		hoptionarg /hidedefault gby.cb_stlsize
		if gby.ck_stlclr {
			hoptionarg /quoted gby.cl_stlclr
		}
	        hoptionarg /hidedefault gby.cb_stlpos
		hoptionarg gby.ed_stlgp
	endoptions
END

PROGRAM gby_caption_opt_pr
BEGIN
	beginoptions
		hoptionarg /hidedefault gby.cb_capsize
		if gby.ck_capclr {
			hoptionarg /quoted gby.cl_capclr
		}
	        hoptionarg /hidedefault gby.cb_cappos
		hoptionarg gby.ed_capgp
	endoptions
END

PROGRAM gby_note_opt_pr
BEGIN
	beginoptions
		hoptionarg /hidedefault gby.cb_notsize
		if gby.ck_notclr {
			hoptionarg /quoted gby.cl_notclr
		}
	        hoptionarg /hidedefault gby.cb_notpos
		hoptionarg gby.ed_notgp
	endoptions
END
/* End Title, Subtitle, Caption, and Note Option Programming */

/* Begin Legend Option Programming */
PROGRAM gby_legend_opt_pr
BEGIN
	put " " gby.cb_legend
	optionarg /hidedefault gby.cb_legpos
	if gby.ck_leghole {
		require gby.ed_leghole
		put " "  "at(" gby.ed_leghole ")"
	}
	option gby.ck_legspan
END
/* End Legend Option Programming */

PROGRAM gby_options_output
BEGIN
	option gby.ck_total
	option gby.ck_missing
	option gby.ck_colfirst
	optionarg gby.ed_holes
	if gby.cb_layout {
		put " " gby.cb_layout "("
		put gby.sp_rowcol
		put ")"
	}
	optionarg gby.cb_style
	optionarg gby.cb_imargin
	if gby.ed_iscale & !default(gby.ed_iscale) {
		put "iscale(*" gby.ed_iscale ")"
	}
	if gby.cb_xrescale {
		put " " gby.cb_xrescale
	}
	if gby.cb_yrescale {
		put " " gby.cb_yrescale
	}

	if !H(gby.cl_gregfclr) | gby.cb_gregmarg {
		put " "  "graphregion("
		put /program gby_graph_region_opt_subpr
		put ")"
	}
	if !H(gby.cl_pregfclr) | gby.cb_pregmarg {
		put " "  "plotregion("
		put /program gby_plot_region_opt_subpr
		put ")"
	}

	put " " /program gby_text_opt_pr
	if gby.cb_legend | gby.ck_leghole | gby.ck_legspan | gby.cb_legpos {
		put " "  "legend("
		put /program gby_legend_opt_pr
		put ")"
	}
END

PROGRAM gby_opt_pr	/* graph by option programming */
BEGIN
	put gby.vl_vars
	beginoptions
		put /program gby_options_output
	endoptions
END

PROGRAM gby_output /* To be used with out programming include */
BEGIN
	if !H(gby.vl_vars) & gby.vl_vars {
		put " "  "by("
		put /program gby_opt_pr
		put ")"
	}
END

PROGRAM gby_byopts_output
BEGIN
	if gby.ck_colfirst | gby.cb_style | gby.ed_holes 	///
	 | gby.cb_imargin | gby.cb_layout  			///
	 | (gby.ed_iscale & ! gby.ed_iscale.isdefault())	///
	 | gby.cb_xrescale | gby.cb_yrescale | gby.ck_gregfclr	///
	 | gby.cb_gregmarg | gby.ck_pregfclr 			///
	 | gby.cb_pregmarg | gby.ed_title | gby.ed_stitle	///
	 | gby.ed_caption | gby.ed_note | gby.cb_legend		///
	 | gby.ck_leghole | gby.ck_legspan | gby.cb_legpos	///
	{
		put " " "byopts("
		put /program gby_options_output
		put ")"
	}
END