xbp Menu in my program causes a black non-modal window

[obelix]

I want to use a menu system I used in a Clipper-Version with express++
If I use the procedure erzeugemenusystem() like below, the menu system runs in a black non-modal windows (see attachment)
If I add the procedure appsys(), teh program breaks with the comment: unknown method for this object operation menuBar
Do I have any chance to use this menu system ?

Code: Select all

# include ....
[b]//PROC appsys ; RETURN  [/b]    
procedure main
LOCAL GETList := {}, oStatic1, oStatic2, oStatic3, i, aGETs[20],   aFenster, zahl, nEvent, oXbp
dc_gui(.t.)
....
[b]SetAppWindow() // :useShortCuts := .t.[/b]
...
// an extract of the menu-system

[b]procedure erzeugeMenuSystem(oMenubar)[/b]
  public mnStamm, mnBearbeiten, mnAusdrucke, mnDienstprog, mnUebernahme, mnProg, mnEnde

  mnStamm := XbpMenu():new(oMenuBar)
  mnStamm:title := "~Stammdaten"
  mnStamm:create()
      smnArtikel       := XbpMenu():new( mnStamm )
      smnArtikel:title := "~Artikel"
      smnArtikel:create()

      smnArtikel:addItem( { "~Artikelerfassung/ Korrektur",{|| disableMenu(), artierf(), enableMenu()} } )
      smnArtikel:addItem( { "~Selektierter Art.-Ausdruck",{|| disableMenu(), artlist(), enableMenu()} } )
      mnStamm:addItem( { smnArtikel, } )

 return

[rdonnay]

It looks like this menu system was designed for CRT windows.

Do you have documentation?

Why aren't you using the eXpress++ menu system?

Show me some code.

[obelix]

Roger,
the menu system shown in the code and the attachement was designed for a crt program. As I'm transforming this program into a modal version, I would like to use
a menu system the clients know from the crt version.
It would be okay to use the express++ menu system, but I didn't find a way to create a sub sub menu like 'Artikelerfassung/Korrektur'

[rdonnay]

Are you saying that your entire application runs in a CRT window?

How are you creating oMenubar ?

The eXpress++ menu system creates as many sub-sub menus as you want.

Code: Select all

DCMENUBAR oMenuBar

  DCSUBMENU oMenu1 PROMPT 'Menu 1' PARENT oMenuBar

     DCMENUITEM 'Menu item 1' PARENT oMenu1

        DCSUBMENU oMenu1_1 PROMPT 'Menu 1/1' PARENT oMenu1

           DCMENUITEM 'Menu Item 1_1/1 PARENT oMenu1_1

[obelix]

Thank you Roger, I think it's what I need. I will try it the next days. That will help me on to bring my program to an end.

It's only the menu that ist running in a crt-Window and there remains a black crt window in the background, but the dcread()s and dcbrowse()s run in the foreground as they have to.
The further version is a crt programm running in a window determined by the parameters in appsys.prg

[rdonnay]

I still see no reason why you cannot use your existing menu system with eXpress++.

When you create a the XbpMenuBar() object it's parent should be the dialog window created by eXpress++.

[obelix]

Roger,
It would be very comfortable if I had the chance to use the procedure erzeugnemenusystem(). I wrote a small program using some of the submenus to show you the behavior of the program. The function dummy() replaces the different functions triggered by erzeugermenusystem(). I send it in the attachement.
Thank you for looking after my problem.

[messaoudlazhar]

obelix,
Here is a corrected copy of your program
best regard

[obelix]

At first glance, I feel giddy at the improvement of my code. I just had to add some lines to my code and it's great: Thank you Moussuad !!
for someone who likes to use this code too:
My line with SetAppWindow() :useShortCuts := .T. has to be changed in: SetAppWindow()