Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!uunet!steinmetz!thuban!putnam
From: putnam@thuban.steinmetz (putnam)
Newsgroups: comp.windows.news
Subject: Possible bug in NeWS
Message-ID: <6298@steinmetz.steinmetz.UUCP>
Date: Thu, 18-Jun-87 11:57:35 EDT
Article-I.D.: steinmet.6298
Posted: Thu Jun 18 11:57:35 1987
Date-Received: Sun, 21-Jun-87 13:13:18 EDT
Sender: root@steinmetz.steinmetz.UUCP
Reply-To: putnam@thuban.steinmetz.UUCP (putnam)
Distribution: world
Organization: General Electric CRD, Schenectady, NY
Lines: 48


The following NeWS code illustrates a possible bug in NeWS.  It seems that 
subcanvasses are restricted in where they can be moved relative to their 
parent.  A subcanvas can be moved arbitraritly far to the right or down, but
only to the edge of the parent left or up.  This can be seen in the top level
window manager where a window will stop moving when pushed against the left
(or top) border of the screen, but will continue to the right or bottom.

The following code also illustrates it:

cat >>canvas.test <<End_It_All
#!/usr/NeWS/bin/psh
dictbegin
  /w framebuffer /new DefaultWindow send def 
  /c null def
dictend begin 
  100 100 400 400 /reshape w send
  /map w send 
  w begin 
    ClientCanvas setcanvas 
    0 1 1000 { pop pause } for % give it time for initial display
    1 fillcanvas
    /c ClientCanvas newcanvas store 
    0 0 200 200 rectpath c reshapecanvas 
    c /Mapped true put
    c setcanvas 
    % 100 100 movecanvas
    % 1 fillcanvas
    c setcanvas -100 -100 movecanvas 
    0.2 fillcanvas 0 strokecanvas
    (one ) print ClientCanvas setcanvas c getcanvaslocation pstack clear
    c setcanvas -100 300 movecanvas 
    0.4 fillcanvas 0 strokecanvas
    (two ) print ClientCanvas setcanvas c getcanvaslocation pstack clear
    c setcanvas 300 300 movecanvas 
    0.6 fillcanvas 0 strokecanvas
    (three ) print ClientCanvas setcanvas c getcanvaslocation pstack clear 
    c setcanvas 300 -100 movecanvas 
    0.8 fillcanvas 0 strokecanvas
    (four ) print ClientCanvas setcanvas c getcanvaslocation pstack clear
end end
End_It_All
chmod +x canvas.test 
canvas.test

Well, shall we go?  -- jefu (jeff putnam)
Yes, lets go.       -- UUCP: steinmetz!putnam
(They do not move.) -- ARPA: putnam@ge-crd.com