label_drop.dlg

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

/*
	label drop

*!  VERSION 1.1.0  28mar2005

	which label - built-in command:  label
*/

VERSION 9.0

INCLUDE _std_small
INCLUDE header

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

DIALOG main, label("label drop - Eliminate value labels") tabtitle("Main")
BEGIN
  TEXT     tx_lab    _lft      _top      _iwd      .,		///
	label("Label to drop:")

  COMBOBOX cb_lab    @         _ss       @         _ht10,	///
	append contents(valuelabels) label("Label to drop")

  CHECKBOX ck_all    _lft      +125      _iwd      .,		///
	onclickon(main.cb_lab.disable)				///
	onclickoff(main.cb_lab.enable)				///
	label("Drop all value labels")
END

PROGRAM command
BEGIN
	put "label drop "
	if ! main.ck_all {
		require main.cb_lab
		put main.cb_lab
	}
	if main.ck_all {
		put "_all"
	}
END