home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / EDG-MF1.DMS / in.adf / KeyChange < prev    next >
Encoding:
Text File  |  1995-07-16  |  1.9 KB  |  78 lines
  1. /*Assign KeyMaster to F-Key 1
  2. by Lyle Milton
  3. © 1995 OAO Media Inc.*/
  4.  
  5. parse arg textPATH lwmPATH .
  6.  
  7. lwmPATH = lwmPATH||"/"
  8. call CHANGE_FILE()
  9.  
  10. libadd = addlib("LWModelerARexx.port",0)
  11. call addlib "rexxsupport.library", 0, -30, 0
  12. libadd = "LWModelerARexx.port"
  13. IF POS(libadd , SHOW('L')) = 0 THEN
  14.   IF ~addlib("LWModelerARexx.port",0) THEN BREAK
  15.   ELSE call CHANGE_KEY()
  16. ELSE call CHANGE_KEY()
  17.  
  18. if index(upper(lwmPath),Arexx_Examples) = 0 then call CHANGE_SETS()
  19.  
  20. exit
  21.  
  22. /*||||||||||||||||||END OF PROGRAM|||||||||||||||||||||||||*/
  23.  
  24. /*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
  25. CHANGE_FILE:
  26.  
  27. call open(md,textPATH,"r")
  28.     i=0
  29.     do while ~EOF(md)
  30.         i = i + 1
  31.         line.i = ReadLn(md)
  32.     end
  33. call close(md)
  34.  
  35. address command,
  36. "copy "||textPATH||" to "||textPATH||"-B4MacroForm"
  37.  
  38. call open(kc,textPATH,"w")
  39.     do n = 1 to i
  40.         if index(upper(line.n),KeyMacroF1) ~= 0 & index(upper(line.n),KeyMacroF10) = 0 then
  41.             call WriteLn(kc,"KeyMacroF1 "||lwmPATH||"OAO--KeyMaster.lwm")
  42.         else call Writeln(kc,line.n)
  43.     end
  44. call close(kc)
  45.  
  46. return
  47.  
  48. /*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
  49. CHANGE_KEY:
  50.  
  51. call RXFUN_SET(1,lwmPATH||"OAO--KeyMaster.lwm")
  52. call notify(1,!"KeyMaster has successfully been assigned to F-Key 1.",
  53.             ,@"Return to Workbench to complete the installation.")
  54.  
  55. return
  56.  
  57. /*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
  58. CHANGE_SETS:
  59.  
  60. call open(cset,"Toaster:MacroForm/FKey_Sets/MacroForm","w")
  61.  
  62. call writeln(cset,lwmPATH||"OAO--KeyMaster.lwm")
  63. call writeln(cset,lwmPATH||"OAO--Align_&_Center.lwm")
  64. call writeln(cset,lwmPATH||"OAO--Dimensions.lwm")
  65. call writeln(cset,lwmPATH||"OAO--Distance_&_Angles.lwm")
  66. call writeln(cset,lwmPATH||"OAO--Slice_&_Dice.lwm")
  67. call writeln(cset,lwmPATH||"OAO--NewBox.lwm")
  68. call writeln(cset,lwmPATH||"OAO--RailToolz.lwm")
  69. call writeln(cset,lwmPATH||"OAO--Apply.lwm")
  70. call writeln(cset,lwmPATH||"OAO--Reset.lwm")
  71. call writeln(cset,"(none)")
  72.  
  73. all open(close)
  74.  
  75. return
  76.  
  77.  
  78.