OpenEuphoria

1. Win32Lib: setEnable not work for top menu "objects"?

• Posted by Dan Moyer <danielmoyer at prodigy.net> Mar 02, 2007
• 542 views

I don't seem to be able to disable top menu's using setEnable; 
I can disable menu ITEMS, but not a TOP menu, like "File", or "Edit", etc.

I assume I've seen this occur in other windows programs, but I'm not sure.
Am I doing something wrong, or is it fundamentally not doable, or just
not (yet?) implemented?

Dan Moyer

3. Re: Win32Lib: setEnable not work for top menu "objects"?

• Posted by Dan Moyer <danielmoyer at prodigy.net> Mar 02, 2007
• 559 views

Derek Parnell wrote:
> 
> Dan Moyer wrote:
> > 
> > 
> > I don't seem to be able to disable top menu's using setEnable; 
> > I can disable menu ITEMS, but not a TOP menu, like "File", or "Edit", etc.
> > 
> > I assume I've seen this occur in other windows programs, but I'm not sure.
> > Am I doing something wrong, or is it fundamentally not doable, or just
> > not (yet?) implemented?
> 
> A bug. Depending on which version of the library you have ...
> 
> You need to make a small change to the setEnable() routine inside win32lib.ew.
> 
> Replace
> 
>   if w32Func( xEnableMenuItem, {
>         lHandle,        -- menu handle
>         id,                     -- id
>         flag} )= #FFFFFFFF      -- enable/disble
>   then
> 
> 
> with 
> 
>   if w32Func( xEnableMenuItem, {
>         lHandle,        -- menu handle
>         ctrl_Menu[id][3],
>         flag} )= #FFFFFFFF      -- enable/disble
>   then
> 
> -- 
> Derek Parnell
> Melbourne, Australia
> Skype name: derek.j.parnell


Thanks Derek,

I'm using 0.60.6, with the IDE.

Dan

5. Re: Win32Lib: setEnable not work for top menu "objects"?

• Posted by Dan Moyer <danielmoyer at prodigy.net> Mar 02, 2007
• 544 views

Derek Parnell wrote:
> 
> Dan Moyer wrote:
> > 
> > 
> > I don't seem to be able to disable top menu's using setEnable; 
> > I can disable menu ITEMS, but not a TOP menu, like "File", or "Edit", etc.
> > 
> > I assume I've seen this occur in other windows programs, but I'm not sure.
> > Am I doing something wrong, or is it fundamentally not doable, or just
> > not (yet?) implemented?
> 
> A bug. Depending on which version of the library you have ...
> 
> You need to make a small change to the setEnable() routine inside win32lib.ew.
> 
> Replace
> 
>   if w32Func( xEnableMenuItem, {
>         lHandle,        -- menu handle
>         id,                     -- id
>         flag} )= #FFFFFFFF      -- enable/disble
>   then
> 
> 
> with 
> 
>   if w32Func( xEnableMenuItem, {
>         lHandle,        -- menu handle
>         ctrl_Menu[id][3],
>         flag} )= #FFFFFFFF      -- enable/disble
>   then
> 
> -- 
> Derek Parnell
> Melbourne, Australia
> Skype name: derek.j.parnell


Derek,

Fix didn't work for me :(

Dan

7. Re: Win32Lib: setEnable not work for top menu "objects"?

• Posted by Dan Moyer <danielmoyer at prodigy.net> Mar 02, 2007
• 543 views

Dan Moyer wrote:
> 
> Dan Moyer wrote:
> > 
> > Derek Parnell wrote:
> > > 
> > > Dan Moyer wrote:
> > > > 
> > 
> > Derek,
> > 
> > Fix didn't work for me :(
> > 
> > Dan
> 
> 
> Scratch that, still trying to see which version (where) is actually running.
> Dan

Derek, et all,
Sorry for all the traffic, but I had to be sure that the Win32Lib version
that I patched was the one that's actually running, and now I'm sure it is.

So, as far as I can see, THAT FIX ISN'T WORKING.

Does anyone else get it to work??

Dan

9. Re: Win32Lib: setEnable not work for top menu "objects"?

