genesis2000脚本GUI界面编写
下面就是Genesis的GUI的demo程序,从里面可以学到几乎全部的GUI的功能了.前面的变量设定的部份省略不讲,大家可以参考Shell编程
#!/bin/csh
# This script is for GUI demo.
############################################################## ####################
alias gui '${GENESIS_DIR}/e${GENESIS_VER}/all/gui'
alias gui_out 'echo !:* >> $GuiDefFile'
alias gui_lst 'cat !:* >> $GuiDefFile'
alias dogui 'gui < $GuiDefFile > $GuiDatFile; source $GuiDatFile; rm -f $GuiDefFile $GuiDatFile'
if ($?GENESIS_TMP) then
set TMP = $GENESIS_TMP
else if ($?GENESIS_DIR) then
set TMP = $GENESIS_DIR/tmp
else
set TMP = /genesis/tmp
endif
# Set gui parameters
set GuiDefFile = $TMP/GuiDefFile.$$
set GuiDatFile = $TMP/GuiDatFile.$$
# Set fonts for gui #设定字体前三码表示字体格式,后两码数字表示大小
#格式三码h 表字型(可选t) b表字宽粗体(bold)(可选m,细体) r
表字正(可选i 表斜体)
set TitleFont = hbr18
set NormFont = hbr14
set HintFont = hbi14
# Set colors for gui #颜色是用RGB的型式表示,可以用Genesis中OPTION下COLOR功能来选自己喜欢的,
#然后设定到GUI中去每一种颜色用两位数字表示99表示最深00表示最浅依次为R-red G-Green B-Blue
set RedColor = 990000
set WhiteColor = 999999
set TitleColor = 772288
set NormColor = 222299
############################################################## #
set job_list = `dbutil list jobs | awk '{print $1}'`
gui_out WIN 200 200 #确定GUI窗口左上角在屏幕中的位置
gui_out BG $WhiteColor #BG background背景颜色
gui_out LABEL @/tmp/orblogo.xbm #添加标签(可以是一串字符,也可以是一个XPM格式图片我们在
#后面会讨论如果制作这种图片,在6.如何加入中文里有说明)
gui_out BG $TitleColor
gui_out FG $WhiteColor #FG font ground字体颜色
gui_out LABEL GUI Demo
gui_out BG $NormColor
gui_out TEXT user_name User name : #TEXT文字输入窗口,并将值传给user_name变量, 显示”User name”
gui_out DTEXT user_name Beyond Li #设定文字窗口的初始值Default TEXT=>DTEXT, 初始为Beyond Li
gui_out BW 3 #BW 区隔线宽BOLD Width 设为3
gui_out FORM #表格开始
gui_out LABEL 'Select Job -->'
gui_out LIST StepJob 5 S 1 #LIST列表选择功能StepJob为变量5表示显示5行S表示单选
#多选为M, 1表示显示时从第1个项目开始显示foreach JobName ($job_list) #这里将除了genesislib以外的所有料号名都显示于LIST列表中
if ($JobName != "genesislib") then
gui_out $JobName #列表的内容
endif
end
gui_out END #LIST功能结束(LIST传回的值为具体的列表中的值)
gui_out ENDFORM #表格结束
gui_out BW 1
gui_out OPTION pnl_size Panel size: #OPTION下拉选项功能pnl_size 为变量显示”Panel size”
gui_out 16x18 #选项的内容
gui_out 18x24
gui_out 20x24
gui_out END #选项功能结束(OPTION传回的值为项目内容具体的值如16x18等)
gui_out RADIO sel_pnl 'Panel name method:' H 1 $RedColor #RADIO点选功能变量为sel_p nl “’ . ’”为显示内容
#H表示水平显示1表示一栏来显示最后是颜色
gui_out Default #供点选的内容
gui_out Keyin
gui_out END #点选功能结束
gui_out FORM sel_pnl 2 #表格开始注意到后面有变量sel_pnl 2表示当sel_pnl选2时表格
#才显现出来否则将以阴影不可编辑或选择的方式来显示
gui_out TEXT pnl_name Panel name:
gui_out ENDFORM
gui_out CLABEL OK #按钮功能显示”OK”
gui_out END #功能结束
dogui #将这些传到GUI的程序中,它就会生成我们要的GUI界面.
笔者通常在GUI最后,dogui之前加入一个RADIO让人员可以选择是否退出如下gui_out RADIO Exit_Chk 'Exit:' H 1 $RedColor #RADIO点选功能变量为sel_pnl “’ . ’”为显示内容
#H表示水平显示1表示一栏来显示最后是颜色gui_out No #供点选的内容
gui_out Yes
gui_out END #点选功能结束
在dogui后紧接着就设置检查
