gbox_sc_98s.idlg

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

/*
    gbox_sc_98s - Scripts for box_98s and hbox_98s plots
    **Special version for Windows95/98
    ** Extra small
    
*!  VERSION 1.0.1  20mar2005

*/ 

INCLUDE gover_98
INCLUDE gby_98s
INCLUDE ifin
INCLUDE weights_fpai
INCLUDE gboxstyle_98s
INCLUDE gboxmarkstyle_98s
INCLUDE gboxopt_98
INCLUDE gbaryaxis_98s
INCLUDE gtitle_98s
INCLUDE glegend_98s
INCLUDE gregion_98s

SCRIPT main_markon
BEGIN
	script main_clineoff
	script main_rectoff
	main.gb_mark.enable
	main.tx_msymb.enable
	main.cb_msymb.enable
	main.ck_mcol.enable
	main.cl_mcol.enable
END

SCRIPT main_markoff
BEGIN
	main.gb_mark.disable
	main.tx_msymb.disable
	main.cb_msymb.disable
	main.ck_mcol.disable
	main.cl_mcol.disable
END


SCRIPT main_clineon
BEGIN
	script main_markoff
	main.gb_line.enable
	main.ck_lcol.enable
	main.cl_lcol.enable
	main.tx_lpat.enable
	main.cb_lpat.enable
END

SCRIPT main_clineoff
BEGIN
 	main.gb_line.disable
	main.ck_lcol.disable
	main.cl_lcol.disable
	main.tx_lpat.disable
	main.cb_lpat.disable
END

SCRIPT main_lineon
BEGIN
	script main_markoff
	script main_clineoff
END

PROGRAM gmainopts_output
BEGIN
	option radio (main rb_line rb_cline rb_mark)
	if main.rb_cline {
		if !H(main.cl_lcol) | main.cb_lpat {
			put "medline("
			if !H(main.cl_lcol) {
				optionarg /quoted main.cl_lcol
			}
			optionarg /hidedefault main.cb_lpat
			put ")"
		}
	}
	if main.rb_mark {
		if main.cb_msymb | !H(main.cl_mcol)  {
			put " medmarker("
			optionarg /hidedefault main.cb_msymb
			if !H(main.cl_mcol) {
				optionarg /quoted main.cl_mcol
			}
			put ") "
		}
	}
END