sort.dlg

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

/*
 	sort	

	VERSION 1.0.0  21dec2002

*/

VERSION 8.0

INCLUDE _std_medium
INCLUDE header

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

DEFINE fromwd 50
DEFINE fromsep +55
DEFINE towd 35
DEFINE tosep +45

DIALOG main, label("sort - Sort data") tabtitle("Main")
BEGIN
  TEXT     tx_vars        _lft        _top       _iwd       .,		/*
		*/ label("Variables:")
  VARLIST  vl_vars        _lft         _ss       _iwd       .,		/*
		*/ label("Variables")
  CHECKBOX ck_stable      _lft         _ls       _iwd       .,		/*
		*/ option("stable")					/*
	*/ label("Perform stable sort (equal items keep relative order)")

  GROUPBOX gb_sub    _lft      _xls      _iwd      _ht2,		/*
		*/ label("Restrict sort of observations")		/*
		*/
  CHECKBOX ck_in     _ilft     _ss       fromwd    .,			/*
		*/ label("from:")					/*
		*/ clickon("script sub_on")				/*
		*/ clickoff("script sub_off")				/*
		*/
  SPINNER  sp_from   fromsep   @         _spwd     .,			/*
		*/ min(1)						/*
		*/ max(c(N))						/*
		*/ default(1)						/*
		*/
  TEXT     tx_to     _spsep    @         towd      .,			/*
		*/ label("to:")						/*
		*/ right						/*
		*/
  SPINNER  sp_to     tosep     @         _spwd     .,			/*
		*/ min(1)						/*
		*/ max(c(N))						/*
		*/ default(c(N))					/*
		*/
END

SCRIPT sub_on
BEGIN
	main.sp_from.enable
	main.sp_to.enable
END

SCRIPT sub_off
BEGIN
	main.sp_from.disable
	main.sp_to.disable
END

PROGRAM command
BEGIN
	put "sort"
	varlist main.vl_vars
	if main.ck_in {
		inrange main.sp_from main.sp_to
	}
	beginoptions
		option main.ck_stable
	endoptions
END