Load "guilib.ring"

​

New qApp {

​

        win1 = new qMainWindow() {

​

                setwindowtitle("Menubar")

​

                menu1 = new qmenubar(win1) {

                        sub1 = addmenu("File")

                        sub1 {

                                oAction = new qAction(win1) {

                                        settext("New")

                                        setenabled(false)

                                }

                                addaction(oAction)

                                oAction = new qAction(win1) {

                                        settext("Open")

                                        setcheckable(true)

                                        setchecked(true)

                                        setstatustip("open new file")

                                }

                                addaction(oAction)

                                oAction = new qAction(win1) {

                                        settext("Save")

                                }

                                addaction(oAction)

                                oAction = new qAction(win1) {

                                        settext("Save As")

                                }

                                addaction(oAction)

​

                                addseparator()

                                oAction = new qaction(win1)

                                oAction.settext("Exit")

                                oAction.setclickevent("myapp.quit()")

                                addaction(oAction)

                        }

​

                }

                status1 = new qstatusbar(win1) {

                        showmessage("Ready!",0)

                }

                setmenubar(menu1)

                setmousetracking(true)

                setstatusbar(status1)

                setStyleSheet("color: black; selection-color: black;

                selection-background-color:white ;

                background: QLinearGradient(x1: 0, y1: 0, x2: 0, y2: 1,

                stop: 0 #eef, stop: 1 #ccf);")

                showmaximized()

        }

        exec()

}

Load "guilib.ring"

​

MyApp = New qApp {

​

        win1 = new qWidget() {

​

                setwindowtitle("Using QMenubar")

                setGeometry(100,100,400,400)

​

                menu1 = new qmenubar(win1) {

                        sub1 = addmenu("File")

                        sub2 = addmenu("Edit")

                        sub3 = addmenu("Help")

                        sub1 {

                                oAction = new qAction(win1) {

                                        settext("New")

                                }

                                addaction(oAction)

                                oAction = new qAction(win1) {

                                        settext("Open")

                                }

                                addaction(oAction)

                                oAction = new qAction(win1) {

                                        settext("Save")

                                }

                                addaction(oAction)

                                oAction = new qAction(win1) {

                                        settext("Save As")

                                }

                                addaction(oAction)

                                addseparator()

                                oAction = new qaction(win1) {

                                        settext("Exit")

                                        setclickevent("myapp.quit()")

                                }

                                addaction(oAction)

                        }

                        sub2 {

                                oAction = new qAction(win1) {

                                        settext("Cut")

                                }

                                addaction(oAction)

                                oAction = new qAction(win1) {

                                        settext("Copy")

                                }

                                addaction(oAction)

                                oAction = new qAction(win1) {

                                        settext("Paste")

                                }

                                addaction(oAction)

                                addseparator()

                                oAction = new qAction(win1) {

                                        settext("Select All")

                                }

                                addaction(oAction)

                        }

                        sub3 {

                                oAction = new qAction(win1) {

                                        settext("Reference")

                                }

                                addaction(oAction)

                                sub4 = addmenu("Sub Menu")

                                sub4 {

                                        oAction = new qAction(win1) {

                                                settext("Website")

                                        }

                                        addaction(oAction)

                                        oAction = new qAction(win1) {

                                                settext("Forum")

                                        }

                                        addaction(oAction)

                                        oAction = new qAction(win1) {

                                                settext("Blog")

                                        }

                                        addaction(oAction)

                                }

                                addseparator()

                                        oAction = new qAction(win1) {

                                                settext("About")

                                        }

                                        addaction(oAction)

                        }

                }

                show()

        }

        exec()

}