DataMuseum.dk

Presents historical artifacts from the history of:

Regnecentalen RC-900

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Regnecentalen RC-900

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦bd32568e3⟧ TextFile

    Length: 3777 (0xec1)
    Types: TextFile
    Notes: UNIX file
    Names: »hellom.uil«

Derivation

└─⟦a85bd4a7c⟧ Bits:30004636/disk2.imd INTERACTIVE Motif Environment Development System
└─⟦a85bd4a7c⟧ UNIX Filesystem
    └─⟦this⟧ »xt/new/usr/lib/X11/examples/hellomotif/hellom.uil« 

TextFile

!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;