Re: [BLACKBOX] Opening an embedded form view

From: Campbell, Robert (SELEX GALILEO, UK) <robert.d.campbell{([at]})nowhere.xy>
Date: Wed, 9 Dec 2009 10:01:44 -0000

----boundary-LibPST-iamunique-645886697_-_-
Content-type: text/plain

>> Robert,
>> Yes, that is what I want. Your demo works just fine.
>> I have not studied your Plotters.odc so bare with me.
>>
>> Did you create the form programmatically or by hand?
>> If by hand then how did you put your graph into the form?
>>
>> -Doug


Doug

By hand, although it could have been done programmatically.

I pasted a LibPlotters.Plotter (strictly speaking that is a Model, and I
pasted its corresponding View type) into the Form. If you open the file
Lib/Rsrc/paletteEdt.odc you will find it there. BUT it contains no
contents,
so is invisible. If you click into it you will see its outline.

When the Form is loaded the procedure LibPlotters.ShowPaletteEditor is
used. This (small)
procedure is worth reading. It opens the file containing the Form, scans
it to find the Plotter
View, and keeps a copy of a Pointer to it (ie a shallow copy).
Subsequently the Plotter is
filled with relevant graphics elements as required.

How do you paste an arbitrary View into a Form (or other Container)?
With <Ctrl>-C <Ctrl>-V.
First you must select the View with <Ctrl>-<Space>.
But you are having problems selecting a View opened using OpenAux. Such
Views were selectable in BlackBox 1.2,
but this was changed in 1.3.

To solve this problem I have these two lines in my 'Edit' drop down
Menu:

        SEPARATOR
        "Toggle Selectability" "" "WandsToggleSel.Toggle"
"WandsToggleSel.GuardToggle"
        "Select Docu&ment" " " "StdCmds.SelectDocument"
"WandsToggleSel.GuardSelectable"

In use the label "Toggle Selectability" becomes "Enable Document
Selection" or "Disable Document Selection".
I find this a very useful Menu Item!
(Also note the more precise Guard for the Oms Command
"StdCmds.SelectDocument".)

The code is below.

I think that this Module, and its Docu file, are also on the CPC site.


Let me know if any of this helps.


Regards

Robert




MODULE WandsToggleSel; (* Date : 10 November 2004 *)
        (* Author : Robert D Campbell *)
        (* (c) *)

IMPORT Containers, Dialog, Windows;


PROCEDURE GuardToggle* (VAR par : Dialog.Par);
  VAR
    w : Windows.Window;
  BEGIN
    w := Windows.dir.Focus (TRUE);
    IF w = NIL THEN
      par.disabled := TRUE
    ELSE
      IF Containers.noSelection IN w.doc.ThisController ().opts
        THEN par.label := 'Enable Document selection'
        ELSE par.label := 'Disable Document selection' END
    END
  END GuardToggle;


PROCEDURE GuardSelectable* (VAR par : Dialog.Par);
  VAR
    w : Windows.Window;
  BEGIN
    w := Windows.dir.Focus (TRUE);
    par.disabled := (w = NIL)
                    OR (Containers.noSelection IN
w.doc.ThisController ().opts)
  END GuardSelectable;


PROCEDURE Toggle*;
  VAR
    w : Windows.Window;
    c : Containers.Controller;
  BEGIN
    w := Windows.dir.Focus (TRUE);
    IF w # NIL THEN
      c := w.doc.ThisController ();
      IF Containers.noSelection IN c.opts
        THEN c.SetOpts (c.opts - {Containers.noSelection})
        ELSE c.SetOpts (c.opts + {Containers.noSelection}) END
    END
  END Toggle;


END WandsToggleSel.


