Dialog Tree questions

From: Wijck, Bart van <"Wijck,>
Date: Mon, 27 Jan 2003 12:09:26 +0100

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

Hi BlackBoxers,

First question:
It's nice to have the folder & file icons in the Tree control. However that
ties the tree contol to a rather particular type of view. How can I tie in
any kind icon? This should be made standard (signal to Oberon Microsystems
for release 1.5). Does anyone have an example how to do this?

Second question:
I'm trying to associate some data via a pointer to a node in a tree control
via the treenode SetData procedure. When however later on I try to access
that data again (very simplified in the example below) I find that the
treenode Data procedure will not compile, even though it should return an
ANYPTR type. I'm probably overlooking the obvious, but what am I doing
wrong? (I'm working with 1.4 beta version).

Regards, Bart

MODULE TryTree;
IMPORT Dialog;

TYPE
  DPTR = POINTER TO DREC;
  DREC = RECORD
           val : INTEGER;
         END;

           
VAR
  Dlg* : RECORD
           Tree*: Dialog.Tree;
         END;

(*
--------------------------------------------------------------------------
*)
PROCEDURE Calc*;
VAR
  d,e : DPTR;
  pn,tn : Dialog.TreeNode;
BEGIN
  pn := NIL;
  tn := Dlg.Tree.NewChild(pn,0,'TREE ROOT');

  NEW(d); d^.val := 200;
  tn.SetData(d);

  e := tn.Data(); (* COMPILE ERROR HERE *)

  Dialog.UpdateList(Dlg.Tree);
  Dialog.Update(Dlg);
END Calc;

(*
--------------------------------------------------------------------------
*)
END TryTree.

-- 
The contents of this e-mail are intended for the named addressee only. It
contains information that may be confidential. Unless you are the named
addressee or an authorized designee, you may not copy or use it, or disclose
it to anyone else. If you received it in error please notify us immediately
and then destroy it. 
--------------------------------------------
To unsubscribe from this mailing list, send a message containing the word "unsubscribe" to:
   blackbox-request{([at]})nowhere.xyTo 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.xyCurrent posting policy:
a) To post you should use the same address by which you are subscribed to the mailing list. That way, the list server will recognize you as subscriber and forward your posting immediately, without creating any overhead.
b) If, for some reason, you cannot post from the address, by which you are subscribed, your message will be moderated to avoid spam. Please understand that moderation will often cause some delay, in particular over weekends or holydays.
----boundary-LibPST-iamunique-36424251_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIEhpIEJsYWNrQm94ZXJzLFxwYXINClxwYXINCkZp
cnN0IHF1ZXN0aW9uOiBccGFyDQpJdCdzIG5pY2UgdG8gaGF2ZSB0aGUgZm9sZGVyICYgZmlsZSBp
Y29ucyBpbiB0aGUgVHJlZSBjb250cm9sLiBIb3dldmVyIHRoYXRccGFyDQp0aWVzIHRoZSB0cmVl
IGNvbnRvbCB0byBhIHJhdGhlciBwYXJ0aWN1bGFyIHR5cGUgb2Ygdmlldy4gSG93IGNhbiBJIHRp
ZSBpblxwYXINCmFueSBraW5kIGljb24/IFRoaXMgc2hvdWxkIGJlIG1hZGUgc3RhbmRhcmQgKHNp
Z25hbCB0byBPYmVyb24gTWljcm9zeXN0ZW1zXHBhcg0KZm9yIHJlbGVhc2UgMS41KS4gRG9lcyBh
bnlvbmUgaGF2ZSBhbiBleGFtcGxlIGhvdyB0byBkbyB0aGlzP1xwYXINClxwYXINClNlY29uZCBx
dWVzdGlvbjogICBccGFyDQpJJ20gdHJ5aW5nIHRvIGFzc29jaWF0ZSBzb21lIGRhdGEgdmlhIGEg
cG9pbnRlciB0byBhIG5vZGUgaW4gYSB0cmVlIGNvbnRyb2xccGFyDQp2aWEgdGhlIHRyZWVub2Rl
IFNldERhdGEgcHJvY2VkdXJlLiBXaGVuIGhvd2V2ZXIgbGF0ZXIgb24gSSB0cnkgdG8gYWNjZXNz
XHBhcg0KdGhhdCBkYXRhIGFnYWluICh2ZXJ5IHNpbXBsaWZpZWQgaW4gdGhlIGV4YW1wbGUgYmVs
b3cpIEkgZmluZCB0aGF0IHRoZVxwYXINCnRyZWVub2RlIERhdGEgcHJvY2VkdXJlIHdpbGwgbm90
IGNvbXBpbGUsIGV2ZW4gdGhvdWdoIGl0IHNob3VsZCByZXR1cm4gYW5ccGFyDQpBTllQVFIgdHlw
ZS4gSSdtIHByb2JhYmx5IG92ZXJsb29raW5nIHRoZSBvYnZpb3VzLCBidXQgd2hhdCBhbSBJIGRv
aW5nXHBhcg0Kd3Jvbmc/ICAoSSdtIHdvcmtpbmcgd2l0aCAxLjQgYmV0YSB2ZXJzaW9uKS5ccGFy
DQpccGFyDQpSZWdhcmRzLCBCYXJ0XHBhcg0KXHBhcg0KTU9EVUxFIFRyeVRyZWU7XHBhcg0KSU1Q
T1JUIERpYWxvZztccGFyDQpccGFyDQpUWVBFXHBhcg0KICBEUFRSID0gUE9JTlRFUiBUTyBEUkVD
O1xwYXINCiAgRFJFQyA9IFJFQ09SRFxwYXINCiAgICAgICAgICAgdmFsIDogSU5URUdFUjtccGFy
DQogICAgICAgICBFTkQ7XHRhYiBcdGFiIFx0YWIgXHBhcg0KXHBhcg0KXHRhYiAgICBccGFyDQpW
QVJccGFyDQogIERsZyogOiBSRUNPUkRccGFyDQogICAgICAgICAgIFRyZWUqOiBEaWFsb2cuVHJl
ZTtccGFyDQogICAgICAgICBFTkQ7XHRhYiBccGFyDQpccGFyDQooKlxwYXINCi0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tXHBhcg0KKilccGFyDQpQUk9DRURVUkUgQ2FsYyo7XHBhcg0KVkFSXHBhcg0KICBkLGUg
OiBEUFRSO1xwYXINCiAgcG4sdG4gOiBEaWFsb2cuVHJlZU5vZGU7XHBhcg0KQkVHSU5ccGFyDQog
IHBuIDo9IE5JTDtccGFyDQogIHRuIDo9IERsZy5UcmVlLk5ld0NoaWxkKHBuLDAsJ1RSRUUgUk9P
VCcpOyBccGFyDQpccGFyDQogIE5FVyhkKTtcdGFiIGReLnZhbCA6PSAyMDA7XHBhcg0KICB0bi5T
ZXREYXRhKGQpO1xwYXINClxwYXINCiAgZSA6PSB0bi5EYXRhKCk7ICAoKiBDT01QSUxFIEVSUk9S
IEhFUkUgKilccGFyDQpccGFyDQogIERpYWxvZy5VcGRhdGVMaXN0KERsZy5UcmVlKTsgXHBhcg0K
ICBEaWFsb2cuVXBkYXRlKERsZyk7XHBhcg0KRU5EIENhbGM7XHBhcg0KXHBhcg0KKCpccGFyDQot
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLVxwYXINCiopXHBhcg0KRU5EIFRyeVRyZWUuXHBhcg0KXHBhcg0KXHBh
cg0KXHBhcg0KXHBhcg0KLS0gXHBhcg0KVGhlIGNvbnRlbnRzIG9mIHRoaXMgZS1tYWlsIGFyZSBp
bnRlbmRlZCBmb3IgdGhlIG5hbWVkIGFkZHJlc3NlZSBvbmx5LiBJdFxwYXINCmNvbnRhaW5zIGlu
Zm9ybWF0aW9uIHRoYXQgbWF5IGJlIGNvbmZpZGVudGlhbC4gVW5sZXNzIHlvdSBhcmUgdGhlIG5h
bWVkXHBhcg0KYWRkcmVzc2VlIG9yIGFuIGF1dGhvcml6ZWQgZGVzaWduZWUsIHlvdSBtYXkgbm90
IGNvcHkgb3IgdXNlIGl0LCBvciBkaXNjbG9zZVxwYXINCml0IHRvIGFueW9uZSBlbHNlLiBJZiB5
b3UgcmVjZWl2ZWQgaXQgaW4gZXJyb3IgcGxlYXNlIG5vdGlmeSB1cyBpbW1lZGlhdGVseVxwYXIN
CmFuZCB0aGVuIGRlc3Ryb3kgaXQuIFxwYXINClxwYXINCi0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tXHBhcg0KXHBhcg0KVG8gdW5zdWJzY3JpYmUgZnJvbSB0aGlz
IG1haWxpbmcgbGlzdCwgc2VuZCBhIG1lc3NhZ2UgY29udGFpbmluZyB0aGUgd29yZCAidW5zdWJz
Y3JpYmUiIHRvOlxwYXINCiAgIGJsYWNrYm94LXJlcXVlc3RAb2Jlcm9uLmNoXHBhcg0KXHBhcg0K
VG8gZ2V0IGEgbGlzdCBvZiB2YWxpZCBlLW1haWwgY29tbWFuZHMgYW5kIGluc3RydWN0aW9ucyBv
biB0aGVpciB1c2FnZSwgc2VuZCBhIG1lc3NhZ2UgY29udGFpbmluZyB0aGUgd29yZCAiaGVscCIg
dG8gdGhlIGFib3ZlIGFkZHJlc3MuXHBhcg0KXHBhcg0KU2VuZCBhbnkgcHJvYmxlbSByZXBvcnRz
IG9yIHF1ZXN0aW9ucyByZWxhdGVkIHRvIHRoaXMgZW1haWwgbGlzdCB0byB0aGUgbGlzdCBvd25l
ciBhdFxwYXINCiAgIG93bmVyLWJsYWNrYm94QG9iZXJvbi5jaFxwYXINClxwYXINCkN1cnJlbnQg
cG9zdGluZyBwb2xpY3k6XHBhcg0KXHBhcg0KYSkgVG8gcG9zdCB5b3Ugc2hvdWxkIHVzZSB0aGUg
c2FtZSBhZGRyZXNzIGJ5IHdoaWNoIHlvdSBhcmUgc3Vic2NyaWJlZCB0byB0aGUgbWFpbGluZyBs
aXN0LiBUaGF0IHdheSwgdGhlIGxpc3Qgc2VydmVyIHdpbGwgcmVjb2duaXplIHlvdSBhcyBzdWJz
Y3JpYmVyIGFuZCBmb3J3YXJkIHlvdXIgcG9zdGluZyBpbW1lZGlhdGVseSwgd2l0aG91dCBjcmVh
dGluZyBhbnkgb3ZlcmhlYWQuXHBhcg0KXHBhcg0KYikgSWYsIGZvciBzb21lIHJlYXNvbiwgeW91
IGNhbm5vdCBwb3N0IGZyb20gdGhlIGFkZHJlc3MsIGJ5IHdoaWNoIHlvdSBhcmUgc3Vic2NyaWJl
ZCwgeW91ciBtZXNzYWdlIHdpbGwgYmUgbW9kZXJhdGVkIHRvIGF2b2lkIHNwYW0uIFBsZWFzZSB1
bmRlcnN0YW5kIHRoYXQgbW9kZXJhdGlvbiB3aWxsIG9mdGVuIGNhdXNlIHNvbWUgZGVsYXksIGlu
IHBhcnRpY3VsYXIgb3ZlciB3ZWVrZW5kcyBvciBob2x5ZGF5cy5ccGFyDQp9
----boundary-LibPST-iamunique-36424251_-_---

Received on Mon Jan 27 2003 - 12:09:26 UTC