Right-click pop-up menus (windows)

From: [at]} <Mary>
Date: Wed, 13 Jun 2001 13:43:20 +1000

I think someone may have already asked this question a while ago...but how
do I enable the right mouse click pop-up menus from within one of my views?

For example:

if for the menu for ObxViews4 I replace

MENU "New" ("Obx.Tutorial")
"Beep" "" "Dialog.Beep" ""


MENU "*" ("Obx.Tutorial")
"Beep" "" "Dialog.Beep" ""

and I execute the command, then focus the red rectangle, and then right
click outside the focus the menu "beep" is shown. But how do I enable the
menu within the focus view?
"ObxViews4.Deposit; StdCmds.PasteView" >< set the caret here before
executing the command
MODULE ObxViews4;

        IMPORT Views, Ports, Properties, Controllers;

        TYPE View = POINTER TO RECORD (Views.View) END;

        PROCEDURE (v: View) HandleCtrlMsg (f: Views.Frame;

        VAR msg: Controllers.Message; VAR focus: Views.View);
                WITH msg: Controllers.PollOpsMsg DO
                        msg.valid := {Controllers.paste};
msg.selectable := TRUE;
                        msg.type := "Obx.Tutorial"

                ELSE (* ignore other messages *)
        END HandleCtrlMsg;
END ObxViews4.

Mary Kynn

* . Mary Kynn m.kynn{([at]})nowhere.xy
* _--_|\ School of Mathematical Sciences *
* / QUT Queensland University of Technology *
* \_.--._/ GPO Box 2434 Brisbane Q 4001 AUSTRALIA *
* v Phone: +61 7 3864 1293 *
* Fax: +61 7 3864 2310 *


To unsubscribe from this mailing list, send a message containing the word "unsubscribe" to:

To get a list of valid e-mail commands and instructions on their usage, send a message containing the word "help" to the above address.

Send any problem reports or questions related to this email list to the list owner at
Received on Wed Jun 13 2001 - 03:43:20 UTC

This archive was generated by hypermail 2.3.0 : Thu Sep 26 2013 - 06:27:43 UTC