Guidance
指路人
g.yi.org
Upload / Forum Attachment / Reginald Rexx Programming Language Compiler User Forum Attachments and Pictures / 12336-rpc_run_error_child_window.rex

Register 
注册
Search 搜索
首页 
Home Home
Software
Upload

  
/*

GUIBEGIN


WINDOW , 525, 5, 327, 310, POPUP|CAPTION|SYSMENU|MINBOX|MAXBOX|THICK, , Progress
	FONT 8, 400, MS Shell Dlg
	MENU
	GROUP 4, 4, 320, 300, , , progress_group, , Progress
	LIST 8, 12, 307, 285, NOTIFY|REALHEIGHT|BORDER|VSCROLL|HSCROLL|TABSTOP, INDEX|CLIENTEDGE, progress_list
DEND

MENU
	HEADING Options, Options
		ITEM Print, print_menu
		ITEM Save, save_menu
		ITEM
		ITEM Clear, clear_menu
	<
DEND
GUIEND

*/

/* An OPTIONS "NOSOURCE" may appear here, but _not_ before the GUIBEGIN/GUIEND. */
OPTIONS "C_CALL LABELCHECK WINFUNC"
NUMERIC DIGITS 10
create:
/* wdw_position is the first argument to place_window, ie, where
   do we want the progress window shown on the screen */
PARSE ARG window_name, wdw_position 
/* Let REXX GUI raise SYNTAX for errors. */
guierr = "SYNTAX"
guiheading = 1
/* Hide temporarily */
guicreatewindow('HIDE')
/* Now sync all the controls with their variables' values. */
guisetctlvalue()
guisetctlplacement(,,,,,,'NORMAL')
RETURN
/*******************************************************************
 Let's make sure that our window is destroyed. We do that by calling
 GuiDestroyWindow. NOTE: It is safe to call GuiDestroyWindow even   
 if our GuiCreateWindow never succeeded.
*******************************************************************/
destroywindow:
destroy:
guidestroywindow()
RETURN
/**************** Close the window *****************/
wm_close:
RETURN
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Sat 2024-10-12  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2008-08-30 14:33:08