home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-385-Vol-1of3.iso
/
m
/
motifpg2.zip
/
ch05
/
xuildemo.uil
< prev
Wrap
Text File
|
1992-07-08
|
850b
|
42 lines
!
! Copyright 1989, 1992 O'Reilly and Associates, Inc.
! See ../Copyright for complete rights and liability information.
!
module helloworld
version = 'v1.0'
names = case_sensitive
procedure
button_selected();
object
helloworld_main : XmRowColumn {
controls {
XmLabel our_label;
XmPushButton our_button;
};
};
object
our_button : XmPushButton {
arguments {
XmNlabelString = compound_string('Hello',separate=true) & 'World!';
};
callbacks {
XmNactivateCallback = procedure button_selected();
};
};
object
our_label : XmLabel {
arguments {
XmNlabelString = compound_string('Press button once',separate=true) &
compound_string('to change label;',separate=true) &
'twice to exit.';
};
};
end module;