byif.idlg

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

/*
  byif.idlg -- standard include dialog for by and if options

  VERSION 1.0.0  21dec2002

*/

DIALOG sub, label("") tabtitle("by/if")
BEGIN
  /*--+----1----+----2----+----3----+----4----+----5----+----6----+----7----+*/ 
  CHECKBOX ck_by     _lft      _top      _iwd      .,			/*
		*/ label("Repeat command for groups defined by:")	/*
		*/ clickon("script byon")				/*
		*/ clickoff("script byoff")
  VARLIST  vl_by     _indent2  _ss       _inwd     .,			/*
		*/ label("Repeat command for groups defined by")	/*
		*/
  GROUPBOX gb_sub    _lft      _ls       _iwd      _ht2h,		/*
		*/ label("Restrict to observations")			
  TEXT     tx_if     _ilft     _ms       _ifwd     .,			/*
		*/ label("if:")						/*
		*/ right						/*
		*/
  EXP      ex_if    _indent2   @        _expifwd  .,                   /*
                */ label("Create...")
END

PROGRAM disable_sub
BEGIN
	call script sub_off
END

PROGRAM enable_sub
BEGIN
	call gaction sub.ck_by.enable
	call gaction sub.gb_sub.enable
	call gaction sub.tx_if.enable
        call gaction sub.ex_if.enable
	if sub.ck_by {
		call script byon
	}
END

SCRIPT byon
BEGIN
	sub.vl_by.enable
END

SCRIPT byoff
BEGIN
	sub.vl_by.disable
END

SCRIPT sub_on
BEGIN
	sub.ck_by.enable
	program sub_by_on
	sub.tx_if.enable
	sub.ex_if.enable
END

PROGRAM sub_by_on
BEGIN
	if sub.ck_by {
		call gaction sub.vl_by.enable
	}
END

SCRIPT sub_off
BEGIN
	sub.ck_by.disable
	sub.vl_by.disable
	sub.gb_sub.disable
	sub.tx_if.disable
	sub.ex_if.disable
END

/* END:  byif.idlg */