home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / BC_502 / SCRPTEXM.PAK / POPUP.SPP < prev    next >
Encoding:
Text File  |  1997-05-06  |  838 b   |  31 lines
  1. //--------------------------------------------------------------------------
  2. // Object Scripting
  3. // Copyright (c) 1996, 1997 by Borland International, All Rights Reserved
  4. //
  5. // POPUP.SPP: Popup Window. Demonstrates a simple popup window.
  6. //--------------------------------------------------------------------------
  7. print typeid(module());
  8.  
  9. import IDE;
  10.  
  11. popup()
  12. {
  13.   declare choices = {"Sleeping late", "A lot of wine", "Greasy fries",
  14.                      "Jealousy"};
  15.  
  16.   declare popup = new PopupMenu(100, 100, choices);
  17.  
  18.   popup.Append("Vitamins");
  19.   popup.Append("Exercise");
  20.   popup.Append("Adopt a stray");
  21.   popup.Append("Give blood");
  22.    
  23.   IDE.Message("Chose: " + popup.Track());
  24.  
  25.   popup.Remove(0);
  26.   popup.Remove(0);
  27.   popup.Remove(0);
  28.   popup.Remove(0);
  29.  
  30.   IDE.Message("Chose: " + popup.Track());
  31. }