Hello,
this one is not really important, but it came out while testing.
I have tried to call from main frame menu one source procedure as
OF ?test
START(QiqoMjenjaci, 25000, 'qqq')
END
Build stops with error
"App frame.java method add in MenubarControl can not be applied to given type"
Nenad
If you would like to refer to this comment somewhere else in this project, copy and paste the following link:
AppFrame APPLICATION('Qiqo d.o.o Pula - Mjenjačnica'),AT(,,400,240),FONT('Tahoma',,,,CHARSET:EASTEUROPE),STATUS(-1,80,120,45),SYSTEM,MAX,RESIZE,IMM
MENUBAR,USE(?Menubar)
ITEM('Testsource'),USE(?Testsource)
MENU('&File'),USE(?FileMenu)
ITEM('&Print Setup …'),USE(?PrintSetup),MSG('Setup printer'),STD(STD:PrintSetup)
ITEM,SEPARATOR
ITEM('E&xit'),USE(?Exit),MSG('Exit this application'),STD(STD:Close)
END
MENU('&Edit'),USE(?EditMenu)
ITEM('Cu&t'),USE(?Cut),MSG('Remove item to Windows Clipboard'),STD(STD:Cut)
ITEM('&Copy'),USE(?Copy),MSG('Copy item to Windows Clipboard'),STD(STD:Copy)
ITEM('&Paste'),USE(?Paste),MSG('Paste contents of Windows Clipboard'),STD(STD:Paste)
END
MENU('Šifarnici'),USE(?Sifarnici)
ITEM('Pregled vrsti transakcija'),USE(?SifarniciPregledvrstitransakcija)
ITEM('Test mjenjaci'),USE(?SifarniciTestmjenjaci)
END
MENU('&Window'),USE(?WindowMenu),MSG('Create and Arrange windows'),STD(STD:WindowList)
ITEM('T&ile'),USE(?Tile),MSG('Make all open windows visible'),STD(STD:TileWindow)
ITEM('&Cascade'),USE(?Cascade),MSG('Stack all open windows'),STD(STD:CascadeWindow)
ITEM('&Arrange Icons'),USE(?Arrange),MSG('Align all window icons'),STD(STD:ArrangeIcons)
END
MENU('&Help'),USE(?HelpMenu),MSG('Windows Help')
ITEM('&Contents'),USE(?Helpindex),MSG('View the contents of the help file'),STD(STD:HelpIndex)
ITEM('&Search for Help On…'),USE(?HelpSearch),MSG('Search for help on a subject'),STD(STD:HelpSearch)
ITEM('&How to Use Help'),USE(?HelpOnHelp),MSG('How to use Windows Help'),STD(STD:HelpOnHelp)
END
END
END
Test source is just empty source procedure with no parameters
If you would like to refer to this comment somewhere else in this project, copy and paste the following link:
I have understood the problem. The problem is not the source procedure but that i have put the ITEM ?testsource directly as child of the MENUBAR. If i put one MENU above the ITEM then it is OK.
Nenad
If you would like to refer to this comment somewhere else in this project, copy and paste the following link:
Hello,
this one is not really important, but it came out while testing.
I have tried to call from main frame menu one source procedure as
OF ?test
START(QiqoMjenjaci, 25000, 'qqq')
END
Build stops with error
"App frame.java method add in MenubarControl can not be applied to given type"
Nenad
Can you post the AppFrame definition. Must be something in AppFrame I am not dealing with correctly.
AppFrame APPLICATION('Qiqo d.o.o Pula - Mjenjačnica'),AT(,,400,240),FONT('Tahoma',,,,CHARSET:EASTEUROPE),STATUS(-1,80,120,45),SYSTEM,MAX,RESIZE,IMM
MENUBAR,USE(?Menubar)
ITEM('Testsource'),USE(?Testsource)
MENU('&File'),USE(?FileMenu)
ITEM('&Print Setup …'),USE(?PrintSetup),MSG('Setup printer'),STD(STD:PrintSetup)
ITEM,SEPARATOR
ITEM('E&xit'),USE(?Exit),MSG('Exit this application'),STD(STD:Close)
END
MENU('&Edit'),USE(?EditMenu)
ITEM('Cu&t'),USE(?Cut),MSG('Remove item to Windows Clipboard'),STD(STD:Cut)
ITEM('&Copy'),USE(?Copy),MSG('Copy item to Windows Clipboard'),STD(STD:Copy)
ITEM('&Paste'),USE(?Paste),MSG('Paste contents of Windows Clipboard'),STD(STD:Paste)
END
MENU('Šifarnici'),USE(?Sifarnici)
ITEM('Pregled vrsti transakcija'),USE(?SifarniciPregledvrstitransakcija)
ITEM('Test mjenjaci'),USE(?SifarniciTestmjenjaci)
END
MENU('&Window'),USE(?WindowMenu),MSG('Create and Arrange windows'),STD(STD:WindowList)
ITEM('T&ile'),USE(?Tile),MSG('Make all open windows visible'),STD(STD:TileWindow)
ITEM('&Cascade'),USE(?Cascade),MSG('Stack all open windows'),STD(STD:CascadeWindow)
ITEM('&Arrange Icons'),USE(?Arrange),MSG('Align all window icons'),STD(STD:ArrangeIcons)
END
MENU('&Help'),USE(?HelpMenu),MSG('Windows Help')
ITEM('&Contents'),USE(?Helpindex),MSG('View the contents of the help file'),STD(STD:HelpIndex)
ITEM('&Search for Help On…'),USE(?HelpSearch),MSG('Search for help on a subject'),STD(STD:HelpSearch)
ITEM('&How to Use Help'),USE(?HelpOnHelp),MSG('How to use Windows Help'),STD(STD:HelpOnHelp)
END
END
END
Test source is just empty source procedure with no parameters
I have understood the problem. The problem is not the source procedure but that i have put the ITEM ?testsource directly as child of the MENUBAR. If i put one MENU above the ITEM then it is OK.
Nenad