matrix_list.dlg

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

/*
  matrix list

*!  VERSION 1.1.1  31mar2005

*/

VERSION 9.0

INCLUDE _std_medium
INCLUDE header

HELP hlp1, view("help matrix utility")
RESET res1

DIALOG main, label("matrix list - List contents of matrix") tabtitle("Main")
BEGIN
  TEXT     tx_mname     _lft      _top      _iwd      .,		/*
		*/ label("Matrix:")
  LISTBOX  lb_mname     @         _ss       @         _ht13,		/*
		*/ contents(matrix)					/*
		*/ label("Matrix")
END


DIALOG opt, tabtitle("Options")
BEGIN
  RADIO    rb_headdef   _lft      _top      _iwd      ., first		/*
		*/ option(NONE)						/*
		*/ clickon("gaction opt.ed_title.disable")		/*
		*/ label("Default title")
  RADIO    rb_noheader  @         _ss       @         .,		/*
		*/ option(noheader)					/*
		*/ clickon("gaction opt.ed_title.disable")		/*
		*/ label("No title")
  RADIO    rb_title     @         _ss       @         ., last		/*
		*/ option(NONE)  /* handled another way */		/*
		*/ clickon("gaction opt.ed_title.enable")		/*
		*/ label("Title:")
  EDIT     ed_title     @         _ss       @         .,		/*
		*/ option(title)					/*
		*/ label("Title")

  TEXT     tx_format    @         _ls       @         .,		/*
		*/ label("Display format for matrix elements:")
  EDIT     ed_format _indent2  _ss       _en7wd    .,		/*
		*/ option("format")				/*
		*/ default("%10.0g")				/*
		*/ label("Display format for matrix elements")
  BUTTON   bn_format _en7sep   @         _cken7r2  .,		/*
		*/ label("Help format...")			/*
  		*/ onpush(view help format##|_new)

  RADIO    rb_half      _lft      _ls       _iwd      ., first		/*
		*/ option(NONE)						/*
		*/ label("Display lower triangle if symmetric matrix")
  RADIO    rb_nohalf    @         _ss       @         ., last		/*
		*/ option(nohalf)					/*
		*/ label("Display full matrix")
END


DIALOG adv, tabtitle("Advanced")
BEGIN
  CHECKBOX ck_nodotz    _lft      _top      _iwd      .,		/*
		*/ option(nodotz)					/*
		*/ label("List .z missing values as blanks")
  CHECKBOX ck_nonames   @         _ms       @         .,		/*
		*/ option(nonames)					/*
		*/ label("Suppress display of row and column names")
  CHECKBOX ck_noblank   @         _ms       @         .,		/*
		*/ option(noblank)					/*
		*/ label("Suppress printing a blank line before matrix")
END

SCRIPT format_on
BEGIN
  opt.ed_format.enable
  opt.bn_format.enable
END

SCRIPT format_off
BEGIN
  opt.ed_format.disable
  opt.bn_format.disable
END

PROGRAM command
BEGIN
	put "matrix list " main.lb_mname
	beginoptions
		option radio(opt rb_headdef rb_noheader rb_title)
		if opt.rb_title {
			optionarg opt.ed_title
		}
		optionarg /hidedefault opt.ed_format
		option radio(opt rb_half rb_nohalf)
		option adv.ck_nodotz
		option adv.ck_nonames
		option adv.ck_noblank
	endoptions
END