home *** CD-ROM | disk | FTP | other *** search
/ Power GUI Programming with VisualAge C++ / powergui.iso / trialva / ibmcppw / macros / rename.lx < prev    next >
Encoding:
Text File  |  1996-02-22  |  357 b   |  12 lines
  1. /* This macros provides the user with a dialog to change */
  2. /* the name of the current file, the file is not saved and */
  3. /* the syntax of the rename is not checked */
  4. 'set lineread.title Rename File'
  5. 'set lineread.prompt Enter new name:'
  6. 'lineread 255'
  7. 'extract lastkey'
  8. if lastkey = "ENTER" then do 
  9. 'extract lastline'
  10. 'set name' lastline
  11. end
  12.