OpenEuphoria

Re: EuCOM

• Posted by Rad <radhx at r?diffmail.?om> Aug 24, 2007
• 542 views

Matt Lewis wrote:
> 
> In getVariant, change the line for VT_I2 to read:
> }}}
<eucode>
> 	elsif find( vt, {VT_I2, VT_BOOL}) then
> </eucode>
{{{

> ...and you should get the -1 (assuming that's important for you).  Also,
> if you pass a VT_BOOL to this control, I'd recommend passing -1 as either
> a VT_I4 or VT_I2.  COM should convert it to a VT_BOOL for you.
> 
> Matt

Hi Matt,

Thanks for the solution, it worked!
But instead of clubbing VT_BOOL with VT_I2, I am using it as a new elsif
condition:

-- rad 2007-08-23 : multiply by -1 to remove sign from boolean value
	elsif vt = VT_BOOL then
		return bytes_to_signed( peek( {pval, 2} ) ) * -1
-- rad 2007-08-23

Also, in TBrowse.exw, I have edited the construction of 4th parameter for
wrap_default_event_interface() as:

--	if count then
--		put( "\n\t},\n\t{ " & sprint( membernames[2][1] ) )
--	end if
	put( "\n\t},\n\t{" )

	line = ""	 
--	for j = 2 to count do
	for j = 1 to count do
		--put( ", " & sprint( membernames[2][j] ) )
--		line &= ", " & sprint( membernames[2][j] )
		if j != 1 then
			line &= ","
		end if
		line &= "\n\t" & sprint( membernames[2][j] )
	end for

on the similar basis of previous for loop.

Regards,
Rad.