irf_rename.dlg

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

/*
    irf_rename.dlg

*!  VERSION 1.1.1  29jun2005

*/

VERSION 9.0
SYNCHRONOUS_ONLY

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

DIALOG main, label("irf rename - Rename an IRF result") tabtitle("Main")
BEGIN
  DEFINE _x _xsetbu
  DEFINE _y _top
  INCLUDE _bu_irfset

  TEXT     tx_old            _lft      _ms       _cwd1     ., 		///
  		label("Original name:")
  DEFINE holdy @y
  COMBOBOX cb_old            @         _ss       _cwd1     ., 		///
  		dropdownlist						///
  		contents(irf_list)					///
  		label("Original name")
  TEXT     tx_new            _lft2     holdy     _cwd1     ., 		///
  		label("New name:")
  EDIT     ed_new            @         _ss       _cwd1     ., 		///
  		label("New name") max(32) nomemory

  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_rename) "
	put "control(main.cb_old) "
	put "irfvalue("
		put main.cb_old
	put ") "
	stata hidden
END


PROGRAM command
BEGIN
	put "irf rename "
	require main.cb_old
	require main.ed_new
	put main.cb_old  " "
	put main.ed_new
	/* not doing -set- option since IRF set button at top */
END