-+-+-+-+-+-+-+-+ START OF PART 135 -+-+-+-+-+-+-+-+ Xy(IN)50 b(INTEGER)186 b Fa(wsid)179 b Fq(workstation)9 b(identi\256er)n(.)25 X1935 y(IN)50 b(INTEGER)186 b Fa(topid)172 b Fq(topology)9 b(identi\256er)n(. V) X25 1985 y(IN)50 b(INTEGER)186 b Fa(nodetype)102 b Fq(type)11 Xb(of)g(node.)25 2035 y(IN)50 b(INTEGER)186 b Fa(pickdev)128 Xb Fq(pick)11 b(device.)25 2084 y(IN)50 b(INTEGER)186 b Fa(pickpet)136 Xb Fq(pick)11 b(prompt/echo)f(type.)25 2134 y(IN)50 b(INTEGER)186 Xb Fa(pldr)k Fq(size)12 b(of)f(record)g(array)m(.)25 2184 y(IN)50 Xb(CHARACTER*80)e Fa(pdatarec\(*\))72 b Fq(pick)11 b(data)g(record.)25 X2234 y(IN)50 b(INTEGER)186 b Fa(locdev)146 b Fq(locator)10 Xb(device.)25 2284 y(IN)50 b(INTEGER)186 b Fa(locpet)154 b Fq(locator)10 Xb(prompt/echo)h(type.)25 2334 y(IN)50 b(INTEGER)186 b Fa(lldr)202 Xb Fq(size)12 b(of)f(record)g(array)m(.)25 2383 y(IN)50 b(CHARACTER*80)e XFa(locdatarec\(*)o(\))f Fq(locator)10 b(data)i(record.)0 2452 Xy(This)k(function)e(enables)i(the)g(user)g(to)f(set)i(the)e(position)f(of)h X(a)i(topology)c(node,)k(or)f(group)f(of)g(nodes,)j(interactively)m(.)28 Xb(The)0 2502 y(pick)12 b(device)h Fi(pickdev)h Fq(is)f(used)f(to)h(request)f X(a)h(topology)e(node)h(and)h(if)f(successful)h(the)g(locator)f(device)h XFi(locdev)h Fq(is)e(used)h(to)0 2552 y(specify)e(a)h(new)g(node)f(position.) Vi X(Prompt)e(and)g(echo)h(types)f(may)h(be)g(set)f(for)g(both)f(the)h(pick)g X(and)h(locator)e(devices.)0 2956 y(13th)22 b(May)m(,)12 b(1992)626 Xb(216)828 b(2.01)p eop X%%Page: 217 218 Xbop 0 -137 a Fq(PHIGS)11 b(T)m(oolkit)f(User)i(Manual)1235 Xb(PTK/100)p 1340 -19 527 2 v 1340 60 2 80 v 1354 35 a Fb(ptkf_unposttopology V) Xp 1864 60 V 1340 62 527 2 v 11 136 a Fq(SUBROUTINE)12 b Fp X(ptkf_unposttopology)d Fq(\(wsid,)i(topid\))25 225 y(IN)50 Xb(INTEGER)g Fa(wsid)55 b Fq(workstation)10 b(identi\256er)n(.)25 X275 y(IN)50 b(INTEGER)g Fa(topid)e Fq(topology)9 b(identi\256er)n(.)0 X350 y(This)i(function)f(unposts)g(the)h(topology)e(diagram)j(structure)f X(from)g(the)g(workstation)e Fi(wsid)p Fq(.)0 2956 y(13th)22 Xb(May)m(,)12 b(1992)626 b(217)828 b(2.01)p eop X%%Page: 218 219 Xbop 0 349 a Fj(Chapter)24 b(35)0 585 y Fs(Menu)30 b(functions)0 X855 y Fr(35.1)59 b(Data)17 b(types)0 1027 y Fi(C)h(menu)h(types)126 X1126 y(INTEGER*4)h(PTKEUSERMENU)126 1176 y(PARAMETER)g(\(PTKEUSERMENU)g(=)e X(0\))126 1226 y(INTEGER*4)i(PTKEBOXMENU)126 1276 y(PARAMETER)g(\(PTKEBOXMENU V) Xg(=)e(1\))0 1375 y(C)g(rotator)h(dimension)126 1475 y(INTEGER*4)h(PTKEONED) X126 1525 y(PARAMETER)g(\(PTKEONED)f(=)f(0\))126 1575 y(INTEGER*4)i(PTKETWOD) X126 1624 y(PARAMETER)g(\(PTKETWOD)f(=)f(1\))126 1674 y(INTEGER*4)i X(PTKETHREED)126 1724 y(PARAMETER)g(\(PTKETHREED)g(=)e(2\))0 X1893 y Fr(35.2)59 b(Functions)p 1466 1984 401 2 v 1466 2063 X2 80 v 1480 2038 a Fb(ptkf_backmenu)p 1864 2063 V 1466 2065 X401 2 v 11 2139 a Fq(SUBROUTINE)12 b Fp(ptkf_backmenu)f Fq(\(wsid,)g X(menuid\))25 2228 y(IN)50 b(INTEGER)g Fa(wsid)94 b Fq(workstation)10 Xb(identi\256er)n(.)25 2278 y(IN)50 b(INTEGER)g Fa(menuid)e XFq(menu)12 b(identi\256er)n(.)0 2353 y(This)f(function)e(sets)i(the)g(post)f X(priority)e(of)j(the)f(menu)h(structure)f(so)h(that)f(it)g(is)h(displayed)f X(below)g(all)g(other)h(posted)f(menus)h(but)0 2403 y(in)g(front)f(of)h(all)g X(posted)g(windows.)902 2956 y(218)p eop X%%Page: 219 220 Xbop 0 -137 a Fq(PHIGS)11 b(T)m(oolkit)f(User)i(Manual)1235 Xb(PTK/100)p 1157 -19 709 2 v 1157 60 2 80 v 1171 35 a Fb(ptkf_clearboxme)o X(nuhigh)o(ligh)o(t)p 1864 60 V 1157 62 709 2 v 11 136 a Fq(SUBROUTINE)12 Xb Fp(ptkf_clearboxmenuhighlight)d Fq(\(menuid\))25 236 y(IN)50 Xb(INTEGER)g Fa(menuid)e Fq(menu)12 b(identi\256er)n(.)0 335 Xy(This)j(function)e(returns)h(the)h(attributes)f(of)g(the)h(highlighted)d X(menu)j(item)g(to)f(their)g(original)g(values.)26 b(If)15 b(no)f(item)h(is)g X(high-)0 385 y(lighted)10 b(the)h(function)f(is)h(ignored.)p X1347 482 520 2 v 1347 561 2 80 v 1361 536 a Fb(ptkf_createb)o(oxme)o(nu)p X1864 561 V 1347 563 520 2 v 11 637 a Fq(SUBROUTINE)h Fp(ptkf_cr)o X(eateboxmenu)g Fq(\(menuid,)f(tlcorner)n(,)g(boxsize\))25 726 Xy(IN)50 b(INTEGER)g Fa(menuid)95 b Fq(menu)12 b(identi\256er)n(.)25 X776 y(IN)50 b(REAL)119 b Fa(tlcorner\(2\))48 b Fq(top)11 b(left)g(corner)g X(of)g(menu.)25 826 y(IN)50 b(REAL)119 b Fa(boxsize\(2\))46 Xb Fq(width)10 b(and)i(height)e(of)h(menu)h(box)e(item.)0 895 Xy(This)15 b(function)f(creates)j(a)f(box)f(menu)g(with)g(no)g(initial)e X(items.)28 b(The)16 b(position)d(of)i(the)h(menu)f(is)h(speci\256ed)g(by)f XFi(tlcorner)0 945 y Fq(which)d(de\256nes)i(the)e(top-left)g(corner)g(of)h X(the)g(\256rst)f(menu)h(item.)20 b(The)14 b(position)c(and)j(size)g(of)g(box V) Xf(menu)h(items)g(are)h(given)e(in)0 994 y(the)f(range)h(`5B0,)f(1`5D.)k(The) Vd X(default)f(menu)h(path)f(is)g(DOWN.)p 1410 1091 457 2 v 1410 X1171 2 80 v 1424 1145 a Fb(ptkf_createro)o(tat)o(or)p 1864 X1171 V 1410 1173 457 2 v 11 1247 a Fq(SUBROUTINE)h Fp(ptkf_cr)o(eater)o X(otator)g Fq(\(wsid,)f(menuid,)h(rottype,)e(size,)i(titlestr)n(,)f X(titleheight\))25 1335 y(IN)50 b(INTEGER)193 b Fa(wsid)130 Xb Fq(workstation)9 b(identi\256er)n(.)25 1385 y(IN)50 b(INTEGER)193 Xb Fa(menuid)84 b Fq(rotator)10 b(identi\256er)n(.)25 1435 y(IN)50 Xb(INTEGER)193 b Fa(rottype)91 b Fq(rotator)10 b(type.)25 1485 Xy(IN)50 b(REAL)262 b Fa(size\(2\))93 b Fq(rotator)10 b(size.)25 X1535 y(IN)50 b(CHARACTER*\(*\))e Fa(titlestr)105 b Fq(rotator)10 Xb(title.)25 1585 y(IN)50 b(REAL)262 b Fa(titleheight)47 b Fq(rotator)10 Xb(title)g(height.)0 1653 y(This)15 b(function)e(creates)i(a)h(special)f(form V) Xf(of)g(user)h(menu)g(called)g(a)g(rotator)n(.)24 b(Rotators)13 Xb(consist)h(of)h(an)f(arrangement)i(of)e(ar)o(-)0 1703 y(rows)c(and)h(are)g X(useful)g(for)f(de\256ning)f(rotation)g(values)i(and)g(direction)e(in)h(a)h X(user)g(interface.)k(There)d(are)f(three)g(types)f(of)g(rotator)0 X1753 y(available:)15 b(1D,)c(2D)g(and)h(3D,)f(and)h(each)g(having)e(an)i X(increasing)f(number)g(of)g(arrows.)p 1197 1850 670 2 v 1197 X1929 2 80 v 1211 1904 a Fb(ptkf_createstruc)o(tm)o(enui)o(tem)p X1864 1929 V 1197 1931 670 2 v 11 2005 a Fq(SUBROUTINE)h Fp(ptkf_cr)o X(eatestructmenuitem)h Fq(\(menuid,)e(structid,)f(itemno,)h(editmode,)g X(error\))25 2094 y(IN)50 b(INTEGER)g Fa(menuid)78 b Fq(menu)11 Xb(identi\256er)n(.)25 2144 y(IN)50 b(INTEGER)g Fa(structid)79 Xb Fq(menu)11 b(item)h(structure)e(identi\256er)n(.)25 2194 Xy(IN)50 b(INTEGER)g Fa(itemno)88 b Fq(menu)11 b(item)h(number)n(.)25 X2244 y(IN)50 b(INTEGER)g Fa(editmode)e Fq(insert)10 b(or)h(replace)i(menu)e X(item.)25 2293 y(IN)50 b(INTEGER)g Fa(error)119 b Fq(error)11 Xb(code.)0 2362 y(This)j(function)f(creates)j(a)f(menu)g(item)f(de\256ned)h X(by)f Fi(structure)p Fq(.)27 b(In)14 b(the)g(case)i(of)f(box)e(menus)i(the)g X(structure)e(is)i(mapped)0 2412 y(into)10 b(the)h(item)g(box)g(with)f(aspect V) Xi(ratio)f(preserved.)16 b(No)11 b(transformation)f(is)h(applied)g(for)f(user V) Xi(menu)g(items.)0 2956 y(13th)22 b(May)m(,)12 b(1992)626 b(219)828 Xb(2.01)p eop X%%Page: 220 221 Xbop 0 -137 a Fq(PHIGS)11 b(T)m(oolkit)f(User)i(Manual)1235 Xb(PTK/100)p 1240 -19 626 2 v 1240 60 2 80 v 1254 35 a Fb(ptkf_createte)o(xtm V) Xo(enui)o(tem)p 1864 60 V 1240 62 626 2 v 11 136 a Fq(SUBROUTINE)12 Xb Fp(ptkf_cr)o(eatetextmenuitem)g Fq(\(menuid,)f(str)n(,)g(itemno,)h X(editmode,)f(error\))25 225 y(IN)50 b(INTEGER)193 b Fa(menuid)78 Xb Fq(menu)11 b(identi\256er)n(.)25 275 y(IN)50 b(CHARACTER*\(*\))e XFa(str)155 b Fq(text)10 b(string.)25 324 y(IN)50 b(INTEGER)193 Xb Fa(itemno)88 b Fq(menu)11 b(item)h(number)n(.)25 374 y(IN)50 Xb(INTEGER)193 b Fa(editmode)48 b Fq(insert)10 b(or)h(replace)i(menu)e(item.. V) X25 424 y(IN)50 b(INTEGER)193 b Fa(error)119 b Fq(error)11 b(code.)0 X493 y(This)g(function)f(creates)i(a)g(box)f(menu)g(item)h(containing)d(the)i X(character)i(string)d Fi(str)p Fq(.)16 b(The)c(string)d(is)i(automatically)g X(scaled)h(to)0 543 y(\256t)f(inside)g(the)g(menu)g(item)h(box.)j(This)c X(function)e(may)j(only)f(be)g(used)h(with)e(box)h(menus.)0 X625 y(C)g(**)p 1337 673 530 2 v 1337 752 2 80 v 1351 727 a XFb(ptkf_createuse)o(rme)o(nu)p 1864 752 V 1337 754 530 2 v X11 829 a Fq(SUBROUTINE)h Fp(ptkf_cr)o(eateusermenu)i Fq(\(menuid,)d X(menustid\))25 917 y(IN)50 b(INTEGER)g Fa(menuid)76 b Fq(menu)11 Xb(identi\256er)n(.)25 967 y(IN)50 b(INTEGER)g Fa(menustid)e XFq(menu)11 b(structure)g(identi\256er)n(.)0 1042 y(This)g(function)f(creates V) Xi(a)g(user)g(menu)f(using)g(the)g(structure)f Fi(menustid)p XFq(.)17 b(Each)c(menu)e(item)g(must)g(be)h(an)f(individual)e(PHIGS)0 X1092 y(structure)i(or)g(network)f(and)h(the)h(menu)f(initially)e(contains)i X(no)g(menu)g(items.)p 1506 1189 361 2 v 1506 1268 2 80 v 1520 X1243 a Fb(ptkf_delmenu)p 1864 1268 V 1506 1270 361 2 v 0 1344 Xa Fq(LOGICAL)h(FUNCTION)f Fp(ptkf_delmenu)g Fq(\(menuid\))25 X1444 y(IN)50 b(INTEGER)g Fa(menuid)e Fq(menu)12 b(identi\256er)n(.)0 X1544 y(This)j(function)e(deletes)j(a)f(menu)g(from)g(the)g(PHIGS)g(T)m X(oolkit)e(menu)j(store.)26 b(The)16 b(function)d(returns)h(TRUE)i(if)e XFi(menuid)i Fq(is)0 1593 y(deleted,)c(otherwise)e(F)m(ALSE.)p X1400 1691 467 2 v 1400 1770 2 80 v 1414 1744 a Fb(ptkf_delmenui)o(tem)p X1864 1770 V 1400 1772 467 2 v 0 1846 a Fq(LOGICAL)i(FUNCTION)f XFp(ptkf_delmenuitem)f Fq(\(menuid,)i(itemno\))25 1935 y(IN)50 Xb(INTEGER)g Fa(menuid)e Fq(menu)12 b(identi\256er)n(.)25 1984 Xy(IN)50 b(INTEGER)g Fa(itemno)58 b Fq(menu)12 b(item)f(to)g(delete.)0 X2059 y(This)j(function)f(deletes)i(the)g(menu)g(item)f Fi(itemno)p XFq(.)26 b(The)15 b(function)e(returns)h(TRUE)h(if)f(the)h(menu)f(item)h(is)f X(deleted,)i(other)o(-)0 2109 y(wise)c(F)m(ALSE.)p 1463 2206 X404 2 v 1463 2286 2 80 v 1477 2260 a Fb(ptkf_frontmenu)p 1864 X2286 V 1463 2288 404 2 v 11 2362 a Fq(SUBROUTINE)g Fp(ptkf_fr)o(ontmenu)f XFq(\(wsid,)g(menuid\))25 2450 y(IN)50 b(INTEGER)g Fa(wsid)94 Xb Fq(workstation)10 b(identi\256er)n(.)25 2500 y(IN)50 b(INTEGER)g XFa(menuid)e Fq(menu)12 b(identi\256er)n(.)0 2575 y(This)i(function)f(sets)h X(the)g(post)g(priority)e(of)i(the)g(menu)g(structure)g(so)g(that)f(it)h(is)g X(displayed)f(on)h(top)f(of)h(all)g(the)g(other)g(posted)0 2625 Xy(menus)e(and)f(windows.)0 2956 y(13th)22 b(May)m(,)12 b(1992)626 Xb(220)828 b(2.01)p eop X%%Page: 221 222 Xbop 0 -137 a Fq(PHIGS)11 b(T)m(oolkit)f(User)i(Manual)1235 Xb(PTK/100)p 1310 -19 557 2 v 1310 60 2 80 v 1324 35 a Fb(ptkf_inqboxmenuat)o X(trs)p 1864 60 V 1310 62 557 2 v 11 136 a Fq(SUBROUTINE)12 Xb Fp(ptkf_inqboxmenuattrs)e Fq(\(menuid,)23 b(menupath,)h(font,)e(textcolour V) Xn(,)h(intcolour)n(,)f(edge-)696 186 y(colour)n(,)30 b(boxtlcolour)n(,)e X(boxbrcolour)n(,)g(httextcolour)n(,)g(htint-)696 236 y(colour)n(,)11 Xb(htedgecolour)n(,)g(err\))25 288 y(IN)91 b(INTEGER)50 b Fa(menuid)137 Xb Fq(menu)12 b(identi\256er)n(.)25 338 y(OUT)50 b(Ptxpath)10 Xb(*)68 b Fa(menupath)95 b Fq(path)11 b(of)g(box)g(menu)g(\(left,)g(right,)g X(up,)g(down\).)25 387 y(OUT)50 b(INTEGER)g Fa(font)194 b Fq(text)11 Xb(font.)25 437 y(OUT)50 b(INTEGER)g Fa(textcolour)98 b Fq(colour)11 Xb(index)f(for)h(text.)25 487 y(OUT)50 b(INTEGER)g Fa(intcolour)118 Xb Fq(colour)11 b(index)f(for)h(interior)n(.)25 537 y(OUT)50 Xb(INTEGER)g Fa(edgecolour)76 b Fq(colour)11 b(index)f(for)h(edges.)25 X587 y(OUT)50 b(INTEGER)g Fa(boxtlcolour)80 b Fq(colour)11 b(index)f(for)h X(top-left)f(of)h(box.)25 636 y(OUT)50 b(INTEGER)g Fa(boxcolour)98 Xb Fq(colour)11 b(index)f(for)h(bottom-right)d(of)j(box.)25 X686 y(OUT)50 b(INTEGER)g Fa(httextcolour)68 b Fq(colour)11 Xb(index)f(for)h(highlight)d(text.)25 736 y(OUT)50 b(INTEGER)g XFa(htintcolour)88 b Fq(colour)11 b(index)f(for)h(highlight)d(interior)n(.)25 X786 y(OUT)50 b(INTEGER)g Fa(htedgecolour)c Fq(colour)11 b(index)f(for)h X(highlight)d(edges.)25 836 y(OUT)50 b(INTEGER)g Fa(err)210 Xb Fq(error)11 b(indicator)n(.)0 905 y(This)f(function)e(may)j(be)f(used)h(to V) Xe(obtain)g(the)h(boxmenu)f(attribute)g(values)h(for)g Fi(menuid)p XFq(.)16 b(These)11 b(include)e(the)h(menu)h(path,)f(text)0 X954 y(font)g(and)i(colour)e(indicies.)p 1091 1052 776 2 v 1091 X1131 2 80 v 1105 1105 a Fb(ptkf_inqboxmenuhi)o(ghli)o(ghti)o(tem)p X1864 1131 V 1091 1133 776 2 v 11 1207 a Fq(SUBROUTINE)i Fp X(ptkf_inqboxmenuhighlighti)o(tem)d Fq(\(menuid,)i(item,)g(err\))25 X1296 y(IN)91 b(INTEGER)50 b Fa(menuid)f Fq(menu)12 b(identi\256er)n(.)25 X1345 y(OUT)50 b(INTEGER)g Fa(item)99 b Fq(hightlight)8 b(item)j(number)n(.)2 V5 X1395 y(OUT)50 b(INTEGER)g Fa(err)122 b Fq(error)11 b(indicator)n(.)0 X1464 y(This)g(function)f(may)i(be)f(used)h(to)f(obtain)f(the)h(item)g(number V) Xg(of)g(the)h(currently)e(highlight)e(box)j(menu)h(item.)p 1227 X1561 640 2 v 1227 1640 2 80 v 1241 1615 a Fb(ptkf_inqfrontbackm)o(enui)o(d)p X1864 1640 V 1227 1642 640 2 v 0 1716 a Fq(LOGICAL)g(FUNCTION)f XFp(ptkf_inqfr)o(ontbackmenuid)g Fq(\(wsid,)g(frontid,)f(backid,)h(err\))25 X1805 y(IN)91 b(INTEGER)50 b Fa(wsid)109 b Fq(workstation)9 Xb(identi\256er)n(.)25 1855 y(OUT)50 b(INTEGER)g Fa(frontstid)i XFq(front)10 b(menu)h(identi\256er)n(.)25 1905 y(OUT)50 b(INTEGER)g XFa(backstid)e Fq(back)11 b(menu)h(identi\256er)n(.)25 1955 Xy(OUT)50 b(INTEGER)g Fa(err)136 b Fq(error)11 b(indicator)n(.)0 X2024 y(This)16 b(function)f(may)j(be)e(used)h(to)f(obtain)g(the)g(menu)h X(identi\256ers)f(of)g(the)g(front)g(and)g(back)h(menus)g(which)f(are)i X(posted)e(to)0 2073 y(workstation)9 b Fi(wsid)p Fq(.)17 b(These)12 Xb(are)g(the)f(menus)h(with)f(the)g(highest)f(and)h(lowest)g(post)g(priority) Vm X(.)0 2156 y(C)g(**)p 1433 2204 434 2 v 1433 2283 2 80 v 1447 X2258 a Fb(ptkf_inqmenuids)p 1864 2283 V 1433 2285 434 2 v 11 X2359 a Fq(SUBROUTINE)h Fp(ptkf_inqmenuids)e Fq(\(num,)i(menuids,)f(totalnum, V) Xg(err\))25 2448 y(IN)91 b(INTEGER)50 b Fa(size)157 b Fq(size)12 Xb(of)f(buf)o(fer)n(.)25 2498 y(OUT)50 b(INTEGER)g Fa(menuids\(*\))e XFq(list)10 b(of)h(menus.)25 2547 y(OUT)50 b(INTEGER)g Fa(totalsize)89 Xb Fq(length)10 b(of)h(menus)h(list.)25 2597 y(OUT)50 b(INTEGER)g XFa(err)177 b Fq(error)11 b(indicator)n(.)0 2666 y(This)g(function)f(may)i(be V) Xf(used)h(to)f(obtain)f(a)i(list)e(of)h(all)g(menus)h(in)e(the)i(PHIGS)f(T)m X(oolkit)f(menu)h(store.)0 2956 y(13th)22 b(May)m(,)12 b(1992)626 Xb(221)828 b(2.01)p eop X%%Page: 222 223 Xbop 0 -137 a Fq(PHIGS)11 b(T)m(oolkit)f(User)i(Manual)1235 Xb(PTK/100)p 1373 -19 494 2 v 1373 60 2 80 v 1387 35 a Fb(ptkf_inqmenunam)o(e V) Xp 1864 60 V 1373 62 494 2 v 11 136 a Fq(SUBROUTINE)12 b Fp(ptkf_inqmenuname) Ve XFq(\(menuid,)i(menuname,)h(err\))25 225 y(IN)91 b(INTEGER)50 Xb Fa(windid)f Fq(menu)12 b(identi\256er)n(.)25 275 y(OUT)50 Xb(INTEGER)g Fa(name)61 b Fq(menu)12 b(name.)25 324 y(OUT)50 Xb(INTEGER)g Fa(err)106 b Fq(error)11 b(indicator)n(.)0 393 Xy(This)g(function)f(may)i(be)f(used)h(to)f(obtain)f(the)h(menu)h(name)g(for) Vf X(use)h(in)e(the)h(pick)g(\256lter)n(.)p 1310 491 557 2 v 1310 X570 2 80 v 1324 544 a Fb(ptkf_inqmenupositi)o(on)p 1864 570 +-+-+-+-+-+-+-+- END OF PART 135 +-+-+-+-+-+-+-+-