cons_drop.dlg

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

/*
	constraint drop	

	VERSION 1.0.0  21dec2002

*/

VERSION 8.0

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

DIALOG main, label("constraint drop - Drops constraints") tabtitle("Main")
BEGIN
  RADIO    rb_clist       _lft     _top       _iwd         ., first	/*
		*/ clickon("gaction main.cb_con.enable")		/*
		*/ label("Specify constraints to drop:")
  COMBOBOX cb_con     _indent2      _ss      _inwd     _ht10,		/*
		*/ append						/*
		*/ contents(constraint)					/*
		*/ error("Specify constraints to drop")			/*
		*/ label("")
  RADIO    rb_all         _lft    _vs10       _iwd         ., last	/*
		*/ clickon("gaction main.cb_con.disable")		/*
		*/ label("Drop all constraints")
END

PROGRAM command
BEGIN
	put "constraint drop "
	if main.rb_all {
		put "_all"
	}
	if main.rb_clist {
		require main.cb_con
		put main.cb_con
	}
END