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