OberonCore

MODULE StudyTree;

IMPORT   Dialog;

TYPE
   Tree* = RECORD tree*: Dialog.Tree END;
   Rec* = RECORD
      num*,
      info*: ARRAY 128 OF CHAR
   END;
   PRec* = POINTER TO Rec;   
   
VAR
   tree*: Tree;
   node*: Dialog.TreeNode;
   rec*: Rec;
   prec: PRec;
   str*: Dialog.String;
   
PROCEDURE BuildTree;
VAR n: Dialog.TreeNode;
BEGIN
      .......................
   n := tree.tree.NewChild(node, 0, str$);
   NEW(prec);
   prec.num := rec.num;
   prec.info := rec.info;   
   n.SetData(prec)
      .......................
END BuildTree;

PROCEDURE TreeNotifier*(op, from, to: INTEGER);
VAR n: Dialog.TreeNode;
BEGIN
   IF op = Dialog.changed THEN
      n := tree.tree.Selected();
      IF n # NIL THEN
         NEW(prec);
         prec := n.Data [X]; <- ????????
         ...............
      END;
   END;
   Dialog.Update(rec)
END TreeNotifier;

END StudyTree.

   IF n # NIL THEN
      prec := n.Data() (PRec)
   END;

   IF n # NIL THEN
      NEW(prec);
      prec^ := n.Data() (PRec)^
   END;