Hi Borislav,

Can you please outline step by step how did you create this menu in the Menu Designer (I'm guessing you didn't build it programmatically)?

I've tried it quickly yesterday at night and somehow "Generate" never become enabled in my system. I'm guessing it's a different problem, but anyway, how can you create this menu in the Menu Designer?

BTW, you may want to add Exit menu to your menu and to the form in your sample, otherwise you would not be able to Exit at all.

Thanks a lot in advance.

>My mistake, the POPUP menu must be named _mwindow not the PAD
>That work for me:
>
>

>CreateMenu()
>oForm = CREATEOBJECT([Form1])
>oForm.Show(1)
>READ EVENTS
>SET SYSMENU TO DEFAULT
>
>
>FUNCTION CreateMenu()
>*       *********************************************************
>*       *
>*       * 29.06.2007 ã.             MENU1.MPR              19:19:07
>*       *
>*       *********************************************************
>*       *
>*       * Author's Name
>*       *
>*       * Copyright (C) 2007 Company Name
>*       * Address
>*       * City,     Zip
>*       *
>*       * Description:
>*       * This PROGRAM was automatically generated BY GENMENU.
>*       *
>*       *********************************************************
>
>
>*       *********************************************************
>*       *
>*       *                      Menu Definition
>*       *
>*       *********************************************************
>*
>
>SET SYSMENU TO
>SET SYSMENU AUTOMATIC
>
>
>DEFINE PAD _msm_windo OF _MSYSMENU PROMPT "\<Window" COLOR SCHEME 3 ;
>    NEGOTIATE  RIGHT, LEFT ;
>    KEY ALT+W, "" ;
>    MESSAGE "Manipulates windows, displays Command and Data Session windows"
>ON PAD _msm_windo OF _MSYSMENU ACTIVATE POPUP _mwindow
>
>**************************
>***** THIS           *****
>**************************
>DEFINE POPUP _mwindow MARGIN RELATIVE SHADOW COLOR SCHEME 4
>
>DEFINE BAR _mwi_cascade OF _mwindow PROMPT "Ca\<scade" ;
>    PICTRES _mwi_cascade ;
>    MESSAGE "Arranges windows as cascading tiles"
>DEFINE BAR _mwi_arran OF _mwindow PROMPT "\<Arrange All" ;
>    PICTRES _mwi_arran ;
>    MESSAGE "Arranges windows as non-overlapping tiles"
>DEFINE BAR _mwi_sp100 OF _mwindow PROMPT "\-" ;
>    PICTRES _mwi_sp100
>DEFINE BAR _mwi_dockable OF _mwindow PROMPT "Doc\<kable" ;
>    PICTRES _mwi_dockable ;
>    MESSAGE "Enable docking of this window"
>DEFINE BAR _mwi_hide OF _mwindow PROMPT "\<Hide" ;
>    PICTRES _mwi_hide ;
>    MESSAGE "Hides the active window"
>DEFINE BAR _mwi_hidea OF _mwindow PROMPT "Hide All" ;
>    PICTRES _mwi_hidea ;
>    MESSAGE "Hides all windows"
>DEFINE BAR _mwi_showa OF _mwindow PROMPT "Sh\<ow All" ;
>    PICTRES _mwi_showa ;
>    MESSAGE "Shows all hidden windows"
>DEFINE BAR _mwi_sp200 OF _mwindow PROMPT "\-" ;
>    PICTRES _mwi_sp200
>DEFINE BAR _mwi_clear OF _mwindow PROMPT "Clea\<r" ;
>    PICTRES _mwi_clear ;
>    MESSAGE "Clears text from the application workspace or the current output window"
>DEFINE BAR _mwi_rotat OF _mwindow PROMPT "C\<ycle" ;
>    KEY CTRL+F1, "Ctrl+F1" ;
>    PICTRES _mwi_rotat ;
>    MESSAGE "Cycles through all open windows"
>DEFINE BAR _mwi_sp200 OF _mwindow PROMPT "\-" ;
>    PICTRES _mwi_sp200
>DEFINE BAR _mwi_cmd OF _mwindow PROMPT "\<Command Window" ;
>    KEY CTRL+F2, "Ctrl+F2" ;
>    PICTRES _mwi_cmd ;
>    MESSAGE "Displays the Command window"
>DEFINE BAR _mwi_view OF _mwindow PROMPT "\<Data Session" ;
>    PICTRES _mwi_view ;
>    MESSAGE "Displays the Data Session window"
>DEFINE BAR _mwi_properties OF _mwindow PROMPT "\<Properties Window" ;
>    PICTRES _mwi_properties ;
>    MESSAGE "Display the Properties window"
>RETURN
>
>
>
>**************************************************
>*-- Form:         form1 (d:\works\form1.scx)
>*-- ParentClass:  form
>*-- BaseClass:    form
>*-- Time Stamp:   06/29/07 07:19:07 PM
>*
>DEFINE CLASS form1 AS form
>
>
>    DoCreate = .T.
>    Caption = "Form1"
>    Name = "Form1"
>
>
>    PROCEDURE Destroy
>        CLEAR EVENTS
>    ENDPROC
>
>
>ENDDEFINE
>*
>*-- EndDefine: form1
>**************************************************
>