home *** CD-ROM | disk | FTP | other *** search
Oberon Text | 2000-02-29 | 1.5 KB | 44 lines |
- Oberon10.Scn.Fnt
- Syntax10.Scn.Fnt
- (* ETH Oberon, Copyright 2000 ETH Zuerich Institut fuer Computersysteme, ETH Zentrum, CH-8092 Zuerich.
- Refer to the "General ETH Oberon System Source License" contract available at: http://www.oberon.ethz.ch/ *)
- OpenDemo.Mod, jm 03.11.93
- This is a example program for opening your own panel documents from
- program control. Note that only panels and their extensions can be
- handled here. Using any other gadget class will cause a trap.
- Note that the menubar is fixed. Your panel will be able
- to save itself and can be reloaded again from disk exactly as
- it was created.
- If you need to change certain attributes of your panel,
- for example the icon used, or the menu bar required,
- please inspect the files OpenDemo2.Mod and
- DocumentSkeleton.Mod
- MODULE OpenDemo; (** portable *)
- IMPORT
- Objects, Gadgets, PanelDocs, Documents, Desktops;
- PROCEDURE ShowGadget(name: ARRAY OF CHAR; main: Gadgets.Frame);
- VAR D: Documents.Document;
- BEGIN
- PanelDocs.NewDoc; (* create a new document *)
- D := Objects.NewObj(Documents.Document);
- COPY(name, D.name);
- Documents.Init(D, main);
- Desktops.ShowDoc(D)
- END ShowGadget;
- PROCEDURE Do*;
- VAR P: Objects.Object;
- BEGIN
- P := Gadgets.CreateObject("Panels.NewPanel");
- ShowGadget("Test.Panel", P(Gadgets.Frame))
- END Do;
- (* Second example *)
- PROCEDURE Open*;
- VAR D: Documents.Document;
- BEGIN
- D := Documents.Open("Desktops.Tool");
- IF D # NIL THEN Desktops.ShowDoc(D) END
- END Open;
- END OpenDemo.
- OpenDemo.Do
- OpenDemo.Open
-