tcshelp.tpl

来自「在手机操作系统symbina上使用的一个脚本扩展语言的代码实现,可以参考用于自己」· TPL 代码 · 共 17 行

REM Testing context-sensitive help...
INCLUDE "Const.oph"

CONST KMyAppMainView$="MyOplApp_Main_view"
CONST KMyAppDialog1$="MyOplApp_Dialog1"

PROC tCSHelp:
	SETHELP KHelpView%,KMyAppMainView$
	rem KHelpDialog%, KHelpMenu%
	SETHELP KHelpDialog%,KMyAppDialog1$
	dINIT "Press Help now!"
	dBUTTONS "Close",27
	DIALOG
	SHOWHELP
	print "Done" :GET
ENDP