Hermes: A Tutorial and Reference Manual - Researcher - IBM
Hermes: A Tutorial and Reference Manual - Researcher - IBM
Hermes: A Tutorial and Reference Manual - Researcher - IBM
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
342.3.Interfaces WMInterface:callmessage( --initializationinterfaceforwindowmanager<br />
GetProgram:GetProgramOut,--serviceforloadingprograms PutLine:PutLineOut,--writealinetothephysicalterminal Dispatch:DispatchOut,--dispatchalinetotheappropriate Refocus:WindowOut,--changethecurrentfocus<br />
DispatchInterface:callmessage( constant(GetProgram,PutLine) Kill:WindowOut,--killthespecifiedwindow<br />
WindowName:Charstring,---windowtowhichtextisbeingsent --interfacetooperationDisptach WMOut:outportofWMIn; WMIn:inportofWMInterfacefinit(GetProgram),init(PutLine)g; exitffullg; Create:CreateOut)--makeanewwindow<br />
WindowInterface:callmessage( --interfacetooperationsRefocus,Kill DispatchOut:outportofDispatchIn; DispatchIn:inportofDispatchInterfaceffullg; Line:Charstring)--texttodispatch<br />
WindowName:Charstring)--nameofwindowoper<strong>and</strong> constant(Line)<br />
constant(WindowName) exitffullg<br />
exitffullg exceptionNotFoundffullg;--nosuchwindow<br />
CreateInterface:callmessage( WindowOut:outportofWindowIn; --interfacetooperationCreate WindowIn:inportofWindowInterfaceffullg; ParmString:Charstring)--parameterstoclientprogram ProgramName:Charstring,--nameofclientprogramtorun WindowName:Charstring,--nameofwindowbeingcreated exceptionNotFoundffullg;<br />
WriteToWindowInterface:callmessage( CreateOut:outportofCreateIn; --interfacetooperationWriteToWindow CreateIn:inportofCreateInterfaceffullg; constant(WindowName,ProgramName,ParmString) exceptionCreateFailureffullg; exitffullg exceptionDuplicateffullg
Change language