INTERFACEHTML ; IMPORT Wr, Thread; IMPORT ID, Node, Wx; PROCEDURE PutImg (name: TEXT; wx: Wx.T) RAISES {Wr.Failure, Thread.Alerted}; PROCEDURE PutSmallImg (name: TEXT; wx: Wx.T) RAISES {Wr.Failure, Thread.Alerted}; PROCEDURE ImgRef (name: TEXT): TEXT;
return the HTML reference to the icon named name
.
PROCEDURE ViewOnly (act: ID.T; data: Node.FormData; wx: Wx.T) RAISES {Wr.Failure, Thread.Alerted};
Generate a warning in the HTML onwx
ifact
is notview
or if any form data was passed.
PROCEDURE NoAction (act: ID.T; wx: Wx.T) RAISES {Wr.Failure, Thread.Alerted};
Generate a warning in the HTML onwx
claimingact
is not supported.
PROCEDURE NoData (data: Node.FormData; wx: Wx.T) RAISES {Wr.Failure, Thread.Alerted};
Ifdata
is non-NIL
, generate a warning in the HTML onwx
.
PROCEDURE MakeURL (a, b, c, d: TEXT := NIL): TEXT;
Concatenates the non-NIL parameters with internal slashes.
PROCEDURE Begin (n: Node.T; wx: Wx.T) RAISES {Wr.Failure, Thread.Alerted}; PROCEDURE End (wx: Wx.T) RAISES {Wr.Failure, Thread.Alerted};
Generate the HTML goo around the outside.
Note that 'End' first calls 'GenCopyright' as required by Farshad Nayeri for open-source release
PROCEDURE BeginXX (n: Node.T; wx: Wx.T; t1, t2, t3, icon: TEXT := NIL) RAISES {Wr.Failure, Thread.Alerted};
LikeBegin
, but uses titlet1 & t2 & t3
PROCEDURE BeginYY (n: Node.T; wx: Wx.T; t1, t2, t3: TEXT := NIL) RAISES {Wr.Failure, Thread.Alerted};
Like BeginXX
, but doesn't generate a title in the HTML body.
PROCEDURE GenURL (n: Node.T; wx: Wx.T) RAISES {Wr.Failure, Thread.Alerted};
Writen
's URL onwx
PROCEDURE GenPathFinder (n: Node.T; wx: Wx.T) RAISES {Wr.Failure, Thread.Alerted};
Write the list of header buttons that leads to noden
onwx
.
** PROCEDURE GenLocation (n: Node.T; wx: Wx.T) RAISES {Wr.Failure, Thread.Alerted}; ** Write an HTTP
Location:
header to node n
on wx
.
PROCEDURE GenBase (n: Node.T; wx: Wx.T; leaf := FALSE) RAISES {Wr.Failure, Thread.Alerted};
Write an HTML base reference to noden
onwx
.
PROCEDURE GenFileRef (path: TEXT; wx: Wx.T) RAISES {Wr.Failure, Thread.Alerted};
Write an HTML reference to filepath
onwx
.
PROCEDURE GenRef (n: Node.T; wx: Wx.T; tag: TEXT := NIL) RAISES {Wr.Failure, Thread.Alerted};
Write an HTML reference to noden
onwx
.
PROCEDURE GenActionRef (n: Node.T; wx: Wx.T; act: TEXT; tag: TEXT := NIL) RAISES {Wr.Failure, Thread.Alerted};
Write an HTML reference onwx
that will to perform theact
opertaion on noden
.
PROCEDURE GenChoices (VAR results: Node.Set; wx: Wx.T) RAISES {Wr.Failure, Thread.Alerted};
Produce a directory of choices forresults
onwx
.
PROCEDURE NodeURL (n: Node.T): TEXT;
Returns the fully qualified URL for node n
.
PROCEDURE GenCopyright (wx: Wx.T) RAISES {Wr.Failure, Thread.Alerted};
Write the copyright legend on wx
.
For the open-source release, Farshad Nayeri requires that this legend appear on all pages served by CM3-IDE.
END HTML.