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" ""
END

with

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

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);
        BEGIN
                WITH msg: Controllers.PollOpsMsg DO
                        msg.valid := {Controllers.paste};
msg.selectable := TRUE;
                        msg.type := "Obx.Tutorial"

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

thanks,
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:
   blackbox-request{([at]})nowhere.xy

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
   owner-blackbox{([at]})nowhere.xy
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