home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 July / Chip_2004-07_cd1.bin / tema / aos / files / Oberon.exe / Oberon / Docu.exe / Docu / OpenDemo.Mod (.txt) < prev    next >
Oberon Text  |  2000-02-29  |  2KB  |  44 lines
  1. Oberon10.Scn.Fnt
  2. Syntax10.Scn.Fnt
  3. (* ETH Oberon, Copyright 2000 ETH Zuerich Institut fuer Computersysteme, ETH Zentrum, CH-8092 Zuerich.
  4. Refer to the "General ETH Oberon System Source License" contract available at: http://www.oberon.ethz.ch/ *)
  5.     OpenDemo.Mod, jm 03.11.93
  6.     This is a example program for opening your own panel documents from
  7.     program control. Note that only panels and their extensions can be
  8.     handled here. Using any other gadget class will cause a trap.
  9.     Note that the menubar is fixed. Your panel will be able
  10.     to save itself and can be reloaded again from disk exactly as
  11.     it was created.
  12.     If you need to change certain attributes of your panel,
  13.     for example the icon used, or the menu bar required, 
  14.     please inspect the files OpenDemo2.Mod and 
  15.     DocumentSkeleton.Mod 
  16. MODULE OpenDemo; (** portable *)
  17. IMPORT
  18.     Objects, Gadgets, PanelDocs, Documents, Desktops;
  19. PROCEDURE ShowGadget(name: ARRAY OF CHAR; main: Gadgets.Frame);
  20. VAR D: Documents.Document;
  21. BEGIN
  22.     PanelDocs.NewDoc; (* create a new document *)
  23.     D := Objects.NewObj(Documents.Document);
  24.     COPY(name, D.name); 
  25.     Documents.Init(D, main);
  26.     Desktops.ShowDoc(D)
  27. END ShowGadget;
  28. PROCEDURE Do*;
  29. VAR P: Objects.Object;
  30. BEGIN
  31.     P := Gadgets.CreateObject("Panels.NewPanel");
  32.     ShowGadget("Test.Panel", P(Gadgets.Frame))
  33. END Do;
  34. (* Second example *)
  35. PROCEDURE Open*;
  36. VAR D: Documents.Document;
  37. BEGIN
  38.     D := Documents.Open("Desktops.Tool");
  39.     IF D # NIL THEN Desktops.ShowDoc(D) END
  40. END Open;
  41. END OpenDemo.
  42. OpenDemo.Do
  43. OpenDemo.Open
  44.