[To reply replace "Aaron.Sloman.XX" with "A.Sloman"]
Paul C Maddox <ug70pcm@cs.bham.ac.uk> writes:
> I'm working on a 2nd year POP-11 project.
>
> We're having lots of problems with graphics at the moment, and I'm trying
> to get some Xpw POP-11 commands working so we can show the graphics
> without flicker/sheering.
>
> I've currently got the following lines:
>
> ----
> vars myw;
> lconstant XpwGraphic = XptWidgetSet("Poplog")("GraphicWidget");
>
> XptNewWindow('Testwin',{1 1},[],XpwGraphic,[{mappedWhenManaged
> ^false}]) -> myw;
Two questions:
(a) Why did you use "false" rather than "true"? That stops the
window being displayed.
(b) your two-element vector {1 1} should probably be a four element
vector
{width height x y}
e.g.
{300 200 1 1}
You may find it useful to work through all the examples in
TEACH Xpw
>
> ;;;code to show window
>
> XpwSetColor(myw,'black');
> XpwDrawLine(myw,0,0,10,10);
That will not show the window, though it will draw on a visible
or invisible window.
See these documentation files
HELP Xpw, REF X, REF XpwGraphic
and the zillions of help and REF files referred to therein.
Understanding everything there almost certainly requires you to have
a separate book on the X window system. You can then work out how to
invoke the X facilities from Pop-11 using the online HELP, TEACH and
REF Files.
Alternatively use the RC_GRAPHIC or RCLIB facilities to avoid all the
low level X hacking!!
See TEACH RC_GRAPHIC for the basics.
Aaron
==
--
Aaron Sloman, ( http://www.cs.bham.ac.uk/~axs/ )
School of Computer Science, The University of Birmingham, B15 2TT, UK
EMAIL A.Sloman AT cs.bham.ac.uk (NB: Anti Spam address)
TOOLS: http://www.cs.bham.ac.uk/research/poplog/freepoplog.html
|