• Posted by Pete Lomax <petelomax at blueyonder.co.uk> Mar 02, 2007
• 529 views

CChris wrote:
> As for setCheck(), you are right, Derek, I'll have to also take care
>  of the implicit group associated to the window, thanks. 
Is it not just all radios with 'same parent'?
No need to care if it is a window or a group?
I believe TabItems are otherwise another case.

Regards,
Pete

11. Re: Win32Lib: setEnable not work for top menu "objects"?

• Posted by Derek Parnell <ddparnell at bigpond.com> Mar 03, 2007
• 537 views

Pete Lomax wrote:
> 
> CChris wrote:
> > As for setCheck(), you are right, Derek, I'll have to also take care
> >  of the implicit group associated to the window, thanks. 
> Is it not just all radios with 'same parent'?
> No need to care if it is a window or a group?
> I believe TabItems are otherwise another case.

Yes. That is actually how I'm coding it. When a radio gets created it gets added
to it's parent's radio list so that whenever a radio is clicked on or set on, the
other radios in the same list are set off. If you set off a radio that is already
on, the 'next' radio in the list is set on.

-- 
Derek Parnell
Melbourne, Australia
Skype name: derek.j.parnell

13. Re: Win32Lib: setEnable not work for top menu "objects"?

• Posted by Dan Moyer <danielmoyer at prodigy.net> Mar 03, 2007
• 531 views

CChris wrote:
> 
> Derek Parnell wrote:
> > 
> > Pete Lomax wrote:
> > > 
> > > CChris wrote:
<snip>
> I've already fixed setEnable() by changing the access mode to MF_BYPOSITION.
> 
> CChris

CChris,

Thanks for letting me know that it is my system OS plus specific instance of
Win32Lib 0.60.6 that makes Derek's patch not work for me.

Is your fix available as a patch, or does it have to be put into a new
version?  I'm using the modified version of 0.60.6 that is specified for use
with Judith's IDE, as indicated by this header:

--This is a version of win32lib v0.60.6 by David Cuny and friends that has been
--modified by Sascha Zindel with corrections as posted on EuForum by Derek
Parnell.
--Until a newer win32lib version is released, this will be the official version
for
--use with IDE.

Seems like there are more than one or two versions of 0.60.6
floating around.  And is there an open-source type development for
Win32Lib now?  I looked for such through EuWiki, but didn't find anything
that looked active.  (Just curious.)

Dan

15. Re: Win32Lib: setEnable not work for top menu "objects"?

• Posted by Jason Gade <jaygade at yahoo.com> Mar 03, 2007
• 513 views

So, are there going to be new official releases as well? Not that I use it, but
I'm just curious.

--
"Any programming problem can be solved by adding a level of indirection."
--anonymous
"Any performance problem can be solved by removing a level of indirection."
--M. Haertel
"Premature optimization is the root of all evil in programming."
--C.A.R. Hoare
j.

17. Re: Win32Lib: setEnable not work for top menu "objects"?

• Posted by CChris <christian.cuvier at agriculture.gouv.fr> Mar 03, 2007
• 558 views

Dan Moyer wrote:
> 
> CChris wrote:
> > 
> > Derek Parnell wrote:
> > > 
> > > Pete Lomax wrote:
> > > > 
> > > > CChris wrote:
> <snip>
> > I've already fixed setEnable() by changing the access mode to MF_BYPOSITION.
> > 
> > CChris
> 
> CChris,
> 
> Thanks for letting me know that it is my system OS plus specific instance of
> Win32Lib 0.60.6 that makes Derek's patch not work for me.
> 
> Is your fix available as a patch, or does it have to be put into a new
> version?  I'm using the modified version of 0.60.6 that is specified for use
> with Judith's IDE, as indicated by this header:
> 
> --This is a version of win32lib v0.60.6 by David Cuny and friends that has
> been
> --modified by Sascha Zindel with corrections as posted on EuForum by Derek
> Parnell.
> --Until a newer win32lib version is released, this will be the official
> version
> for
> --use with IDE.
> 
> Seems like there are more than one or two versions of 0.60.6
> floating around.  And is there an open-source type development for
> Win32Lib now?  I looked for such through EuWiki, but didn't find anything
> that looked active.  (Just curious.)
> 
> Dan

