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 != \
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_pnl “’ . ’”为显示内容
#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后紧接着就设置检查
if ( $Exit_Chk == 2 ) then exit 0 endif
这样就可随时推出目前的GUI画面.
其它的应用大家就要思考自己的工作要求,然后将这些功能灵活使用了.
