definer
{

"tocond" "Deliver Xml Wrapped Command to Conduit"
"Exec" % "file-cont dest-file -->"
'escape ^`<SaWing proc="WriteFile" file="` &`" cont="`
exch escape & &`" ></SaWing>`
patched
exch ofsrvc folder &"Ck_" basenow & &".qtq" dup tuck writeb
".ptp" overext
'
newdef

"httpck" "Check for Http Mode Set Already"
"Exec" % "hostname --> adj-host"
'":" found? { } { dup "localhost" eq$ { http } { https } ifelse ^ } ifelse'
newdef

"Web.Focus" "Give Focus to Web Form"
"Exec" % "-->"
"@_Hwnd Win.Focus"
newdef

"response!" "Save Web Response"
"Exec" % "webresp -->"
'"response" text!conn'
newdef

"tellx" "Save Web Response Convert From Hex"
"Exec" % "webresp --> converted"
'response! *tellresx'
newdef

"rehtml" "Reextend to Html"
"Exec" % "part-url --> htmled"
'".html" reextend'
newdef

"ofvir" "Prefix Virtual Location"
"Exec" % "part-url --> vir-url"
'_Arching.VirChain &"/" ^'
newdef

"Url.RelBase" "Convert Url to Relative Base"
"Exec" % "url --> rel-vir-url-no-ext"
'"//" right$ "/" right$ ^"/" "." left$'
newdef

"Url.RelFile" "Convert Url to Relative File Base"
"Exec" % "url --> rel-file-path"
'"//" right$ "/" right$ "/" "\" replall'
newdef

"ofvirtem" "Prefix Virtual Location of Templates"
"Exec" % "part-url --> vir-url"
'"Templates/" ofvir ^'
newdef

"weboff" "Hide Web Browser Windows"
"Exec" % "-->"
"hide false Mep.Window"
newdef

"webon" "Show Web Browser Windows"
"Exec" % "-->"
"true Mep.Window show"
newdef

"webfon" "Show Force Top Web Browser Windows"
"Exec" % "-->"
"true Mep.Window
show
Mep._FormHwnd Win.ToTop
@_Hwnd Win.ToTop
"
newdef

} if