战旗|Genesis2000--GUI窗口编写--OPTION下拉按钮


战旗|Genesis2000--GUI窗口编写--OPTION下拉按钮

文章图片


#!/bin/csh
#GUI窗口编写--OPTION下拉按钮
#创建一个数组
set number=(1 2 3 4 5 6 7)
set gui_out = /tmp/gui_out.$$
set gui_in = /tmp/gui_in.$$
echo \"win 400 100\" > $gui_in
echo \"FG 000000\">> $gui_in
echo \"BG 328068\" >> $gui_in
echo \"FONT tbr18\" >>$gui_in
echo \"LABEL Option button\" >>$gui_in
#创建option按钮 , 并添加选项
echo \"OPTION var 'STEP:'\">>$gui_in
#echo \"orig\">>$gui_in
#echo \"edit\">>$gui_in
#echo \"set\">>$gui_in
#echo \"pnl\">>$gui_in
#option按钮也可以像列表那样 , 以数组的方式添加
foreach mynumber ($number)
echo \"$mynumber\">>$gui_in
end
echo \"END\">>$gui_in
echo \"CLABEL Close and Run\">>$gui_in
${GENESIS_DIR/e${GENESIS_VER/all/gui $gui_in >$gui_out
source $gui_out
#对option按钮做出判断 , 并做出想要的动作
#option以数组下标的形式返回 , 当你选择第一个的时候返回的是1
#当你选择第二个的时候返回的是2 , 以此类推
if($var == 1)then
echo \"You chose $number[$var
.\"
endif
【战旗|Genesis2000--GUI窗口编写--OPTION下拉按钮】exit