estimates_replay.dlg

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

/*
	estimates replay

*!  VERSION 1.1.0  01mar2005

*/

VERSION 9.0

INCLUDE _std_medium
DEFINE  _dlght 210
INCLUDE header
HELP hlp1, view("help estimates")
RESET res1

DIALOG main, label("estimates replay - Replay stored estimation results")/*
		*/ tabtitle("Main")
BEGIN
  RADIO    rb_all         _lft     _top       _iwd         ., first	/*
		*/ clickon("gaction main.cb_elist.disable")		/*
		*/ label("Replay all stored estimation results")
  RADIO    rb_elist          @      _ss          @         ., last	/*
		*/ clickon("gaction main.cb_elist.enable")		/*
		*/ label("Replay estimation results for:")
  COMBOBOX cb_elist   _indent2      _ms      _inwd      _ht7, append	/*
		*/ contents(estimates)					/*
		*/ error("Replay estimation results for")

  CHECKBOX ck_noheader    _lft     _vs7       _iwd         .,		/*
		*/ option(noheader)					/*
		*/ label("Suppress name and title header")
END

PROGRAM command
BEGIN
	put "estimates replay "
	if main.rb_elist {
		require main.cb_elist
		put main.cb_elist
	}
	beginoptions
		option main.ck_noheader
	endoptions
END