-+-+-+-+-+-+-+-+ START OF PART 178 -+-+-+-+-+-+-+-+
X     : %val(windowcol), %val(bannercol), %val(bannertextcol),`20
X     : %val(tlcol), %val(brcol), %val(arrowcol), %val(arrowedgecol))
X
X`09RETURN
X`09END
X
X        SUBROUTINE ptkf_inqvieweditorattrs(menufont, windowfont,
X     : menucol, menutextcol, windowcol,`20
X     : bannercol, bannertextcol, tlcol, brcol, arrowcol, arrowedgecol)
X`09INTEGER menufont, windowfont
X`09INTEGER menucol, menutextcol, windowcol
X        INTEGER bannercol, bannertextcol, tlcol, brcol
X`09INTEGER arrowcol, arrowedgecol
X        external ptk_inqvieweditorattrs
X
X `09call ptk_inqvieweditorattrs(menufont, windowfont,
X     : menucol, menutextcol,`20
X     : windowcol, bannercol, bannertextcol, tlcol,
X     : brcol, arrowcol, arrowedgecol)
X
X`09RETURN
X`09END
X
XC end of view.f
$ CALL UNPACK [.FORTRAN.SOURCE.LIBRARY]VIEW.FOR;1 2080665534
$ create 'f'
X
X       SUBROUTINE ptkf_createwindow(wsid, windid, size, position,
X     : titlestr)
X       INTEGER wsid, windid
X       REAL size(2), position(2)
X       CHARACTER*(*) titlestr
X       external ptkc_createwindow
X
X       call ptkc_createwindow(%val(wsid), %val(windid), size, position,`20
X     : titlestr)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_setwindowattrs(windid, titlefont, titlecol,
X     : bannercol, backgdcol, edgecol, frametlcol, frambrcol)
X       INTEGER windid, titlefont, titlecol, bannercol
X       INTEGER backgdcol, edgecol, frametlcol, framebrcol
X       external ptk_setwindowattrs
X
X       call ptk_setwindowattrs(%val(windid), %val(titlefont),
X     : %val(titlecol), %val(bannercol), %val(backgdcol),`20
X     : %val(edgecol), %val(frametlcol), %val(framebrcol))
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_inqwindowattrs(windid, titlefont, titlecol,
X     : bannercol, backgdcol, edgecol, frametlcol, frambrcol, err)
X       INTEGER windid, titlefont, titlecol, bannercol
X       INTEGER backgdcol, edgecol, frametlcol, framebrcol, err
X       external ptk_inqwindowattrs
X
X       call ptk_inqwindowattrs(%val(windid), titlefont,
X     : titlecol, bannercol, backgdcol,`20
X     : edgecol, frametlcol, framebrcol, err)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_posttowindow(windid, id)
X       INTEGER windid, id
X       external ptk_posttowindow`20
X
X       call ptk_posttowindow(%val(windid), %val(id))
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_unpostfromwindow(windid, id)
X       INTEGER windid, id
X       external ptk_unpostfromwindow`20
X
X       call ptk_unpostfromwindow(%val(windid), %val(id))
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_unpostallfromwindow(windid)
X       INTEGER windid
X       external ptk_unpostallfromwindow`20
X
X       call ptk_unpostallfromwindow(%val(windid))
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_postwindow(windid)
X       INTEGER windid
X       external ptk_postwindow`20
X
X       call ptk_postwindow(%val(windid))
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_unpostwindow(windid)
X       INTEGER windid
X       external ptk_unpostwindow`20
X
X       call ptk_unpostwindow(%val(windid))
X
X       RETURN
X       END
X
X       LOGICAL FUNCTION ptkf_delwindow(windid)
X       INTEGER windid
X       external ptk_delwindow`20
X
X       ans = ptk_delwindow(%val(windid))
X       if (ans .eq. 1) then
X          ptkf_delwindow = .TRUE.
X       else
X          ptkf_delwindow = .FALSE.
X       endif
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_closewindow(windid)
X       INTEGER windid
X       external ptk_closewindow`20
X
X       call ptk_closewindow(%val(windid))
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_openwindow(windid)
X       INTEGER windid
X       external ptk_openwindow`20
X
X       call ptk_openwindow(%val(windid))
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_setwindowposition(windid, position)
X       INTEGER windid
X       REAL position(2)
X       external ptk_setwindowposition`20
X
X       call ptk_setwindowposition(%val(windid), position)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_setwindowsize(windid, size)
X       INTEGER windid
X       REAL size(2)
X       external ptk_setwindowsize`20
X
X       call ptk_setwindowsize(%val(windid), size)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_setwindowtraninputpri(windid, refwindid,`20
X     : priority)
X       INTEGER windid, refwindid, priority
X       external ptk_setwindowtraninputpri`20
X
X       call ptk_setwindowtraninputpri(%val(windid), %val(refwindid),`20
X     : %val(priority))
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_setframesize(windid, size)
X       INTEGER windid
X       REAL size(2)
X       external ptk_setframesize`20
X
X       call ptk_setframesize(%val(windid), size)
X
X       RETURN
X       END
X      `20
X       LOGICAL FUNCTION ptkf_stringscanwindows(wsid, str, windowid)
X       INTEGER wsid
X       CHARACTER*(*) str
X       INTEGER windowid
X       LOGICAL*1 ptkc_stringscanwindows, ans
X       external ptkc_stringscanwindows`20
X
X       ans = ptkc_stringscanwindows(%val(wsid), str, windowid)
X       if (ans .eq. 1) then
X          ptkf_stringscanwindows = .TRUE.
X       else
X          ptkf_stringscanwindows = .FALSE.
X       endif
X
X       RETURN
X       END
X
X       LOGICAL FUNCTION ptkf_pickscanwindows(ippd, pp, ppordr, windowid)
X       INTEGER ippd
X       INTEGER pp(3, ippd)
X       INTEGER ppordr
X       INTEGER windowid
X       LOGICAL*1 ptk_pickscanwindows, ans
X       external ptk_pickscanwindows`20
X       structure /Ppickpath/
X         INTEGER depth
X         INTEGER pick_path(3, 100)
X       end structure
X       record /Ppickpath/ ppath
X
X       ppath.depth = ippd
X       do 10, i=1,ippd
X          ppath.pick_path(1, i) = pp(1, i)
X          ppath.pick_path(2, i) = pp(2, i)
X 10       ppath.pick_path(3, i) = pp(3, i)
X       ans = ptk_pickscanwindows(ppath, %val(ppordr), windowid)
X       if (ans .eq. 1) then
X          ptkf_pickscanwindows = .TRUE.
X       else
X          ptkf_pickscanwindows = .FALSE.
X       endif
X
X       RETURN
X       END
X
X       LOGICAL FUNCTION ptkf_locscanwindows(wsid, point, windowid,`20
X     : windarea, value)
X       INTEGER wsid
X       REAL point(2)
X       INTEGER windowid, windarea
X       REAL value(2)
X       LOGICAL*1 ptk_locscanwindows, ans
X       external ptk_locscanwindows`20
X
X       ans = ptk_locscanwindows(%val(wsid), point, windowid,`20
X     : windarea, value)
X       if (ans .eq. 1) then
X          ptkf_locscanwindows = .TRUE.
X       else
X          ptkf_locscanwindows = .FALSE.
X       endif
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_frontwindow(windid)
X       INTEGER windid
X       external ptk_frontwindow`20
X
X       call ptk_frontwindow(%val(windid))
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_backwindow(windid)
X       INTEGER windid
X       external ptk_backwindow`20
X
X       call ptk_backwindow(%val(windid))
X`20
X       RETURN
X       END
X
X       SUBROUTINE ptkf_inqpostedwindows(wsid, num, windowids, totalnum,
X     : err)
X       INTEGER wsid, num, windowids(num), totalnum, err
X       external ptkc_inqpostedwindows`20
X
X       call ptkc_inqpostedwindows(%val(wsid), %val(num), windowids,`20
X     : totalnum, err)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_inqwindowids(num, windowids, totalnum, err)
X       INTEGER num, windowids(num), totalnum, err
X       external ptkc_inqwindowids`20
X
X       call ptkc_inqwindowids(%val(num), windowids, totalnum, err)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_inqwindowstructid(windid, windowstid, iconstid,
X     : err)
X       INTEGER windid, windowstid, iconstid, err
X       external ptk_inqwindowstructid`20
X
X       call ptk_inqwindowstructid(%val(windid), windowstid, iconstid,
X     : err)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_inqwindowname(windid, name, err)
X       INTEGER windid, name, err
X       external ptk_inqwindowname !$PRAGMA C(ptk_inqwindowname)
X
X       call ptk_inqwindowname(%val(windid), name, err)
X
X       RETURN
X       END
X
X       LOGICAL FUNCTION ptkf_inqfrontbackwindowid(wsid, frontid,`20
X     : frontstate, backid, backstate, err)
X       INTEGER wsid, frontid, frontstate, backid, backstate, err
X       LOGICAL*1 ptk_inqfrontbackwindowid, ans
X       external ptk_inqfrontbackwindowid`20
X
X       ans = ptk_inqfrontbackwindowid(%val(wsid), frontid, frontstate,`20
X     : backid, backstate, err)
X       if (ans .eq. 1) then
X          ptkf_inqfrontbackwindowid = .TRUE.
X       else
X          ptkf_inqfrontbackwindowid = .FALSE.
X       endif
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_inqwindowposition(windid, position, err)
X       INTEGER windid
X       REAL position(2)
X       INTEGER err
X       external ptk_inqwindowposition`20
X
X       call ptk_inqwindowposition(%val(windid), position, err)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_inqwindowsize(windid, size, err)
X       INTEGER windid
X       REAL size(2)
X       INTEGER err
X       external ptk_inqwindowsize`20
X
X       call ptk_inqwindowsize(%val(windid), size, err)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_inqiconposition(windid, position, err)
X       INTEGER windid
X       REAL position(2)
X       INTEGER err
X       external ptk_inqiconposition
X
X       call ptk_inqiconposition(%val(windid), position, err)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_inqiconsize(windid, size, err)
X       INTEGER windid
X       REAL size(2)
X       INTEGER err
X       external ptk_inqiconsize
X
X       call ptk_inqiconsize(%val(windid), size, err)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_inqusericon(windid, iconstid, err)
X       INTEGER windid, iconstid, err
X       external ptk_inqusericon
X
X       call ptk_inqusericon(%val(windid), iconstid, err)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_inqframesize(windid, size, err)
X       INTEGER windid
X       REAL size(2)
X       INTEGER err
X       external ptk_inqframesize
X
X       call ptk_inqframesize(%val(windid), size, err)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_inqwindowtype(windid, type, err)
X       INTEGER windid, type, err
X       external ptk_inqwindowtype
X
X       call ptk_inqwindowtype(%val(windid), type, err)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_inqbannerheight(windid, height, err)
X       INTEGER windid
X       REAL height
X       INTEGER err
X       external ptk_inqbannerheight
X
X       call ptk_inqbannerheight(%val(windid), height, err)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_inqbannertitle(windid, len, titlestr, totlen,
X     : err)
X       INTEGER windid, len
X       CHARACTER*(*) titlestr
X       INTEGER totlen, err
X       external ptkc_inqbannertitle
X
X       call ptkc_inqbannertitle(windid, %val(len), titlestr, totlen,
X     : err)`20
X       totlen = totlen - 1
X
X       RETURN
X       END
X
XC icon functions`20
X
X       SUBROUTINE ptkf_seticonposition(windid, position)
X       INTEGER windid
X       REAL position(2)
X       external ptk_seticonposition`20
X
X       call ptk_seticonposition(%val(windid), position)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_seticonsize(windid, size)
X       INTEGER windid
X       REAL size(2)
X       external ptk_seticonsize`20
X
X       call ptk_seticonsize(%val(windid), size)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_setusericon(windid, usericon)
X       INTEGER windid, usericon
X       external ptk_setusericon`20
X
X       call ptk_setusericon(%val(windid), %val(usericon))
X
X       RETURN
X       END
X
XC banner functions`20
X
X       SUBROUTINE ptkf_setbannercolours(windid, bannercolour,`20
X     : titlecolour)
X       INTEGER windid, bannercolour, titlecolour
X       external ptk_setbannercolours`20
X
X       call ptk_setbannercolours(%val(windid), %val(bannercolour),`20
X     : %val(titlecolour))
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_setbannerheight(windid, bannerheight)
X       INTEGER windid
X       REAL bannerheight
X       external ptkc_setbannerheight`20
X
X       call ptk_setbannerheight(%val(windid), bannerheight)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_setbannertitle(windid, titlestring)
X       INTEGER windid
X       CHARACTER*(*) titlestring
X       external ptkc_setbannertitle`20
X
X       call ptk_setbannertitle(%val(windid), titlestring)
X
X       RETURN
X       END
X
XC terminal window functions
X
X       SUBROUTINE ptkf_setterminaldata(windid, numlines, txfont,`20
X     : txcolour)
X       INTEGER windid, numlines, txfont, txcolour
X       external ptk_setterminaldata`20
X
X       call ptk_setterminaldata(%val(windid), %val(numlines),`20
X     : %val(txfont), %val(txcolour))
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_refreshterminal(windid)
X       INTEGER windid
X       external ptk_refreshterminal`20
X
X       call ptk_refreshterminal(%val(windid))
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_writeterminal(windid, str)
X       INTEGER windid
X       CHARACTER*(*) str
X       external ptkc_writeterminal`20
X
X       call ptkc_writeterminal(%val(windid), str)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_writelnterminal(windid, str)
X       INTEGER windid
X       CHARACTER*(*) str
X       external ptkc_writelnterminal`20
X
X       call ptkc_writelnterminal(%val(windid), str)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_clearterminal(windid)
X       INTEGER windid
X       external ptk_clearterminal`20
X
X       call ptk_clearterminal(%val(windid))
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_writeintterminal(windid, number)
X       INTEGER windid, number
X       external ptk_writeintterminal`20
X
X       call ptk_writeintterminal(%val(windid), %val(number))
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_writefloatterminal(windid, number)
X       INTEGER windid
X       REAL number
X       external ptkc_writefloatterminal`20
X
X       call ptkc_writefloatterminal(%val(windid), number)
X
X       RETURN
+-+-+-+-+-+-+-+-  END  OF PART 178 +-+-+-+-+-+-+-+-