|
DataMuseum.dkPresents historical artifacts from the history of: Regnecentalen RC-900 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Regnecentalen RC-900 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 3777 (0xec1) Types: TextFile Notes: UNIX file Names: »hellom.uil«
└─⟦a85bd4a7c⟧ Bits:30004636/disk2.imd INTERACTIVE Motif Environment Development System └─⟦a85bd4a7c⟧ UNIX Filesystem └─⟦this⟧ »xt/new/usr/lib/X11/examples/hellomotif/hellom.uil«
!OSF/Motif: @(#)hellom.uil 1.1 - 89/08/30 - 11:46:59 !****************************************************************************** !******************************************************************************* !* !* (c) Copyright 1989, OPEN SOFTWARE FOUNDATION, INC. !* (c) Copyright 1989, DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. !* ALL RIGHTS RESERVED !* !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT !* NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY OPEN SOFTWARE !* FOUNDATION, INC. OR ITS THIRD PARTY SUPPLIERS !* !* OPEN SOFTWARE FOUNDATION, INC. AND ITS THIRD PARTY SUPPLIERS, !* ASSUME NO RESPONSIBILITY FOR THE USE OR INABILITY TO USE ANY OF ITS !* SOFTWARE . OSF SOFTWARE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY !* KIND, AND OSF EXPRESSLY DISCLAIMS ALL IMPLIED WARRANTIES, INCLUDING !* BUT NOT LIMITED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND !* FITNESS FOR A PARTICULAR PURPOSE. !* !* Notice: Notwithstanding any other lease or license that may pertain to, !* or accompany the delivery of, this computer software, the rights of the !* Government regarding its use, reproduction and disclosure are as set !* forth in Section 52.227-19 of the FARS Computer Software-Restricted !* Rights clause. !* !* (c) Copyright 1989, Open Software Foundation, Inc. Unpublished - all !* rights reserved under the Copyright laws of the United States. !* !* RESTRICTED RIGHTS NOTICE: Use, duplication, or disclosure by the !* Government is subject to the restrictions as set forth in subparagraph !* (c)(1)(ii) of the Rights in Technical Data and Computer Software clause !* at DFARS 52.227-7013. !* !* Open Software Foundation, Inc. !* 11 Cambridge Center !* Cambridge, MA 02142 !* (617)621-8700 !* !* RESTRICTED RIGHTS LEGEND: This computer software is submitted with !* "restricted rights." Use, duplication or disclosure is subject to the !* restrictions as set forth in NASA FAR SUP 18-52.227-79 (April 1985) !* "Commercial Computer Software- Restricted Rights (April 1985)." Open !* Software Foundation, Inc., 11 Cambridge Center, Cambridge, MA 02142. If !* the contract contains the Clause at 18-52.227-74 "Rights in Data General" !* then the "Alternate III" clause applies. !* !* (c) Copyright 1989, Open Software Foundation, Inc. !* ALL RIGHTS RESERVED !* !* !* Open Software Foundation is a trademark of The Open Software Foundation, Inc. !* OSF is a trademark of Open Software Foundation, Inc. !* OSF/Motif is a trademark of Open Software Foundation, Inc. !* Motif is a trademark of Open Software Foundation, Inc. !* DEC is a registered trademark of Digital Equipment Corporation !* DIGITAL is a registered trademark of Digital Equipment Corporation !* X Window System is a trademark of the Massachusetts Institute of Technology !* !******************************************************************************* !******************************************************************************* module helloworld version = 'v1.0' names = case_sensitive procedure helloworld_button_activate(); object helloworld_main : XmBulletinBoard { controls { XmLabel helloworld_label; XmPushButton helloworld_button; }; }; object helloworld_button : XmPushButton { arguments { XmNx = 15; XmNy = 60; XmNlabelString = compound_string('Hello',separate=true) & 'World!'; }; callbacks { XmNactivateCallback = procedure helloworld_button_activate(); }; }; object helloworld_label : XmLabel { arguments { XmNlabelString = compound_string('Press button once',separate=true) & compound_string('to change label;',separate=true) & 'twice to exit.'; }; }; end module;