OpenEuphoria

Re: win32lib: Munafa Accounting Package

• Posted by Pete Lomax <petelomax at blueyonder.co.uk> Jul 05, 2005
• 540 views

On Tue, 05 Jul 2005 01:29:48 -0700, Anando Banerjee
<guest at RapidEuphoria.com> wrote:

>Pete Lomax wrote:
>> I often code something like the following:
>> 
>> }}}
<eucode>
>> integer initFIND, Fwin
>> 		initFIND=0
>> 
>> integer flab, findtext, rlab, replacetext, 
>> 		...
>> global procedure Find()
>> 	if not initFIND then
>> 		Fwin = create( Window, "Find", 0, Main, 100, 50, 523, 190,0)
>> 		flab = create( Label, "Find ", 0, Fwin, 8, 15, 70, 24,0)
>> 		findtext = create( ComboDropDown, "", 0, Fwin, 80, 11, 305, 
>> 		...
>> 		initFIND = 1
>> 	end if
>> <font color="#330033"></eucode>
{{{
</font>
>> 
Ahem, that example would probably make more sense if I had shown an
openWindow(Fwin,Normal) call inside Find().

Regards,
Pete