glegend.idlg

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

	glegend.tx_notmarg.enable
	glegend.cb_notmarg.enable
	glegend.ck_notexp.enable
END

SCRIPT  legend_notbox_off
BEGIN
	glegend.tx_notbclr.disable
	glegend.cb_notbclr.disable
	glegend.cl_notbclr.disable
	glegend.tx_notblclr.disable
	glegend.cb_notblclr.disable
	glegend.cl_notblclr.disable
	glegend.tx_notmarg.disable
	glegend.cb_notmarg.disable
	glegend.ck_notexp.disable
END

LIST glegend_cl_rcolor_sel
BEGIN
	glegend.cl_rcolor.hide
	glegend.cl_rcolor.show
	glegend.cl_rcolor.hide
END

LIST glegend_cl_rlcolor_sel
BEGIN
	glegend.cl_rlcolor.hide
	glegend.cl_rlcolor.show
	glegend.cl_rlcolor.hide
END

LIST glegend_cl_ttlclr_sel
BEGIN
	glegend.cl_ttlclr.hide
	glegend.cl_ttlclr.show
	glegend.cl_ttlclr.hide
END

LIST glegend_cl_ttlbclr_sel
BEGIN
	glegend.cl_ttlbclr.hide
	glegend.cl_ttlbclr.show
	glegend.cl_ttlbclr.hide
END

LIST glegend_cl_ttlblclr_sel
BEGIN
	glegend.cl_ttlblclr.hide
	glegend.cl_ttlblclr.show
	glegend.cl_ttlblclr.hide
END

LIST glegend_cl_stlclr_sel
BEGIN
	glegend.cl_stlclr.hide
	glegend.cl_stlclr.show
	glegend.cl_stlclr.hide
END

LIST glegend_cl_stlbclr_sel
BEGIN
	glegend.cl_stlbclr.hide
	glegend.cl_stlbclr.show
	glegend.cl_stlbclr.hide
END

LIST glegend_cl_stlblclr_sel
BEGIN
	glegend.cl_stlblclr.hide
	glegend.cl_stlblclr.show
	glegend.cl_stlblclr.hide
END

LIST glegend_cl_capclr_sel
BEGIN
	glegend.cl_capclr.hide
	glegend.cl_capclr.show
	glegend.cl_capclr.hide
END

LIST glegend_cl_capbclr_sel
BEGIN
	glegend.cl_capbclr.hide
	glegend.cl_capbclr.show
	glegend.cl_capbclr.hide
END

LIST glegend_cl_capblclr_sel
BEGIN
	glegend.cl_capblclr.hide
	glegend.cl_capblclr.show
	glegend.cl_capblclr.hide
END

LIST glegend_cl_notclr_sel
BEGIN
	glegend.cl_notclr.hide
	glegend.cl_notclr.show
	glegend.cl_notclr.hide
END

LIST glegend_cl_notbclr_sel
BEGIN
	glegend.cl_notbclr.hide
	glegend.cl_notbclr.show
	glegend.cl_notbclr.hide
END

LIST glegend_cl_notblclr_sel
BEGIN
	glegend.cl_notblclr.hide
	glegend.cl_notblclr.show
	glegend.cl_notblclr.hide
END

LIST glegend_cl_lclr_sel
BEGIN
	glegend.cl_lclr.hide
	glegend.cl_lclr.show
	glegend.cl_lclr.hide
END

PROGRAM glegend_controls_pr
BEGIN
   if !H(glegend.cb_legend) {
      if glegend.cb_legend | glegend.cb_colfirst | glegend.cb_txfirst	/*
	*/ | glegend.cb_stack | glegend.cb_layout | glegend.cb_sympl	/*
	*/ | glegend.ed_rowgp | glegend.ed_colgp | glegend.ed_keygp 	/*
	*/ | glegend.cb_lsize | glegend.cb_lclr | glegend.cb_ljust	/*
	*/ | glegend.ck_lallkey | glegend.ed_lab_ord {

	put " "  "legend("
	put /program glegend_controls_opt_pr
	put ")"
      }
   }
