OpenEuphoria

Re: BUG #1 2.3 alpha

• Posted by rforno at tutopia.com Dec 04, 2001
• 420 views

Rob:
It seems I missed the announcement of 2.3. No message telling this came to
me. Please repeat it.
----- Original Message -----
From: <euman at bellsouth.net>
To: "EUforum" <EUforum at topica.com>
Subject: BUG #1 2.3 alpha


>
>
> You can not have a variable in your main program that gets its value from
> an external include file?
>
> Take this for instance "txtbuf" will cause a crash in euphoria because it
has not
> been assigned a value...WM_NOTIFY may have been called but Im very sure
> TVN_ITEMEXPANDING has not.
>
> include file treeview.ew
>
> global function filltvitem(atom Item, atom mask, atom state)
>    mypoke4(tvitem + tvitem_hItem,Item)
>    mypoke4(tvitem + tvitem_mask,mask)
>    mypoke4(tvitem + tvitem_stateMask, state)
>    txtbuff = myalloc(256)
>    mypoke4(tvitem + tvitem_pszText,txtbuff)
>    mypoke4(tvitem + tvitem_cchTextMax,256)
>    return txtbuff
> end function
>
>
> main program
>
> atom txtbuf
>
>     elsif iMsg = WM_NOTIFY then
>
>           elsif id = TreeView1 then
>
>               iMsg = mypeek4s(lParam + NMHDR_code)
>
>               if iMsg = TVN_ITEMEXPANDING then
>
>                  hItem = mypeek4u(lParam + NMTVHDR_itemNew)
>
>                      if mypeek4s(lParam + NMTVHDR_action) = TVE_EXPAND
then
>
>                         itxtbuff = filltvitem(hItem, TVIF_TEXT, 0)
>                         item = SendMessage(id, TVM_GETITEM, 0, tvitem)
>                         path = {peek_zstring(txtbuff)}
>
>                          CRASH * CRASH * CRASH
>
>
> Euman
>
>
>
>