home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / CDTools / MUIRexx / demos / MUIRexxBuild / change_object.rexx < prev    next >
OS/2 REXX Batch file  |  1997-04-28  |  398b  |  20 lines
  1. /* */
  2. options results
  3. parse arg obj
  4.  
  5. /* Attribute TAG ID definitions */
  6.  
  7. List_Active =                     0x8042391c /* V4  isg LONG              */
  8.  
  9. address BUILD
  10.  
  11. list ID DLST ATTRS List_Active
  12. dpos = result
  13. list ID DLST POS dpos
  14. line = delword(result,1,1)
  15. npos = wordindex(line,1)-1
  16. if npos > 0 then line = insert(obj' ',line,npos)
  17. else line = line||obj
  18. call 'build:ask_object' '['line']'
  19. exit
  20.