% 
% Copyright (c) 1989, Sun Microsystems, Inc.  RESTRICTED RIGHTS LEGEND:
% Use, duplication, or disclosure by the Government is subject to
% restrictions as set forth in subparagraph (c)(1)(ii) of the Rights in
% Technical Data and Computer Software clause at DFARS 52.227-7013 and
% in similar clauses in the FAR and NASA FAR Supplement.
%
% @(#) File: runjournal.ps, revision 1.3   Last edited: 8/30/89
% 
% ---------
%
% Create an instance of the journal user interface.

/JournalBag where {
    pop
}{
    (NeWS/journalui.ps) (r) file cvx exec
} ifelse

/controlwindow JournalBag framebuffer /new JournalFrame send def

%
% Should really use /place here, but that will cause problems since
% the control window won't come up in the same place every time.
%

700 600 /preferredsize /client controlwindow send send
/reshape controlwindow send

/activate controlwindow send
/map controlwindow send

newprocessgroup
currentfile closefile

