_clusmat_hier2.idlg

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

/*
   _clusmat_hier2.idlg  include file for advanced tab for hier. -clustermat-
			also includes common scripts and scripts for handling
			if/in on the main tab

*! VERSION 1.0.0  19feb2005

*/

DIALOG adv, tabtitle("Advanced")
BEGIN
  CHECKBOX ck_force  _lft   _top   _iwd   .,		///
	option(force)					///
	label("Perform clustering after fixing matrix problems")

  TEXT     tx_gen    @      _xls   @      .,		///
	label("Prefix for generated variables: (leave empty for default)")
  EDIT     ed_gen    @      _ss    _vnwd  ., max(28)	///
	option(generate)				///
	label("Prefix for generated variables")
END


// common scripts

LIST shape_words
BEGIN
	Square symmetric matrix
	Vector of rowwise lower triangle (with diagonal)
	Vector of rowwise strict lower triangle (no diagonal)
	Vector of rowwise upper triangle (with diagonal)
	Vector of rowwise strict upper triangle (no diagonal)
END

LIST shape_values
BEGIN
	full
	lower
	llower
	upper
	uupper
END

SCRIPT ifin_enable
BEGIN
	program ifin_enable_pr
END

SCRIPT ifin_disable
BEGIN
	main.gb_ifin.disable
	main.tx_if.disable
	main.ex_if.disable
	main.ck_in.disable
	main.sp_from.disable
	main.tx_to.disable
	main.sp_to.disable
END


PROGRAM ifin_enable_pr
BEGIN
	call main.gb_ifin.enable
	call main.tx_if.enable
	call main.ex_if.enable
	call main.ck_in.enable
	if main.ck_in {
		call script ifin_enable_in
	}
END

SCRIPT ifin_enable_in
BEGIN
	main.sp_from.enable
	main.tx_to.enable
	main.sp_to.enable
	main.tx_from.enable
END

SCRIPT ifin_disable_in
BEGIN
	main.sp_from.disable
	main.sp_to.disable
	main.tx_to.disable
	main.tx_from.disable
END