WRITE GUI

PURPOSE:
To send display information to the Web View of a PC3 screen driver
STATEMENT SYNTAX:
{stno} WRITE GUI (0{,ERR=}) ksa[ALL]

EXAMPLE:
0120 WRITE GUI K![ALL]

The data for the "type" key is the GUI Command

"type"Parameter KeyParameter DataCommand Purpose
"Copy" "option" "DODEFAULT" Copy selected text
to clipboard
Example:
  340 DIM K!
  345 LET K!["type"]="Copy"
  350 LET K!["option"]="DODEFAULT"
  355 WRITE GUI K![ALL]
"Cut" "option" "DODEFAULT" Cut selected text
to clipboard
Example:
  340 DIM K!
  345 LET K!["type"]="Cut"
  350 LET K!["option"]="DODEFAULT"
  355 WRITE GUI K![ALL]
"Dialog" "title" Dialog Window Title Bring up a Dialog Box
"x"Screen X co-ordinate
"y"Screen Y co-ordinate
"cx"Width
"cy"Height
Example:
  40 DIM K!
  50 LET K!["type"]="Dialog"
  60 LET K!["title"]="My Dialog"
  70 LET K!["x"]=-1
  80 LET K!["y"]=-1
  90 LET K!["cx"]=600
  100 LET K!["cy"]=400
  110 WRITE GUI K![ALL]
"Dialog End" Example:
  100 DIM K!
  120 K!["type"]="Dialog End"
  140 WRITE GUI K![ALL]
Close a Dialog Box
"FilePrint" "option" "DODEFAULT" or "DONTPROMPTUSER" Prints the Document
Example:
  340 DIM K!
  345 LET K!["type"]="FilePrint"
  350 LET K!["option"]="DONTPROMPTUSER"
  355 WRITE GUI K![ALL]
"GETouterHTML" "ElementId" The NAME or ID of the HTML Segement Gets an HTML Segment
Example:
  8015 DIM K!
  8020 LET K!["type"]="GETouterHTML"
  8025 LET K!["ElementId"]=ID$
  8030 WRITE GUI K![ALL]
  8035 READ GUI K![ALL]
"GetPageSetup" Example:
  100 DIM K!
  120 K!["type"]="GetPageSetup"
  140 WRITE GUI K![ALL]
Get current Page Setup
"Go" Example:
  100 DIM K!
  120 K!["type"]="Go"
  140 WRITE GUI K![ALL]
Allow a Document
to be displayed
"Navigate2" "url" Document to Display Display a Page
"frame name"Target Frame (optional)
"headers"Headers (optional normally not used)
"posted data"Posted Data (optional normally not used)
"nav flag"Flag Bits (optional normally not used)
Where flag bits are:
    navOpenInNewWindow = 1
    navNoHistory = 2
    navNoReadFromCache = 4 Not Supported
    navNoWriteToCache = 8 Not Supported
    navAllowAutosearch = 16
    navBrowserBar = 32
    navHyperlink = 64
Example:
  100 DIM K!
  120 K!["type"]="Navigate2"
  130 K!["url"]="HTML\TEMP.HTML"
  140 WRITE GUI K![ALL]
"NoGo" Example:
  100 DIM K!
  120 K!["type"]="NoGo"
  140 WRITE GUI K![ALL]
Stop a Document
from being displayed
"PageSetup" "option" "DODEFAULT" Brings up the Page
Setup Dialog Box
Example:
  340 DIM K!
  345 LET K!["type"]="PageSetup"
  350 LET K!["option"]="DODEFAULT"
  355 WRITE GUI K![ALL]
"Paste" "option" "DODEFAULT" Paste clipboard
into Text Box/Area
Example:
  340 DIM K!
  345 LET K!["type"]="Paste"
  350 LET K!["option"]="DODEFAULT"
  355 WRITE GUI K![ALL]
"PrintPreview" "option" "DODEFAULT" Does a Print Preview
Example:
  340 DIM K!
  345 LET K!["type"]="PrintPreview"
  350 LET K!["option"]="DODEFAULT"
  355 WRITE GUI K![ALL]
"SelectAll" "option" "DODEFAULT" Select the
complete document
Example:
  340 DIM K!
  345 LET K!["type"]="SelectAll"
  350 LET K!["option"]="DODEFAULT"
  355 WRITE GUI K![ALL]
"SendDocumentDone" "State" "On" or "Off" Start or Stop sending
DocumentComplete
Example:
  140 DIM K!
  145 LET K!["type"]="SendDocumentDone"
  150 LET K!["State"]="On"
  155 WRITE GUI K![ALL]
"SendSizeChange" "State" "On" or "Off" Start or Stop sending
SizeChange
Example:
  140 DIM K!
  145 LET K!["type"]="SendSizeChange"
  150 LET K!["State"]="On"
  155 WRITE GUI K![ALL]
"SETouterHTML" "ElementId" The NAME or ID of the HTML Segement Replace a HTML
segment
"Text" The new HTML Segement
Example:
  8115 DIM K!
  8120 LET K!["type"]="SETouterHTML"
  8125 LET K!["ElementId"]=ID$
  8130 LET K!["Text"]=A$
  8135 WRITE GUI K![ALL]
"SetPageSetup" "header" Page Header Set Pagesetup Defaults
"footer"Page Footer
"margin_bottom"Bottom Margin
"margin_top"Top Margin
"margin_left"Left Margin
"margin_right"Right Margin
"orientation""landscape" or "portrait"
Example:
  120 DIM K!
  125 LET K!["type"]="SetPageSetup"
  130 LET K!["header"]="&w&bPage &p of &P"
  135 LET K!["footer"]="&u&b&d"
  140 LET K!["margin_bottom"]="0.75000"
  145 LET K!["margin_top"]="0.75000"
  150 LET K!["margin_left"]="0.75000"
  155 LET K!["margin_right"]="0.75000"
  160 LET K!["orientation"]="landscape"
  165 WRITE GUI K![ALL]

SEE: 'READ GUI'