[Date Prev] [Date Next] [Thread Prev] [Thread Next] Date Index Thread Index Search archive:
Date:Mon Jun 25 10:44:52 1993 
Subject:setting XptDefaultDisplay (was Re: setting X resources from) 
From:Ian Rogers 
Volume-ID:930625.06 

A.Sloman@uk.ac.bham.cs ("A.Sloman") writes:
> A minor problem with your solution seems to be that you can't actually
> invoke it before you have created a new window of some kind, though
> it apparently suffices to do
>    propsheet_destroy(propsheet_new_box('',false,false,[]));
> so this could go into the library
> -----------------------------------------------------------------------
>  lvars xfirsttime = true;
>
>  define lconstant procedure xsetup;
>      if xfirsttime then
>          ;;; Need a window to have been created
>          propsheet_destroy(propsheet_new_box('',false,false,[]));
>          false -> xfirsttime;
>      endif;
>  enddefine;
>
>  define global XrmGetStringDatabase(s) -> db;
>  lvars   s, db;
>      xsetup();


It should be sufficient to do:

define lconstant xsetup;
    unless XptDefaultDisplay then
        XptDefaultSetup();
    endunless;
enddefine;


Ian.