OpenEuphoria

Re: Win32lib ?

• Posted by euman at bellsouth.net Mar 21, 2002
• 504 views

----- Original Message -----
From: "Derek Parnell" <ddparnell at bigpond.com>

> Ok. Just let me get this straight.
>
> You called the popup() routine, specifying which popup menu you wanted, and
> where it was to be
> displayed, and nothing happened. Is that right?
>
> Maybe you could give us more of hint about what you actually did and what
> actually happened (as
> opposed what didn't happen).

Hello again Derek,

I really thought my explanation two post ago was quit good  but
what better way to do this than to actually give you code that doesnt work...

You should be able to run the demo and right click on the treeview for a popup
menu
but this doesnt happen.

<snip.. code>

--  code generated by Win32Lib IDE v0.12.0
-- Win32lib 55.5 dated: 25/02/2002 at 23:09:55 by Derek Parnell

include Win32Lib.ew
without warning

--------------------------------------------------------------------------------
--  Window Window1
global constant Window1 = create( Window, "Window1", 0, Default, Default, 400,
300, 0 )
global constant TabControl2 = create( TabControl, "TabControl2", Window1, 4, 4,
384, 268, 0 )
global constant TabItem3 = create( TabItem, "TabItem3", TabControl2, 0, 0, 0, 0,
0 )
global constant Group4 = create( Group, "Group4", TabItem3, 8, 32, 368, 228, 0 )
global constant TV2 = create( TreeView, "TreeView5", Group4, 8, 16, 352, 208,
or_all({TVS_HASLINES,TVS_LINESATROOT,TVS_HASBUTTONS,TVS_SHOWSELALWAYS}) )
global constant Popup_101 = create( Popup, "Popup 101", TV2, 0, 0, 0, 0, 0 )
global constant PopupItem_102 = create( MenuItem, "temp", Popup_101, 0, 0, 0, 0,
0 )
global constant PopupItem_103 = create( MenuItem, "temp", Popup_101, 0, 0, 0, 0,
0 )
global constant PopupItem_104 = create( MenuItem, "-", Popup_101, 0, 0, 0, 0, 0
)
global constant PopupItem_105 = create( MenuItem, "temp", Popup_101, 0, 0, 0, 0,
0 )

constant closefolder = addIcon( extractIcon( "clsdfold.ico" ) )
constant openfolder  = addIcon( extractIcon( "openfold.ico" ) )
---------------------------------------------------------
sequence folders
folders = {}
folders &= addTVItem( TV2, closefolder, openfolder, "HKEY_CURRENT_USER" , 0 )
folders &= addTVItem( TV2, closefolder, openfolder, "HKEY_LOCAL_MACHINE" , 0 )

WinMain( Window1,Normal )

<snip... code>

Euman
euman at bellsouth.net