irf_drop.dlg

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

/*
    irf_drop.dlg

*!  VERSION 1.1.1  20may2005

*/

VERSION 9.0
SYNCHRONOUS_ONLY

INCLUDE _std_small
INCLUDE header
HELP hlp1, view("help irf_drop")
RESET res1

DIALOG main, label("irf drop - Drop list of IRF results") tabtitle("Main")
BEGIN
  DEFINE _x _xsetbu
  DEFINE _y _top
  INCLUDE _bu_irfset

  TEXT     tx_irf            _lft      _ms       _iwd      .,		///
	label("IRF names to drop from the active IRF file:")
  COMBOBOX cb_irf            @         _ss       @         ., 		///
  	dropdown append							///
  	contents(irf_list)						///
	label("IRF names to drop from active IRF file")
  GROUPBOX gb_note           _lft      _ls       _iwd     _ht6,
DEFINE y @y
  TEXT     tx_note1          _indent   _vss      _inwd     .,		///
  	label("Refresh IRF selections anytime the active IRF file is set")
  TEXT     tx_note2          @         _vss      @         .,		///
  	label("or changed, while this dialog is open.")
  BUTTON   bu_refresh        230       _ls       100       ., 		///
  	label("Refresh...") 						///
  	onpush(program main_get_irf)
END

SCRIPT POSTINIT
BEGIN
	program main_get_irf
END

PROGRAM main_get_irf
BEGIN
	put "_get_irf, "
	put "dialog(irf_drop) "
	put "control(main.cb_irf) "
	put "irfvalue("
		put main.cb_irf
	put ") "
	put "irfappends"
	stata hidden
END

PROGRAM command
BEGIN
	require main.cb_irf
	put "irf drop "
	put main.cb_irf
	/* not including -set()- option since set IRF button at top */
END