gcaption.idlg

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

END

SCRIPT gcaption_ring_on
BEGIN
	gcaption.ck_span.disable
	gcaption.ck_expand.disable
END

PROGRAM gcaption_ring_off
BEGIN
	call gaction gcaption.ck_span.enable
	if gcaption.ck_box {
		call gaction gcaption.ck_expand.enable
	}
END

SCRIPT gcaption_nring_on
BEGIN
	gcaption.ck_nspan.disable
	gcaption.ck_nexpand.disable
END
PROGRAM gcaption_nring_off
BEGIN
	call gaction gcaption.ck_nspan.enable
	if gcaption.ck_nbox {
		call gaction gcaption.ck_nexpand.enable
	}
END

PROGRAM gcaption_nbox_on
BEGIN
	call gaction gcaption.tx_nbclr.enable
	call gaction gcaption.cb_nbclr.enable
	call gaction gcaption.cl_nbclr.enable
	call gaction gcaption.tx_nblclr.enable
	call gaction gcaption.cb_nblclr.enable
	call gaction gcaption.cl_nblclr.enable
	call gaction gcaption.tx_nbmargin.enable
	call gaction gcaption.cb_nbmargin.enable
	if !gcaption.ck_nring {
		call gaction gcaption.ck_nexpand.enable
	}
END

SCRIPT gcaption_nbox_off
BEGIN
	gcaption.tx_nbclr.disable
	gcaption.cb_nbclr.disable
	gcaption.cl_nbclr.disable
	gcaption.tx_nblclr.disable
	gcaption.cb_nblclr.disable
	gcaption.cl_nblclr.disable
	gcaption.tx_nbmargin.disable
	gcaption.cb_nbmargin.disable
	gcaption.ck_nexpand.disable
END


/* Script to enable this tab */
SCRIPT gcaption_enable
BEGIN
	program gcaption_enable_pr
END

PROGRAM gcaption_enable_pr
BEGIN
	call gaction gcaption.gb_caption.enable
	call gaction gcaption.ed_caption.enable
	call gaction gcaption.tx_size.enable
	call gaction gcaption.cb_size.enable
	call gaction gcaption.tx_clr.enable
	call gaction gcaption.cb_clr.enable
	call gaction gcaption.cl_clr.enable
	call gaction gcaption.tx_posit.enable
	call gaction gcaption.cb_posit.enable
	call gaction gcaption.tx_orient.enable
	call gaction gcaption.cb_orient.enable
	if !gcaption.ck_span {
		call gaction gcaption.ck_ring.enable
	}
	if !gcaption.ck_ring {
		call gaction gcaption.ck_span.enable
	}
	call gaction gcaption.tx_just.enable
	call gaction gcaption.cb_just.enable
	call gaction gcaption.tx_align.enable
	call gaction gcaption.cb_align.enable
	call gaction gcaption.tx_margin.enable
	call gaction gcaption.cb_margin.enable
	call gaction gcaption.tx_lgap.enable
	call gaction gcaption.ed_lgap.enable
	call gaction gcaption.ck_box.enable
	if gcaption.ck_box {
		call program gcaption_box_on
	}

	call gaction gcaption.gb_note.enable
	call gaction gcaption.ed_note.enable
	call gaction gcaption.tx_nsize.enable
	call gaction gcaption.cb_nsize.enable
	call gaction gcaption.tx_nclr.enable
	call gaction gcaption.cb_nclr.enable
	call gaction gcaption.cl_nclr.enable
	call gaction gcaption.tx_nposit.enable
	call gaction gcaption.cb_nposit.enable
	call gaction gcaption.tx_norient.enable
	call gaction gcaption.cb_norient.enable
	if !gcaption.ck_nspan {
		call gaction gcaption.ck_nring.enable
	}
	if !gcaption.ck_nring {
		call gaction gcaption.ck_nspan.enable
	}
	call gaction gcaption.tx_njust.enable
	call gaction gcaption.cb_njust.enable
	call gaction gcaption.tx_nalign.enable
	call gaction gcaption.cb_nalign.enable
	call gaction gcaption.tx_nmargin.enable
	call gaction gcaption.cb_nmargin.enable
	call gaction gcaption.tx_nlgap.enable
	call gaction gcaption.ed_nlgap.enable
	call gaction gcaption.ck_nbox.enable
	if gcaption.ck_nbox {
		call program gcaption_nbox_on
	}

END

