@verb #602:"glXMakeCurrent" this none this rxdo #55
@program #602:"glXMakeCurrent" this none this
{s, win, cid, old_context_tag} = args
win = {win / 2 ^ 24 % 256, win / 2 ^ 16 % 256, win / 256 % 256, win % 256}
cid = {cid / 2 ^ 24 % 256, cid / 2 ^ 16 % 256, cid / 256 % 256, cid % 256}
old_context_tag = {old_context_tag / 2 ^ 24 % 256, old_context_tag / 2 ^ 16 % 256, old_context_tag / 256 % 256, old_context_tag % 256}
this:unmonitor_connection(s)
try
  this:send_glx_request(s, 5, {@win, @cid, @old_context_tag})
  r = this:wait_for_response(s)
finally
  this:monitor_connection(s)
endtry
return r[2] * 2 ^ 24 + r[3] * 2 ^ 16 + r[4] * 256 + r[5]
"Last modified by manta (#7165) on Mon Apr 17 14:45:36 2000 EDT."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:06 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:50:06 2002 MDT."
.