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   
Text File  |  1992-07-08  |  850b  |  42 lines
  1. !
  2. ! Copyright 1989, 1992 O'Reilly and Associates, Inc.
  3. ! See ../Copyright for complete rights and liability information.
  4. !
  5.  
  6.  
  7. module helloworld
  8.     version = 'v1.0'
  9.     names = case_sensitive
  10.  
  11. procedure
  12.     button_selected();
  13.  
  14. object
  15.     helloworld_main : XmRowColumn {
  16.     controls {
  17.         XmLabel our_label;
  18.         XmPushButton    our_button;
  19.     };
  20.     };
  21.  
  22. object
  23.     our_button : XmPushButton {
  24.     arguments {
  25.         XmNlabelString = compound_string('Hello',separate=true) & 'World!';
  26.     };
  27.     callbacks {
  28.         XmNactivateCallback = procedure button_selected();
  29.     };
  30.     };
  31.  
  32. object
  33.     our_label : XmLabel {
  34.     arguments {
  35.         XmNlabelString = compound_string('Press button once',separate=true) &
  36.                   compound_string('to change label;',separate=true) &
  37.                   'twice to exit.';
  38.     };
  39.     };
  40.  
  41. end module;
  42.