gpielabels.idlg

是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到

/*
  gpielabels -- include file for plabels() part of graph pie

*!  VERSION 1.1.1  31mar2005

*/

DIALOG pl,  tabtitle("Labels")
BEGIN
  RADIO    rb_1to4         _lft2     _top      _cwd1     .,	///
	label("Labels 1 to 4") first				///
	onclickon(script pl_show1to4)
  RADIO    rb_5to8         @         _ss       @         .,	///
	label("Labels 5 to 8") last				///
	onclickon(script pl_show5to8)

  RADIO    rb_all          _lft      _top      _cwd1     .,	///
	label("Label all slices") first	 onclickon(script pl_showALL)
  RADIO    rb_some         @         _ss       _cwd1     .,	///
	label("Label individual and groups of slices")		///
	onclickon(program pl_showstuff) last

  GROUPBOX gb_label1      _lft      _ls       _gwd1     _ht7h,	///
	label("Label one")
  DEFINE holdy @y
  TEXT     tx_slice1      _igft     _ss       _txwd     .,	///
	label("Slice:") right
  EDIT     en_slice1      _txsep    @         _txr4gi   .,	///
	label("Slice") numonly
  EDIT     en_slice5      @         @         _txr4gi   .,	///
	label("Slice") numonly
  TEXT     tx_label1      _gft4_2   @         _txwd     .,	///
	label("Label:") right
  COMBOBOX cb_label1      _txsep    @         _txr4gi   .,	///
	dropdown contents(pl_label)
  COMBOBOX cb_label5      @         @         _txr4gi   .,	///
	dropdown contents(pl_label)
  TEXT     tx_size1       _igft     _ms       _txwd     .,	///
	label("Size:") right
  COMBOBOX cb_size1       _txsep    @         _txr4gi   .,	///
	dropdownlist option(size) contents(textsizes)
  COMBOBOX cb_size5       @         @         _txr4gi   .,	///
	dropdownlist option(size) contents(textsizes)
  TEXT     tx_ori1        _gft4_2   @         _txwd     .,	///
	label("Orientation:") right
  COMBOBOX cb_ori1        _txsep    @         _txr4gi   .,	///
	dropdownlist option(orientation)			///
	contents(orientation) values(orientation_values)
  COMBOBOX cb_ori5        @         @         _txr4gi   .,	///
	dropdownlist option(orientation)			///
	contents(orientation) values(orientation_values)
  TEXT     tx_col1        _igft     _ms       _txwd     .,	///
	label("Color:") right
  COMBOBOX cb_col1        _txsep    @         _tcr4gi   .,	///
	contents(colors) option(color) dropdownlist		///
	onselchangelist(pl_col1_change)
  COMBOBOX cb_col5        @         @         _tcr4gi   .,	///
	contents(colors) option(color) dropdownlist		///
	onselchangelist(pl_col5_change)
  COLOR    cl_col1        _tcr4gisep @        _colorwd  .,	///
	option(color)
  COLOR    cl_col5        @         @         _colorwd  .,	///
	option(color)
  TEXT     tx_for1        _gft4_2   @         _txwd     .,	///
	label("Format:") right
  EDIT     ed_for1        _txsep    @         _tcr4gi   .,	///
	label("Format") option(format)
  EDIT     ed_for5        @         @         _tcr4gi   .,	///
	label("Format") option(format)
  BUTTON   bu_for1        _tcr4gisep @        _btwd     .,	///
	label("?") onpush(view help format##|_new)

  GROUPBOX gb_label3      _lft      _xxls     _gwd1     _ht7h,	///
	label("Label three")
  TEXT     tx_slice3      _igft     _ss       _txwd     .,	///
	label("Slice:") right
  EDIT     en_slice3      _txsep    @         _txr4gi   .,	///
	label("Slice") numonly
  EDIT     en_slice7      @         @         _txr4gi   .,	///
	label("Slice") numonly
  TEXT     tx_label3      _gft4_2   @         _txwd     .,	///
	label("Label:") right
  COMBOBOX cb_label3      _txsep    @         _txr4gi   .,	///
	dropdown contents(pl_label)
  COMBOBOX cb_label7      @         @         _txr4gi   .,	///
	dropdown contents(pl_label)
  TEXT     tx_size3       _igft     _ms       _txwd     .,	///
	label("Size:") right
  COMBOBOX cb_size3       _txsep    @         _txr4gi   .,	///
	dropdownlist option(size) contents(textsizes)
  COMBOBOX cb_size7       @         @         _txr4gi   .,	///
	dropdownlist option(size) contents(textsizes)
  TEXT     tx_ori3        _gft4_2   @         _txwd     .,	///
	label("Orientation:") right
  COMBOBOX cb_ori3        _txsep    @         _txr4gi   .,	///
	dropdownlist option(orientation)			///
	contents(orientation) values(orientation_values)
  COMBOBOX cb_ori7        @         @         _txr4gi   .,	///
	dropdownlist option(orientation)			///
	contents(orientation) values(orientation_values)
  TEXT     tx_col3        _igft     _ms       _txwd     .,	///
	label("Color:") right
  COMBOBOX cb_col3        _txsep    @         _tcr4gi   .,	///
	contents(colors) option(color) dropdownlist		///
	onselchangelist(pl_col3_change)
  COMBOBOX cb_col7        @         @         _tcr4gi   .,	///
	contents(colors) option(color) dropdownlist		///
	onselchangelist(pl_col7_change)
  COLOR    cl_col3        _tcr4gisep @        _colorwd  .,	///
	option(color)
  COLOR    cl_col7        @         @         _colorwd  .,	///
	option(color)
  TEXT     tx_for3        _gft4_2   @         _txwd     .,	///
	label("Format:") right
  EDIT     ed_for3        _txsep    @         _tcr4gi   .,	///
	label("Format") option(format)
  EDIT     ed_for7        @         @         _tcr4gi   .,	///
	label("Format") option(format)
  BUTTON   bu_for3        _tcr4gisep @        _btwd     .,	///
	label("?") onpush(view help format##|_new)

/* Column 2 */
  GROUPBOX gb_label2      _gft2     holdy     _gwd1     _ht7h,	///
	label("Label two")
  TEXT     tx_slice2      _igft2    _ss       _txwd     .,	///
	label("Slice:") right
  EDIT     en_slice2      _txsep    @         _txr4gi   .,	///
	label("Slice") numonly
  EDIT     en_slice6      @         @         _txr4gi   .,	///
	label("Slice") numonly
  TEXT     tx_label2      _gft4_4   @         _txwd     .,	///
	label("Label:") right
  COMBOBOX cb_label2      _txsep    @         _txr4gi   .,	///
	dropdown contents(pl_label)
  COMBOBOX cb_label6      @         @         _txr4gi   .,	///
	dropdown contents(pl_label)
  TEXT     tx_size2       _igft2    _ms       _txwd     .,	///
	label("Size:") right
  COMBOBOX cb_size2       _txsep    @         _txr4gi   .,	///
	dropdownlist option(size) contents(textsizes)
  COMBOBOX cb_size6       @         @         _txr4gi   .,	///
	dropdownlist option(size) contents(textsizes)
  TEXT     tx_ori2        _gft4_4   @         _txwd     .,	///
	label("Orientation:") right
  COMBOBOX cb_ori2        _txsep    @         _txr4gi   .,	///
	dropdownlist option(orientation)			///
	contents(orientation) values(orientation_values)
  COMBOBOX cb_ori6        @         @         _txr4gi   .,	///
	dropdownlist option(orientation)			///
	contents(orientation) values(orientation_values)
  TEXT     tx_col2        _igft2    _ms       _txwd     .,	///
	label("Color:") right
  COMBOBOX cb_col2        _txsep    @         _tcr4gi   .,	///
	contents(colors) option(color) dropdownlist		///
	onselchangelist(pl_col2_change)
  COMBOBOX cb_col6        @         @         _tcr4gi   .,	///
	contents(colors) option(color) dropdownlist		///
	onselchangelist(pl_col6_change)
  COLOR    cl_col2        _tcr4gisep @        _colorwd  .,	///
	option(color)
  COLOR    cl_col6        @         @         _colorwd  .,	///
	option(color)
  TEXT     tx_for2        _gft4_4   @         _txwd     .,	///
	label("Format:") right
  EDIT     ed_for2        _txsep    @         _tcr4gi    .,	///
	label("Format") option(format)
  EDIT     ed_for6        @         @         _tcr4gi   .,	///
	label("Format") option(format)
  BUTTON   bu_for2        _tcr4gisep @        _btwd     .,	///
	label("?") onpush(view help format##|_new)

  GROUPBOX gb_label4      _gft2     _xxls     _gwd1     _ht7h,	///
	label("Label four")
  TEXT     tx_slice4      _igft2    _ss       _txwd     .,	///
	label("Slice:") right
  EDIT     en_slice4      _txsep    @         _txr4gi   .,	///
	label("Slice") numonly
  EDIT     en_slice8      @         @         _txr4gi   .,	///
	label("Slice") numonly
  TEXT     tx_label4      _gft4_4   @         _txwd     .,	///
	label("Label:") right
  COMBOBOX cb_label4      _txsep    @         _txr4gi   .,	///
	dropdown contents(pl_label)
  COMBOBOX cb_label8      @         @         _txr4gi   .,	///
	dropdown contents(pl_label)
  TEXT     tx_size4       _igft2    _ms       _txwd     .,	///
	label("Size:") right
  COMBOBOX cb_size4       _txsep    @         _txr4gi   .,	///
	dropdownlist option(size) contents(textsizes)
  COMBOBOX cb_size8       @         @         _txr4gi   .,	///
	dropdownlist option(size) contents(textsizes)
  TEXT     tx_ori4        _gft4_4   @         _txwd     .,	///
	label("Orientation:") right
  COMBOBOX cb_ori4        _txsep    @         _txr4gi   .,	///
	dropdownlist option(orientation)			///
	contents(orientation) values(orientation_values)
  COMBOBOX cb_ori8        @         @         _txr4gi   .,	///
	dropdownlist option(orientation)			///
	contents(orientation) values(orientation_values)
  TEXT     tx_col4        _igft2    _ms       _txwd     .,	///
	label("Color:") right
  COMBOBOX cb_col4        _txsep    @         _tcr4gi   .,	///
	contents(colors) option(color) dropdownlist		///
	onselchangelist(pl_col4_change)
  COMBOBOX cb_col8        @         @         _tcr4gi   .,	///
	contents(colors) option(color) dropdownlist		///
	onselchangelist(pl_col8_change)
  COLOR    cl_col4        _tcr4gisep @        _colorwd  .,	///
	option(color)
  COLOR    cl_col8        @         @         _colorwd  .,	///
	option(color)
  TEXT     tx_for4        _gft4_4   @         _txwd     .,	///
	label("Format:") right
  EDIT     ed_for4        _txsep    @         _tcr4gi   .,	///
	label("Format") option(format)
  EDIT     ed_for8        @         @         _tcr4gi   .,	///
	label("Format") option(format)
  BUTTON   bu_for4        _tcr4gisep @        _btwd     .,	///
	label("?") onpush(view help format##|_new)
END

LIST pl_label
BEGIN
	sum
	percent
	name
END

LIST pl_col1_change
BEGIN
	pl.cl_col1.hide
	pl.cl_col1.show
	pl.cl_col1.hide
END

LIST pl_col2_change
BEGIN
	pl.cl_col2.hide
	pl.cl_col2.show
	pl.cl_col2.hide
END

LIST pl_col3_change
BEGIN
	pl.cl_col3.hide
	pl.cl_col3.show
	pl.cl_col3.hide
END

LIST pl_col4_change
BEGIN
	pl.cl_col4.hide
	pl.cl_col4.show
	pl.cl_col4.hide
END

LIST pl_col5_change
BEGIN
	pl.cl_col5.hide
	pl.cl_col5.show
	pl.cl_col5.hide
END

LIST pl_col6_change
BEGIN
	pl.cl_col6.hide
	pl.cl_col6.show
	pl.cl_col6.hide
END

LIST pl_col7_change
BEGIN
	pl.cl_col7.hide
	pl.cl_col7.show
	pl.cl_col7.hide
END

LIST pl_col8_change
BEGIN
	pl.cl_col8.hide
	pl.cl_col8.show
	pl.cl_col8.hide
END

SCRIPT pl_showALL
BEGIN
	script pl_hideALL
	pl.gb_label1.show
	pl.gb_label1.setlabel "All "
	pl.tx_label1.show
	pl.cb_label1.show
	pl.tx_size1.show
	pl.cb_size1.show
	pl.tx_ori1.show
	pl.cb_ori1.show
	pl.tx_col1.show
	pl.cb_col1.show
	pl.cb_col1.withvalue pl.cb_col1.setvalue "@"
	pl.tx_for1.show
	pl.ed_for1.show
	pl.bu_for1.show
END

SCRIPT pl_hideALL
BEGIN
	pl.rb_1to4.hide
	pl.rb_5to8.hide
	script pl_hidestuff1to4
	script pl_hidestuff5to8
END

PROGRAM pl_showstuff
BEGIN
	call gaction pl.rb_5to8.show
	call gaction pl.rb_1to4.show
	if pl.rb_1to4 {
		call script pl_show1to4
	}
	if pl.rb_5to8 {
		call script pl_show5to8
	}
END

SCRIPT pl_show1to4
BEGIN
	script pl_hidestuff5to8
	script pl_showstuff1to4
END

SCRIPT pl_show5to8
BEGIN
	script pl_hidestuff1to4
	script pl_showstuff5to8
END

SCRIPT pl_showstuff1to4
BEGIN
	pl.gb_label1.show
	pl.gb_label1.setlabel "First label"
	pl.tx_slice1.show
	pl.en_slice1.show
	pl.tx_label1.show
	pl.cb_label1.show
	pl.tx_size1.show
	pl.cb_size1.show
	pl.tx_ori1.show
	pl.cb_ori1.show
	pl.tx_col1.show
	pl.cb_col1.show
	pl.cb_col1.withvalue pl.cb_col1.setvalue "@"
	pl.tx_for1.show
	pl.ed_for1.show
	pl.bu_for1.show

	pl.gb_label2.show
	pl.gb_label2.setlabel "Second label"
	pl.tx_slice2.show
	pl.en_slice2.show
	pl.tx_label2.show
	pl.cb_label2.show
	pl.tx_size2.show
	pl.cb_size2.show
	pl.tx_ori2.show
	pl.cb_ori2.show
	pl.tx_col2.show
	pl.cb_col2.show
	pl.cb_col2.withvalue pl.cb_col2.setvalue "@"
	pl.tx_for2.show
	pl.ed_for2.show
	pl.bu_for2.show

	pl.gb_label3.show
	pl.gb_label3.setlabel "Third label"
	pl.tx_slice3.show
	pl.en_slice3.show
	pl.tx_label3.show
	pl.cb_label3.show
	pl.tx_size3.show
	pl.cb_size3.show
	pl.tx_ori3.show
	pl.cb_ori3.show
	pl.tx_col3.show
	pl.cb_col3.show
	pl.cb_col3.withvalue pl.cb_col3.setvalue "@"
	pl.tx_for3.show
	pl.ed_for3.show
	pl.bu_for3.show

	pl.gb_label4.show
	pl.gb_label4.setlabel "Fourth label"
	pl.tx_slice4.show
	pl.en_slice4.show
	pl.tx_label4.show
	pl.cb_label4.show
	pl.tx_size4.show
	pl.cb_size4.show
	pl.tx_ori4.show
	pl.cb_ori4.show
	pl.tx_col4.show
	pl.cb_col4.show
	pl.cb_col4.withvalue pl.cb_col4.setvalue "@"
	pl.tx_for4.show
	pl.ed_for4.show
	pl.bu_for4.show