home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 August / macformat-027.iso / mac / Shareware City / Developers / Oberon⁄F / Samples / Mod / Ex5 (.txt) < prev    next >
Encoding:
Oberon Document  |  1994-06-07  |  2.4 KB  |  59 lines  |  [oODC/obnF]
  1. Documents.StdDocumentDesc
  2. Documents.DocumentDesc
  3. Containers.ViewDesc
  4. Views.ViewDesc
  5. Stores.StoreDesc
  6. Documents.ModelDesc
  7. Containers.ModelDesc
  8. Models.ModelDesc
  9. Stores.ElemDesc
  10. TextViews.StdViewDesc
  11. TextViews.ViewDesc
  12. TextModels.StdModelDesc
  13. TextModels.ModelDesc
  14. TextModels.AttributesDesc
  15. Geneva
  16. Geneva
  17. L Frutiger Light
  18. Geneva
  19. MODULE SamplesEx5;
  20.     IMPORT Files, Views, Dialog, TextModels, TextMappers, TextViews;
  21.     PROCEDURE Do*;
  22.         VAR stationary: BOOLEAN; loc: Files.Locator; name: Files.Name;
  23.             v: Views.View; t: TextModels.Model; f: TextMappers.Formatter;
  24.     BEGIN
  25.         Dialog.GetIntSpec("", stationary, loc, name);
  26.         IF loc # NIL THEN
  27.             v := Views.OldView(loc, name);
  28.             IF v IS TextViews.View THEN
  29.                 t := v(TextViews.View).ThisModel();
  30.                 f.ConnectTo(t);
  31.                 f.SetPos(t.Length());
  32.                 f.WriteString("appendix");
  33.                 Dialog.GetExtSpec("", "", stationary, loc, name);
  34.                 IF loc # NIL THEN
  35.                     Views.RegisterView(v, loc, name)
  36.                 END
  37.             END
  38.         END
  39.     END Do;
  40. END SamplesEx5.
  41. TextControllers.StdCtrlDesc
  42. TextControllers.ControllerDesc
  43. Containers.ControllerDesc
  44. Controllers.ControllerDesc
  45. TextRulers.StdRulerDesc
  46. TextRulers.RulerDesc
  47. TextRulers.StdStyleDesc
  48. TextRulers.StyleDesc
  49. TextRulers.AttributesDesc
  50. Geneva
  51. DevCommanders.StdViewDesc
  52. DevCommanders.ViewDesc
  53. Example 5
  54. This example is a variation of the previous one; instead of opening a view it stores it back in some file.
  55.  SamplesEx5.Do
  56. In this example we have seen how a view can be stored into a file.
  57. Geneva
  58. Documents.ControllerDesc
  59.