Guidance
指路人
g.yi.org
Software / Reginald / Examples / child.rex

Register 
新用户注册
Search 搜索
首页 
Home Home
Software
Upload

  
/*
GUIBEGIN
WINDOW , 33, 94, 151, 62, POPUP|CAPTION|SYSMENU|MINBOX|MAXBOX|THICK, , Child script
	FONT 8, 400, MS Shell Dlg
	TEXT 5, 6, 111, 42, GROUP, , , , This is the child script.\nClose the window to end it
DEND
GUIEND
*/

/* This is just a child script that displays a simple
 * REXX GUI window.
 */

OPTIONS "C_CALL NOSOURCE"
LIBRARY rexxgui
guierr = "SYNTAX"
guiheading = 1
guicreatewindow('NORMAL')

again:
DO FOREVER

	guigetmsg()

	CATCH SYNTAX
		CONDITION('M')
		SIGNAL again

	FINALLY
		guidestroywindow()
END
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Sat 2017-6-24  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2010-07-16 20:45:53