graph_rename.dlg

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

/*
	graph rename	

	VERSION 1.0.0  21dec2002
*/

VERSION 8.0

INCLUDE _std_small
INCLUDE header

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

DIALOG main, label("graph rename - Rename graph in memory") tabtitle("Main")
BEGIN
  CHECKBOX ck_exgr           _lft      _top      _cwd1     .,		/*
		*/ onclickon(main.cb_exgr.enable)			/*
		*/ onclickoff(main.cb_exgr.disable)			/*
		*/ label("Existing graph name:")
  DEFINE   holdy @y
  COMBOBOX cb_exgr           _indent2  _ss       _vnwd     .,		/*
		*/ dropdown						/*
		*/ contents(graphs)					/*
		*/ label("Existing graph name")
  TEXT     tx_newgr          _lft2     holdy     _cwd1     .,		/*
		*/ label("New graph name:") 
  EDIT     ed_newgr          @         _ss       _vnwd     .,		/*
		*/ label("New graph name")
  CHECKBOX ck_replace        _lft      _xls      _iwd      .,		/*
  		*/ label("Replace graph if it already exists in memory")/*
  		*/ option(replace) nomem
END


PROGRAM command
BEGIN
	require main.ed_newgr
	put "graph rename "
	if main.ck_exgr {
		require main.cb_exgr
		put main.cb_exgr
	}
	put " "main.ed_newgr
	beginoptions
		option main.ck_replace
	endoptions
END