matrix_define.dlg

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

/*
	matrix define

*!  VERSION 1.1.0  31mar2005

*/

VERSION 9.0

INCLUDE _std_medium
INCLUDE header
HELP hlp1, view("help matrix_define")
RESET res1

DIALOG main, label("matrix define - Matrix definition, operators, and functions") /*
		*/ tabtitle("Main")
BEGIN
  TEXT     tx_mat            _lft      _top      _vnwd     .,		/*
		*/ label("Create matrix named:")
  EDIT     ed_mat            @         _ss       @         .,		/*
		*/ label("Create matrix named") max(32)
  TEXT     tx_matexp         _lft      _ls       _iwd      .,		/*
		*/ label("Matrix definition:")
  EDIT     ed_matexp         @         _ss       @         .,		/*
		*/ label("Matrix definition")
  TEXT     tx_defmat         _lft      _ls       _cwd3_1   .,		/*
		*/ label("Defined Matrices:")
  DEFINE holdy @y
  COMBOBOX cb_matdef         @         _ss       @         _ht7,	/*
  		*/ label("Defined Matrices")				/*
		*/ contents(matrix) dropdown				/*
		*/ onselchange(script add_matrix)
  BUTTON   bu_fcnhlp         _lft4_3   @         _cwd6     _ht0,	/*
  		*/ label("Matrix functions help...") onpush(view help matfcns##|_new)
  BUTTON   bu_operhlp        _lft4_3   _xls      _cwd6     _ht0,	/*
  		*/ label("Matrix operator help...") onpush(view help matoper##|_new)
END

SCRIPT add_matrix
BEGIN
  action withvalue main.ed_matexp.insert `"@"'
END

PROGRAM command
BEGIN
	require main.ed_mat
	require main.ed_matexp
	put "matrix define "
	put main.ed_mat
	put " "
	put "="
	put " "
	put main.ed_matexp
END