Path: utzoo!utgpu!news-server.csri.toronto.edu!bonnie.concordia.ca!uunet!samsung!think.com!mintaka!bloom-beacon!eru!hagbard!sunic!news.funet.fi!tut!ks From: ks@tut.fi (Syst{ Kari) Newsgroups: comp.windows.open-look Subject: Re: OpenLookButtonStack Message-ID: Date: 14 Jan 91 16:28:15 GMT References: <1991Jan14.123757.22925@hod.uit.no> Sender: news@funet.fi (#News ) Organization: Tampere Univ. of Technology, Finland. Lines: 29 In-Reply-To: vidarh@stud.cs.uit.no's message of 14 Jan 91 12:37:57 GMT In article <1991Jan14.123757.22925@hod.uit.no> vidarh@stud.cs.uit.no (Vidar Hanssen) writes: > Has anyone got a (working) demo of a window with a buttons? I would be > very thankful if someone could send me an example to help me understand > how things work! This is a very simple example: /menu { (Example) [ (first) null { (1. taken) = } (second) null { (1. taken) = } ] { (default taken) = } } def /win [AbsoluteBag] [] framebuffer /new OpenLookBaseFrame send def 100 400 400 400 /reshape win send /m [100 100 menu OpenLookButtonStack ] /addclient /client win send send /activate win send /map win send -- % This article represents my personal views. % NeWS flash: "X is the Fortran of windowing systems." % Kari Systa, Tampere Univ. Technology, Box 527, 33101 Tampere, Finland % work: +358 31 162585 fax: +358 31 162913 home: +358 31 177412