home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / listings / v_02_09 / 2n09070a < prev    next >
Text File  |  1991-07-26  |  354b  |  20 lines
  1. // SAMPLE45.L - DDE Server for Excel Hotlinks.
  2.  
  3. main
  4. {
  5.     services ["test"] = sv = new service;
  6.     sv ["date"] = "N/A!";
  7.     window ();
  8.     w.menu = new menu << new menuitem ("&Excel!");
  9. }
  10.  
  11. excel {spawn ("Excel");}
  12.  
  13. paint {w << "Click to update date...\nDate: " << sv ["date"];}
  14.  
  15. click
  16. {
  17.     sv ["date"] = ctime ();
  18.     w.refresh;
  19. }
  20.