win = New Window( "New Windowの例",
<<Modal,
<<ReturnResult,
V List Box(
V List Box(
Text Box( "分析のパラメータ" ),
Line Up Box(
NCol( 2 ),
Text Box( "下側仕様限界" ),
lsl_box = Number Edit Box( 230 ),
Text Box( "上側仕様限界" ),
usl_box = Number Edit Box( 340 ),
Text Box( "閾値" ),
threshold_box = Number Edit Box( 275 )
),
H List Box(
Panel Box( "ラジオの種類",
rb_box1 = Radio Box( {"RCA", "Matsushita",
"Zenith", "Sony"} )),
Panel Box( "アンテナの種類" ,
rb_box2 = Radio Box( {"パラボラ", "へリカル", "極性",
"Radiant Array"} ) )
),
cb_box1 = Check Box( "放射同期" ),
Text Box( "グラフのタイトル" ),
title_box = Text Edit Box( "分析結果" ),
H List Box( Text Box( "品質" ),
cb_box2 = Combo Box( {"最優良", "優良", "良", "可"} ) )
),
H List Box(
Align( Right ),
Spacer Box(),
Button Box( "OK",
lsl = lsl_box << Get;
usl = usl_box << Get;
threshold = threshold_box << Get;
radio_type = rb_box1 << Get;
antenna = rb_box2 << Get;
synch = cb_box1 << Get;
title = title_box << Get Text;
quality = cb_box2 << Get;
),
Button Box( "キャンセル")
)
)
);
If(win["Button"] == 1,
Show( "OK", lsl, usl, threshold, radio_type, antenna, synch, title, quality);
,
Show( "Canceled" );
);