Q DevDebug.Unload
SELEX Sensors and Airborne Systems Limited
Registered Office: Sigma House, Christopher Martin Road, Basildon, Essex SS14 3EL
A company registered in England & Wales. Company no. 02426132
********************************************************************
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.
********************************************************************

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-645886697_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwID4+IFJvYmVydCxccGFyDQo+PiBZZXMsIHRoYXQg
aXMgd2hhdCBJIHdhbnQuICBZb3VyIGRlbW8gd29ya3MganVzdCBmaW5lLlxwYXINCj4+IEkgaGF2
ZSBub3Qgc3R1ZGllZCB5b3VyIFBsb3R0ZXJzLm9kYyBzbyBiYXJlIHdpdGggbWUuXHBhcg0KPj4g
XHBhcg0KPj4gRGlkIHlvdSBjcmVhdGUgdGhlIGZvcm0gcHJvZ3JhbW1hdGljYWxseSBvciBieSBo
YW5kP1xwYXINCj4+IElmIGJ5IGhhbmQgdGhlbiBob3cgZGlkIHlvdSBwdXQgeW91ciBncmFwaCBp
bnRvIHRoZSBmb3JtP1xwYXINCj4+IFxwYXINCj4+IC1Eb3VnXHBhcg0KXHBhcg0KXHBhcg0KRG91
Z1xwYXINClxwYXINCkJ5IGhhbmQsIGFsdGhvdWdoIGl0IGNvdWxkIGhhdmUgYmVlbiBkb25lIHBy
b2dyYW1tYXRpY2FsbHkuXHBhcg0KXHBhcg0KSSBwYXN0ZWQgYSBMaWJQbG90dGVycy5QbG90dGVy
IChzdHJpY3RseSBzcGVha2luZyB0aGF0IGlzIGEgTW9kZWwsIGFuZCBJXHBhcg0KcGFzdGVkIGl0
cyBjb3JyZXNwb25kaW5nIFZpZXcgdHlwZSkgaW50byB0aGUgRm9ybS4gSWYgeW91IG9wZW4gdGhl
IGZpbGVccGFyDQpMaWIvUnNyYy9wYWxldHRlRWR0Lm9kYyB5b3Ugd2lsbCBmaW5kIGl0IHRoZXJl
LiBCVVQgaXQgY29udGFpbnMgbm9ccGFyDQpjb250ZW50cyxccGFyDQpzbyBpcyBpbnZpc2libGUu
IElmIHlvdSBjbGljayBpbnRvIGl0IHlvdSB3aWxsIHNlZSBpdHMgb3V0bGluZS5ccGFyDQpccGFy
DQpXaGVuIHRoZSBGb3JtIGlzIGxvYWRlZCB0aGUgcHJvY2VkdXJlIExpYlBsb3R0ZXJzLlNob3dQ
YWxldHRlRWRpdG9yIGlzXHBhcg0KdXNlZC4gVGhpcyAoc21hbGwpXHBhcg0KcHJvY2VkdXJlIGlz
IHdvcnRoIHJlYWRpbmcuIEl0IG9wZW5zIHRoZSBmaWxlIGNvbnRhaW5pbmcgdGhlIEZvcm0sIHNj
YW5zXHBhcg0KaXQgdG8gZmluZCB0aGUgUGxvdHRlclxwYXINClZpZXcsIGFuZCBrZWVwcyBhIGNv
cHkgb2YgYSBQb2ludGVyIHRvIGl0IChpZSBhIHNoYWxsb3cgY29weSkuXHBhcg0KU3Vic2VxdWVu
dGx5IHRoZSBQbG90dGVyIGlzXHBhcg0KZmlsbGVkIHdpdGggcmVsZXZhbnQgZ3JhcGhpY3MgZWxl
bWVudHMgYXMgcmVxdWlyZWQuXHBhcg0KXHBhcg0KSG93IGRvIHlvdSBwYXN0ZSBhbiBhcmJpdHJh
cnkgVmlldyBpbnRvIGEgRm9ybSAob3Igb3RoZXIgQ29udGFpbmVyKT9ccGFyDQpXaXRoIDxDdHJs
Pi1DIDxDdHJsPi1WLlxwYXINCkZpcnN0IHlvdSBtdXN0IHNlbGVjdCB0aGUgVmlldyB3aXRoIDxD
dHJsPi08U3BhY2U+LlxwYXINCkJ1dCB5b3UgYXJlIGhhdmluZyBwcm9ibGVtcyBzZWxlY3Rpbmcg
YSBWaWV3IG9wZW5lZCB1c2luZyBPcGVuQXV4LiBTdWNoXHBhcg0KVmlld3Mgd2VyZSBzZWxlY3Rh
YmxlIGluIEJsYWNrQm94IDEuMixccGFyDQpidXQgdGhpcyB3YXMgY2hhbmdlZCBpbiAxLjMuXHBh
cg0KXHBhcg0KVG8gc29sdmUgdGhpcyBwcm9ibGVtIEkgaGF2ZSB0aGVzZSB0d28gbGluZXMgaW4g
bXkgJ0VkaXQnIGRyb3AgZG93blxwYXINCk1lbnU6XHBhcg0KXHBhcg0KXHRhYiBTRVBBUkFUT1Jc
cGFyDQpcdGFiICJUb2dnbGUgU2VsZWN0YWJpbGl0eSJcdGFiICIiXHRhYiAiV2FuZHNUb2dnbGVT
ZWwuVG9nZ2xlIlxwYXINCiJXYW5kc1RvZ2dsZVNlbC5HdWFyZFRvZ2dsZSJccGFyDQpcdGFiICJT
ZWxlY3QgRG9jdSZtZW50Ilx0YWIgIiAiXHRhYiAiU3RkQ21kcy5TZWxlY3REb2N1bWVudCJccGFy
DQoiV2FuZHNUb2dnbGVTZWwuR3VhcmRTZWxlY3RhYmxlIlxwYXINClxwYXINCkluIHVzZSB0aGUg
bGFiZWwgIlRvZ2dsZSBTZWxlY3RhYmlsaXR5IiBiZWNvbWVzICJFbmFibGUgRG9jdW1lbnRccGFy
DQpTZWxlY3Rpb24iIG9yICJEaXNhYmxlIERvY3VtZW50IFNlbGVjdGlvbiIuXHBhcg0KSSBmaW5k
IHRoaXMgYSB2ZXJ5IHVzZWZ1bCBNZW51IEl0ZW0hXHBhcg0KKEFsc28gbm90ZSB0aGUgbW9yZSBw
cmVjaXNlIEd1YXJkIGZvciB0aGUgT21zIENvbW1hbmRccGFyDQoiU3RkQ21kcy5TZWxlY3REb2N1
bWVudCIuKVxwYXINClxwYXINClRoZSBjb2RlIGlzIGJlbG93LlxwYXINClxwYXINCkkgdGhpbmsg
dGhhdCB0aGlzIE1vZHVsZSwgYW5kIGl0cyBEb2N1IGZpbGUsIGFyZSBhbHNvIG9uIHRoZSBDUEMg
c2l0ZS5ccGFyDQpccGFyDQpccGFyDQpMZXQgbWUga25vdyBpZiBhbnkgb2YgdGhpcyBoZWxwcy5c
cGFyDQpccGFyDQpccGFyDQpSZWdhcmRzXHBhcg0KXHBhcg0KUm9iZXJ0XHBhcg0KXHBhcg0KXHBh
cg0KXHBhcg0KXHBhcg0KTU9EVUxFICBXYW5kc1RvZ2dsZVNlbDtcdGFiICgqICBEYXRlICAgOiAg
MTAgIE5vdmVtYmVyICAyMDA0ICAqKVxwYXINClx0YWIgKCogIEF1dGhvciA6ICBSb2JlcnQgRCBD
YW1wYmVsbCAgICopXHBhcg0KXHRhYiAoKiAgKGMpICAqKVxwYXINClxwYXINCklNUE9SVCAgQ29u
dGFpbmVycywgRGlhbG9nLCBXaW5kb3dzO1xwYXINClxwYXINClxwYXINClBST0NFRFVSRSAgR3Vh
cmRUb2dnbGUqIChWQVIgcGFyIDogRGlhbG9nLlBhcik7XHBhcg0KICBWQVJccGFyDQogICAgdyAg
OiAgV2luZG93cy5XaW5kb3c7XHBhcg0KICBCRUdJTlxwYXINCiAgICB3ICA6PSAgV2luZG93cy5k
aXIuRm9jdXMgKFRSVUUpO1xwYXINCiAgICBJRiAgdyAgPSAgTklMICBUSEVOXHBhcg0KICAgICAg
cGFyLmRpc2FibGVkICA6PSAgVFJVRVxwYXINCiAgICBFTFNFXHBhcg0KICAgICAgSUYgIENvbnRh
aW5lcnMubm9TZWxlY3Rpb24gIElOICB3LmRvYy5UaGlzQ29udHJvbGxlciAoKS5vcHRzXHBhcg0K
ICAgICAgICBUSEVOICBwYXIubGFiZWwgIDo9ICAnRW5hYmxlIERvY3VtZW50IHNlbGVjdGlvbidc
cGFyDQogICAgICAgIEVMU0UgIHBhci5sYWJlbCAgOj0gICdEaXNhYmxlIERvY3VtZW50IHNlbGVj
dGlvbicgIEVORFxwYXINCiAgICBFTkRccGFyDQogIEVORCAgR3VhcmRUb2dnbGU7XHBhcg0KXHBh
cg0KXHBhcg0KUFJPQ0VEVVJFICBHdWFyZFNlbGVjdGFibGUqIChWQVIgcGFyIDogRGlhbG9nLlBh
cik7XHBhcg0KICBWQVJccGFyDQogICAgdyAgOiAgV2luZG93cy5XaW5kb3c7XHBhcg0KICBCRUdJ
TlxwYXINCiAgICB3ICA6PSAgV2luZG93cy5kaXIuRm9jdXMgKFRSVUUpO1xwYXINCiAgICBwYXIu
ZGlzYWJsZWQgIDo9ICAodyAgPSAgTklMKVxwYXINCiAgICAgICAgICAgICAgICAgICAgT1IgIChD
b250YWluZXJzLm5vU2VsZWN0aW9uICBJTlxwYXINCncuZG9jLlRoaXNDb250cm9sbGVyICgpLm9w
dHMpXHBhcg0KICBFTkQgIEd1YXJkU2VsZWN0YWJsZTtccGFyDQpccGFyDQpccGFyDQpQUk9DRURV
UkUgIFRvZ2dsZSo7XHBhcg0KICBWQVJccGFyDQogICAgdyAgOiAgV2luZG93cy5XaW5kb3c7XHBh
cg0KICAgIGMgIDogIENvbnRhaW5lcnMuQ29udHJvbGxlcjtccGFyDQogIEJFR0lOXHBhcg0KICAg
IHcgIDo9ICBXaW5kb3dzLmRpci5Gb2N1cyAoVFJVRSk7XHBhcg0KICAgIElGICB3ICAjICBOSUwg
IFRIRU5ccGFyDQogICAgICBjICA6PSAgdy5kb2MuVGhpc0NvbnRyb2xsZXIgKCk7XHBhcg0KICAg
ICAgSUYgIENvbnRhaW5lcnMubm9TZWxlY3Rpb24gIElOICBjLm9wdHNccGFyDQogICAgICAgIFRI
RU4gIGMuU2V0T3B0cyAoYy5vcHRzIC0gXHtDb250YWluZXJzLm5vU2VsZWN0aW9uXH0pXHBhcg0K
ICAgICAgICBFTFNFICBjLlNldE9wdHMgKGMub3B0cyArIFx7Q29udGFpbmVycy5ub1NlbGVjdGlv
blx9KSAgRU5EXHBhcg0KICAgIEVORFxwYXINCiAgRU5EICBUb2dnbGU7XHBhcg0KXHBhcg0KXHBh
cg0KRU5EICBXYW5kc1RvZ2dsZVNlbC5ccGFyDQpccGFyDQpccGFyDQpRICAgIERldkRlYnVnLlVu
bG9hZFxwYXINClNFTEVYIFNlbnNvcnMgYW5kIEFpcmJvcm5lIFN5c3RlbXMgTGltaXRlZFxwYXIN
ClJlZ2lzdGVyZWQgT2ZmaWNlOiBTaWdtYSBIb3VzZSwgQ2hyaXN0b3BoZXIgTWFydGluIFJvYWQs
IEJhc2lsZG9uLCBFc3NleCBTUzE0IDNFTFxwYXINCkEgY29tcGFueSByZWdpc3RlcmVkIGluIEVu
Z2xhbmQgJiBXYWxlcy4gIENvbXBhbnkgbm8uIDAyNDI2MTMyXHBhcg0KKioqKioqKioqKioqKioq
KioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKipccGFy
DQpUaGlzIGVtYWlsIGFuZCBhbnkgYXR0YWNobWVudHMgYXJlIGNvbmZpZGVudGlhbCB0byB0aGUg
aW50ZW5kZWRccGFyDQpyZWNpcGllbnQgYW5kIG1heSBhbHNvIGJlIHByaXZpbGVnZWQuIElmIHlv
dSBhcmUgbm90IHRoZSBpbnRlbmRlZFxwYXINCnJlY2lwaWVudCBwbGVhc2UgZGVsZXRlIGl0IGZy
b20geW91ciBzeXN0ZW0gYW5kIG5vdGlmeSB0aGUgc2VuZGVyLlxwYXINCllvdSBzaG91bGQgbm90
IGNvcHkgaXQgb3IgdXNlIGl0IGZvciBhbnkgcHVycG9zZSBub3IgZGlzY2xvc2Ugb3JccGFyDQpk
aXN0cmlidXRlIGl0cyBjb250ZW50cyB0byBhbnkgb3RoZXIgcGVyc29uLlxwYXINCioqKioqKioq
KioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioq
KioqXHBhcg0KXHBhcg0KXHBhcg0KLS0tLVxwYXINClRvIHVuc3Vic2NyaWJlLCBzZW5kIGEgbWVz
c2FnZSB3aXRoIGJvZHkgIlNJR05PRkYgQkxBQ0tCT1giIHRvIExJU1RTRVJWQExJU1RTLk9CRVJP
Ti5DSH19AACxAAA
----boundary-LibPST-iamunique-645886697_-_---

Received on Wed Dec 09 2009 - 11:01:44 UTC