/* Script to disable this tab */
SCRIPT gcaption_disable
BEGIN
	gcaption.gb_caption.disable
	gcaption.ed_caption.disable
	gcaption.tx_size.disable
	gcaption.cb_size.disable
	gcaption.tx_clr.disable
	gcaption.cb_clr.disable
	gcaption.cl_clr.disable
	gcaption.tx_posit.disable
	gcaption.cb_posit.disable
	gcaption.tx_orient.disable
	gcaption.cb_orient.disable
	gcaption.ck_ring.disable
	gcaption.ck_span.disable
	gcaption.tx_just.disable
	gcaption.cb_just.disable
	gcaption.tx_align.disable
	gcaption.cb_align.disable
	gcaption.tx_margin.disable
	gcaption.cb_margin.disable
	gcaption.tx_lgap.disable
	gcaption.ed_lgap.disable
	gcaption.ck_box.disable
	script gcaption_box_off

	gcaption.gb_note.disable
	gcaption.ed_note.disable
	gcaption.tx_nsize.disable
	gcaption.cb_nsize.disable
	gcaption.tx_nclr.disable
	gcaption.cb_nclr.disable
	gcaption.cl_nclr.disable
	gcaption.tx_nposit.disable
	gcaption.cb_nposit.disable
	gcaption.tx_norient.disable
	gcaption.cb_norient.disable
	gcaption.ck_nring.disable
	gcaption.ck_nspan.disable
	gcaption.tx_njust.disable
	gcaption.cb_njust.disable
	gcaption.tx_nalign.disable
	gcaption.cb_nalign.disable
	gcaption.tx_nmargin.disable
	gcaption.cb_nmargin.disable
	gcaption.tx_nlgap.disable
	gcaption.ed_nlgap.disable
	gcaption.ck_nbox.disable
	script gcaption_nbox_off
END

PROGRAM gcaption_caption_pr
BEGIN
/* Caption */
    if !H(gcaption.ed_caption) & 					 ///
        ( gcaption.ed_caption | gcaption.cb_size | gcaption.cb_clr	 ///
        | gcaption.cb_posit | gcaption.cb_orient | gcaption.ck_ring	 ///
        | gcaption.ck_span  | gcaption.cb_just | gcaption.cb_align	 ///
        | gcaption.cb_margin | gcaption.ed_lgap | gcaption.ck_box ) {
	put "caption(" gcaption.ed_caption
	put /program gcaption_caption_opt_pr
	put ") "
    }

END

PROGRAM gcaption_caption_opt_pr
BEGIN
	beginoptions
		optionarg /hidedefault gcaption.cb_size
      		if H(gcaption.cl_clr) {
			optionarg /hidedefault gcaption.cb_clr
      		}
      		if !H(gcaption.cl_clr) {
			optionarg /quoted gcaption.cl_clr
		}
		optionarg /hidedefault gcaption.cb_posit
		optionarg /hidedefault gcaption.cb_orient
		option gcaption.ck_ring
		option gcaption.ck_span
		optionarg /hidedefault gcaption.cb_just
		optionarg /hidedefault gcaption.cb_align
		optionarg /hidedefault gcaption.cb_margin
		optionarg gcaption.ed_lgap
		option gcaption.ck_box
		if H(gcaption.cl_bclr) {
			optionarg /hidedefault gcaption.cb_bclr
		}
		if !H(gcaption.cl_bclr) {
			optionarg /quoted gcaption.cl_bclr
		}
		if H(gcaption.cl_blclr) {
			optionarg /hidedefault gcaption.cb_blclr
		}
		if !H(gcaption.cl_blclr) {
			optionarg /quoted gcaption.cl_blclr
		}
		optionarg /hidedefault gcaption.cb_bmargin
		option gcaption.ck_expand
	endoptions
END

PROGRAM gcaption_note_pr
BEGIN

/* Note */
   if !H(gcaption.ed_note) & 						 ///
        ( gcaption.ed_note | gcaption.cb_nsize | gcaption.cb_nclr	 ///
        | gcaption.cb_nposit | gcaption.cb_norient | gcaption.ck_nring	 ///
        | gcaption.ck_nspan  | gcaption.cb_njust | gcaption.cb_nalign	 ///
        | gcaption.cb_nmargin | gcaption.ed_nlgap | gcaption.ck_nbox ) {
	put "note(" gcaption.ed_note
	put /program gcaption_note_opt_pr
	put ") "
    }
END

PROGRAM gcaption_note_opt_pr
BEGIN
	beginoptions
		optionarg /hidedefault gcaption.cb_nsize
      		if H(gcaption.cl_nclr) {
      			optionarg /hidedefault gcaption.cb_nclr
      		}
      		if !H(gcaption.cl_nclr) {
      			optionarg /quoted gcaption.cl_nclr
		}
		optionarg /hidedefault gcaption.cb_nposit
		optionarg /hidedefault gcaption.cb_norient
		option gcaption.ck_nring
		option gcaption.ck_nspan
		optionarg /hidedefault gcaption.cb_njust
		optionarg /hidedefault gcaption.cb_nalign
		optionarg /hidedefault gcaption.cb_nmargin
		optionarg gcaption.ed_nlgap
		option gcaption.ck_nbox
		if H(gcaption.cl_nbclr) {
		      	optionarg /hidedefault gcaption.cb_nbclr
		}
		if !H(gcaption.cl_nbclr) {
			optionarg /quoted gcaption.cl_nbclr
		}
		if H(gcaption.cl_nblclr) {
		      	optionarg /hidedefault gcaption.cb_nblclr
		}
		if !H(gcaption.cl_nblclr) {
			optionarg /quoted gcaption.cl_nblclr
		}
		optionarg /hidedefault gcaption.cb_nbmargin
		option gcaption.ck_nexpand
	endoptions
END

PROGRAM gcaption_output
BEGIN
	put " "  /program gcaption_caption_pr
	put " "  /program gcaption_note_pr
END