END
PROGRAM glegend_controls_opt_pr
BEGIN
	if glegend.cb_legend {
		put glegend.cb_legend
	}
	if glegend.cb_colfirst {
		put " " glegend.cb_colfirst
	}
	if glegend.cb_txfirst {
		put " "  glegend.cb_txfirst
	}
	if glegend.cb_stack {
		put " "  glegend.cb_stack
	}
	if glegend.cb_layout & !H(glegend.cb_layout) {
		put " " glegend.cb_layout "("
		put glegend.sp_rowcol
		put ")"
	}
	optionarg /hidedefault glegend.cb_sympl
	optionarg /hidedefault glegend.ed_rowgp
	optionarg /hidedefault glegend.ed_colgp
	optionarg /hidedefault glegend.ed_lab_ord
	optionarg /hidedefault glegend.ed_keygp
	optionarg /hidedefault glegend.cb_lsize
	if H(glegend.cl_lclr) {
		optionarg /hidedefault glegend.cb_lclr
	}
	if !H(glegend.cl_lclr) {
		optionarg /quoted glegend.cl_lclr
	}
	optionarg /hidedefault glegend.cb_ljust
	option glegend.ck_lallkey
END

PROGRAM glegend_region_pr
BEGIN
   if !H(glegend.gb_region) {
     if glegend.cb_rcolor | !H(glegend.cl_rcolor) | 			///
	glegend.cb_rlcolor | !H(glegend.cl_rlcolor) |			///
	glegend.cb_rpos | glegend.ck_ring | glegend.ck_span | 		///
	glegend.cb_rmargin | glegend.cb_rlwd 				///
     {
	put " "  "legend("
	put /program glegend_region_opt_pr
	put ")"
     }
   }
END
PROGRAM glegend_region_opt_pr
BEGIN
	optionarg /hidedefault glegend.cb_rpos
	option  glegend.ck_ring
	option  glegend.ck_span

	if glegend.cb_rcolor | !H(glegend.cl_rcolor) |			///
		glegend.cb_rlcolor | !H(glegend.cl_rlcolor) |		///
		glegend.cb_rmargin | glegend.cb_rlwd 			///
	{
		put " "  "region("
		put /program glegend_region_opt2_pr
		put ")"
	}
END
PROGRAM glegend_region_opt2_pr
BEGIN
	if H(glegend.cl_rcolor) {
		optionarg /hidedefault glegend.cb_rcolor
	}
	if !H(glegend.cl_rcolor) {
		optionarg /quoted glegend.cl_rcolor
	}
	if H(glegend.cl_rlcolor) {
		optionarg /hidedefault glegend.cb_rlcolor
	}
	if !H(glegend.cl_rlcolor) {
		optionarg /quoted glegend.cl_rlcolor
	}
	optionarg /hidedefault glegend.cb_rmargin
	optionarg /hidedefault glegend.cb_rlwd
END

PROGRAM glegend_text_pr
BEGIN
    if !H(glegend.gb_title) {
	if glegend.ed_title | glegend.ed_stitle | glegend.ed_caption	///
		 | glegend.ed_note 					///
	{
		put " "
		put "legend("
		put /program glegend_text_opt_pr
		put ")"
	}
    }
END

PROGRAM glegend_text_opt_pr
BEGIN
	if glegend.ed_title {
		put " "  "title("
		put /hidden glegend.ed_title
		put /program glegend_title_opt_pr
		put ")"

	}
	if glegend.ed_stitle {
		put " "  "subtitle("
		put /hidden glegend.ed_stitle
		put /program glegend_subtitle_opt_pr
		put ")"
	}
	if glegend.ed_caption {
		put " "  "caption("
		put /hidden glegend.ed_caption
		put /program glegend_caption_opt_pr
		put ")"
	}
	if glegend.ed_note {
		put " "  "note("
		put /hidden glegend.ed_note
		put /program glegend_note_opt_pr
		put ")"
	}
END

PROGRAM glegend_title_opt_pr
BEGIN
	beginoptions
		hoptionarg /hidedefault glegend.cb_ttlsize
		if !Hcc(glegend.cb_ttlclr) {
			hoptionarg /hidedefault glegend.cb_ttlclr
		}
		if Hcc(glegend.cb_ttlclr) {
			hoptionarg /quoted glegend.cl_ttlclr
		}
	        hoptionarg /hidedefault glegend.cb_ttlpos
		hoptionarg /hidedefault glegend.cb_ttljust
		hoptionarg /hidedefault glegend.cb_ttlmrgn
		hoptionarg glegend.ed_ttlgp
		hoption glegend.ck_ttlbox
		if !Hcc(glegend.cb_ttlbclr) {
			hoptionarg /hidedefault glegend.cb_ttlbclr
		}
		if Hcc(glegend.cb_ttlbclr) {
			hoptionarg /quoted glegend.cl_ttlbclr
		}
		if !Hcc(glegend.cb_ttlblclr) {
			hoptionarg /hidedefault glegend.cb_ttlblclr
		}
		if Hcc(glegend.cb_ttlblclr) {
			hoptionarg /quoted glegend.cl_ttlblclr
		}
		hoptionarg glegend.cb_ttlmarg
		hoption glegend.ck_ttlexp
	endoptions
