xtdes.dlg

来自「是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到」· DLG 代码 · 共 94 行

/*
	xtdes

*!  VERSION 1.0.1  02apr2005

*/

VERSION 8.0

INCLUDE _std_medium
INCLUDE header

HELP hlp1, view("help xtdes")
RESET res1

DIALOG main, label("xtdes - Describe pattern of xt data") tabtitle("Main")
BEGIN
  CHECKBOX    ck_pattern     _lft     _top     _ckwd      .,		/*
		*/ label("")						/*
		*/ clickon("script pattern_on") 			/*
		*/ clickoff("script pattern_off")
  SPINNER     sp_pattern   _cksep        @     _spwd      .,		/*
		*/ option("patterns")					/*
		*/ label("Pattern")					/*
		*/ min(1)						/*
		*/ max(1000)						/*
		*/ default(9)
  TEXT        tx_pattern   _spsep        @    _ckspr      .,		/*
		*/ label("Maximum participation patterns")

  RADIO       rb_tsset       _lft     _xls      _iwd      .,    	/*
		*/ first 						/*
		*/ label("Panel and time variables already set by tsset") /*
		*/ clickon("script tsset_on")
  RADIO       rb_notsset     _lft      _ss      _iwd      .,    	/*
		*/ last 						/*
		*/ label("Specify panel and time:")			/*
		*/ clickon("script notsset_on")
  TEXT        tx_i       _indent2      _ss     _inwd      .,		/*
		*/ label("Panel variable:")
  DEFINE      holdcx @cx
  VARNAME     vn_i              @      _ss     _vnwd      .,		/*
		*/ option("i")						/*
		*/ label("Panel variable")
  TEXT        tx_t              @      _ms    holdcx      .,		/*
		*/ label("Time variable:")
  VARNAME     vn_t              @      _ss     _vnwd      .,		/*
		*/ option("t")						/*
		*/ label("Time variable")
END

INCLUDE byifin

SCRIPT tsset_on
BEGIN
main.tx_i.disable
main.tx_t.disable
main.vn_i.disable
main.vn_t.disable
END

SCRIPT notsset_on
BEGIN
main.tx_i.enable
main.tx_t.enable
main.vn_t.enable
main.vn_i.enable
END

SCRIPT pattern_on
BEGIN
main.sp_pattern.enable
main.tx_pattern.enable
END

SCRIPT pattern_off
BEGIN
main.sp_pattern.disable
main.tx_pattern.disable
END


PROGRAM command
BEGIN
	INCLUDE _by_pr
	put "xtdes "
	INCLUDE _ifin_pr
	beginoptions
		optionarg main.sp_pattern
		optionarg main.vn_i
		optionarg main.vn_t
	endoptions
END