graph_drop.dlg

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

/*
	graph drop

*!  VERSION 1.1.0  18jan2005

*/

VERSION 9.0

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

DIALOG main,label("graph drop - Drop graphs from memory") 		/*
		*/	tabtitle("Main")
BEGIN
  RADIO    rb_memgr          _lft      _top     _iwd      ., first	/*
		*/ label("Drop selected graphs from memory:")		/*
		*/ clickon(main.cb_memgr.enable)
  COMBOBOX cb_memgr          _indent2  _ss       _ibwd     .,		/*
		*/ label("Drop selected graphs from memory")		/*
		*/ dropdown append					/*
		*/ contents(graphs) nomemory

  RADIO    rb_allgr          _lft      _xxls     _iwd      ., last	/*
		*/ label("Drop all graphs from memory")			/*
		*/ clickon(main.cb_memgr.disable)
END

PROGRAM command
BEGIN
	put "graph drop "
	if main.rb_allgr {
		put "_all"
	}
	if main.rb_memgr {
		require main.cb_memgr
		put main.cb_memgr
	}
END