sunflower_98s.dlg

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

/*
  sunflower.dlg
  ** Special version for Windows 95/98
  ** Extra small

*!  VERSION 1.1.1  21mar2005

*/

VERSION 9.0

INCLUDE graph_header
INCLUDE header
HELP hlp1, view("help sunflower")
RESET res1

INCLUDE sunflower_common
INCLUDE ifin
INCLUDE weights_f
INCLUDE gyaxis_98s
INCLUDE gxaxis_98s
INCLUDE gtitle_98s
INCLUDE glegend_98s
INCLUDE gregion_98s
INCLUDE gby_98s

SCRIPT all_tabs_enable
BEGIN
	script gby_enable
	script gyaxis_enable
	script gxaxis_enable
	script gtitle_enable
	script glegend_enable
	script gregion_enable
END

SCRIPT all_tabs_disable
BEGIN
	script gby_disable
	script gyaxis_disable
	script gxaxis_disable
	script gtitle_disable
	script glegend_disable
	script gregion_disable
END

PROGRAM command
BEGIN
	put "sunflower"

	// require x first but take the arg for y first
	require main.vn_xvar
	varlist main.vn_yvar
	varlist main.vn_xvar

	INCLUDE _weights_pr
	INCLUDE _ifin_pr
	beginoptions
		put " " /program main_control_opts
		put " " /program main_bin_petal_display_opts
		put " " /program main_marker_opts
		put " " /program gyaxis_output
		put " " /program gxaxis_output
		put " " /program gtitle_output
		put " " /program glegend_output
		put " " /program gregion_output
		put " " /program gby_output
	endoptions
END