📄 gbar.idlg
字号:
/*
gbar - Dialog tab for bar and hbar charts
*! VERSION 1.0.0 19jan2005
// SCRIPTS and PROGRAMS for external use
* PROGRAM gbar_output
*/
SCRIPT gbar_PREINIT
BEGIN
create STRING gbar_commandName
gbar_commandName.setstring "bar"
END
DIALOG gbar, label("graph bar - Bar charts") tabtitle("Main")
BEGIN
TEXT tx_stat1 _lft _top _gwd4_1 ., /*
*/label("Statistic:")
TEXT tx_newA _gft4_2 @ _vnwd ., /*
*/label("New name (optional)")
TEXT tx_exA _vneqsep @ _vnwd ., /*
*/label("Variable")
TEXT tx_newB _vngapsep @ _vnwd ., /*
*/label("New name (optional)")
TEXT tx_exB _vneqsep @ _vnwd ., /*
*/label("Variable")
COMBOBOX cb_stat1 _lft _ss _spr4 ., /*
*/label("Statistic") contents(stats) dropdownlist /*
*/values(statsv) onselchangelist(gbar_stats_change) /*
*/ option(" ")
SPINNER sp_stat1 +110 @ _spwd ., /*
*/ label("Statistic") min(1) max(99) default(50)
EDIT ed_stat1A _gft4_2 @ _vnwd ., /*
*/label("New name 1A")
TEXT tx_eqA _vnsep @ _eqlwd ., /*
*/label("=") center
VARNAME vn_stat1A _eqlsep @ _vnwd ., /*
*/label("Variable 1A")
TEXT tx_comA _vnsep @ _gapwd ., /*
*/label(" ") center
EDIT ed_stat1B _gapsep @ _vnwd ., /*
*/label("New name 1B")
TEXT tx_eqB _vnsep @ _eqlwd ., /*
*/label("=") center
VARNAME vn_stat1B _eqlsep @ _vnwd ., /*
*/label("Variable 1B")
EDIT ed_stat1C _gft4_2 _ms _vnwd ., /*
*/label("New name 1C")
TEXT tx_eqC _vnsep @ _eqlwd ., /*
*/label("=") center
VARNAME vn_stat1C _eqlsep @ _vnwd ., /*
*/label("Variable 1C")
TEXT tx_comC _vnsep @ _gapwd ., /*
*/label(" ") center
EDIT ed_stat1D _gapsep @ _vnwd ., /*
*/label("New name 1D")
TEXT tx_eqD _vnsep @ _eqlwd ., /*
*/label("=") center
VARNAME vn_stat1D _eqlsep @ _vnwd ., /*
*/label("Variable 1D")
EDIT ed_stat1E _gft4_2 _ms _vnwd ., /*
*/label("New name 1E")
TEXT tx_eqE _vnsep @ _eqlwd ., /*
*/label("=") center
VARNAME vn_stat1E _eqlsep @ _vnwd ., /*
*/label("Variable 1E")
TEXT tx_comE _vnsep @ _gapwd ., /*
*/label(" ") center
EDIT ed_stat1F _gapsep @ _vnwd ., /*
*/label("New name 1F")
TEXT tx_eqF _vnsep @ _eqlwd ., /*
*/label("=") center
VARNAME vn_stat1F _eqlsep @ _vnwd ., /*
*/label("Variable 1F")
/* Statistic 2 */
COMBOBOX cb_stat2 _lft _ls _spr4 ., /*
*/label("Statistic 2") contents(stats2) dropdownlist /*
*/values(stats2v) onselchangelist(gbar_stats2_change) /*
*/option(" ")
SPINNER sp_stat2 +110 @ _spwd ., /*
*/ label("Statistic") min(1) max(99) default(50)
EDIT ed_stat2A _gft4_2 @ _vnwd ., /*
*/label("New name 2A")
TEXT tx_eq2A _vnsep @ _eqlwd ., /*
*/label("=") center
VARNAME vn_stat2A _eqlsep @ _vnwd ., /*
*/label("Variable 2A")
TEXT tx_com2A _vnsep @ 20 ., /*
*/label(" ") center
EDIT ed_stat2B +25 @ _vnwd ., /*
*/label("New name 2B")
TEXT tx_eq2B _vnsep @ 5 ., /*
*/label("=") center
VARNAME vn_stat2B +10 @ _vnwd ., /*
*/label("Variable 2B")
EDIT ed_stat2C _gft4_2 _ms _vnwd ., /*
*/label("New name 2C")
TEXT tx_eq2C _vnsep @ 5 ., /*
*/label("=") center
VARNAME vn_stat2C +10 @ _vnwd ., /*
*/label("Variable 2C")
TEXT tx_com2C _vnsep @ 20 ., /*
*/label(" ") center
EDIT ed_stat2D +25 @ _vnwd ., /*
*/label("New name 2D")
TEXT tx_eq2D _vnsep @ 5 ., /*
*/label("=") center
VARNAME vn_stat2D +10 @ _vnwd ., /*
*/label("Variable 2D")
EDIT ed_stat2E _gft4_2 _ms _vnwd ., /*
*/label("New name 2E")
TEXT tx_eq2E _vnsep @ 5 ., /*
*/label("=") center
VARNAME vn_stat2E +10 @ _vnwd ., /*
*/label("Variable 2E")
TEXT tx_com2E _vnsep @ 20 ., /*
*/label(" ") center
EDIT ed_stat2F +25 @ _vnwd ., /*
*/label("New name 2F")
TEXT tx_eq2F _vnsep @ 5 ., /*
*/label("=") center
VARNAME vn_stat2F +10 @ _vnwd ., /*
*/label("Variable 2F")
/* Statistic 3 */
COMBOBOX cb_stat3 _lft _ls _spr4 ., /*
*/label("Statistic 3") contents(stats2) dropdownlist /*
*/values(stats2v) onselchangelist(gbar_stats3_change) /*
*/option(" ")
SPINNER sp_stat3 +110 @ _spwd ., /*
*/ label("Statistic") min(1) max(99) default(50)
EDIT ed_stat3A _gft4_2 @ _vnwd ., /*
*/label("New name 3A")
TEXT tx_eq3A _vnsep @ 5 ., /*
*/label("=") center
VARNAME vn_stat3A +10 @ _vnwd ., /*
*/label("Variable 3A")
TEXT tx_com3A _vnsep @ 20 ., /*
*/label(" ") center
EDIT ed_stat3B +25 @ _vnwd ., /*
*/label("New name 3B")
TEXT tx_eq3B _vnsep @ 5 ., /*
*/label("=") center
VARNAME vn_stat3B +10 @ _vnwd ., /*
*/label("Variable 3B")
EDIT ed_stat3C _gft4_2 _ms _vnwd ., /*
*/label("New name 3C")
TEXT tx_eq3C _vnsep @ 5 ., /*
*/label("=") center
VARNAME vn_stat3C +10 @ _vnwd ., /*
*/label("Variable 3C")
TEXT tx_com3C _vnsep @ 20 ., /*
*/label(" ") center
EDIT ed_stat3D +25 @ _vnwd ., /*
*/label("New name 3D")
TEXT tx_eq3D _vnsep @ 5 ., /*
*/label("=") center
VARNAME vn_stat3D +10 @ _vnwd ., /*
*/label("Variable 3D")
EDIT ed_stat3E _gft4_2 _ms _vnwd ., /*
*/label("New name 3E")
TEXT tx_eq3E _vnsep @ 5 ., /*
*/label("=") center
VARNAME vn_stat3E +10 @ _vnwd ., /*
*/label("Variable 3E")
TEXT tx_com3E _vnsep @ 20 ., /*
*/label(" ") center
EDIT ed_stat3F +25 @ _vnwd ., /*
*/label("New name 3F")
TEXT tx_eq3F _vnsep @ 5 ., /*
*/label("=") center
VARNAME vn_stat3F +10 @ _vnwd ., /*
*/label("Variable 3F")
/* Statistic 4 */
COMBOBOX cb_stat4 _lft _ls _spr4 ., /*
*/label("Statistic 2") contents(stats2) dropdownlist /*
*/values(stats2v) onselchangelist(gbar_stats4_change) /*
*/option(" ")
SPINNER sp_stat4 +110 @ _spwd ., /*
*/ label("Statistic") min(1) max(99) default(50)
EDIT ed_stat4A _gft4_2 @ _vnwd ., /*
*/label("New name 4A")
TEXT tx_eq4A _vnsep @ 5 ., /*
*/label("=") center
VARNAME vn_stat4A +10 @ _vnwd ., /*
*/label("Variable 4A")
TEXT tx_com4A _vnsep @ 20 ., /*
*/label(" ") center
EDIT ed_stat4B +25 @ _vnwd ., /*
*/label("New name 4B")
TEXT tx_eq4B _vnsep @ 5 ., /*
*/label("=") center
VARNAME vn_stat4B +10 @ _vnwd ., /*
*/label("Variable 4B")
EDIT ed_stat4C _gft4_2 _ms _vnwd ., /*
*/label("New name 4C")
TEXT tx_eq4C _vnsep @ 5 ., /*
*/label("=") center
VARNAME vn_stat4C +10 @ _vnwd ., /*
*/label("Variable 4C")
TEXT tx_com4C _vnsep @ 20 ., /*
*/label(" ") center
EDIT ed_stat4D +25 @ _vnwd ., /*
*/label("New name 4D")
TEXT tx_eq4D _vnsep @ 5 ., /*
*/label("=") center
VARNAME vn_stat4D +10 @ _vnwd ., /*
*/label("Variable 4D")
EDIT ed_stat4E _gft4_2 _ms _vnwd ., /*
*/label("New name 4E")
TEXT tx_eq4E _vnsep @ 5 ., /*
*/label("=") center
VARNAME vn_stat4E +10 @ _vnwd ., /*
*/label("Variable 4E")
TEXT tx_com4E _vnsep @ 20 ., /*
*/label(" ") center
EDIT ed_stat4F +25 @ _vnwd ., /*
*/label("New name 4F")
TEXT tx_eq4F _vnsep @ 5 ., /*
*/label("=") center
VARNAME vn_stat4F +10 @ _vnwd ., /*
*/label("Variable 4F")
END
INCLUDE ifin
INCLUDE weights_fpa
INCLUDE gover
INCLUDE gbaropt
INCLUDE gbarstyle
INCLUDE gbarlabel
INCLUDE gbaryaxis
INCLUDE gtitle
INCLUDE gcaption
INCLUDE glegend
INCLUDE gregion
INCLUDE gby
/* stats1 */
LIST stats
BEGIN
mean
median
percentile
standard deviation
sum
raw sum (ignores weight)
count nonmissing
maximum
minimum
interquartile range
asis
END
LIST statsv
BEGIN
mean
median
p
sd
sum
rawsum
count
max
min
iqr
asis
END
LIST gbar_stats_change
BEGIN
script gbar_stats_norm
script gbar_stats_norm
script gbar_stats_perc /* enable pweights, enable sp_stat1 */
program gbar_stats_sd /* warn on pweights with this one */
script gbar_stats_norm
script gbar_stats_norm
script gbar_stats_norm
script gbar_stats_norm
script gbar_stats_norm
script gbar_stats_norm
script gbar_stats_asis
END
SCRIPT gbar_stats_show
BEGIN
gbar.cb_stat2.show
gbar.cb_stat3.show
gbar.cb_stat4.show
gbar.sp_stat2.show
gbar.sp_stat3.show
gbar.sp_stat4.show
END
SCRIPT gbar_stats_norm
BEGIN
script gbar_stats_show
script gbar_stat2_hide
script gbar_stat3_hide
script gbar_stat4_hide
gbar.sp_stat1.disable
END
SCRIPT gbar_stats_perc
BEGIN
script gbar_stats_show
script gbar_stat2_hide
script gbar_stat3_hide
script gbar_stat4_hide
gbar.sp_stat1.enable
END
SCRIPT gbar_stats_asis
BEGIN
gbar.cb_stat2.hide
gbar.cb_stat3.hide
gbar.cb_stat4.hide
gbar.sp_stat2.hide
gbar.sp_stat3.hide
gbar.sp_stat4.hide
gbar.sp_stat1.disable
script gbar_stat2_show
script gbar_stat3_show
script gbar_stat4_show
END
PROGRAM gbar_stats_sd
BEGIN
call script gbar_stats_show
call gaction gbar.sp_stat1.disable
END
/* stats2, with lists reused in stats3 and stats4 */
LIST stats2
BEGIN
none
mean
median
percentile
standard deviation
sum
raw sum (ignores weight)
count nonmissing
maximum
minimum
interquartile range
END
LIST stats2v
BEGIN
""
mean
median
p
sd
sum
rawsum
count
max
min
iqr
END
LIST gbar_stats2_change
BEGIN
script gbar_stat2_hide
script gbar_stat2_norm
script gbar_stat2_norm
script gbar_stat2_perc /* enable pweights, enable sp_stat1 */
program gbar_stat2_sd /* warn on pweights with this one */
script gbar_stat2_norm
END
SCRIPT gbar_stat2_hide
BEGIN
gbar.sp_stat2.disable
gbar.ed_stat2A.hide
gbar.tx_eq2A.hide
gbar.vn_stat2A.hide
gbar.ed_stat2B.hide
gbar.tx_eq2B.hide
gbar.vn_stat2B.hide
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -