OpenEuphoria

1. testing win32lib version 0.55.1 ???

• Posted by wolfgang fritz <wolfritz at king.igs.net> Jan 23, 2001
• 369 views

Hi, folks.
I,ve attached a seemingly simple program below which exhibits some rather
peculiar behavior on my 'puter.
When you click on the button ( just once please ), it starts up another
window, ( Win2 ), which has a minimize button [_].

Here's the problem.
*Sometimes* this ( minimize ), will work, and sometimes it won't !
It all seems to depend on what other programs you have in your taskbar, and
whether they've been run recently, or whether they are just in the background
on the desktop, whether this is the second time it's been run, etc...
( ... and just like a previous font behaviour,
   some people may see it, and some never will... )

Anyways, try it out, and if you notice that the minimize button behavior does
indeed change with respect to the variables I've mentioned,
... please let me know.
 It may require a lot of patience to test  

wolfritz at king.igs.net

---- start test ----
include win32lib.ew

constant
Win1Style={WS_CAPTION,WS_THICKFRAME,WS_SYSMENU},
Win2Style={WS_CAPTION,
WS_THICKFRAME,WS_SYSMENU,WS_MINIMIZEBOX}

constant
Win1=create(Window,"Win1",0,
Default,Default,300,200,Win1Style),
Win2=createEx(Window,"Win2",
Btn1=create(PushButton,"Open Win2 Normal",
Win1,5,5,100,30,0)

procedure onClick_Btn1()
openWindow(Win2,Normal)
end procedure
onClick[Btn1]=routine_id("onClick_Btn1")

WinMain( Win1, Normal )
----