OpenEuphoria

Bug in Euphoria?

• Posted by Thomas Oct 19, 2021
• 841 views

Hi, Can someone with a better knowledge of euphoria look at this code.

without warning 
include win32lib.ew 
include xcontrols.ew 
constant WS = {WS_CHILD,WS_VISIBLE}, 
WS_EX = WS_EX_CLIENTEDGE, 
Win = createEx(Window, "default", 0, Default, Default, 600, 600, 0, WS_CLIPCHILDREN), 
StatBar = createEx(StatusBar, "", Win, 0, {.35,-1}, 0, 0, 0, 0), 
LeftPane = createEx(Window, "", Win, 0, 0, 0, 0, WS, WS_EX), 
RightPane = createEx(Window, "", Win, 0, 0, 0, 0, WS, WS_EX), 
VSplit1 = createEx(VSplitter, "", Win, 0.33, 0, 0, 0, 0, 0), 
$ 
 
manage(Win, LeftPane, w32Edge, w32Edge, {VSplit1, 0}, w32Edge,) /* Look like a bug */ 
manage(Win, RightPane, {VSplit1, 0}, w32Edge, w32Edge, w32Edge) 
manage_now(Win) 
 
setMousePointer(VSplit1, SizeWEPointer) 
 
/* -- */ 
procedure Win_onOpen(integer self, integer event, sequence params) 
	--  
end procedure 
setHandler(Win, w32HOpen, routine_id("Win_onOpen")) 
 
procedure Win_onClose(integer self, integer event, sequence params) 
	--  
end procedure 
setHandler(Win, w32HClose, routine_id("Win_onClose")) 
 
procedure Win_onTimer(integer self, integer event, sequence params) 
	--  
end procedure 
-- setHandler(Win, w32HTimer, routine_id("Win_onTimer")) 
--  
procedure Win_onResize(integer self, integer event, sequence params) 
	--  
end procedure 
-- setHandler(Win, w32HResize, routine_id("Win_onResize")) 
 
procedure Win_onEvent(integer self, integer event, sequence params) 
	--  
end procedure 
-- setHandler(Win, w32HEvent, routine_id("Win_onEvent")) 
 
WinMain(Win, Normal) 
 
 
 
 

Euphoria Interpreter v4.1.0 development 
   32-bit Windows, Using System Memory 
   Revision Date: 2015-02-02 14:18:53, Id: 6300:57179171dbed 
 
Euphoria Interpreter v4.1.0 development 
   32-bit Windows, Using System Memory 
   Revision Date: 2021-03-10 18:49:25 
   Id: 99dff754918b9f66267b631d9c0be1d63c256d87