home *** CD-ROM | disk | FTP | other *** search
/ DTP Toolbox / DTPToolbox.iso / utilities / graphics / imagedesk / rexx / deletepic.idesk < prev    next >
Encoding:
Text File  |  1996-01-20  |  735 b   |  45 lines
  1. /* ARexx-Skript for Image Desk   */
  2. /* Version 1.0 vom 10.01.96      */
  3. /* Wuensche und anregungen an :  */
  4. /* BerndW@trashcan.mcnet.de      */
  5.  
  6. /* Das Skript loescht das Bild im Catalog und das Bild   */
  7. /* selbst, ohne sicherheitsabfrage, AB VERSION 2.04      */
  8.  
  9. /* Funktioniert nur vom Browser mit Aktuellen Catalog !! */
  10.  
  11. OPTIONS RESULTS
  12. PARSE ARG iname itype ipos
  13.  
  14. GETSYSINFO CATNAME
  15. catalog = result
  16.  
  17. /* loeschen des eintrages im Catalog */
  18. ADDRESS COMMAND 
  19.  
  20. C:CATRemEntry '"'catalog'" "'ipos'"'
  21.  
  22. /* loeschen des Bildes */
  23. C:DELETE 'iname'
  24.  
  25. ADDRESS IDESK_REXXPORT
  26.  
  27. /* Catalog neu einladen */
  28. GETSPREFS CONFIRM 
  29.  
  30. if result="FALSE" then 
  31.  RELOADCAT
  32.  EXIT
  33. else
  34.  SETSPREFS CONFIRM 0
  35.  RELOADCAT
  36.  SETSPREFS CONFIRM 1
  37.  EXIT
  38. end
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.