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.
|