----boundary-LibPST-iamunique-1901139975_-_-
Content-type: text/plain
Hello Bart,
Your first question:
The icons of the tree control are "linked" with blackbox (the icons are in
Win/Rsrc), so you can "re-link" blackbox with your own icons:
(!) DevLinker.Link
BlackBox2.exe := Kernel$+ Files HostFiles StdLoader
1 Applogo.ico 2 Doclogo.ico 3 SFLogo.ico 4 CFLogo.ico 5 DtyLogo.ico 6
yourFolderIcon.ico 7 yourOpenFolderIcon.ico 8 yourLeafIcon.ico
1 Move.cur 2 Copy.cur 3 Link.cur 4 Pick.cur 5 Stop.cur 6 Hand.cur 7
Table.cur
Second question:
You have forgotten the type guard. The assignment must be:
e := tn.Data() (DPTR);
Regards,
Juan Antonio
----- Original Message -----
From: "Wijck, Bart van" <Bart_van_Wijck{([at]})nowhere.xy
To: <blackbox{([at]})nowhere.xy
Sent: Monday, January 27, 2003 12:09 PM
Subject: 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.
>
--------------------------------------------
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
Current 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-1901139975_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIEhlbGxvIEJhcnQsXHBhcg0KXHBhcg0KWW91ciBm
aXJzdCBxdWVzdGlvbjpccGFyDQpUaGUgaWNvbnMgb2YgdGhlIHRyZWUgY29udHJvbCBhcmUgImxp
bmtlZCIgd2l0aCBibGFja2JveCAodGhlIGljb25zIGFyZSBpblxwYXINCldpbi9Sc3JjKSwgc28g
eW91IGNhbiAicmUtbGluayIgYmxhY2tib3ggd2l0aCB5b3VyIG93biBpY29uczpccGFyDQpccGFy
DQooISkgRGV2TGlua2VyLkxpbmtccGFyDQpCbGFja0JveDIuZXhlIDo9IEtlcm5lbCQrIEZpbGVz
IEhvc3RGaWxlcyBTdGRMb2FkZXJccGFyDQoxIEFwcGxvZ28uaWNvIDIgRG9jbG9nby5pY28gMyBT
RkxvZ28uaWNvIDQgQ0ZMb2dvLmljbyA1IER0eUxvZ28uaWNvIDZccGFyDQp5b3VyRm9sZGVySWNv
bi5pY28gNyB5b3VyT3BlbkZvbGRlckljb24uaWNvIDggeW91ckxlYWZJY29uLmljb1xwYXINCjEg
TW92ZS5jdXIgMiBDb3B5LmN1ciAzIExpbmsuY3VyIDQgUGljay5jdXIgNSBTdG9wLmN1ciA2IEhh
bmQuY3VyIDdccGFyDQpUYWJsZS5jdXJccGFyDQpccGFyDQpTZWNvbmQgcXVlc3Rpb246XHBhcg0K
WW91IGhhdmUgZm9yZ290dGVuIHRoZSB0eXBlIGd1YXJkLiBUaGUgYXNzaWdubWVudCBtdXN0IGJl
OlxwYXINCmUgOj0gdG4uRGF0YSgpIChEUFRSKTtccGFyDQpccGFyDQpSZWdhcmRzLFxwYXINCkp1
YW4gQW50b25pb1xwYXINClxwYXINCi0tLS0tIE9yaWdpbmFsIE1lc3NhZ2UgLS0tLS1ccGFyDQpG
cm9tOiAiV2lqY2ssIEJhcnQgdmFuIiA8QmFydF92YW5fV2lqY2tAbmwuY29tcHV3YXJlLmNvbT5c
cGFyDQpUbzogPGJsYWNrYm94QG9iZXJvbi5jaD5ccGFyDQpTZW50OiBNb25kYXksIEphbnVhcnkg
MjcsIDIwMDMgMTI6MDkgUE1ccGFyDQpTdWJqZWN0OiBEaWFsb2cgVHJlZSBxdWVzdGlvbnNccGFy
DQpccGFyDQpccGFyDQo+IEhpIEJsYWNrQm94ZXJzLFxwYXINCj5ccGFyDQo+IEZpcnN0IHF1ZXN0
aW9uOlxwYXINCj4gSXQncyBuaWNlIHRvIGhhdmUgdGhlIGZvbGRlciAmIGZpbGUgaWNvbnMgaW4g
dGhlIFRyZWUgY29udHJvbC4gSG93ZXZlclxwYXINCnRoYXRccGFyDQo+IHRpZXMgdGhlIHRyZWUg
Y29udG9sIHRvIGEgcmF0aGVyIHBhcnRpY3VsYXIgdHlwZSBvZiB2aWV3LiBIb3cgY2FuIEkgdGll
IGluXHBhcg0KPiBhbnkga2luZCBpY29uPyBUaGlzIHNob3VsZCBiZSBtYWRlIHN0YW5kYXJkIChz
aWduYWwgdG8gT2Jlcm9uIE1pY3Jvc3lzdGVtc1xwYXINCj4gZm9yIHJlbGVhc2UgMS41KS4gRG9l
cyBhbnlvbmUgaGF2ZSBhbiBleGFtcGxlIGhvdyB0byBkbyB0aGlzP1xwYXINCj5ccGFyDQo+IFNl
Y29uZCBxdWVzdGlvbjpccGFyDQo+IEknbSB0cnlpbmcgdG8gYXNzb2NpYXRlIHNvbWUgZGF0YSB2
aWEgYSBwb2ludGVyIHRvIGEgbm9kZSBpbiBhIHRyZWVccGFyDQpjb250cm9sXHBhcg0KPiB2aWEg
dGhlIHRyZWVub2RlIFNldERhdGEgcHJvY2VkdXJlLiBXaGVuIGhvd2V2ZXIgbGF0ZXIgb24gSSB0
cnkgdG8gYWNjZXNzXHBhcg0KPiB0aGF0IGRhdGEgYWdhaW4gKHZlcnkgc2ltcGxpZmllZCBpbiB0
aGUgZXhhbXBsZSBiZWxvdykgSSBmaW5kIHRoYXQgdGhlXHBhcg0KPiB0cmVlbm9kZSBEYXRhIHBy
b2NlZHVyZSB3aWxsIG5vdCBjb21waWxlLCBldmVuIHRob3VnaCBpdCBzaG91bGQgcmV0dXJuIGFu
XHBhcg0KPiBBTllQVFIgdHlwZS4gSSdtIHByb2JhYmx5IG92ZXJsb29raW5nIHRoZSBvYnZpb3Vz
LCBidXQgd2hhdCBhbSBJIGRvaW5nXHBhcg0KPiB3cm9uZz8gIChJJ20gd29ya2luZyB3aXRoIDEu
NCBiZXRhIHZlcnNpb24pLlxwYXINCj5ccGFyDQo+IFJlZ2FyZHMsIEJhcnRccGFyDQo+XHBhcg0K
PiBNT0RVTEUgVHJ5VHJlZTtccGFyDQo+IElNUE9SVCBEaWFsb2c7XHBhcg0KPlxwYXINCj4gVFlQ
RVxwYXINCj4gICBEUFRSID0gUE9JTlRFUiBUTyBEUkVDO1xwYXINCj4gICBEUkVDID0gUkVDT1JE
XHBhcg0KPiAgICAgICAgICAgIHZhbCA6IElOVEVHRVI7XHBhcg0KPiAgICAgICAgICBFTkQ7XHBh
cg0KPlxwYXINCj5ccGFyDQo+IFZBUlxwYXINCj4gICBEbGcqIDogUkVDT1JEXHBhcg0KPiAgICAg
ICAgICAgIFRyZWUqOiBEaWFsb2cuVHJlZTtccGFyDQo+ICAgICAgICAgIEVORDtccGFyDQo+XHBh
cg0KPiAoKlxwYXINCj4gLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS1ccGFyDQo+ICopXHBhcg0KPiBQUk9DRURV
UkUgQ2FsYyo7XHBhcg0KPiBWQVJccGFyDQo+ICAgZCxlIDogRFBUUjtccGFyDQo+ICAgcG4sdG4g
OiBEaWFsb2cuVHJlZU5vZGU7XHBhcg0KPiBCRUdJTlxwYXINCj4gICBwbiA6PSBOSUw7XHBhcg0K
PiAgIHRuIDo9IERsZy5UcmVlLk5ld0NoaWxkKHBuLDAsJ1RSRUUgUk9PVCcpO1xwYXINCj5ccGFy
DQo+ICAgTkVXKGQpOyBkXi52YWwgOj0gMjAwO1xwYXINCj4gICB0bi5TZXREYXRhKGQpO1xwYXIN
Cj5ccGFyDQo+ICAgZSA6PSB0bi5EYXRhKCk7ICAoKiBDT01QSUxFIEVSUk9SIEhFUkUgKilccGFy
DQo+XHBhcg0KPiAgIERpYWxvZy5VcGRhdGVMaXN0KERsZy5UcmVlKTtccGFyDQo+ICAgRGlhbG9n
LlVwZGF0ZShEbGcpO1xwYXINCj4gRU5EIENhbGM7XHBhcg0KPlxwYXINCj4gKCpccGFyDQo+IC0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tXHBhcg0KPiAqKVxwYXINCj4gRU5EIFRyeVRyZWUuXHBhcg0KPlxwYXIN
ClxwYXINCi0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tXHBhcg0K
XHBhcg0KVG8gdW5zdWJzY3JpYmUgZnJvbSB0aGlzIG1haWxpbmcgbGlzdCwgc2VuZCBhIG1lc3Nh
Z2UgY29udGFpbmluZyB0aGUgd29yZCAidW5zdWJzY3JpYmUiIHRvOlxwYXINCiAgIGJsYWNrYm94
LXJlcXVlc3RAb2Jlcm9uLmNoXHBhcg0KXHBhcg0KVG8gZ2V0IGEgbGlzdCBvZiB2YWxpZCBlLW1h
aWwgY29tbWFuZHMgYW5kIGluc3RydWN0aW9ucyBvbiB0aGVpciB1c2FnZSwgc2VuZCBhIG1lc3Nh
Z2UgY29udGFpbmluZyB0aGUgd29yZCAiaGVscCIgdG8gdGhlIGFib3ZlIGFkZHJlc3MuXHBhcg0K
XHBhcg0KU2VuZCBhbnkgcHJvYmxlbSByZXBvcnRzIG9yIHF1ZXN0aW9ucyByZWxhdGVkIHRvIHRo
aXMgZW1haWwgbGlzdCB0byB0aGUgbGlzdCBvd25lciBhdFxwYXINCiAgIG93bmVyLWJsYWNrYm94
QG9iZXJvbi5jaFxwYXINClxwYXINCkN1cnJlbnQgcG9zdGluZyBwb2xpY3k6XHBhcg0KXHBhcg0K
YSkgVG8gcG9zdCB5b3Ugc2hvdWxkIHVzZSB0aGUgc2FtZSBhZGRyZXNzIGJ5IHdoaWNoIHlvdSBh
cmUgc3Vic2NyaWJlZCB0byB0aGUgbWFpbGluZyBsaXN0LiBUaGF0IHdheSwgdGhlIGxpc3Qgc2Vy
dmVyIHdpbGwgcmVjb2duaXplIHlvdSBhcyBzdWJzY3JpYmVyIGFuZCBmb3J3YXJkIHlvdXIgcG9z
dGluZyBpbW1lZGlhdGVseSwgd2l0aG91dCBjcmVhdGluZyBhbnkgb3ZlcmhlYWQuXHBhcg0KXHBh
cg0KYikgSWYsIGZvciBzb21lIHJlYXNvbiwgeW91IGNhbm5vdCBwb3N0IGZyb20gdGhlIGFkZHJl
c3MsIGJ5IHdoaWNoIHlvdSBhcmUgc3Vic2NyaWJlZCwgeW91ciBtZXNzYWdlIHdpbGwgYmUgbW9k
ZXJhdGVkIHRvIGF2b2lkIHNwYW0uIFBsZWFzZSB1bmRlcnN0YW5kIHRoYXQgbW9kZXJhdGlvbiB3
aWxsIG9mdGVuIGNhdXNlIHNvbWUgZGVsYXksIGluIHBhcnRpY3VsYXIgb3ZlciB3ZWVrZW5kcyBv
ciBob2x5ZGF5fX0AZUxpc3Qo
----boundary-LibPST-iamunique-1901139975_-_---
Received on Mon Jan 27 2003 - 13:05:38 UTC