AW: Dialog Tree questions

From: Zinn, Helmut <"Zinn,>
Date: Tue, 28 Jan 2003 08:10:10 +0100

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

Dear Bart,

I can't believe it. You are still working with BlackBox 1.4 Beta and
speaking about BlackBox 1.5. How can OM develop this version? Why don't you
buy version 1.4 final? There are a lot of improvements in the final
versions. Don't miss it.

Regards

Helmut

-----Ursprüngliche Nachricht-----
Von: Wijck, Bart van [mailto:Bart_van_Wijck{([at]})nowhere.xy
Gesendet: Montag, 27. Januar 2003 12:09
An: 'blackbox{([at]})nowhere.xy
Betreff: Dialog Tree questions


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.
-------------
Diese E-Mail wurde auf Viren ueberprueft.
Postmaster IG Metall
--------------------------------------------
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-1759639985_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzc1xmY2hhcnNldDAgQXJpYWw7fQ0Ke1xmMVxmbW9kZXJuIENvdXJpZXIgTmV3O30NCntcZjJc
Zm5pbFxmY2hhcnNldDIgU3ltYm9sO30NCntcZjNcZm1vZGVyblxmY2hhcnNldDAgQ291cmllciBO
ZXc7fX0NCntcY29sb3J0YmxccmVkMFxncmVlbjBcYmx1ZTA7XHJlZDBcZ3JlZW4wXGJsdWUyNTU7
fQ0KXHVjMVxwYXJkXHBsYWluXGRlZnRhYjM2MCBcZjBcZnMyMCBEZWFyIEJhcnQsXHBhcg0KXHBh
cg0KSSBjYW4ndCBiZWxpZXZlIGl0LiBZb3UgYXJlIHN0aWxsIHdvcmtpbmcgd2l0aCBCbGFja0Jv
eCAxLjQgQmV0YSBhbmRccGFyDQpzcGVha2luZyBhYm91dCBCbGFja0JveCAxLjUuIEhvdyBjYW4g
T00gZGV2ZWxvcCB0aGlzIHZlcnNpb24/IFdoeSBkb24ndCB5b3VccGFyDQpidXkgdmVyc2lvbiAx
LjQgZmluYWw/IFRoZXJlIGFyZSBhIGxvdCBvZiBpbXByb3ZlbWVudHMgaW4gdGhlIGZpbmFsXHBh
cg0KdmVyc2lvbnMuIERvbid0IG1pc3MgaXQuXHBhcg0KXHBhcg0KUmVnYXJkc1xwYXINClxwYXIN
CkhlbG11dFxwYXINClxwYXINCi0tLS0tVXJzcHJcJ2ZjbmdsaWNoZSBOYWNocmljaHQtLS0tLVxw
YXINClZvbjogV2lqY2ssIEJhcnQgdmFuIFttYWlsdG86QmFydF92YW5fV2lqY2tAbmwuY29tcHV3
YXJlLmNvbV1ccGFyDQpHZXNlbmRldDogTW9udGFnLCAyNy4gSmFudWFyIDIwMDMgMTI6MDlccGFy
DQpBbjogJ2JsYWNrYm94QG9iZXJvbi5jaCdccGFyDQpCZXRyZWZmOiBEaWFsb2cgVHJlZSBxdWVz
dGlvbnMgXHBhcg0KXHBhcg0KXHBhcg0KSGkgQmxhY2tCb3hlcnMsXHBhcg0KXHBhcg0KRmlyc3Qg
cXVlc3Rpb246IFxwYXINCkl0J3MgbmljZSB0byBoYXZlIHRoZSBmb2xkZXIgJiBmaWxlIGljb25z
IGluIHRoZSBUcmVlIGNvbnRyb2wuIEhvd2V2ZXIgdGhhdFxwYXINCnRpZXMgdGhlIHRyZWUgY29u
dG9sIHRvIGEgcmF0aGVyIHBhcnRpY3VsYXIgdHlwZSBvZiB2aWV3LiBIb3cgY2FuIEkgdGllIGlu
XHBhcg0KYW55IGtpbmQgaWNvbj8gVGhpcyBzaG91bGQgYmUgbWFkZSBzdGFuZGFyZCAoc2lnbmFs
IHRvIE9iZXJvbiBNaWNyb3N5c3RlbXNccGFyDQpmb3IgcmVsZWFzZSAxLjUpLiBEb2VzIGFueW9u
ZSBoYXZlIGFuIGV4YW1wbGUgaG93IHRvIGRvIHRoaXM/XHBhcg0KXHBhcg0KU2Vjb25kIHF1ZXN0
aW9uOiAgIFxwYXINCkknbSB0cnlpbmcgdG8gYXNzb2NpYXRlIHNvbWUgZGF0YSB2aWEgYSBwb2lu
dGVyIHRvIGEgbm9kZSBpbiBhIHRyZWUgY29udHJvbFxwYXINCnZpYSB0aGUgdHJlZW5vZGUgU2V0
RGF0YSBwcm9jZWR1cmUuIFdoZW4gaG93ZXZlciBsYXRlciBvbiBJIHRyeSB0byBhY2Nlc3NccGFy
DQp0aGF0IGRhdGEgYWdhaW4gKHZlcnkgc2ltcGxpZmllZCBpbiB0aGUgZXhhbXBsZSBiZWxvdykg
SSBmaW5kIHRoYXQgdGhlXHBhcg0KdHJlZW5vZGUgRGF0YSBwcm9jZWR1cmUgd2lsbCBub3QgY29t
cGlsZSwgZXZlbiB0aG91Z2ggaXQgc2hvdWxkIHJldHVybiBhblxwYXINCkFOWVBUUiB0eXBlLiBJ
J20gcHJvYmFibHkgb3Zlcmxvb2tpbmcgdGhlIG9idmlvdXMsIGJ1dCB3aGF0IGFtIEkgZG9pbmdc
cGFyDQp3cm9uZz8gIChJJ20gd29ya2luZyB3aXRoIDEuNCBiZXRhIHZlcnNpb24pLlxwYXINClxw
YXINClJlZ2FyZHMsIEJhcnRccGFyDQpccGFyDQpNT0RVTEUgVHJ5VHJlZTtccGFyDQpJTVBPUlQg
RGlhbG9nO1xwYXINClxwYXINClRZUEVccGFyDQogIERQVFIgPSBQT0lOVEVSIFRPIERSRUM7XHBh
cg0KICBEUkVDID0gUkVDT1JEXHBhcg0KICAgICAgICAgICB2YWwgOiBJTlRFR0VSO1xwYXINCiAg
ICAgICAgIEVORDtcdGFiIFx0YWIgXHRhYiBccGFyDQpccGFyDQpcdGFiICAgIFxwYXINClZBUlxw
YXINCiAgRGxnKiA6IFJFQ09SRFxwYXINCiAgICAgICAgICAgVHJlZSo6IERpYWxvZy5UcmVlO1xw
YXINCiAgICAgICAgIEVORDtcdGFiIFxwYXINClxwYXINCigqXHBhcg0KLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS1ccGFyDQoqKVxwYXINClBST0NFRFVSRSBDYWxjKjtccGFyDQpWQVJccGFyDQogIGQsZSA6IERQ
VFI7XHBhcg0KICBwbix0biA6IERpYWxvZy5UcmVlTm9kZTtccGFyDQpCRUdJTlxwYXINCiAgcG4g
Oj0gTklMO1xwYXINCiAgdG4gOj0gRGxnLlRyZWUuTmV3Q2hpbGQocG4sMCwnVFJFRSBST09UJyk7
IFxwYXINClxwYXINCiAgTkVXKGQpO1x0YWIgZF4udmFsIDo9IDIwMDtccGFyDQogIHRuLlNldERh
dGEoZCk7XHBhcg0KXHBhcg0KICBlIDo9IHRuLkRhdGEoKTsgICgqIENPTVBJTEUgRVJST1IgSEVS
RSAqKVxwYXINClxwYXINCiAgRGlhbG9nLlVwZGF0ZUxpc3QoRGxnLlRyZWUpOyBccGFyDQogIERp
YWxvZy5VcGRhdGUoRGxnKTtccGFyDQpFTkQgQ2FsYztccGFyDQpccGFyDQooKlxwYXINCi0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tXHBhcg0KKilccGFyDQpFTkQgVHJ5VHJlZS5ccGFyDQpccGFyDQpccGFyDQpc
cGFyDQpccGFyDQotLSBccGFyDQpUaGUgY29udGVudHMgb2YgdGhpcyBlLW1haWwgYXJlIGludGVu
ZGVkIGZvciB0aGUgbmFtZWQgYWRkcmVzc2VlIG9ubHkuIEl0XHBhcg0KY29udGFpbnMgaW5mb3Jt
YXRpb24gdGhhdCBtYXkgYmUgY29uZmlkZW50aWFsLiBVbmxlc3MgeW91IGFyZSB0aGUgbmFtZWRc
cGFyDQphZGRyZXNzZWUgb3IgYW4gYXV0aG9yaXplZCBkZXNpZ25lZSwgeW91IG1heSBub3QgY29w
eSBvciB1c2UgaXQsIG9yIGRpc2Nsb3NlXHBhcg0KaXQgdG8gYW55b25lIGVsc2UuIElmIHlvdSBy
ZWNlaXZlZCBpdCBpbiBlcnJvciBwbGVhc2Ugbm90aWZ5IHVzIGltbWVkaWF0ZWx5XHBhcg0KYW5k
IHRoZW4gZGVzdHJveSBpdC4gXHBhcg0KXHBhcg0KLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS1ccGFyDQpccGFyDQpUbyB1bnN1YnNjcmliZSBmcm9tIHRoaXMgbWFp
bGluZyBsaXN0LCBzZW5kIGEgbWVzc2FnZSBjb250YWluaW5nIHRoZSB3b3JkXHBhcg0KInVuc3Vi
c2NyaWJlIiB0bzpccGFyDQogICBibGFja2JveC1yZXF1ZXN0QG9iZXJvbi5jaFxwYXINClxwYXIN
ClRvIGdldCBhIGxpc3Qgb2YgdmFsaWQgZS1tYWlsIGNvbW1hbmRzIGFuZCBpbnN0cnVjdGlvbnMg
b24gdGhlaXIgdXNhZ2UsIHNlbmRccGFyDQphIG1lc3NhZ2UgY29udGFpbmluZyB0aGUgd29yZCAi
aGVscCIgdG8gdGhlIGFib3ZlIGFkZHJlc3MuXHBhcg0KXHBhcg0KU2VuZCBhbnkgcHJvYmxlbSBy
ZXBvcnRzIG9yIHF1ZXN0aW9ucyByZWxhdGVkIHRvIHRoaXMgZW1haWwgbGlzdCB0byB0aGUgbGlz
dFxwYXINCm93bmVyIGF0XHBhcg0KICAgb3duZXItYmxhY2tib3hAb2Jlcm9uLmNoXHBhcg0KXHBh
cg0KQ3VycmVudCBwb3N0aW5nIHBvbGljeTpccGFyDQpccGFyDQphKSBUbyBwb3N0IHlvdSBzaG91
bGQgdXNlIHRoZSBzYW1lIGFkZHJlc3MgYnkgd2hpY2ggeW91IGFyZSBzdWJzY3JpYmVkIHRvXHBh
cg0KdGhlIG1haWxpbmcgbGlzdC4gVGhhdCB3YXksIHRoZSBsaXN0IHNlcnZlciB3aWxsIHJlY29n
bml6ZSB5b3UgYXMgc3Vic2NyaWJlclxwYXINCmFuZCBmb3J3YXJkIHlvdXIgcG9zdGluZyBpbW1l
ZGlhdGVseSwgd2l0aG91dCBjcmVhdGluZyBhbnkgb3ZlcmhlYWQuXHBhcg0KXHBhcg0KYikgSWYs
IGZvciBzb21lIHJlYXNvbiwgeW91IGNhbm5vdCBwb3N0IGZyb20gdGhlIGFkZHJlc3MsIGJ5IHdo
aWNoIHlvdSBhcmVccGFyDQpzdWJzY3JpYmVkLCB5b3VyIG1lc3NhZ2Ugd2lsbCBiZSBtb2RlcmF0
ZWQgdG8gYXZvaWQgc3BhbS4gUGxlYXNlIHVuZGVyc3RhbmRccGFyDQp0aGF0IG1vZGVyYXRpb24g
d2lsbCBvZnRlbiBjYXVzZSBzb21lIGRlbGF5LCBpbiBwYXJ0aWN1bGFyIG92ZXIgd2Vla2VuZHMg
b3JccGFyDQpob2x5ZGF5cy5ccGFyDQpccGFyDQpccGFyDQotLS0tLS0tLS0tLS0tXHBhcg0KXHBh
cg0KRGllc2UgRS1NYWlsIHd1cmRlIGF1ZiBWaXJlbiB1ZWJlcnBydWVmdC5ccGFyDQpccGFyDQpQ
b3N0bWFzdGVyIElHIE1ldGFsbFxwYXINClxwYXINCi0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tXHBhcg0KXHBhcg0KVG8gdW5zdWJzY3JpYmUgZnJvbSB0aGlzIG1h
aWxpbmcgbGlzdCwgc2VuZCBhIG1lc3NhZ2UgY29udGFpbmluZyB0aGUgd29yZCAidW5zdWJzY3Jp
YmUiIHRvOlxwYXINCiAgIGJsYWNrYm94LXJlcXVlc3RAb2Jlcm9uLmNoXHBhcg0KXHBhcg0KVG8g
Z2V0IGEgbGlzdCBvZiB2YWxpZCBlLW1haWwgY29tbWFuZHMgYW5kIGluc3RydWN0aW9ucyBvbiB0
aGVpciB1c2FnZSwgc2VuZCBhIG1lc3NhZ2UgY29udGFpbmluZyB0aGUgd29yZCAiaGVscCIgdG8g
dGhlIGFib3ZlIGFkZHJlc3MuXHBhcg0KXHBhcg0KU2VuZCBhbnkgcHJvYmxlbSByZXBvcnRzIG9y
IHF1ZXN0aW9ucyByZWxhdGVkIHRvIHRoaXMgZW1haWwgbGlzdCB0byB0aGUgbGlzdCBvd25lciBh
dFxwYXINCiAgIG93bmVyLWJsYWNrYm94QG9iZXJvbi5jaFxwYXINClxwYXINCkN1cnJlbnQgcG9z
dGluZyBwb2xpY3k6XHBhcg0KXHBhcg0KYSkgVG8gcG9zdCB5b3Ugc2hvdWxkIHVzZSB0aGUgc2Ft
ZSBhZGRyZXNzIGJ5IHdoaWNoIHlvdSBhcmUgc3Vic2NyaWJlZCB0byB0aGUgbWFpbGluZyBsaXN0
LiBUaGF0IHdheSwgdGhlIGxpc3Qgc2VydmVyIHdpbGwgcmVjb2duaXplIHlvdSBhcyBzdWJzY3Jp
YmVyIGFuZCBmb3J3YXJkIHlvdXIgcG9zdGluZyBpbW1lZGlhdGVseSwgd2l0aG91dCBjcmVhdGlu
ZyBhbnkgb3ZlcmhlYWQuXHBhcg0KXHBhcg0KYikgSWYsIGZvciBzb21lIHJlYXNvbiwgeW91IGNh
bm5vdCBwb3N0IGZyb20gdGhlIGFkZHJlc3MsIGJ5IHdoaWNoIHlvdSBhcmUgc3Vic2NyaWJlZCwg
eW91ciBtZXNzYWdlIHdpbGwgYmUgbW9kZXJhdGVkIHRvIGF2b2lkIHNwYW0uIFBsZWFzZSB1bmRl
cnN0YW5kIHRoYXQgbW9kZXJhdGlvbiB3aWxsIG9mdGVuIGNhdXNlIHNvbWUgZGVsYXksIGluIHBh
cnRpY3VsYXIgb3ZlciB3ZWVrZW5kcyBvciB9fQByYXRpb24gd2lsbCBv
----boundary-LibPST-iamunique-1759639985_-_---

Received on Tue Jan 28 2003 - 08:10:10 UTC