It would be better to wait for a newer version. However, what you can do 
right now is:
* locate the setEnable() function body (line 22457)
* replace the beginning of the function by this:

global procedure setEnable( object id, atom flag )
    -- enable/disable an item
    sequence lKids
    atom lHandle,hMenuBar
    integer lControl,menuPos

    if sequence(id) then
        for i = 1 to length(id) do
            setEnable(id[i], flag)
        end for
        return
    end if


    lHandle = getHandle( id )
    if ctrl_Family[ id ] = MENU
    or ctrl_Family[ id ] = MENUITEM then

        -- convert the flag
        flag = w32iff( flag, MF_ENABLED, w32or_all( {MF_DISABLED, MF_GRAYED} ) )

        hMenuBar = 0
        if ctrl_Family[ctrl_Parent[id]]=WINDOW then
            hMenuBar = ctrl_Menu[ctrl_Parent[id]]
            menuPos=0
            while lHandle!=w32Func(xGetSubMenu,{hMenuBar,menuPos}) do
                menuPos+=1
            end while
            lHandle = hMenuBar
        else
            menuPos = -1+find(id,ctrl_Group[ctrl_Parent[id]])
        end if

        -- enable/disable the menu
        if w32Func( xEnableMenuItem, {
    	        lHandle,        -- menu handle
    	        menuPos,        -- position
    	        or_bits(flag,MF_BYPOSITION)} )= #FFFFFFFF      -- enable/disble
        then
            -- item does not exist
            warnErr( Err_SETENABLE )
        end if

        -- if menubar, need to redraw
        if hMenuBar then
            VOID = w32Func( xDrawMenuBar, { ctrl_Parent[ id ] } )
        end if

Note that on XP Home, you have to click on the menu for it to appear grayed.
On XP Pro you don't need this. At least I get two different behaviours. 

As far as I know, more than a few people use modified win32lib versions,
 which ship with their apps. The IDE isn't the only one.

As I was writing the pages in the EuWIki win32lib category, I started adding
 and fixing stuff in the library. A few months ago, I called for testers for 
this modified version, as no news of official development was available.
There's a small team who got several versions already. The addition process
 isn't completely finished at the moment; I'm currently adding flexibility
 to the structure handling system.

The final status of these changes, which are quite extensive internally,
and led to a change file which is now incomplete and which I posted when
 calling for testers, depends on Derek, as he is the maintainer of the
 library. I understand that he plans to give a new life to the current
 SourceForge project; I'll have to integrate in that framework (or to fork - 
but I don't expect this).

There are changes that I'd think beneficial, but some decisions about how to
 support older OSes (mainly Win98) have to be taken. Basically, there are
 useful OS features that are available under XP only, or under win2K and
 higher only. And the question is: will the library support them?

I didn't write anything in EuWiki about the other versions, for lack of 
complete information. It looks like there weren't too many authors either.

CChris

19. Re: Win32Lib: setEnable not work for top menu "objects"?

• Posted by Matt Lewis <matthewwalkerlewis at gmail.com> Mar 05, 2007
• 516 views

Brian Broker wrote:
> 
> Derek Parnell wrote:
> 
> > In the next few hours, I'll have uploaded the library to source forge's SVN
> > repository and we can all start using that as the basis for open-source
> > development.
> > That is, anyone in the win32libex sourceforge project will be able to
> > checkout
> > the code, update it and the check it in again. I think non-project members
> > will
> > be able to download the source but not check anything in to its repository.
> 
> heh...
> Are you serious?  Perhaps you can describe how the users of your library might
> download this update of which you speak...  I'm not finding squat at the forge
> as of <date-of-this-posting/>.
> 
> http://sourceforge.net/projects/win32libex/ shows 0.59.2.

Take a look at:
http://sourceforge.net/svn/?group_id=9153

There's a link from there that allows you to browse the repository with
your web browser, or, if you have svn installed:

$ svn co https://win32libex.svn.sourceforge.net/svnroot/win32libex/trunk
<target-directory>

Matt