home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / desk.mnu < prev    next >
Text File  |  1997-08-08  |  681b  |  28 lines
  1. registerObject {
  2.     type    CustMenuPushButton
  3.     name    .utilities.menu.configuredelphiexamples
  4.     scope    {* * ObjectDesign}
  5.     objSpec {
  6.     label        "Configure Delphi Examples"
  7.     mnemonic    E
  8.     checkOn        selectionChange
  9.     enableScript    {
  10.  
  11.     set phaseV [[ClientContext::global] currentPhase]
  12.     if {"[$phaseV getInfo Status]" != "working"} {
  13.         %this sensitive 0
  14.         return
  15.     }
  16.     %this sensitive 1
  17.  
  18.     }
  19.         activated {
  20.         set options "-f config_examples.tcl"
  21.         set script "[quoteIf [m4_path_name bin otsh$EXE_EXT]] $options"
  22.         .main startCommand mtool \
  23.             "$script" "" "Starting 'Configure Delphi Examples'..." {1 0} 0
  24.  
  25.         }
  26.     }
  27. }
  28.