----boundary-LibPST-iamunique-1505099306_-_-
Content-type: text/plain
Thanks Gérard and others, this does exactly what I need.
Now I see the full solution I am sure I have never done this
before, and never would have without help.
Regards
Robert
>> Gérard Meunier a écrit :
>> > Hello Robert,
>> >> This is something I thought I had done before, but have now
>> >> completely forgotten how to do it.
>> >>
>> >>
>> >> I have written a View that can be pasted into any
>> Container (although
>> >> I am probably only interested in a TextView). What I want
>> to do is
>> >> have a couple of context sensitive specific Commands
>> available in the
>> >> 'right-click' PopUp Menu when my View selected (or
>> Focussed, but I
>> >> prefer selected).
>> >>
>> >> Can someone advise me how to do this?
>> >>
>> > 1) Write a popup menu for your view:
>> >
>> > MENU "*" ("MyViews.View")
>> > "#My:Edit" "E" "MyViews.Edit" "MyViews.EditGuard"
>> > END
>> >
>> > 2) Add these lines in the HandleCtrlMsg procedure of your View:
>> >
>> > PROCEDURE (v: View) HandleCtrlMsg* (f: Views.Frame; VAR msg:
>> > Controllers.Message; VAR focus: Views.View);
>> > BEGIN
>> > WITH
>> > |msg: Controllers.TrackMsg DO
>> > IF HostPorts.right IN msg.modifiers THEN
>> > HostMenus.PopupMenu;
>> > ELSE
>> > ...
>> > END;
>> > ...
>> > END;
>> > END HandleCtrlMsg;
>> >
>> > To open the popup menu, the View must be in edit mode (focussed).
>> >
>> > Cheers.
>> >
>> > Gérard
>> Sorry, but I forgot one step:
>>
>> 3) Add also these lines in the HandleCtrlMsg procedure:
>>
>> WITH
>> ...
>> |msg: Controllers.PollOpsMsg DO
>> msg.type := "MyViews.View";
>> ...
>> END;
>>
>> From the docu: The field "type" denotes a context for the
>> focus view.
>> This context is used to determine which menus are relevant
>> for the focus view. As a convention, a view assigns the type
>> name of its abstract base pointer type to type, e.g.,
>> "TextViews.View". This convention guarantees globally unique
>> context names, since module names are considered globally
>> unique. If the view doesn't support any such context, ignore
>> this field.
>>
>> Consequently, there is no need to export "MyViews.View".
>>
>> Gérard
********************************************************************
This email and any attachments are confidential to the intended
recipient and may also be privileged. If you are not the intended
recipient please delete it from your system and notify the sender.
You should not copy it or use it for any purpose nor disclose or
distribute its contents to any other person.
********************************************************************
--- BlackBox
--- send subject HELP or UNSUBSCRIBE to blackbox{([at]})nowhere.xy
----boundary-LibPST-iamunique-1505099306_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzc1xmY2hhcnNldDAgQXJpYWw7fQ0Ke1xmMVxmbW9kZXJuIENvdXJpZXIgTmV3O30NCntcZjJc
Zm5pbFxmY2hhcnNldDIgU3ltYm9sO30NCntcZjNcZm1vZGVyblxmY2hhcnNldDAgQ291cmllciBO
ZXc7fX0NCntcY29sb3J0YmxccmVkMFxncmVlbjBcYmx1ZTA7XHJlZDBcZ3JlZW4wXGJsdWUyNTU7
fQ0KXHVjMVxwYXJkXHBsYWluXGRlZnRhYjM2MCBcZjBcZnMyMCBccGFyDQpUaGFua3MgR1wnZTly
YXJkIGFuZCBvdGhlcnMsIHRoaXMgZG9lcyBleGFjdGx5IHdoYXQgSSBuZWVkLlxwYXINClxwYXIN
Ck5vdyBJIHNlZSB0aGUgZnVsbCBzb2x1dGlvbiBJIGFtIHN1cmUgSSBoYXZlIG5ldmVyIGRvbmUg
dGhpc1xwYXINCmJlZm9yZSwgYW5kIG5ldmVyIHdvdWxkIGhhdmUgd2l0aG91dCBoZWxwLlxwYXIN
ClxwYXINClJlZ2FyZHNccGFyDQpccGFyDQpSb2JlcnRccGFyDQpccGFyDQpccGFyDQo+PiBHXCdl
OXJhcmQgTWV1bmllciBhIFwnZTljcml0IDpccGFyDQo+PiA+IEhlbGxvIFJvYmVydCxccGFyDQo+
PiA+PiBUaGlzIGlzIHNvbWV0aGluZyBJIHRob3VnaHQgSSBoYWQgZG9uZSBiZWZvcmUsIGJ1dCBo
YXZlIG5vd1xwYXINClxwYXINCj4+ID4+IGNvbXBsZXRlbHkgZm9yZ290dGVuIGhvdyB0byBkbyBp
dC5ccGFyDQo+PiA+PlxwYXINCj4+ID4+XHBhcg0KPj4gPj4gSSBoYXZlIHdyaXR0ZW4gYSBWaWV3
IHRoYXQgY2FuIGJlIHBhc3RlZCBpbnRvIGFueVxwYXINClxwYXINCj4+IENvbnRhaW5lciAoYWx0
aG91Z2hccGFyDQpccGFyDQo+PiA+PiBJIGFtIHByb2JhYmx5IG9ubHkgaW50ZXJlc3RlZCBpbiBh
IFRleHRWaWV3KS4gV2hhdCBJIHdhbnRccGFyDQpccGFyDQo+PiB0byBkbyBpc1xwYXINClxwYXIN
Cj4+ID4+IGhhdmUgYSBjb3VwbGUgb2YgY29udGV4dCBzZW5zaXRpdmUgc3BlY2lmaWMgQ29tbWFu
ZHNccGFyDQpccGFyDQo+PiBhdmFpbGFibGUgaW4gdGhlXHBhcg0KXHBhcg0KPj4gPj4gJ3JpZ2h0
LWNsaWNrJyBQb3BVcCBNZW51IHdoZW4gbXkgVmlldyBzZWxlY3RlZCAob3JccGFyDQpccGFyDQo+
PiBGb2N1c3NlZCwgYnV0IElccGFyDQpccGFyDQo+PiA+PiBwcmVmZXIgc2VsZWN0ZWQpLlxwYXIN
Cj4+ID4+XHBhcg0KPj4gPj4gQ2FuIHNvbWVvbmUgYWR2aXNlIG1lIGhvdyB0byBkbyB0aGlzP1xw
YXINCj4+ID4+ICBccGFyDQpccGFyDQo+PiA+IDEpIFdyaXRlIGEgcG9wdXAgbWVudSBmb3IgeW91
ciB2aWV3OlxwYXINCj4+ID5ccGFyDQo+PiA+ICAgIE1FTlUgIioiICgiTXlWaWV3cy5WaWV3Iilc
cGFyDQo+PiA+ICAgICAgICIjTXk6RWRpdCIgICAiRSIgICAiTXlWaWV3cy5FZGl0IiAgICJNeVZp
ZXdzLkVkaXRHdWFyZCJccGFyDQo+PiA+ICAgIEVORFxwYXINCj4+ID5ccGFyDQo+PiA+IDIpIEFk
ZCB0aGVzZSBsaW5lcyBpbiB0aGUgSGFuZGxlQ3RybE1zZyBwcm9jZWR1cmUgb2YgeW91ciBWaWV3
OlxwYXINCj4+ID5ccGFyDQo+PiA+ICAgIFBST0NFRFVSRSAodjogVmlldykgSGFuZGxlQ3RybE1z
ZyogKGY6IFZpZXdzLkZyYW1lOyBWQVIgbXNnOlxwYXINClxwYXINCj4+ID4gQ29udHJvbGxlcnMu
TWVzc2FnZTsgVkFSIGZvY3VzOiBWaWV3cy5WaWV3KTtccGFyDQo+PiA+ICAgICAgICAgICAgIEJF
R0lOXHBhcg0KPj4gPiAgICAgICAgICAgIFdJVEhccGFyDQo+PiA+ICAgICAgICAgICAgICAgIHxt
c2c6IENvbnRyb2xsZXJzLlRyYWNrTXNnIERPXHBhcg0KPj4gPiAgICAgICAgICAgICAgICAgICAg
SUYgSG9zdFBvcnRzLnJpZ2h0IElOIG1zZy5tb2RpZmllcnMgVEhFTlxwYXINCj4+ID4gICAgICAg
ICAgICAgICAgICAgICAgICBIb3N0TWVudXMuUG9wdXBNZW51O1xwYXINCj4+ID4gICAgICAgICAg
ICAgICAgICAgIEVMU0VccGFyDQo+PiA+ICAgICAgICAgICAgICAgICAgICAgICAuLi5ccGFyDQo+
PiA+ICAgICAgICAgICAgICAgICAgICBFTkQ7XHBhcg0KPj4gPiAgICAgICAgICAgICAgICAuLi5c
cGFyDQo+PiA+ICAgICAgICAgICAgRU5EO1xwYXINCj4+ID4gICAgICAgIEVORCBIYW5kbGVDdHJs
TXNnO1xwYXINCj4+ID5ccGFyDQo+PiA+IFRvIG9wZW4gdGhlIHBvcHVwIG1lbnUsIHRoZSBWaWV3
IG11c3QgYmUgaW4gZWRpdCBtb2RlIChmb2N1c3NlZCkuXHBhcg0KPj4gPlxwYXINCj4+ID4gQ2hl
ZXJzLlxwYXINCj4+ID5ccGFyDQo+PiA+IEdcJ2U5cmFyZFxwYXINCj4+IFNvcnJ5LCBidXQgSSBm
b3Jnb3Qgb25lIHN0ZXA6XHBhcg0KPj5ccGFyDQpccGFyDQo+PiAgICAgMykgQWRkIGFsc28gdGhl
c2UgbGluZXMgaW4gdGhlIEhhbmRsZUN0cmxNc2cgcHJvY2VkdXJlOlxwYXINCj4+XHBhcg0KXHBh
cg0KPj4gICAgICAgICAgICAgV0lUSFxwYXINCj4+ICAgICAgICAgICAgICAgICAuLi5ccGFyDQo+
PiAgICAgICAgICAgICAgICAgfG1zZzogQ29udHJvbGxlcnMuUG9sbE9wc01zZyBET1xwYXINCj4+
ICAgICAgICAgICAgICAgICAgICAgbXNnLnR5cGUgOj0gIk15Vmlld3MuVmlldyI7XHBhcg0KPj4g
ICAgICAgICAgICAgICAgIC4uLlxwYXINCj4+ICAgICAgICAgICAgIEVORDtccGFyDQo+PlxwYXIN
ClxwYXINCj4+ICBGcm9tIHRoZSBkb2N1OiBUaGUgZmllbGQgInR5cGUiIGRlbm90ZXMgYSBjb250
ZXh0IGZvciB0aGVccGFyDQpccGFyDQo+PiBmb2N1cyB2aWV3LlxwYXINClxwYXINCj4+IFRoaXMg
Y29udGV4dCBpcyB1c2VkIHRvIGRldGVybWluZSB3aGljaCBtZW51cyBhcmUgcmVsZXZhbnRccGFy
DQpccGFyDQo+PiBmb3IgdGhlIGZvY3VzIHZpZXcuIEFzIGEgY29udmVudGlvbiwgYSB2aWV3IGFz
c2lnbnMgdGhlIHR5cGVccGFyDQpccGFyDQo+PiBuYW1lIG9mIGl0cyBhYnN0cmFjdCBiYXNlIHBv
aW50ZXIgdHlwZSB0byB0eXBlLCBlLmcuLFxwYXINClxwYXINCj4+ICJUZXh0Vmlld3MuVmlldyIu
IFRoaXMgY29udmVudGlvbiBndWFyYW50ZWVzIGdsb2JhbGx5IHVuaXF1ZVxwYXINClxwYXINCj4+
IGNvbnRleHQgbmFtZXMsIHNpbmNlIG1vZHVsZSBuYW1lcyBhcmUgY29uc2lkZXJlZCBnbG9iYWxs
eVxwYXINClxwYXINCj4+IHVuaXF1ZS4gSWYgdGhlIHZpZXcgZG9lc24ndCBzdXBwb3J0IGFueSBz
dWNoIGNvbnRleHQsIGlnbm9yZVxwYXINClxwYXINCj4+IHRoaXMgZmllbGQuXHBhcg0KPj5ccGFy
DQpccGFyDQo+PiBDb25zZXF1ZW50bHksIHRoZXJlIGlzIG5vIG5lZWQgdG8gZXhwb3J0ICJNeVZp
ZXdzLlZpZXciLlxwYXINCj4+XHBhcg0KXHBhcg0KPj4gR1wnZTlyYXJkXHBhcg0KXHBhcg0KKioq
KioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioq
KioqKioqKipccGFyDQpUaGlzIGVtYWlsIGFuZCBhbnkgYXR0YWNobWVudHMgYXJlIGNvbmZpZGVu
dGlhbCB0byB0aGUgaW50ZW5kZWRccGFyDQpyZWNpcGllbnQgYW5kIG1heSBhbHNvIGJlIHByaXZp
bGVnZWQuIElmIHlvdSBhcmUgbm90IHRoZSBpbnRlbmRlZFxwYXINCnJlY2lwaWVudCBwbGVhc2Ug
ZGVsZXRlIGl0IGZyb20geW91ciBzeXN0ZW0gYW5kIG5vdGlmeSB0aGUgc2VuZGVyLlxwYXINCllv
dSBzaG91bGQgbm90IGNvcHkgaXQgb3IgdXNlIGl0IGZvciBhbnkgcHVycG9zZSBub3IgZGlzY2xv
c2Ugb3JccGFyDQpkaXN0cmlidXRlIGl0cyBjb250ZW50cyB0byBhbnkgb3RoZXIgcGVyc29uLlxw
YXINCioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioq
KioqKioqKioqKioqKioqXHBhcg0KXHBhcg0KLS0tIEJsYWNrQm94XHBhcg0KLS0tIHNlbmQgc3Vi
amVjdCBIRUxQIG9yIFVOU1VCU0NSSUJFIHRvIGJsYWNrYm94QG9iZXJvbi5jaH19AGcgTGlzdCkN
Clg
----boundary-LibPST-iamunique-1505099306_-_---
Received on Fri Jul 28 2006 - 09:43:44 UTC