scalarlist.dlg

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

/*
  scalar list

  VERSION 1.0.0  21dec2002

*/

VERSION 8.0

INCLUDE _std_small
INCLUDE header

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

DIALOG main, label("scalar list - List scalars") tabtitle("Main")
BEGIN
  RADIO    rb_snames    _lft      _top      _iwd      ., first		/*
		*/ clickon("gaction main.cb_snames.enable")		/*
		*/ label("List:")
  COMBOBOX cb_snames    _indent2  _ss       _inwd     _ht10, append	/*
		*/ contents(scalar)					/*
		*/ error("List")					/*
		*/ label("List") 
  RADIO    rb_all       _lft      _vs10     _iwd      ., last		/*
		*/ clickon("gaction main.cb_snames.disable")		/*
		*/ label("List all scalars")
END


PROGRAM command
BEGIN
	put "scalar list "
	if main.rb_all {
		put "_all"
	}
	if main.rb_snames {
		require main.cb_snames
		put main.cb_snames
	}
END