stjoin.dlg

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

/*
	stjoin

	VERSION 1.0.0  21dec2002
*/

VERSION 8.0

INCLUDE _std_small
INCLUDE header

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

DIALOG main, label("stjoin - Join time-span records") tabtitle("Main")
BEGIN
  DEFINE   _x _xsetbu
  DEFINE   _y _top
  INCLUDE _bu_stset

  CHECKBOX ck_censored    _lft      _ls        _iwd     .,		/*
		*/ clickon("gaction main.ed_censored.enable")		/*
		*/ clickoff("gaction main.ed_censored.disable")		/*
		*/ label(`"Specify failure variable's "no event" values:"')
  EDIT     ed_censored    _indent2  _ss        _inwd    .,		/*
		*/ option(censored)					/*
		*/ label(`"Specify failure variable's "no event" values"')
END

PROGRAM command
BEGIN
	put "stjoin "
	beginoptions
		optionarg main.ed_censored
	endoptions
END