END

PROGRAM glegend_subtitle_opt_pr
BEGIN
	beginoptions
		hoptionarg /hidedefault glegend.cb_stlsize
		if !Hcc(glegend.cb_stlclr) {
			hoptionarg /hidedefault glegend.cb_stlclr
		}
		if Hcc(glegend.cb_stlclr) {
			hoptionarg /quoted glegend.cl_stlclr
		}
	        hoptionarg /hidedefault glegend.cb_stlpos
		hoptionarg /hidedefault glegend.cb_stljust
		hoptionarg /hidedefault glegend.cb_stlmrgn
		hoptionarg glegend.ed_stlgp
		hoption glegend.ck_stlbox
		if !Hcc(glegend.cb_stlbclr) {
			hoptionarg /hidedefault glegend.cb_stlbclr
		}
		if Hcc(glegend.cb_stlbclr) {
			hoptionarg /quoted glegend.cl_stlbclr
		}
		if !Hcc(glegend.cb_stlblclr) {
			hoptionarg /hidedefault glegend.cb_stlblclr
		}
		if Hcc(glegend.cb_stlblclr) {
			hoptionarg /quoted glegend.cl_stlblclr
		}
		hoptionarg glegend.cb_stlmarg
		hoption glegend.ck_stlexp
	endoptions
END

PROGRAM glegend_caption_opt_pr
BEGIN
	beginoptions
		hoptionarg /hidedefault glegend.cb_capsize
		if !Hcc(glegend.cb_capclr) {
			hoptionarg /hidedefault glegend.cb_capclr
		}
		if Hcc(glegend.cb_capclr) {
			hoptionarg /quoted glegend.cl_capclr
		}
	        hoptionarg /hidedefault glegend.cb_cappos
		hoptionarg /hidedefault glegend.cb_capjust
		hoptionarg /hidedefault glegend.cb_capmrgn
		hoptionarg glegend.ed_capgp
		hoption glegend.ck_capbox
		if !Hcc(glegend.cb_capbclr) {
			hoptionarg /hidedefault glegend.cb_capbclr
		}
		if Hcc(glegend.cb_capbclr) {
			hoptionarg /quoted glegend.cl_capbclr
		}
		if !Hcc(glegend.cb_capblclr) {
			hoptionarg /hidedefault glegend.cb_capblclr
		}
		if Hcc(glegend.cb_capblclr) {
			hoptionarg /quoted glegend.cl_capblclr
		}
		hoptionarg glegend.cb_capmarg
		hoption glegend.ck_capexp
	endoptions
END

PROGRAM glegend_note_opt_pr
BEGIN
	beginoptions
		hoptionarg /hidedefault glegend.cb_notsize
		if !Hcc(glegend.cb_notclr) {
			hoptionarg /hidedefault glegend.cb_notclr
		}
		if Hcc(glegend.cb_notclr) {
			hoptionarg /quoted glegend.cl_notclr
		}
	        hoptionarg /hidedefault glegend.cb_notpos
		hoptionarg /hidedefault glegend.cb_notjust
		hoptionarg /hidedefault glegend.cb_notmrgn
		hoptionarg glegend.ed_notgp
		hoption glegend.ck_notbox
		if !Hcc(glegend.cb_notbclr) {
			hoptionarg /hidedefault glegend.cb_notbclr
		}
		if Hcc(glegend.cb_notbclr) {
			hoptionarg /quoted glegend.cl_notbclr
		}
		if !Hcc(glegend.cb_notblclr) {
			hoptionarg /hidedefault glegend.cb_notblclr
		}
		if Hcc(glegend.cb_notblclr) {
			hoptionarg /quoted glegend.cl_notblclr
		}
		hoptionarg glegend.cb_notmarg
		hoption glegend.ck_notexp
	endoptions
END

PROGRAM glegend_output  /* To be used with out programming include */
BEGIN
	put " " /program glegend_controls_pr
	put " " /program glegend_region_pr
	put " " /program glegend_text_pr
END
/* end */