_p_gentype_sc.idlg

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

/*
	INCLUDE file containing SCRIPTs for the varlist and typlist for the
	predict command.  (May also be used elsewhere).

*!  VERSION 1.0.1  28mar2005

*/

SCRIPT main_PREINIT
BEGIN
	create BOOLEAN _p_gentype_isMulti
	create BOOLEAN _p_gentype_hasStub
	_p_gentype_hasStub.settrue // the default
	create STRING _p_gentype_size
	_p_gentype_size.setstring "large"
END

SCRIPT _p_gentype_multiple
BEGIN
	_p_gentype_isMulti.settrue
	program _p_gentype_Multiple
	program __p_gentype_setMultiTitle

END
SCRIPT _p_gentype_single
BEGIN
	_p_gentype_isMulti.setfalse
	main.tx_var.setlabel "New variable name:"
	main.ed_var.setlabel "New variable name"
	main.ed_var.setposition . . 120 .
END

SCRIPT _p_gentype_setHasStubTrue
BEGIN
	_p_gentype_hasStub.settrue
	program __p_gentype_setMultiTitle
END
SCRIPT _p_gentype_setHasStubFalse
BEGIN
	_p_gentype_hasStub.setfalse
	program __p_gentype_setMultiTitle
END

// NOTE: the following widths should be equivalent to _vlwd from the
// respective _std_*.idlg file.
PROGRAM _p_gentype_Multiple
BEGIN
	if _p_gentype_size.equals("large") {
		call main.ed_var.setposition . . 340 .
	}
	if _p_gentype_size.equals("medium") {
		call main.ed_var.setposition . . 250 .
	}
END

PROGRAM __p_gentype_setMultiTitle
BEGIN
    if _p_gentype_isMulti {
	if _p_gentype_hasStub {
		call main.tx_var.setlabel "New variable names or variable stub* : "
		call main.ed_var.setlabel "New variable names or variable stub*"
	}
	if ! _p_gentype_hasStub {
		call main.tx_var.setlabel "New variable names: "
		call main.ed_var.setlabel "New variable names"
	}
     }
END

SCRIPT _p_gentype_setLarge
BEGIN
	_p_gentype_size.setstring "large"
END
SCRIPT _p_gentype_setMedium
BEGIN
	_p_gentype_size.setstring "medium"
END

SCRIPT _p_gentype_nooffset_disable
BEGIN
	main.ck_nooffset.disable
END
SCRIPT _p_gentype_nooffset_enable
BEGIN
	main.ck_nooffset.enable
END

SCRIPT _p_gentype_scores_on
BEGIN
	script _p_gentype_multiple
	script _p_gentype_nooffset_disable
END
SCRIPT _p_gentype_scores_off
BEGIN
	script _p_gentype_single
	script _p_gentype_nooffset_enable
END

SCRIPT _p_gentype_score_on
BEGIN
	script _p_gentype_single
	script _p_gentype_nooffset_disable
END
SCRIPT _p_gentype_score_off
BEGIN
	script _p_gentype_single
	script _p_gentype_nooffset_enable
END

PROGRAM _p_gentype_output
BEGIN
	require main.ed_var
	if ! main.cb_type.isdefault() {
		put  main.cb_type " "
		if _p_gentype_isMulti & ! main.ed_var.contains("*") {
			put "("
		}
		put main.ed_var
		if _p_gentype_isMulti & ! main.ed_var.contains("*") {
			put ")"
		}
		put " "
	}
	if main.cb_type.isdefault() {
		put " " main.ed_var " "
	}
END