home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 July / Chip_2004-07_cd1.bin / tema / aos / files / Oberon.exe / Oberon / Docu.exe / Docu / Popups.Mod (.txt) < prev    next >
Oberon Text  |  2000-02-29  |  3KB  |  50 lines
  1. Oberon10.Scn.Fnt
  2. Syntax10.Scn.Fnt
  3. Syntax10m.Scn.Fnt
  4. (* ETH Oberon, Copyright 2000 ETH Zuerich Institut fuer Computersysteme, ETH Zentrum, CH-8092 Zuerich.
  5. Refer to the "General ETH Oberon System Source License" contract available at: http://www.oberon.ethz.ch/ *)
  6. MODULE Popups; (** portable *)    (* jm 14.11.94 *)
  7. This is an example program to show how you can combine gadgets together by program control. The same effect can also be obtained completely interactively with the graphical user interface.
  8. Insert a popup at the caret with the command:
  9.     Popups.Insert "My menu"
  10. The module builds a small popup menu from a Panel with a descriptive text on one side, and a TextNote on the other side. The Iconizer can be opened in-place and text entered inside the TextNote. You may also change the "Cmd" attribute of the TextNote to directly open what you click on with:
  11.     Gadgets.ChangeAttr Cmd "Desktops.OpenDoc #Point" ~
  12. Note: There is one problem though: should the command be executed from a TRAP viewer, the popup will not close again.
  13. IMPORT
  14.     Attributes, Display, Gadgets, Icons, Oberon, Objects, Panels,
  15.     TextFields, TextGadgets, Texts;
  16. PROCEDURE InsertFrame (F, f: Display.Frame; u, v: INTEGER);
  17. VAR C: Display.ConsumeMsg;
  18. BEGIN
  19.     C.id := Display.drop; C.F := F; C.obj := f; C.u := u; C.v := v; C.res := -1; C.dlink := NIL;
  20.     F.handle(F, C)
  21. END InsertFrame;
  22. PROCEDURE Build* (desc: ARRAY OF CHAR; T: Texts.Text; W, H: INTEGER): Objects.Object;
  23. VAR F: Icons.Iconizer; close: Panels.Panel; open: TextGadgets.Frame;
  24.     caption: TextFields.Caption; t: Texts.Text;
  25. BEGIN
  26.     NEW(close); Panels.InitPanel(close);
  27.     close.W := W; close.H := H;
  28.     Attributes.StrToTxt (desc, t);
  29.     NEW(caption); TextFields.InitCaption(caption, t);
  30.     IF caption.W + 20 >= close.W THEN close.W := caption.W + 20 END;
  31.     InsertFrame(close, caption, close.W - caption.W - 5, -close.H + 3);
  32.     Attributes.SetBool(close, "Locked", TRUE);
  33.     NEW(open); TextGadgets.Init(open, T, TRUE);
  34.     NEW(F); Icons.MakeIconizer(F, close, open);
  35.     Attributes.SetBool(F, "Popup", TRUE);
  36.     RETURN F
  37. END Build;
  38. PROCEDURE Insert*;
  39. VAR S: Attributes.Scanner; T: Texts.Text;
  40. BEGIN
  41.     Attributes.OpenScanner(S, Oberon.Par.text, Oberon.Par.pos);
  42.     Attributes.Scan(S);
  43.     IF (S.class = Attributes.Name) OR (S.class = Attributes.String) THEN
  44.         NEW(T); Texts.Open(T, "");
  45.         Gadgets.Integrate(Build(S.s, T, 60, 25))
  46. END Insert;
  47. END Popups.
  48. BIER6
  49. TextGadgets.NewStyleProc
  50.