?- new(D, window('Prolog Window')), send(D, open).