home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #6
/
amigamamagazinepolishissue1998.iso
/
coders
/
jËzyki_programowania
/
oberon
/
system
/
infoelems.mod
(
.txt
)
< prev
next >
Wrap
Oberon Text
|
1977-12-31
|
3KB
|
91 lines
Syntax10.Scn.Fnt
InfoElems
Alloc
Syntax10.Scn.Fnt
StampElems
Alloc
11 Dec 95
"Title": InfoElems - a new kind of text elements.
"Author": Christoph Steindl (CS)
"Abstract": AuthorElems are a new kind of text elements. They are like PopupElems
and contain additional information about a text (like title, author, abstract, version,
date of creation and date of most recent modification).
"Keywords": information about a document, information retrieval
"Version": 1.0
"From": 25 Oct 94
"Until":
"Changes":
"Hints": This text can again contain arbitrary text elements!
Syntax10b.Scn.Fnt
MarkElems
Alloc
MODULE InfoElems;
IMPORT Display, Viewers, Texts, TextFrames, PopupElems, Oberon;
icon: Display.Pattern;
Elem* = POINTER TO ElemDesc;
ElemDesc* = RECORD (PopupElems.ElemDesc) END ;
PROCEDURE
Handle* (e: Texts.Elem; VAR m: Texts.ElemMsg);
VAR e1: Elem;
BEGIN
WITH e: Elem DO
WITH m: Texts.CopyMsg DO
IF m.e = NIL THEN NEW(e1); m.e := e1 END ;
PopupElems.Handle(e, m)
| m: Texts.IdentifyMsg DO
m.mod := "InfoElems"; m.proc := "Alloc"
| m: TextFrames.DisplayMsg DO
IF m.prepare THEN
e.W := 13 * TextFrames.Unit; e.H := LONG(TextFrames.menuH-1) * TextFrames.Unit;
ELSE e.name := ""; PopupElems.Handle(e, m);
Display.CopyPattern(Display.white, icon, m.X0+2, m.Y0+2, Display.paint)
END
ELSE PopupElems.Handle(e, m)
END
END Handle;
PROCEDURE
Alloc*;
VAR e: Elem;
BEGIN
NEW(e); e.handle := Handle; Texts.new := e;
END Alloc;
PROCEDURE
Insert*;
VAR e: Elem; insert: TextFrames.InsertElemMsg; Wr: Texts.Writer; t, d: LONGINT;
BEGIN
NEW(e); e.handle := Handle; e.name := ""; e.small := TRUE;
e.menu := TextFrames.Text("");
Texts.OpenWriter(Wr);
Texts.WriteString(Wr, '"Title": no title'); Texts.WriteLn(Wr);
Texts.WriteString(Wr, '"Author": no name'); Texts.WriteLn(Wr);
Texts.WriteString(Wr, '"Abstract": no abstract'); Texts.WriteLn(Wr);
Texts.WriteString(Wr, '"Keywords": no keywords'); Texts.WriteLn(Wr);
Texts.WriteString(Wr, '"Version": no version'); Texts.WriteLn(Wr);
Texts.WriteString(Wr, '"From": '); Oberon.GetClock(t, d); Texts.WriteDate(Wr, t, d); Texts.WriteLn(Wr);
Texts.WriteString(Wr, '"Until": no date (use StampElems.Insert)'); Texts.WriteLn(Wr);
Texts.WriteString(Wr, '"Changes": no changes'); Texts.WriteLn(Wr);
Texts.WriteString(Wr, '"Hints": This text can again contain arbitrary text elements!'); Texts.WriteLn(Wr);
Texts.Append(e.menu, Wr.buf);
PopupElems.MeasureMenu(e);
insert.e := e; Viewers.Broadcast(insert)
END Insert;
PROCEDURE
InitIcon;
VAR line: ARRAY 11 OF SET;
BEGIN
line[10] := {2..7};
line[9] := {1, 8};
line[8] := {0, 3..6, 9};
line[7] := {0, 2, 7, 9};
line[6] := {0, 2, 9};
line[5] := {0, 2, 9};
line[4] := {0, 2, 7, 9};
line[3] := {0, 3..6, 9};
line[2] := {1, 8};
line[1] := {2..7};
icon := Display.NewPattern(line, 12, 10);
END InitIcon;
BEGIN
InitIcon;
END InfoElems.