Clauses for the same predicate should be grouped win_factorial_create

/**************************************************************************
        Creation and event handling for window: Factorial
**************************************************************************/
 
constants
%BEGIN Factorial, CreateParms, 16:35:34-21.10.2018, Code automatically updated!
  win_factorial_WinType = w_TopLevel
  win_factorial_Flags = [wsf_SizeBorder,wsf_TitleBar,wsf_Maximize,wsf_Minimize,wsf_Close,wsf_ClipSiblings,wsf_ClipChildren]
  win_factorial_RCT = rct(100,80,440,240)
  win_factorial_Menu = no_menu
  win_factorial_Title = "Factorial"
  win_factorial_Help = idh_contents
%END Factorial, CreateParms
 
predicates
 
win_factorial_eh:EHANDLER
fact(integer,integer)
 
clauses
  fact(0,1):-!.
  fact(N,F):-N1=N-1,fact(N1,F1),F=N*F1.
  win_factorial_Create(_Parent):-
    win_Create(win_factorial_WinType,win_factorial_RCT,win_factorial_Title,
           win_factorial_Menu,_Parent,win_factorial_Flags,win_factorial_eh,0).
%BEGIN Factorial, e_Create
  win_factorial_eh(_Win,e_Create(_),0):-!,
%BEGIN Factorial, InitControls, 16:35:34-21.10.2018, Code automatically updated!
    win_CreateControl(wc_Text,rct(13,7,109,27),"Введите число",_Win,[wsf_AlignLeft],idct_введите_число),
    win_CreateControl(wc_Edit,rct(139,5,235,29),"",_Win,[wsf_Group,wsf_TabStop,wsf_AutoHScroll,wsf_AlignLeft],id_ввод),
    win_CreateControl(wc_PushButton,rct(7,40,123,63),"Результат",_Win,[wsf_Group,wsf_TabStop],idc_результат),
    win_CreateControl(wc_Text,rct(139,40,235,62),"",_Win,[wsf_AlignLeft],idct_вывод),
%END Factorial, InitControls
%BEGIN Factorial, ToolbarCreate, 16:35:34-21.10.2018, Code automatically updated!
%END Factorial, ToolbarCreate
    !.
%END Factorial, e_Create
%MARK Factorial, new events
 
%BEGIN Factorial, idc_результат _CtlInfo
  win_factorial_eh(_Win,e_Control(idc_результат,_CtrlType,_CtrlWin,_CtlInfo),0):-!,
  EDIT_WIN1=win_GetCtlHandle(_WIN,idc_ввод),
  Text1=win_GetText(EDIT_WIN1),
  str_int(Text1,N),
  fact(N,FN),
  str_int(StrFN,FN),
  EDWIN=win_GetCtlHandle(_WIN,idct_вывод),
  win_SetText(EDWIN,StrFN), 
    !.
%END Factorial, idc_результат _CtlInfo
 
%BEGIN Factorial, e_Size
  win_factorial_eh(_Win,e_Size(_Width,_Height),0):-!,
ifdef use_tbar
    toolbar_Resize(_Win),
enddef
    !.
%END Factorial, e_Size
 
%BEGIN Factorial, e_Menu, Parent window 
  win_factorial_eh(Win,e_Menu(ID,CAS),0):-!,
    PARENT = win_GetParent(Win),
    win_SendEvent(PARENT,e_Menu(ID,CAS)),
    !.
%END Factorial, e_Menu, Parent window
 
%END_WIN Factorial