🚀 go-pugleaf

In article <1992Aug20.034650.17692@sq.sq.com> lee@sq.sq.com (Liam R. E. Quin) writes:

   [1] Can I access X Defaults from a NeWS-only program?

The followind code reads all DisCo.* resources and makes
  /resource_name resource_value def

/DefineResources { % string string =>
    (\n) alist
    {
%       stack
        dup 2 index search {
            pop
            pop
            (:) search {
%               (% is %(%)\n) [ 2 index 5 index MakeValue dup type] sprintf =
                dup cvn 3 index { MakeValue } stopped not {
                    def
                } {
                    console (Syntax error on resource %\n) [ 3 index ] fprintf
                } ifelse
                pop pop
            } if
            pop pop
        } {
            pop pop
        } ifelse
    } forall
    pop
} def
 
/GetRes {   % string =>
    /GetPropertyString DefaultsService send {
        DefineResources
    } if
} def
 
(DisCo.) GetRes

--
% This article represents my personal views.
% Kari Systa, Tampere Univ. Technology, Box 553, 33101 Tampere, Finland
% work: +358 31 162585      fax: +358 31 162913      home: +358 31 177412
% Internet: ks@cs.tut.fi    X.400: C=fi ADMD=fumail O=TUT OU=CS S=ks
-- 

I'd like to thank Syst{ Kari for posting code to access X Defaults from
PostScript.

Can anyone at Sun tell me where
>    /GetPropertyString DefaultsService send
is documented?
There is no entry for Defaults in the NeWS 3.0 Programmer's Guide (apart
from `Default class', not at all the same thing).
It's also not in the TNT 3.0 Referance Manual, the Desktop Integration Guide
or the OW3 Progammer's Guide!

Lee

-- 
Liam Quin, lee@sq.com, SoftQuad, Toronto, 416 239-4801; the barefoot programmer
  lq-text (Unix text retrieval package) mailing list: lq-text-request@sq.com
  latest released version: 1.10; ftp: ftp.cs.toronto.edu in directory: pub
  If Adultery is for Adults, is Juvenal for Juveniles?