home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / SetAttributesDir / Pearls / dev / Oberon / Oberon-A / Examples / Libraries / SetAttributes
Text File  |  1995-10-13  |  878b  |  28 lines
  1. .k ScriptDir/A
  2. SetProtection "GadTools.info" RWD
  3. CD "GadTools"
  4. Assign ScriptDir<$$>.7: "<ScriptDir>"
  5. Execute "ScriptDir<$$>.7:GadTools/SetAttributes" "ScriptDir<$$>.7:GadTools"
  6. CD /
  7. SetProtection "Graphics.info" RWD
  8. CD "Graphics"
  9. Assign ScriptDir<$$>.7: "<ScriptDir>"
  10. Execute "ScriptDir<$$>.7:Graphics/SetAttributes" "ScriptDir<$$>.7:Graphics"
  11. CD /
  12. SetProtection "Intuition.info" RWD
  13. CD "Intuition"
  14. Assign ScriptDir<$$>.7: "<ScriptDir>"
  15. Execute "ScriptDir<$$>.7:Intuition/SetAttributes" "ScriptDir<$$>.7:Intuition"
  16. CD /
  17. SetProtection "Utility.info" RWD
  18. CD "Utility"
  19. Assign ScriptDir<$$>.7: "<ScriptDir>"
  20. Execute "ScriptDir<$$>.7:Utility/SetAttributes" "ScriptDir<$$>.7:Utility"
  21. CD /
  22. SetProtection "Workbench.info" RWD
  23. CD "Workbench"
  24. Assign ScriptDir<$$>.7: "<ScriptDir>"
  25. Execute "ScriptDir<$$>.7:Workbench/SetAttributes" "ScriptDir<$$>.7:Workbench"
  26. CD /
  27. Assign ScriptDir<$$>.7:
  28.