Врезка 1

Листинг

%BEGIN_WIN ww
/************************************************************
 Creation and event handling for window: ww
************************************************************/
CONSTANTS
%BEGIN ww, CreateParms, 10:25:21-7.11.1995, Code 
automatically updated!
win_ww_WinType = w_TopLevel
win_ww_Flags = [wsf_SizeBorder,wsf_TitleBar,wsf_Close,wsf_
Maximize,
wsf_Minimize,wsf_ClipSiblings,wsf_ClipChildren]
win_ww_RCT = rct(100,80,440,240)
win_ww_Menu = no_menu
win_ww_Title = ?ww?
win_ww_Help = idh_contents
%END ww, CreateParms

PREDICATES
win_ww_eh : EHANDLER

CLAUSES
win_ww_Create(Parent):-
win_Create(win_ww_WinType,win_ww_RCT,win_ww_Title,
win_ww_Menu,Parent,win_ww_Flags,win_ww_eh,0).
%BEGIN ww, e_Create
win_ww_eh(_Win,e_Create(_),0):-!,
%BEGIN ww, InitControls, 10:25:21-7.11.1999, Code 
automatically updated!
%END ww, InitControls
%BEGIN ww, ToolbarCreate, 10:25:21-7.11.1999, Code automatically updated!
%END ww, ToolbarCreate
!.
%END ww, e_Create
%MARK ww, new events
 
<<< здесь может быть расположен дополнительный текст программы >>>

%END_WIN ww