home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78b98.iso / Smart30 / ENGLISH / PRODUCTS / LOTUS018.DSK / AMIMENUS.SMM < prev    next >
INI File  |  1992-06-18  |  59KB  |  3,699 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _macro.sty
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     PostScript Printer
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     Customize Ami Pro menus
  19.     Lotus Word Processing Division
  20.     Advanced
  21.     Define, AddMenu
  22.     NoAutorun
  23.     708926518
  24.     69
  25.     668987187
  26.     976
  27.     26
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     0
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [ParaNum]
  54.     1
  55. [l1]
  56.     0
  57. [edoc]
  58. <:#284,9360>' CustMenu - Allow the user to add and delete menu item.sdeclare InitCombo(p1);
  59.  
  60. <:#284,9360>
  61.  
  62. <:#284,9360>' Now some handy defines for window messages. 
  63.  
  64. <:#284,9360>define    MF_BYPOSITION    0x400
  65.  
  66. <:#284,9360>define    CB_SETCURSEL    0x40E
  67.  
  68. <:#284,9360>define    CB_GETCURSEL    0x407
  69.  
  70. <:#284,9360>
  71.  
  72. <:#284,9360>' Define Macros to actually make the Windows calls.
  73.  
  74. <:#284,9360>
  75.  
  76. <:#284,9360>define GetActiveWindow()
  77.  
  78. <:#284,9360>    DllCall("user,GetActiveWindow,H")
  79.  
  80. <:#284,9360>define    GetMenu(hWnd)
  81.  
  82. <:#284,9360>    DllCall("user,GetMenu,HH", %1)
  83.  
  84. <:#284,9360>define    GetMenuString(hMenu, offset, namep, max, flag)
  85.  
  86. <:#284,9360>    DllCall("user,GetMenuString,HHHFHH", %1, %2, %3, %4, %5)
  87.  
  88. <:#284,9360>define    GetMenuItemCount(hMenu)
  89.  
  90. <:#284,9360>    DllCall("user,GetMenuItemCount,HH", %1)
  91.  
  92. <:#284,9360>define    GetParent(hWnd)
  93.  
  94. <:#284,9360>    DllCall("user,GetParent,HH", %1)
  95.  
  96. <:#284,9360>define    GetSubMenu(hMenu, pos)
  97.  
  98. <:#284,9360>    DllCall("user,GetSubMenu,HHH", %1, %2)
  99.  
  100. <:#284,9360>Define    Dllname    "User"
  101.  
  102. <:#284,9360>' Now functions we call
  103.  
  104. <:#284,9360>declare ComboCallBack(p1, p2, p3);
  105.  
  106. <:#284,9360>declare LocateHmenu(p1);
  107.  
  108. <:#284,9360>Declare FindMenu(p1, p2)
  109.  
  110. <:#284,9360>declare LoadTheBox(p1, p2)
  111.  
  112. <:#284,9360>declare FindAutoExec();
  113.  
  114. <:#284,9360>declare AddAccelStuff(p1, p2);
  115.  
  116. <:#284,9360>declare ShowAccel(p1);
  117.  
  118. <:#284,9360>declare DetermineAccel();
  119.  
  120. <:#284,9360><:>declare AddAccelerator<:>(amifuncnt, amifuns, menuids)
  121.  
  122. <:#284,9360>declare    LoadMenus(p1)
  123.  
  124. <:#284,9360>declare LoadAmiFuns(p1, p2)
  125.  
  126. <:#284,9360>declare GetAmiPro(p1, p2)
  127.  
  128. <:#284,9360>declare GetMacro()
  129.  
  130. <:#284,9360><:><:>declare AddToAutoexec(p1, p2, p3, p4, p5, p6, p7)
  131.  
  132. <:#284,9360>declare    AddItem(p1, p2, p3, p4, p5, p6)
  133.  
  134. <:#284,9360>declare DelMenu(p1)
  135.  
  136. <:#284,9360>
  137.  
  138. <:p<* >>
  139.  
  140. @Function@<:#293,9360><:ZCustMenu>FUNCTION CustMenu<:Z~CustMenu>()
  141.  
  142. <:#284,9360>'singlestep(0)
  143.  
  144. <:#284,9360>IF IsNewWave()
  145.  
  146. <:#284,9360>    Message("Macro not available while running under HP NewWave.")
  147.  
  148. <:#284,9360>    Exit Function
  149.  
  150. <:#284,9360>ENDIF
  151.  
  152. <:#284,9360>dim    menus(20)            ' Where to store the standard menu names
  153.  
  154. <:#284,9360>dim    amifuns(200)            ' Where to store ami function names
  155.  
  156. <:#284,9360>dim    menuids(200)            ' and there corresponding menuids
  157.  
  158. <:#284,9360><:><:>menucnt = LoadMenus(&menus)    ' Get the menu names
  159.  
  160. <:#284,9360>amifuncnt  = LoadAmiFuns(&amifuns, &menuids)    ' And the amipro functions
  161.  
  162. <:#284,9360>StatusBarMsg("")
  163.  
  164. <:#284,9360>defstr    stat;
  165.  
  166. <:#284,9360>FillEdit(8000, &menus)        ' Load the list box with the menus for them to choose
  167.  
  168. <:#568,9360>While (1 << Assign(&stat, DialogBox("." "PickMenu")))     'Loop here until OK or Cancel
  169.  
  170. <:#284,9360>    menuname = GetDialogField$(9000)
  171.  
  172. <:#568,9360>    if ("" != menuname)                    'Make sure they picked something
  173.  
  174. <:#284,9360>        ' Now determine which button caused the box to close.
  175.  
  176. <:#284,9360>        switch stat
  177.  
  178. <:#284,9360>            case 5
  179.  
  180. <:#284,9360><:><:><:><:>            hourglass(1)
  181.  
  182. <:#568,9360>            AddItem(menuname, amifuncnt, &amifuns, &menuids, menucnt, &menus)
  183.  
  184. <:#284,9360><:><:><:><:>            hourglass(0)
  185.  
  186. <:#284,9360>            break
  187.  
  188. <:#284,9360>            case 6
  189.  
  190. <:#284,9360><:><:><:><:>            hourglass(1)
  191.  
  192. <:#284,9360>            DelMenu(menuname)
  193.  
  194. <:#284,9360><:><:><:><:>            hourglass(0)
  195.  
  196. <:#284,9360>            break;
  197.  
  198. <:#284,9360>            case 7
  199.  
  200. <:#284,9360><:><:><:><:>            hourglass(1)
  201.  
  202. <:#284,9360>            AddAccelerator(amifuncnt, &amifuns, &menuids)
  203.  
  204. <:#284,9360><:><:><:><:>            hourglass(0)
  205.  
  206. <:#284,9360>            break;
  207.  
  208. <:#284,9360>        endswitch
  209.  
  210. <:#284,9360>    endif
  211.  
  212. <:#284,9360><:><:><:><:>    FillEdit(8000, &menus)        ' Reload the box for next goround
  213.  
  214. <:#284,9360><:><:><:><:>wend
  215.  
  216. END FUNCTION<:p<* >>
  217.  
  218. ' AddItem - This macro will add either an AmiPro function or macro to any of the standard
  219.  
  220. '    menus.    Because we can not pass anything to our callback routines we will keep
  221.  
  222. '    the information in global variables.
  223.  
  224. define    POSVAR    "Cust1"        ' Currently selected position
  225.  
  226. define    GHMENU    "Cust2"        ' Handle the menu in question.
  227.  
  228.  
  229. @Function@<:ZAddItem>FUNCTION AddItem<:Z~AddItem>(menuname, amifuncnt, amifuns, menuids, menucnt, menus)
  230.  
  231. menuid = 0                ' initialize all our variables
  232.  
  233. macroname = ""
  234.  
  235. itemname = ""
  236.  
  237. action = ""
  238.  
  239. Helptext = ""
  240.  
  241. temp = ""
  242.  
  243. itemnum = 0
  244.  
  245. pos = 0
  246.  
  247. accel = 0
  248.  
  249. hmenu = 0;
  250.  
  251. AllocGlobalVar(POSVAR, 1)
  252.  
  253. AllocGlobalVar(GHMENU, 1)
  254.  
  255. SetGlobalVar(POSVAR, 0)            ' Position 0 indicates none selected (add to end)
  256.  
  257. SetGlobalVar(GHMENU, LocateHmenu(menuname));    ' get hMenu and save
  258.  
  259. stat = 2                    ' Set stat so we execute dlgbox at least once
  260.  
  261. while (stat != 0 and stat != 1)        ' Do this till they cancel or ok it.
  262.  
  263.     FillEdit(1003, menuname)    ' Show em what we know so far.
  264.  
  265.     FillEdit(1005, action)
  266.  
  267.     FillEdit(8000, itemname)
  268.  
  269.     FillEdit(8001, helptext)
  270.  
  271.     FillEdit(8002, pos)
  272.  
  273.     ShowAccel(accel)
  274.  
  275.     ' For the "Insert Before Item" we really want to know what position on the menu to 
  276.  
  277.     ' insert the new item.  We use a call back to simply determine which item was 
  278.  
  279.     ' selected.  We dont sort the box so the CB_GETCURSEL will return the position
  280.  
  281.     ' we are intereted in.  Also we will use the special callback id == 0 to load this box.
  282.  
  283.     SetDlgCallBack(0, strcat$(GetRunningMacroFile$(), "!InitCombo"))
  284.  
  285. <:><:>    SetDlgCallBack(9500, strcat$(GetRunningMacroFile$(),"!ComboCallback"))
  286.  
  287.     if (0 != Assign(&stat, DialogBox(".", "additem")))
  288.  
  289.         itemname = GetDialogField$(8000)    ' extract the item
  290.  
  291.         helptext = GetDialogField$(8001)    ' and help text
  292.  
  293.         pos = GetGlobalVar$(POSVAR)    ' get position from the global var
  294.  
  295.         accel = DetermineAccel()
  296.  
  297. <:#284,9360>    endif
  298.  
  299. <:#284,9360>    ' Now determine which button they pushed.
  300.  
  301. <:#284,9360>    switch stat
  302.  
  303. <:#284,9360>        case 4                    ' Select macro
  304.  
  305. <:#284,9360>            if ("" != Assign(&temp, GetMacro()))        ' Pick a macro
  306.  
  307. <:#284,9360>                macroname = temp    ' yes update it
  308.  
  309. <:#284,9360>                action = macroname
  310.  
  311. <:#284,9360>                menuid = 0        ' And zero the menuid
  312.  
  313. <:#284,9360>            endif
  314.  
  315. <:#284,9360>        case 3                    ' AmiPro Function
  316.  
  317. <:#284,9360>            if (0 != Assign(&itemnum, GetAmiPro(&amifuns, amifuncnt)))
  318.  
  319. <:#284,9360>                macro = ""
  320.  
  321. <:#284,9360>                menuid = *menuids(itemnum)
  322.  
  323. <:#284,9360>                action = *amifuns(itemnum)
  324.  
  325. <:#284,9360>            endif
  326.  
  327. <:#284,9360>    endswitch
  328.  
  329. <:#284,9360>wend
  330.  
  331. <:#284,9360>FreeGlobalVar(POSVAR);
  332.  
  333. <:#284,9360>FreeGlobalVar(GHMENU);
  334.  
  335. <:#568,9360>' If they have entered all information, make it take effect, then see if they want to make
  336.  
  337. <:#284,9360>' it permanent.
  338.  
  339. <:#284,9360>'
  340.  
  341. <:#284,9360>if ((stat) and (menuname != "") and ((menuid != 0) or (macroname != "")))
  342.  
  343. <:#284,9360>    if (accel)        ' if they made this an accelerator, add it to the itemname
  344.  
  345. <:#284,9360>        itemname = AddAccelStuff(itemname, accel)
  346.  
  347. <:#284,9360>    endif
  348.  
  349. <:#284,9360>    if (menuid != 0)        ' AmiPro Functoin?
  350.  
  351. <:#284,9360>        if (0 = pos)
  352.  
  353. <:#284,9360>            AddMenuItem(1, menuname, itemname, menuid)
  354.  
  355. <:#284,9360>        else
  356.  
  357. <:#284,9360>            InsertMenuItem(1, menuname, pos - 1, itemname, menuid)
  358.  
  359. <:#284,9360>        endif
  360.  
  361. <:#284,9360>        if (accel)
  362.  
  363. <:#284,9360>            if getopenfilecount() << 1
  364.  
  365. <:#284,9360>                sty = GetProfileString$("AmiPro", "defstyle", "amipro.ini")
  366.  
  367. <:#284,9360>                if sty = ""
  368.  
  369. <:#284,9360>                    sty = "_default.sty"
  370.  
  371. <:#284,9360>                endif
  372.  
  373. <:#284,9360>                new(sty, 0, 0)
  374.  
  375. <:#284,9360>            endif
  376.  
  377. <:#284,9360>            Onkey(accel, menuid, "")
  378.  
  379. <:#284,9360>        endif
  380.  
  381. <:#284,9360>    else
  382.  
  383. <:#284,9360>        if (0 = pos)
  384.  
  385. <:#284,9360>            AddMenuItem(1, menuname, itemname, macroname, helptext)
  386.  
  387. <:#284,9360>        else
  388.  
  389. <:#568,9360>            InsertMenuItem(1, menuname, pos - 1, itemname, macroname, helptext)
  390.  
  391. <:#284,9360>        endif
  392.  
  393. <:#284,9360>        if (accel)
  394.  
  395. <:#284,9360>            if getopenfilecount() << 1
  396.  
  397. <:#284,9360>                sty = GetProfileString$("AmiPro", "defstyle", "amipro.ini")
  398.  
  399. <:#284,9360>                if sty = ""
  400.  
  401. <:#284,9360>                    sty = "_default.sty"
  402.  
  403. <:#284,9360>                endif
  404.  
  405. <:#284,9360>                new(sty, 0, 0)
  406.  
  407. <:#284,9360>            endif
  408.  
  409. <:#284,9360>            OnKey(accel, 0, macroname)
  410.  
  411. <:#284,9360>        endif
  412.  
  413. <:#284,9360>    endif
  414.  
  415. <:#284,9360>    if (Decide("Keep settings for next session?"))
  416.  
  417. <:#568,9360><:><:><:><:>        AddToAutoexec(menuname, itemname, menuid, macroname, helptext, pos, accel)
  418.  
  419. <:#284,9360>    endif
  420.  
  421. <:#284,9360>elseif (1 = stat)        ' did they say ok but not specify enough stuff
  422.  
  423. <:#284,9360>    Message("Not all necessary information found")
  424.  
  425. <:#284,9360>endif
  426.  
  427. END FUNCTION<:p<* >>
  428.  
  429. ' ComboCallBack - This gets called when the user has selected an item from the combo box.
  430.  
  431. '    we simply ask the combo box which one got selected, then we save that offset into 
  432.  
  433. '    our global array.
  434.  
  435. @Function@<:ZComboCallBack>FUNCTION ComboCallBack(hDlg, id, text)<:Z~ComboCallBack>
  436.  
  437. hCtrl = GetDlgItem(hDlg, id)                ' Need HWND of the combo box
  438.  
  439. off= AppSendMessage(hCtrl, CB_GETCURSEL, 0, 0)    ' Ask him
  440.  
  441. SetGlobalVar(POSVAR, off)                    ' Save it
  442.  
  443. END FUNCTION
  444.  
  445. '
  446.  
  447. ' InitCombo - this is called before the dialog box is pulled up (SetDlgCallBack(0, InitCombo))
  448.  
  449. '    We get the menu handle from the global variale, then using windows calls, load the 
  450.  
  451. '    combo box with items from that menu.
  452.  
  453. @Function@<:ZInitCombo>FUNCTION InitCombo(hDlg)<:Z~InitCombo>
  454.  
  455. <:><:>defstr    menuname;
  456.  
  457. hMenu = GetGlobalVar$(GHMENU)        ' Retrieve the handle to menu
  458.  
  459. SetDlgItemtext(hDlg, 9500, "")        ' Set a blank one at top
  460.  
  461. menucnt = GetMenuItemCount(hMenu)    ' Determin how many are on the menu
  462.  
  463. for i = 0 to menucnt - 1
  464.  
  465.     GetMenuString(hMenu, i, &menuname, 80, MF_BYPOSITION)
  466.  
  467.     if (0 << len(menuname))
  468.  
  469.         SetDlgItemText(hDlg, 9500,  menuname)
  470.  
  471.     else
  472.  
  473.         SetDlgItemText(hDlg, 9500, "------------------------------------")
  474.  
  475.     endif
  476.  
  477. next
  478.  
  479. ' finally select one by position.
  480.  
  481. AppSendMessage(GetDlgItem(hDlg, 9500), CB_SETCURSEL, GetGlobalVar$(POSVAR), 0)
  482.  
  483. END FUNCTION<:p<* >>
  484.  
  485. <:#284,9360>
  486.  
  487. <:#284,9360>' AddAccelerator - Get either an amipro function or macro, and a key then make it an 
  488.  
  489. <:#284,9360>'    accelerator.
  490.  
  491. <:#284,9360>' 
  492.  
  493. @Function@<:#293,9360><:>FUNCTION <:ZAddAccelerator>AddAccelerator<:Z~AddAccelerator><:>(amifuncnt, amifuns, menuids)
  494.  
  495. <:#284,9360>menuid = 0
  496.  
  497. <:#284,9360>macroname = ""
  498.  
  499. <:#284,9360>action = ""
  500.  
  501. <:#284,9360>itemnum = 0
  502.  
  503. <:#284,9360>accel = 0
  504.  
  505. <:#284,9360>temp = ""
  506.  
  507. <:#284,9360>stat = 2
  508.  
  509. <:#284,9360>while (stat != 0 and stat != 1)        ' Do this till they cancel or ok it.
  510.  
  511. <:#284,9360>    FillEdit(1005, action)
  512.  
  513. <:#284,9360><:><:>    ShowAccel(accel)
  514.  
  515. <:#284,9360>    if (0 != Assign(&stat, DialogBox(".", "addaccel")))
  516.  
  517. <:#284,9360><:><:>        accel = DetermineAccel()
  518.  
  519. <:#284,9360>    endif
  520.  
  521. <:#284,9360>    switch stat
  522.  
  523. <:#284,9360>        case 4                    ' They push the select macro
  524.  
  525. <:#284,9360>            if ("" != Assign(&temp, GetMacro()))        ' Pick a macro
  526.  
  527. <:#284,9360>                macroname = temp    ' yes update it
  528.  
  529. <:#284,9360>                action = macroname
  530.  
  531. <:#284,9360>                menuid = 0        ' And zero the menuid
  532.  
  533. <:#284,9360>            endif
  534.  
  535. <:#284,9360>        case 3                    ' AmiPro Function
  536.  
  537. <:#284,9360>            if (0 != Assign(&itemnum, GetAmiPro(&amifuns, amifuncnt)))
  538.  
  539. <:#284,9360>                macro = ""
  540.  
  541. <:#284,9360>                menuid = *menuids(itemnum)
  542.  
  543. <:#284,9360>                action = *amifuns(itemnum)
  544.  
  545. <:#284,9360>            endif
  546.  
  547. <:#284,9360>    endswitch
  548.  
  549. <:#284,9360>wend
  550.  
  551. <:#284,9360>
  552.  
  553. <:#284,9360>if ((stat) and (accel != 0) and ((menuid != 0) or (macroname != "")))
  554.  
  555. <:#284,9360>    if getopenfilecount() << 1
  556.  
  557. <:#284,9360>        sty = GetProfileString$("AmiPro", "defstyle", "amipro.ini")
  558.  
  559. <:#284,9360>        if sty = ""
  560.  
  561. <:#284,9360>            sty = "_default.sty"
  562.  
  563. <:#284,9360>        endif
  564.  
  565. <:#284,9360>        new(sty, 0, 0)
  566.  
  567. <:#284,9360>    endif
  568.  
  569. <:#284,9360>    if (menuid != 0)
  570.  
  571. <:#284,9360>        Onkey(accel, menuid, "")
  572.  
  573. <:#284,9360>    else
  574.  
  575. <:#284,9360>        OnKey(accel, 0, macroname)
  576.  
  577. <:#284,9360>    endif
  578.  
  579. <:#284,9360>    if (Decide("Make this permanent?"))
  580.  
  581. <:#284,9360><:><:><:><:><:><:>        AddToAutoexec(0, 0, menuid, macroname, 0, 0, accel)
  582.  
  583. <:#284,9360>    endif
  584.  
  585. <:#284,9360>elseif (1 = stat)        ' did they say ok but not specify enough stuff
  586.  
  587.     Message("Not all necessary information found")
  588.  
  589. endif
  590.  
  591. END FUNCTION
  592.  
  593.  
  594. ' DetermineAccel - turn the letter and the shift state check boxes into a number.
  595.  
  596.  
  597. @Function@<:ZDetermineAccel>FUNCTION DetermineAccel()<:Z~DetermineAccel>
  598.  
  599. defstr    fkey;
  600.  
  601. accel = 0                    ' Assume they did not hit any thing
  602.  
  603. key = GetDialogField$(8003)            ' Get the letter
  604.  
  605. if ("" != key)                    ' they type something?
  606.  
  607.     if (1 = len(key))            ' Single letter?
  608.  
  609.                             ' The UCase is necessary because what
  610.  
  611.                             ' we really want is the virtual key.
  612.  
  613.         accel = asc(UCase$(Left$(key, 1)));    ' Yes, turn it into a virtual key
  614.  
  615.     else
  616.  
  617.         ' We only accept function keys here, they must be of the form "Fx" where the
  618.  
  619.         ' x is 1 - 12.  So first make sure that the first letter is a F.
  620.  
  621.         ' Then make sure the rest of it is numeric.  While we have it use assign to 
  622.  
  623.         ' set fkey to that value.
  624.  
  625.         if ("F" = UCase$(Left$(key, 1)))
  626.  
  627.         AND IsNumeric(Assign(&fkey, Right$(key, Len(key) - 1)))
  628.  
  629.             ' Set accel to the virtual key F0.  NOTE the BracketsToBin is 
  630.  
  631.             ' necessary because asc returns the value of the first character of its
  632.  
  633.             ' input.  Since there is no F0, assign it to F1 then subtract 1.
  634.  
  635.             accel = asc(BracketsToBin("<[>F1]")) - 1
  636.  
  637.             accel = accel + fkey;            ' Bump it up to the proper value
  638.  
  639.         else
  640.  
  641.             Message("Invalid key.  It must be A - Z or F1 to F12");
  642.  
  643.             return 0;
  644.  
  645.         endif
  646.  
  647.     endif
  648.  
  649.     if (GetDialogField$(21))        ' Now add in the shift states.
  650.  
  651.         accel = accel | 0x4000;
  652.  
  653. <:#240,9360>        endif
  654.  
  655. <:#240,9360>    if (GetDialogField$(22))
  656.  
  657.         accel = accel | 0x1000;
  658.  
  659.     endif
  660.  
  661.     if (GetDialogField$(23))
  662.  
  663.         accel = accel | 0x2000;
  664.  
  665.     endif
  666.  
  667. endif
  668.  
  669.  
  670. return accel;
  671.  
  672. END FUNCTION
  673.  
  674. '
  675.  
  676. ' ShowAccel - given the accelerate prime the dialog box.
  677.  
  678.  
  679. @Function@<:ZShowAccel>FUNCTION ShowAccel(accel)<:Z~ShowAccel>
  680.  
  681. if (0 != accel)
  682.  
  683.     FillEdit(21, accel & 0x4000);        ' Set the check boxes for ctrl, shift and alt
  684.  
  685.     FillEdit(22, accel & 0x1000);
  686.  
  687.     FillEdit(23, accel & 0x2000);
  688.  
  689.     accel = accel & 0xff;            ' Strip off the shift states.
  690.  
  691.     lowf = asc(BracketsToBin("<[>f1]"))    ' Get virtual key for F1.
  692.  
  693.     if (lowf <<= accel AND accel <<= (lowf + 12))
  694.  
  695.         ' Create the "Fx" using strcat$.  
  696.  
  697.         FillEdit(8003, strcat$("F", chr$(0x31 + (accel - lowf))))
  698.  
  699.     else
  700.  
  701.         FillEdit(8003, chr$(accel))
  702.  
  703.     endif
  704.  
  705. endif
  706.  
  707. END FUNCTION<:p<* >>
  708.  
  709.  
  710. ' AddAccelStuff - given the itemname (what will show on the menu) add in a accelerator
  711.  
  712. '    key of the form CTRL+Z or ALT+F4
  713.  
  714.  
  715. @Function@<:ZAddAccelStuff>FUNCTION AddAccelStuff(itemname, accel)<:Z~AddAccelStuff>
  716.  
  717. shift = "";
  718.  
  719. if (accel & 0x4000)
  720.  
  721.     shift = strcat$(shift, "Ctrl+")
  722.  
  723. endif
  724.  
  725. if (accel & 0x1000)
  726.  
  727.     shift = strcat$(shift, "Shift+");
  728.  
  729. endif
  730.  
  731. if (accel & 0x2000)
  732.  
  733.     shift = strcat$(shift, "Alt+");
  734.  
  735. endif
  736.  
  737. accel = accel & 0xff;            ' Strip off the shift states.
  738.  
  739. lowf = asc(BracketsToBin("<[>f1]"))    ' Get virtual key for F1.
  740.  
  741. if (lowf <<= accel AND accel <<= (lowf + 12))
  742.  
  743.     ' Create the "Fx" using strcat$.  
  744.  
  745.     text = strcat$("F", chr$(0x31 + (accel - lowf)))
  746.  
  747. else
  748.  
  749.     text = chr$(accel)
  750.  
  751. endif
  752.  
  753. shift = strcat$(shift, text);
  754.  
  755. return strcat$(itemname, "    ", shift);
  756.  
  757. END FUNCTION
  758.  
  759.  
  760. ' :LoadMenus - fill the callers array with top level menu names
  761.  
  762. '
  763.  
  764. @Function@FUNCTION <:ZLoadMenus>LoadMenus<:Z~LoadMenus>(menus)
  765.  
  766. hmenu = getmenu(getactivewindow())
  767.  
  768. menucnt = GetMenuItemCount(hmenu)
  769.  
  770. defstr menuname;
  771.  
  772. a = 1
  773.  
  774. for i = 0 to menucnt - 1
  775.  
  776.     GetMenuString(hMenu, i, &menuname, 80, MF_BYPOSITION)
  777.  
  778.     if menuname <<<;> "" and menuname <<<;> "&Window";
  779.  
  780.         *menus(a) = menuname;
  781.  
  782.         a = a + 1
  783.  
  784.     endif        
  785.  
  786. next
  787.  
  788. return a
  789.  
  790. END FUNCTION<:p<* >>
  791.  
  792. '
  793.  
  794. ' GetMacro - put up the macro list dialog box, and let the user pick a macro.
  795.  
  796. '     Return the macroname or a null string if they canceled out.
  797.  
  798. @Function@<:><:ZGetMacro>Function GetMacro<:Z~GetMacro><:>()
  799.  
  800. onerror endit
  801.  
  802. oncancel endit
  803.  
  804. StatusBarMsg("One moment please...")
  805.  
  806. DOSchdir(GetMacPath$())        ' Change to macro directory before the dialogbox
  807.  
  808. FillEdit(9001, "*.smm")
  809.  
  810. StatusBarMsg("")
  811.  
  812. if (1 = DialogBox(".", "macrolst"))
  813.  
  814.  
  815.     ' GetDialogField will only return the filename, we want the entire path, so
  816.  
  817.     ' concatenate it with the current directory (the dialog box may have changed it)
  818.  
  819.     ' then lowercase everything so it looks better in the top level dialog box.
  820.  
  821.     macname = lcase$(strcat$(GetCurrentDir$(), GetDialogField$(8001)));
  822.  
  823. else
  824.  
  825.     macname = ""        ' cancel return null string.
  826.  
  827. endif
  828.  
  829. endit:
  830.  
  831. return macname;
  832.  
  833. StatusBarMsg("")
  834.  
  835. END FUNCTION<:p<* >>
  836.  
  837. <:#284,9360>' LoadAmiFuns - open the control file and load the two arrays.
  838.  
  839. <:#284,9360>'     This control file contains one line entries, each havig two fields.  The first is a 
  840.  
  841. <:#284,9360>'    description of the function, the next it the MenuId.
  842.  
  843. <:#284,9360>'
  844.  
  845. @Function@<:#293,9360><:ZLoadAmiFuns>FUNCTION LoadAmiFuns<:Z~LoadAmiFuns>(names, menuids)
  846.  
  847. <:#284,9360>onerror endit
  848.  
  849. <:#284,9360>oncancel endit
  850.  
  851. <:#284,9360>StatusBarMsg("Loading control files...")    ' Tell en to wait
  852.  
  853. <:#284,9360>*names(1) = "New";
  854.  
  855. <:#284,9360>*menuids(1) = "101";
  856.  
  857. <:#284,9360>*names(2) = "Open";
  858.  
  859. <:#284,9360>*menuids(2) = "102";
  860.  
  861. <:#284,9360>*names(3) = "Save";
  862.  
  863. <:#284,9360>*menuids(3) = "103";
  864.  
  865. <:#284,9360>*names(4) = "Save As";
  866.  
  867. <:#284,9360>*menuids(4) = "104";
  868.  
  869. <:#284,9360>*names(5) = "Revert";
  870.  
  871. <:#284,9360>*menuids(5) = "105";
  872.  
  873. <:#284,9360>*names(6) = "Import/Export";
  874.  
  875. <:#284,9360>*menuids(6) = "107";
  876.  
  877. <:#284,9360>*names(7) = "Import Picture";
  878.  
  879. <:#284,9360>*menuids(7) = "141";
  880.  
  881. <:#284,9360>*names(8) = "File Management";
  882.  
  883. <:#284,9360>*menuids(8) = "108";
  884.  
  885. <:#284,9360>*names(9) = "Document Description";
  886.  
  887. <:#284,9360>*menuids(9) = "109";
  888.  
  889. <:#284,9360>*names(10) = "Rename Doc Info Fields";
  890.  
  891. <:#284,9360>*menuids(10) = "125";
  892.  
  893. <:#284,9360>*names(11) = "Links";
  894.  
  895. <:#284,9360>*menuids(11) = "115";
  896.  
  897. <:#284,9360>*names(12) = "Merge";
  898.  
  899. <:#284,9360>*menuids(12) = "110";
  900.  
  901. <:#284,9360>*names(13) = "Print";
  902.  
  903. <:#284,9360>*menuids(13) = "111";
  904.  
  905. <:#284,9360>*names(14) = "Printer Setup";
  906.  
  907. <:#284,9360>*menuids(14) = "112";
  908.  
  909. <:#284,9360>*names(15) = "Exit";
  910.  
  911. <:#284,9360>*menuids(15) = "113";
  912.  
  913. <:#284,9360>*names(16) = "Master Document";
  914.  
  915. <:#284,9360>*menuids(16) = "146";
  916.  
  917. <:#284,9360>*names(17) = "Undo";
  918.  
  919. <:#284,9360>*menuids(17) = "151";
  920.  
  921. <:#284,9360>*names(18) = "Cut";
  922.  
  923. <:#284,9360>*menuids(18) = "153";
  924.  
  925. <:#284,9360>*names(19) = "Copy";
  926.  
  927. <:#284,9360>*menuids(19) = "154";
  928.  
  929. <:#284,9360>*names(20) = "Paste";
  930.  
  931. <:#284,9360>*menuids(20) = "155";
  932.  
  933. <:#284,9360>*names(21) = "Paste Link";
  934.  
  935. <:#284,9360>*menuids(21) = "157";
  936.  
  937. <:#284,9360>*names(22) = "Insert Date";
  938.  
  939. <:#284,9360>*menuids(22) = "158";
  940.  
  941. <:#284,9360>*names(23) = "Footnotes";
  942.  
  943. <:#284,9360>*menuids(23) = "160";
  944.  
  945. <:#284,9360>*names(24) = "Defaults";
  946.  
  947. <:#284,9360>*menuids(24) = "162";
  948.  
  949. <:#284,9360>*names(25) = "Full Page";
  950.  
  951. <:#284,9360>*menuids(25) = "201";
  952.  
  953. <:#284,9360>*names(26) = "Custom View";
  954.  
  955. <:#284,9360>*menuids(26) = "202";
  956.  
  957. <:#284,9360>*names(27) = "Standard";
  958.  
  959. <:#284,9360>*menuids(27) = "203";
  960.  
  961. <:#284,9360>*names(28) = "Enlarged";
  962.  
  963. <:#284,9360>*menuids(28) = "204";
  964.  
  965. <:#284,9360>*names(29) = "Facing Pages";
  966.  
  967. <:#284,9360>*menuids(29) = "212";
  968.  
  969. <:#284,9360>*names(30) = "Layout Mode";
  970.  
  971. <:#284,9360>*menuids(30) = "210";
  972.  
  973. <:#284,9360>*names(31) = "Draft Mode";
  974.  
  975. <:#284,9360>*menuids(31) = "211";
  976.  
  977. <:#284,9360>*names(32) = "Display Preferences";
  978.  
  979. <:#284,9360>*menuids(32) = "206";
  980.  
  981. <:#284,9360>*names(33) = "Show Tab Ruler";
  982.  
  983. <:#284,9360>*menuids(33) = "207";
  984.  
  985. <:#284,9360>*names(34) = "Hide Side Bar";
  986.  
  987. <:#284,9360>*menuids(34) = "109";
  988.  
  989. <:#284,9360>*names(35) = "Envelope";
  990.  
  991. <:#284,9360>*menuids(35) = "237";
  992.  
  993. <:#284,9360>*names(36) = "Font";
  994.  
  995. <:#284,9360>*menuids(36) = "251";
  996.  
  997. <:#284,9360>*names(37) = "Alignment";
  998.  
  999. <:#284,9360>*menuids(37) = "263";
  1000.  
  1001. <:#284,9360>*names(38) = "Spacing";
  1002.  
  1003. <:#284,9360>*menuids(38) = "252";
  1004.  
  1005. <:#284,9360>*names(39) = "Normal";
  1006.  
  1007. <:#284,9360>*menuids(39) = "253";
  1008.  
  1009. <:#284,9360>*names(40) = "Bold";
  1010.  
  1011. <:#284,9360>*menuids(40) = "254";
  1012.  
  1013. <:#284,9360>*names(41) = "Italic";
  1014.  
  1015. <:#284,9360>*menuids(41) = "255";
  1016.  
  1017. <:#284,9360>*names(42) = "Underline";
  1018.  
  1019. <:#284,9360>*menuids(42) = "256";
  1020.  
  1021. <:#284,9360>*names(43) = "Word Underline";
  1022.  
  1023. <:#284,9360>*menuids(43) = "256";
  1024.  
  1025. <:#284,9360>*names(44) = "Caps";
  1026.  
  1027. <:#284,9360>*menuids(44) = "264";
  1028.  
  1029. <:#284,9360>*names(45) = "Special Effects";
  1030.  
  1031. <:#284,9360>*menuids(45) = "258";
  1032.  
  1033. <:#284,9360>*names(46) = "Create Style";
  1034.  
  1035. <:#284,9360>*menuids(46) = "301";
  1036.  
  1037. <:#284,9360>*names(47) = "Modify Style";
  1038.  
  1039. <:#284,9360>*menuids(47) = "302";
  1040.  
  1041. <:#284,9360>*names(48) = "Use Another Style Sheet";
  1042.  
  1043. <:#284,9360>*menuids(48) = "304";
  1044.  
  1045. <:#284,9360>*names(49) = "Save As A New Style Sheet";
  1046.  
  1047. <:#284,9360>*menuids(49) = "305";
  1048.  
  1049. <:#284,9360>*names(50) = "Style Management";
  1050.  
  1051. <:#284,9360>*menuids(50) = "303";
  1052.  
  1053. <:#284,9360>*names(51) = "Select a Style";
  1054.  
  1055. <:#284,9360>*menuids(51) = "306";
  1056.  
  1057. <:#284,9360>*names(52) = "Show Styles Box";
  1058.  
  1059. <:#284,9360>*menuids(52) = "307";
  1060.  
  1061. <:#284,9360>*names(53) = "Insert/Remove Layout";
  1062.  
  1063. <:#284,9360>*menuids(53) = "351";
  1064.  
  1065. <:#284,9360>*names(54) = "Modify Layout";
  1066.  
  1067. <:#284,9360>*menuids(54) = "352";
  1068.  
  1069. <:#284,9360>*names(55) = "Floating Header/Footer";
  1070.  
  1071. <:#284,9360>*menuids(55) = "360";
  1072.  
  1073. <:#284,9360>*names(56) = "Tab Ruler";
  1074.  
  1075. <:#284,9360>*menuids(56) = "355";
  1076.  
  1077. <:#284,9360>*names(57) = "Page Numbering";
  1078.  
  1079. <:#284,9360>*menuids(57) = "356";
  1080.  
  1081. <:#284,9360>*names(58) = "Line Numbering";
  1082.  
  1083. <:#284,9360>*menuids(58) = "359";
  1084.  
  1085. <:#284,9360>*names(59) = "Page Break";
  1086.  
  1087. <:#284,9360>*menuids(59) = "357";
  1088.  
  1089. <:#284,9360>*names(60) = "Add a Frame";
  1090.  
  1091. <:#284,9360>*menuids(60) = "409";
  1092.  
  1093. <:#284,9360>*names(61) = "Frame Layout";
  1094.  
  1095. <:#284,9360>*menuids(61) = "402";
  1096.  
  1097. <:#284,9360>*names(62) = "Graphics Scaling";
  1098.  
  1099. <:#284,9360>*menuids(62) = "403";
  1100.  
  1101. <:#284,9360>*names(63) = "Image Processing";
  1102.  
  1103. <:#284,9360>*menuids(63) = "410";
  1104.  
  1105. <:#284,9360>*names(64) = "Go To";
  1106.  
  1107. <:#284,9360>*menuids(64) = "452";
  1108.  
  1109. <:#284,9360>*names(65) = "Find Replace";
  1110.  
  1111. <:#284,9360>*menuids(65) = "451";
  1112.  
  1113. <:#284,9360>*names(66) = "Spelling";
  1114.  
  1115. <:#284,9360>*menuids(66) = "453";
  1116.  
  1117. <:#284,9360>*names(67) = "Thesaurus";
  1118.  
  1119. <:#284,9360>*menuids(67) = "455";
  1120.  
  1121. <:#284,9360>*names(68) = "Glossary";
  1122.  
  1123. <:#284,9360>*menuids(68) = "467";
  1124.  
  1125. <:#284,9360>*names(69) = "Sort";
  1126.  
  1127. <:#284,9360>*menuids(69) = "456";
  1128.  
  1129. <:#284,9360>*names(70) = "Generate Toc, Index";
  1130.  
  1131. <:#284,9360>*menuids(70) = "465";
  1132.  
  1133. <:#284,9360>*names(71) = "Tables";
  1134.  
  1135. <:#284,9360>*menuids(71) = "457";
  1136.  
  1137. <:#284,9360>*names(72) = "Insert Note";
  1138.  
  1139. <:#284,9360>*menuids(72) = "282";
  1140.  
  1141. <:#284,9360>*names(73) = "Insert Merge Field";
  1142.  
  1143. <:#284,9360>*menuids(73) = "182";
  1144.  
  1145. <:#284,9360>*names(74) = "Insert Doc Info";
  1146.  
  1147. <:#284,9360>*menuids(74) = "183";
  1148.  
  1149. <:#284,9360>*names(75) = "Insert Power Field";
  1150.  
  1151. <:#284,9360>*menuids(75) = "568";
  1152.  
  1153. <:#284,9360>*names(76) = "Update Power Field";
  1154.  
  1155. <:#284,9360>*menuids(76) = "571";
  1156.  
  1157. <:#284,9360>*names(77) = "Update All Power Fields";
  1158.  
  1159. <:#284,9360>*menuids(77) = "267";
  1160.  
  1161. <:#284,9360>*names(78) = "Next Power Field";
  1162.  
  1163. <:#284,9360>*menuids(78) = "569";
  1164.  
  1165. <:#284,9360>*names(79) = "Previous Power Field";
  1166.  
  1167. <:#284,9360>*menuids(79) = "570";
  1168.  
  1169. <:#284,9360>*names(80) = "Mark Index";
  1170.  
  1171. <:#284,9360>*menuids(80) = "180";
  1172.  
  1173. <:#284,9360>*names(81) = "Mark Glossary";
  1174.  
  1175. <:#284,9360>*menuids(81) = "199";
  1176.  
  1177. <:#284,9360>*names(82) = "Revision Marking";
  1178.  
  1179. <:#284,9360>*menuids(82) = "187";
  1180.  
  1181. <:#284,9360>*names(83) = "Protect Text";
  1182.  
  1183. <:#284,9360>*menuids(83) = "188";
  1184.  
  1185. <:#284,9360>*names(84) = "No Hyphenation";
  1186.  
  1187. <:#284,9360>*menuids(84) = "189";
  1188.  
  1189. <:#284,9360>*names(85) = "Left Align";
  1190.  
  1191. <:#284,9360>*menuids(85) = "259";
  1192.  
  1193. <:#284,9360>*names(86) = "Right Align";
  1194.  
  1195. <:#284,9360>*menuids(86) = "261";
  1196.  
  1197. <:#284,9360>*names(87) = "Center";
  1198.  
  1199. <:#284,9360>*menuids(87) = "260";
  1200.  
  1201. <:#284,9360>*names(88) = "Justify";
  1202.  
  1203. <:#284,9360>*menuids(88) = "262";
  1204.  
  1205. <:#284,9360>*names(89) = "Upper Case";
  1206.  
  1207. <:#284,9360>*menuids(89) = "273";
  1208.  
  1209. <:#284,9360>*names(90) = "Lower Case";
  1210.  
  1211. <:#284,9360>*menuids(90) = "287";
  1212.  
  1213. <:#284,9360>*names(91) = "Initial Caps";
  1214.  
  1215. <:#284,9360>*menuids(91) = "288";
  1216.  
  1217. <:#284,9360>*names(92) = "Small Caps";
  1218.  
  1219. <:#284,9360>*menuids(92) = "289";
  1220.  
  1221. <:#284,9360>*names(93) = "Insert Page Layout";
  1222.  
  1223. <:#284,9360>*menuids(93) = "375";
  1224.  
  1225. <:#284,9360>*names(94) = "Remove Page Layout";
  1226.  
  1227. <:#284,9360>*menuids(94) = "373";
  1228.  
  1229. <:#284,9360>*names(95) = "Revert Page Layout";
  1230.  
  1231. <:#284,9360>*menuids(95) = "374";
  1232.  
  1233. <:#284,9360>*names(96) = "Insert Tab Ruler";
  1234.  
  1235. <:#284,9360>*menuids(96) = "371";
  1236.  
  1237. <:#284,9360>*names(97) = "Remove Tab Ruler";
  1238.  
  1239. <:#284,9360>*menuids(97) = "372";
  1240.  
  1241. <:#284,9360>*names(98) = "Macro Play";
  1242.  
  1243. <:#284,9360>*menuids(98) = "502";
  1244.  
  1245. <:#284,9360>*names(99) = "Macro Record";
  1246.  
  1247. <:#284,9360>*menuids(99) = "503";
  1248.  
  1249. <:#284,9360>*names(100) = "Macro Edit";
  1250.  
  1251. <:#284,9360>*menuids(100) = "501";
  1252.  
  1253. <:#284,9360>*names(101) = "Quick Record";
  1254.  
  1255. <:#284,9360>*menuids(101) = "505";
  1256.  
  1257. <:#284,9360>*names(102) = "Quick Play";
  1258.  
  1259. <:#284,9360>*menuids(102) = "506";
  1260.  
  1261. <:#284,9360>*names(103) = "Insert Bullet";
  1262.  
  1263. <:#284,9360>*menuids(103) = "836";
  1264.  
  1265. <:#284,9360>*names(104) = "Fast Format";
  1266.  
  1267. <:#284,9360>*menuids(104) = "246";
  1268.  
  1269. <:#284,9360>*names(105) = "Header Footer";
  1270.  
  1271. <:#284,9360>*menuids(105) = "377";
  1272.  
  1273. <:#284,9360>*names(106) = "Control Panel";
  1274.  
  1275. <:#284,9360>*menuids(106) = "601";
  1276.  
  1277. <:#284,9360>*names(107) = "Tab Ruler";
  1278.  
  1279. <:#284,9360>*menuids(107) = "810";
  1280.  
  1281. <:#284,9360>*names(108) = "Assign Macro To File";
  1282.  
  1283. <:#284,9360>*menuids(108) = "436";
  1284.  
  1285. <:#284,9360>*names(109) = "Toggle Clean Screen";
  1286.  
  1287. <:#284,9360>*menuids(109) = "233";
  1288.  
  1289. <:#284,9360>*names(110) = "Clean Screen Option";
  1290.  
  1291. <:#284,9360>*menuids(110) = "234";
  1292.  
  1293. <:#284,9360>*names(111) = "Mark Index Word";
  1294.  
  1295. <:#284,9360>*menuids(111) = "180";
  1296.  
  1297. <:#284,9360>*names(112) = "Mark TOC Entry";
  1298.  
  1299. <:#284,9360>*menuids(112) = "835";
  1300.  
  1301. <:#284,9360>*names(113) = "Set Default Paths";
  1302.  
  1303. <:#284,9360>*menuids(113) = "170";
  1304.  
  1305. <:#284,9360>endit:
  1306.  
  1307. <:#284,9360>hourglass(0)
  1308.  
  1309. <:#284,9360>StatusBarMsg("")
  1310.  
  1311. <:#284,9360>return 113
  1312.  
  1313. END FUNCTION<:p<* >>
  1314.  
  1315. '
  1316.  
  1317. ' GetAmiPro - let them pick an AmiPro function from the passed list
  1318.  
  1319. '    Return the index into the passed array or 0 if the user canceled.
  1320.  
  1321. @Function@<:><:ZGetAmiPro>FUNCTION GetAmiPro<:Z~GetAmiPro><:>(names, cnt)
  1322.  
  1323. onerror endit
  1324.  
  1325. oncancel endit
  1326.  
  1327. StatusBarMsg("One moment please...")
  1328.  
  1329. hourglass(1)
  1330.  
  1331. FillEdit(8000, &names)
  1332.  
  1333. hourglass(0)
  1334.  
  1335. endit:
  1336.  
  1337. StatusBarMsg("")
  1338.  
  1339. i = 0                        ' set default return status
  1340.  
  1341. if 1 = DialogBox(".", "funclst")        ' They hit OK?
  1342.  
  1343.     selected = GetDialogField$(9000)    ' Yes, get the text
  1344.  
  1345.     for i = 1 to cnt            ' Now run through the array
  1346.  
  1347.         if selected = *names(i)    ' to find the index
  1348.  
  1349.             break
  1350.  
  1351.         endif
  1352.  
  1353.     next
  1354.  
  1355. endif
  1356.  
  1357. return i
  1358.  
  1359. END FUNCTION
  1360.  
  1361. <:p<* >>
  1362.  
  1363. '
  1364.  
  1365. ' AddToAutoExec - Add lines to the autoexec.smm file that will add a new menu item
  1366.  
  1367. '
  1368.  
  1369. @Function@<:ZAddToAutoExec>FUNCTION AddToAutoexec<:Z~AddToAutoExec>(menuname, itemname, menuid, macroname, helptext, pos, accel)
  1370.  
  1371. declare OpenAutoExec()
  1372.  
  1373. <:><:>OpenAutoExec()                ' open autoexec.smm and position 
  1374.  
  1375.  
  1376. if (accel != 0)                    ' This one have an accelerator?
  1377.  
  1378.     type("accel = {accel}<[>enter]")
  1379.  
  1380.     type("menuid = {menuid}<[>enter]")
  1381.  
  1382.     type("macroname = ""{macroname}""<[>enter]")
  1383.  
  1384.     type("OnKey(accel, menuid, macroname)")
  1385.  
  1386. endif
  1387.  
  1388. if (0 != menuname)
  1389.  
  1390.     type("menuname = ""{menuname}""<[>enter]")    ' make variable assignments 
  1391.  
  1392.     type("itemname = ""{itemname}""<[>enter]")    ' so the AddmenuItem line wont be to long.
  1393.  
  1394.     if (0 != menuid)                ' We adding an AmiPro Function?
  1395.  
  1396.         type("menuid = {menuid}<[>enter]")    ' Yes
  1397.  
  1398.         if (0 = pos)
  1399.  
  1400.             type("AddmenuItem(1, {{menuname}, {{itemname}, {{menuid})")
  1401.  
  1402.         else
  1403.  
  1404.             pos = pos - 1;
  1405.  
  1406.             type("pos = {pos}<[>enter]")
  1407.  
  1408.             type("InsertMenuItem(1, {{menuname}, {{pos}, {{itemname}, {{menuid})")
  1409.  
  1410.         endif
  1411.  
  1412.     else
  1413.  
  1414.         type("macroname = ""{macroname}""<[>enter]")        ' its a macro.
  1415.  
  1416.         type("helptext = ""{helptext}""<[>enter]")
  1417.  
  1418.         if (0 = pos)
  1419.  
  1420.             type("AddmenuItem(1, {{menuname}, {{itemname}, {{macroname}, {{helptext})")
  1421.  
  1422.         else
  1423.  
  1424.             pos = pos - 1;
  1425.  
  1426.             type("pos = {pos}<[>enter]");
  1427.  
  1428.             type("InsertMenuItem(1, {{menuname}, {{pos},");
  1429.  
  1430.             type(" {{itemname}, {{macroname}, {{helptext})");
  1431.  
  1432.         endif
  1433.  
  1434.     endif
  1435.  
  1436. endif
  1437.  
  1438. Save()                    ' and save it
  1439.  
  1440. FileClose()                ' and close it
  1441.  
  1442. END FUNCTION
  1443.  
  1444. <:#284,9360>
  1445.  
  1446. <:#284,9360>' DelFromAutoExec - Add lines in the autoexec to delete a menu item.
  1447.  
  1448. <:#284,9360>
  1449.  
  1450. @Function@<:#293,9360><:ZDelFromAutoExec>FUNCTION DelFromAutoexec(<:Z~DelFromAutoExec>menuname, itemname)
  1451.  
  1452. <:#284,9360>declare OpenAutoExec()
  1453.  
  1454. <:#284,9360>OpenAutoExec()                ' open autoexec.smm and position 
  1455.  
  1456. <:#284,9360>type("menuname = ""{menuname}""<[>enter]")    ' make variable assignments 
  1457.  
  1458. <:#568,9360>type("itemname = ""{itemname}""<[>enter]")    ' so the AddmenuItem statement wont be to long.
  1459.  
  1460. <:#284,9360>type("DeleteMenuItem(1, {{menuname}, {{itemname})")
  1461.  
  1462. <:#284,9360>Save()                    ' and save it
  1463.  
  1464. <:#284,9360>FileClose()                ' and close it
  1465.  
  1466. <:#284,9360>END FUNCTION
  1467.  
  1468. '<:p<* >>
  1469.  
  1470. <:#568,9360>' OpenAutoExec - Open-Create the autoexec.smm then position the insertion point just before
  1471.  
  1472. <:#284,9360>'    the first END FUNCTION
  1473.  
  1474. <:#284,9360>'
  1475.  
  1476. @Function@<:#293,9360><:ZOpenAutoExec>FUNCTION OpenAutoExec(<:Z~OpenAutoExec>)
  1477.  
  1478. <:#284,9360>defstr fid;
  1479.  
  1480. <:#284,9360><:ZMACUTEMP><:Z~MACUTEMP>auto = FindAutoExec();            ' Determine where the autoexec is
  1481.  
  1482. <:#284,9360>if (0 = Assign(&fid, fopen(auto, "r")))    ' Does it exist?
  1483.  
  1484. <:#284,9360>    sty = GetProfileString$("AmiPro", "defstyle", "amipro.ini")
  1485.  
  1486. <:#284,9360>    if sty = ""
  1487.  
  1488. <:#284,9360>        sty = "_default.sty"
  1489.  
  1490. <:#284,9360>    endif
  1491.  
  1492. <:#284,9360>    new(sty, 0, 0)            ' No let ami create it.
  1493.  
  1494. <:#284,9360>    type("FUNCTION auto()<[>enter]")    ' And fill in an empty 
  1495.  
  1496. <:#284,9360>    type("END FUNCTION<[>enter]")    ' Function - End Function Pait
  1497.  
  1498. <:#284,9360>    type("<[>ctrlhome]")            ' Position at top of file
  1499.  
  1500. <:#284,9360>    saveas(auto, 32,"", "")            ' Create it.
  1501.  
  1502. <:#284,9360>else
  1503.  
  1504. <:#284,9360>    fclose(fid)                ' it existed. so close this
  1505.  
  1506. <:#284,9360>    FileOpen(auto, 1, "")            ' let ami open
  1507.  
  1508. <:#284,9360>endif
  1509.  
  1510. <:#284,9360>Replace(0, 0, 24576, "End function", "")    ' position at first end function
  1511.  
  1512. <:#284,9360>type("<[>home]")                    ' before the End
  1513.  
  1514. <:#284,9360>type("<[>enter]")                    ' create a line
  1515.  
  1516. <:#284,9360>type("<[>up]")                    ' position on that line
  1517.  
  1518. <:#284,9360>END FUNCTION                ' that all folks
  1519.  
  1520. <:#284,9360>'
  1521.  
  1522. <:#568,9360>' FindAutoExec - determine where the autoexec.smm file is.  If we can find it in the macro
  1523.  
  1524. <:#284,9360>'    directory or the docs directory, return the amipro directory.
  1525.  
  1526. <:#284,9360>'
  1527.  
  1528. @Function@<:#293,9360><:ZFindAutoExec>FUNCTION FindAutoExec()<:Z~FindAutoExec>
  1529.  
  1530. <:#284,9360>defstr    fid;
  1531.  
  1532. <:#284,9360>auto = strcat$(GetMacPath$(), "autoexec.smm")    ' check macro dir first
  1533.  
  1534. <:#284,9360>if (0 = Assign(&fid, fopen(auto, "r")))    ' Does it exist?
  1535.  
  1536. <:#284,9360>    auto = strcat$(GetDocPath$(), "autoexec.smm")    ' Now the docs dir
  1537.  
  1538. <:#284,9360>    if (0 = Assign(&fid, fopen(auto, "r")))    ' Does it exist?
  1539.  
  1540. <:#284,9360>        auto = strcat$(GetAmiDirectory$(), "autoexec.smm")    ' lastly amipro dir
  1541.  
  1542. <:#284,9360>    else
  1543.  
  1544. <:#284,9360>        fclose(fid)
  1545.  
  1546. <:#284,9360>    endif
  1547.  
  1548. <:#284,9360>else
  1549.  
  1550. <:#284,9360>    fclose(fid)
  1551.  
  1552. <:#284,9360>endif
  1553.  
  1554. <:#284,9360>return auto
  1555.  
  1556. END FUNCTION<:p<* >>
  1557.  
  1558. ' LocateHmenu Given a menuname (File, Edit etc) return the handle to that menu.
  1559.  
  1560.  
  1561. @Function@<:ZLocateHmenu>FUNCTION LocateHmenu(menu)<:Z~LocateHmenu>
  1562.  
  1563. hWnd = GetActiveWindow()                ' Who is active
  1564.  
  1565. hPrevWnd = hWnd;
  1566.  
  1567. while 0 != Assign(&hWnd, GetParent(hWnd))    ' Go til we find a window with no parent
  1568.  
  1569.     hPrevWnd = hWnd;
  1570.  
  1571. wend
  1572.  
  1573. hWnd = hPrevWnd;
  1574.  
  1575. hMenu = GetMenu(hWnd)                ' Get the hMenu for the menu bar
  1576.  
  1577. <:><:><:><:><:><:>return FindMenu(hMenu, Menu)            ' Find the menu
  1578.  
  1579. END FUNCTION
  1580.  
  1581.  
  1582. ' DelMenu - pass us a menu name (File, Edit etc) and we will display a list box with all items
  1583.  
  1584. '    From that menu and let the user delete one.
  1585.  
  1586. @Function@FUNCTION <:ZDelMenu>DelMenu<:Z~DelMenu>(Menu)
  1587.  
  1588. hWnd = GetActiveWindow()
  1589.  
  1590. hPrevWnd = hWnd;
  1591.  
  1592. while 0 != Assign(&hWnd, GetParent(hWnd))
  1593.  
  1594.     hPrevWnd = hWnd;
  1595.  
  1596. wend
  1597.  
  1598. hWnd = hPrevWnd;
  1599.  
  1600. hMenu = GetMenu(hWnd)
  1601.  
  1602. <:><:><:><:><:><:>if (0 != Assign(&hMenu, FindMenu(hMenu, Menu)))    ' If we can find that menu
  1603.  
  1604. <:><:><:><:>    LoadTheBox(hMenu, 9000);                ' Load the list box
  1605.  
  1606.     if (1 = DialogBox(".", "DelMenu"))            ' Let em pick one
  1607.  
  1608.         item = GetDialogField$(9000)
  1609.  
  1610.         DeleteMenuItem(1, menu, item)        ' Delete it
  1611.  
  1612.         if (Decide("Make this permanent?"))
  1613.  
  1614.             DelFromAutoExec(menu, item)
  1615.  
  1616.         endif
  1617.  
  1618.     endif
  1619.  
  1620. endif
  1621.  
  1622. END FUNCTION<:p<* >>
  1623.  
  1624. <:#568,9360>' LoadTheBox - given a hMenu and id load it with all menu items, includeing seiarators.
  1625.  
  1626. <:#284,9360>'
  1627.  
  1628. @Function@<:#293,9360>FUNCTION <:ZLoadTheBox>LoadTheBox<:Z~LoadTheBox>(hMenu, id)
  1629.  
  1630. <:#284,9360>defstr    menuname;
  1631.  
  1632. <:#284,9360>menucnt = GetMenuItemCount(hMenu)        'Find out how many
  1633.  
  1634. <:#284,9360>for i = 0 to menucnt - 1
  1635.  
  1636. <:#284,9360>    GetMenuString(hMenu, i, &menuname, 80, MF_BYPOSITION)    ' Get one
  1637.  
  1638. <:#284,9360>    if (0 << len(menuname))
  1639.  
  1640. <:#284,9360>        FillEdit(id, menuname)
  1641.  
  1642. <:#284,9360>    else
  1643.  
  1644. <:#284,9360>        FillEdit(id, "------------------------------------")
  1645.  
  1646. <:#284,9360>    endif
  1647.  
  1648. <:#284,9360>next
  1649.  
  1650. <:#284,9360>
  1651.  
  1652. <:#284,9360>END FUNCTION
  1653.  
  1654. <:#284,9360>'
  1655.  
  1656. <:#284,9360>' FindMenu - Given a hMenu and name, return a handle that that menu.
  1657.  
  1658. @Function@<:#293,9360>FUNCTION <:ZFindMenu>FindMenu<:Z~FindMenu>(hMenu, Name)
  1659.  
  1660. <:#284,9360>defstr    menuname;
  1661.  
  1662. <:#284,9360>menucnt = GetMenuItemCount(hMenu)        ' How many
  1663.  
  1664. <:#284,9360>for i = 0 to menucnt - 1
  1665.  
  1666. <:#284,9360>    GetMenuString(hMenu, i, &menuname, 80, MF_BYPOSITION)
  1667.  
  1668. <:#284,9360>    if (Name = menuname)            ' Match?
  1669.  
  1670. <:#284,9360>        hMenu = GetSubMenu(hMenu, i);    ' Yes, get its handle.
  1671.  
  1672. <:#284,9360>        return hMenu;
  1673.  
  1674. <:#284,9360>    endif
  1675.  
  1676. <:#284,9360>next
  1677.  
  1678. <:#284,9360>return 0
  1679.  
  1680. <:#284,9360>END FUNCTION
  1681.  
  1682. <:#284,9360>
  1683.  
  1684. <:p<* >>
  1685.  
  1686. <:#284,9360>
  1687.  
  1688. @Function@DIALOG    DelMenu
  1689.  
  1690. -2134376448    5    98    46    176    86    ""    ""    "Delete Menu Item"
  1691.  
  1692. FONT    8    "Helv"
  1693.  
  1694. 130    4    40    14    1    1342242817    "button"    "OK"    0 
  1695.  
  1696. 130    20    40    14    2    1342242816    "button"    "Cancel"    0 
  1697.  
  1698. 5    40    120    42    9000    1352728577    "listbox"    ""    0 
  1699.  
  1700. 6    30    56    8    1000    1342177280    "static"    "&Menu items:"    0 
  1701.  
  1702. 5    7    99    17    1001    1342177280    "static"    "Select a menu item to delete."    0 
  1703.  
  1704. END DIALOG
  1705.  
  1706.  
  1707. @Function@DIALOG    PickMenu
  1708.  
  1709. -2134376448    6    89    47    200    78    ""    ""    "Customize Ami Pro"
  1710.  
  1711. FONT    8    "Helv"
  1712.  
  1713. 5    20    56    54    9000    1352728577    "listbox"    ""    0 
  1714.  
  1715. 149    4    44    14    2    1342242816    "button"    "Done"    0 
  1716.  
  1717. 67    20    126    14    5    1342242816    "button"    "&Add an Ami Pro Function or Macro..."    0 
  1718.  
  1719. 67    36    126    14    6    1342242816    "button"    "&Delete a menu item..."    0 
  1720.  
  1721. 6    9    56    8    1000    1342177280    "static"    "&Menus:"    0 
  1722.  
  1723. 67    53    126    14    7    1342242816    "button"    "Assign Key Commands..."    0 
  1724.  
  1725. END DIALOG
  1726.  
  1727.  
  1728. @Function@<:>DIALOG    AddItem
  1729.  
  1730. -2134376448    20    35    26    260    104    ""    ""    "Add Menu Item"
  1731.  
  1732. FONT    8    "Helv"
  1733.  
  1734. 5    16    82    8    1000    1342177282    "static"    "Name for Menu:"    0 
  1735.  
  1736. 89    14    84    12    8000    1350631552    "edit"    ""    0 
  1737.  
  1738. 5    30    82    8    1006    1342177282    "static"    "&Insert before:"    0 
  1739.  
  1740. 99    78    141    8    1001    1342177280    "static"    "Optional help text for macro functions only:"    0 
  1741.  
  1742. 183    41    71    14    3    1342242816    "button"    "Ami Pro &Function..."    0 
  1743.  
  1744. 183    57    71    14    4    1342242816    "button"    "&Macro..."    0 
  1745.  
  1746. 99    88    138    12    8001    1350631552    "edit"    ""    0 
  1747.  
  1748. 9    78    18    12    8003    1350631552    "edit"    ""    0 
  1749.  
  1750. 5    56    86    44    20    1342177287    "button"    "&Shortcut key"    0 
  1751.  
  1752. 49    67    38    10    21    1342242819    "button"    "&Control"    0 
  1753.  
  1754. 49    77    38    10    22    1342242819    "button"    "&Shift"    0 
  1755.  
  1756. 49    87    38    10    23    1342242819    "button"    "Al&t"    0 
  1757.  
  1758. 5    4    82    8    1002    1342177282    "static"    "Add to me&nu:"    0 
  1759.  
  1760. 214    6    40    14    1    1342242817    "button"    "OK"    0 
  1761.  
  1762. 214    22    40    14    2    1342242816    "button"    "Cancel"    0 
  1763.  
  1764. 108    4    84    8    1003    1342177280    "static"    ""    0 
  1765.  
  1766. 5    42    82    8    1004    1342177282    "static"    "Fun&ction/macro to add:"    0 
  1767.  
  1768. 89    42    84    8    1005    1342177280    "static"    ""    0 
  1769.  
  1770. 9    67    38    10    1007    1342177280    "static"    "&Keystroke:"    0 
  1771.  
  1772. 89    28    84    58    9500    1344274435    "combobox"    ""    0 
  1773.  
  1774. END DIALOG
  1775.  
  1776.  
  1777.  
  1778. @Function@DIALOG    AddAccel
  1779.  
  1780. -2134376448    12    93    28    208    72    ""    ""    "Add Keyboard Shortcut"
  1781.  
  1782. FONT    8    "Helv"
  1783.  
  1784. 128    36    74    14    3    1342242816    "button"    "Ami Pro &Function..."    0 
  1785.  
  1786. 128    52    74    14    4    1342242816    "button"    "&Macro..."    0 
  1787.  
  1788. 10    34    18    12    8003    1350631552    "edit"    ""    0 
  1789.  
  1790. 6    14    90    44    20    1342177287    "button"    "Shortcut key"    0 
  1791.  
  1792. 50    26    36    10    21    1342242819    "button"    "&Control"    0 
  1793.  
  1794. 50    36    38    10    22    1342242819    "button"    "&Shift"    0 
  1795.  
  1796. 50    46    38    10    23    1342242819    "button"    "&Alt"    0 
  1797.  
  1798. 162    4    40    14    1    1342242817    "button"    "OK"    0 
  1799.  
  1800. 162    20    40    14    2    1342242816    "button"    "Cancel"    0 
  1801.  
  1802. 6    4    64    10    1004    1342177280    "static"    "Function/macro:"    0 
  1803.  
  1804. 74    4    80    10    1005    1342177280    "static"    "text"    0 
  1805.  
  1806. 10    26    38    8    1007    1342177280    "static"    "Keystroke:"    0 
  1807.  
  1808. END DIALOG
  1809.  
  1810. <:#284,9360>
  1811.  
  1812.  
  1813. @Function@<:#293,9360>DIALOG MacroLst
  1814.  
  1815. <:#284,9360>-2134376448 6 108 30 154 90 "" "" "Add Macro "
  1816.  
  1817. <:#284,9360>FONT 8 "Helv"
  1818.  
  1819. <:#284,9360>8 16 60 12 8001 1350631552 "edit" "" 0 
  1820.  
  1821. <:#284,9360>8 32 60 54 9001 1352728579 "listbox" "" 0 
  1822.  
  1823. <:#284,9360>72 38 74 8 7999 1342177280 "static" "" 0 
  1824.  
  1825. <:#284,9360>106 4 40 14 1 1342242817 "button" "OK" 0 
  1826.  
  1827. <:#284,9360>106 20 40 14 2 1342242816 "button" "Cancel" 0 
  1828.  
  1829. <:#284,9360>8 6 68 8 1001 1342177280 "static" "&Macro to execute:" 0 
  1830.  
  1831. <:#284,9360>END DIALOG
  1832.  
  1833.  
  1834. <:#284,9360>
  1835.  
  1836. @Function@<:#293,9360>DIALOG FuncLst
  1837.  
  1838. <:#284,9360>-2134376448 4 112 28 158 68 "" "" "Add Function"
  1839.  
  1840. <:#284,9360>FONT 8 "Helv"
  1841.  
  1842. <:#284,9360>6 16 100 46 9000 1352728579 "listbox" "" 0 
  1843.  
  1844. <:#284,9360>6 6 66 8 1000 1342177280 "static" "&Ami Pro functions:" 0 
  1845.  
  1846. <:#284,9360>112 6 40 14 1 1342242817 "button" "OK" 0 
  1847.  
  1848. <:#284,9360>112 22 40 14 2 1342242816 "button" "Cancel" 0 
  1849.  
  1850. @Function@<:#293,9360>END DIALOG
  1851.  
  1852. >
  1853.  
  1854. [Embedded]
  1855. 00038694
  1856. >
  1857. [macsum] 26
  1858. CustMenu 0 0 8 41
  1859. AddItem 690 6 14 86
  1860. ComboCallBack 2736 3 3 189
  1861. InitCombo 2846 1 5 198
  1862. AddAccelerator 3326 3 10 218
  1863. DetermineAccel 4413 0 4 271
  1864. ShowAccel 5060 1 2 313
  1865. AddAccelStuff 5451 2 4 332
  1866. LoadMenus 5955 1 6 357
  1867. GetMacro 6387 0 2 374
  1868. LoadAmiFuns 6677 2 1 398
  1869. GetAmiPro 12553 2 3 636
  1870. AddToAutoexec 12913 7 1 660
  1871. DelFromAutoexec 13804 2 1 701
  1872. OpenAutoExec 13982 0 4 714
  1873. FindAutoExec 14430 0 3 740
  1874. LocateHmenu 14784 1 4 757
  1875. DelMenu 15051 1 5 770
  1876. LoadTheBox 15541 2 4 791
  1877. FindMenu 15905 2 4 806
  1878. DelMenu 16248 0 -1 821
  1879. PickMenu 16595 0 -1 831
  1880. AddItem 17026 0 -1 842
  1881. AddAccel 18145 0 -1 868
  1882. MacroLst 18838 0 -1 886
  1883. FuncLst 19198 0 -1 898
  1884. [macse]
  1885. 14 CustMenu
  1886. 0 1317
  1887. 13
  1888. 11 00000109
  1889. 0 3 "Macro not available while running under HP NewWave."
  1890. 6 0
  1891. 15
  1892. 9
  1893. 5 20
  1894. 21 1 [X]
  1895. 5 200
  1896. 21 2 [X]
  1897. 5 200
  1898. 21 3 [X]
  1899. 16 LoadMenus &1
  1900. 13
  1901. 8 4
  1902. 16 LoadAmiFuns &2 &3
  1903. 13
  1904. 8 5
  1905. 0 789 ""
  1906. 0 31 8000 &1
  1907. 5 1
  1908. 0 26 "." "PickMenu"
  1909. 13
  1910. 0 805 &6 [X]
  1911. 13
  1912. 18 5
  1913. 11 00000678
  1914. 0 27 9000
  1915. 13
  1916. 8 7
  1917. 7 ""
  1918. 6 7
  1919. 18 1
  1920. 11 00000651
  1921. 5 5
  1922. 6 6
  1923. 18 0
  1924. 11 00000469
  1925. 0 296 1
  1926. 16 AddItem "{7}" "{5}" &2 &3 "{4}" &1
  1927. 0 296 0
  1928. 10 00000651
  1929. 10 00000651
  1930. 5 6
  1931. 6 6
  1932. 18 0
  1933. 11 00000560
  1934. 0 296 1
  1935. 16 DelMenu "{7}"
  1936. 0 296 0
  1937. 10 00000651
  1938. 10 00000651
  1939. 5 7
  1940. 6 6
  1941. 18 0
  1942. 11 00000651
  1943. 0 296 1
  1944. 16 AddAccelerator "{5}" &2 &3
  1945. 0 296 0
  1946. 10 00000651
  1947. 0 31 8000 &1
  1948. 10 00000240
  1949. 6 0
  1950. 15
  1951. 9
  1952. 14 AddItem
  1953. 5 0
  1954. 8 7
  1955. 7 ""
  1956. 8 8
  1957. 7 ""
  1958. 8 9
  1959. 7 ""
  1960. 8 10
  1961. 7 ""
  1962. 8 11
  1963. 7 ""
  1964. 8 12
  1965. 5 0
  1966. 8 13
  1967. 5 0
  1968. 8 14
  1969. 5 0
  1970. 8 15
  1971. 5 0
  1972. 8 16
  1973. 0 271 "Cust1" 1
  1974. 0 271 "Cust2" 1
  1975. 0 264 "Cust1" 0
  1976. 16 LocateHmenu "{0}"
  1977. 13
  1978. 0 264 "Cust2" [X]
  1979. 5 2
  1980. 8 17
  1981. 6 17
  1982. 5 0
  1983. 18 1
  1984. 6 17
  1985. 5 1
  1986. 18 1
  1987. 1 1
  1988. 11 00000957
  1989. 0 31 1003 "{0}"
  1990. 0 31 1005 "{10}"
  1991. 0 31 8000 "{9}"
  1992. 0 31 8001 "{11}"
  1993. 0 31 8002 "{14}"
  1994. 16 ShowAccel "{15}"
  1995. 0 802
  1996. 13
  1997. 0 16 [X] "!InitCombo"
  1998. 13
  1999. 0 41 0 [X]
  2000. 0 802
  2001. 13
  2002. 0 16 [X] "!ComboCallback"
  2003. 13
  2004. 0 41 9500 [X]
  2005. 5 0
  2006. 0 26 "." "additem"
  2007. 13
  2008. 0 805 &17 [X]
  2009. 13
  2010. 18 1
  2011. 11 00000661
  2012. 0 27 8000
  2013. 13
  2014. 8 9
  2015. 0 27 8001
  2016. 13
  2017. 8 11
  2018. 0 265 "Cust1"
  2019. 13
  2020. 8 14
  2021. 16 DetermineAccel
  2022. 13
  2023. 8 15
  2024. 5 4
  2025. 6 17
  2026. 18 0
  2027. 11 00000797
  2028. 7 ""
  2029. 16 GetMacro
  2030. 13
  2031. 0 805 &12 [X]
  2032. 13
  2033. 18 1
  2034. 11 00000784
  2035. 6 12
  2036. 8 8
  2037. 6 8
  2038. 8 10
  2039. 5 0
  2040. 8 7
  2041. 10 00000944
  2042. 5 3
  2043. 6 17
  2044. 18 0
  2045. 11 00000944
  2046. 5 0
  2047. 16 GetAmiPro &2 "{1}"
  2048. 13
  2049. 0 805 &13 [X]
  2050. 13
  2051. 18 1
  2052. 11 00000944
  2053. 7 ""
  2054. 8 18
  2055. 6 13
  2056. 22 3
  2057. 8 7
  2058. 6 13
  2059. 22 2
  2060. 8 10
  2061. 10 00000231
  2062. 0 266 "Cust1"
  2063. 0 266 "Cust2"
  2064. 6 17
  2065. 6 0
  2066. 7 ""
  2067. 18 1
  2068. 6 7
  2069. 5 0
  2070. 18 1
  2071. 6 8
  2072. 7 ""
  2073. 18 1
  2074. 1 2
  2075. 1 1
  2076. 1 1
  2077. 11 00001961
  2078. 6 15
  2079. 11 00001130
  2080. 16 AddAccelStuff "{9}" "{15}"
  2081. 13
  2082. 8 9
  2083. 6 7
  2084. 5 0
  2085. 18 1
  2086. 11 00001494
  2087. 5 0
  2088. 6 14
  2089. 18 0
  2090. 11 00001229
  2091. 0 516 1 "{0}" "{9}" "{7}"
  2092. 10 00001276
  2093. 6 14
  2094. 5 1
  2095. 3 1
  2096. 0 527 1 "{0}" [X] "{9}" "{7}"
  2097. 6 15
  2098. 11 00001481
  2099. 0 1050
  2100. 13
  2101. 5 1
  2102. 18 5
  2103. 11 00001456
  2104. 0 286 "AmiPro" "defstyle" "amipro.ini"
  2105. 13
  2106. 8 19
  2107. 6 19
  2108. 7 ""
  2109. 18 0
  2110. 11 00001436
  2111. 7 "_default.sty"
  2112. 8 19
  2113. 2 101 1 "{19}" 0 0
  2114. 2 422 1 "{15}" "{7}" ""
  2115. 10 00001829
  2116. 5 0
  2117. 6 14
  2118. 18 0
  2119. 11 00001571
  2120. 0 516 1 "{0}" "{9}" "{8}" "{11}"
  2121. 10 00001625
  2122. 6 14
  2123. 5 1
  2124. 3 1
  2125. 0 527 1 "{0}" [X] "{9}" "{8}" "{11}"
  2126. 6 15
  2127. 11 00001829
  2128. 0 1050
  2129. 13
  2130. 5 1
  2131. 18 5
  2132. 11 00001805
  2133. 0 286 "AmiPro" "defstyle" "amipro.ini"
  2134. 13
  2135. 8 19
  2136. 6 19
  2137. 7 ""
  2138. 18 0
  2139. 11 00001785
  2140. 7 "_default.sty"
  2141. 8 19
  2142. 2 101 1 "{19}" 0 0
  2143. 2 422 1 "{15}" 0 "{8}"
  2144. 0 2 "Keep settings for next session?"
  2145. 13
  2146. 11 00001948
  2147. 16 AddToAutoexec "{0}" "{9}" "{7}" "{8}" "{11}" "{14}" "{15}"
  2148. 10 00002034
  2149. 5 1
  2150. 6 17
  2151. 18 0
  2152. 11 00002034
  2153. 0 3 "Not all necessary information found"
  2154. 6 6
  2155. 15
  2156. 9
  2157. 14 ComboCallBack
  2158. 0 44 "{0}" "{1}"
  2159. 13
  2160. 8 4
  2161. 0 1036 "{4}" 1031 0 0
  2162. 13
  2163. 8 5
  2164. 0 264 "Cust1" "{5}"
  2165. 6 3
  2166. 15
  2167. 9
  2168. 14 InitCombo
  2169. 0 265 "Cust2"
  2170. 13
  2171. 8 3
  2172. 0 43 "{0}" 9500 ""
  2173. 0 284 "user,GetMenuItemCount,HH" "{3}"
  2174. 13
  2175. 8 4
  2176. 5 0
  2177. 8 5
  2178. 6 4
  2179. 5 1
  2180. 3 1
  2181. 6 5
  2182. 18 2
  2183. 12 00000202
  2184. 10 00000405
  2185. 5 1
  2186. 6 5
  2187. 3 0
  2188. 8 5
  2189. 10 00000117
  2190. 0 284 "user,GetMenuString,HHHFHH" "{3}" "{5}" &2 80 1024
  2191. 5 0
  2192. 0 14 "{2}"
  2193. 13
  2194. 18 5
  2195. 11 00000336
  2196. 0 43 "{0}" 9500 "{2}"
  2197. 10 00000392
  2198. 0 43 "{0}" 9500 "------------------------------------"
  2199. 10 00000169
  2200. 0 44 "{0}" 9500
  2201. 13
  2202. 0 265 "Cust1"
  2203. 13
  2204. 0 1036 [X] 1038 [X] 0
  2205. 6 1
  2206. 15
  2207. 9
  2208. 14 AddAccelerator
  2209. 5 0
  2210. 8 4
  2211. 7 ""
  2212. 8 5
  2213. 7 ""
  2214. 8 6
  2215. 5 0
  2216. 8 7
  2217. 5 0
  2218. 8 8
  2219. 7 ""
  2220. 8 9
  2221. 5 2
  2222. 8 10
  2223. 6 10
  2224. 5 0
  2225. 18 1
  2226. 6 10
  2227. 5 1
  2228. 18 1
  2229. 1 1
  2230. 11 00000567
  2231. 0 31 1005 "{6}"
  2232. 16 ShowAccel "{8}"
  2233. 5 0
  2234. 0 26 "." "addaccel"
  2235. 13
  2236. 0 805 &10 [X]
  2237. 13
  2238. 18 1
  2239. 11 00000278
  2240. 16 DetermineAccel
  2241. 13
  2242. 8 8
  2243. 5 4
  2244. 6 10
  2245. 18 0
  2246. 11 00000411
  2247. 7 ""
  2248. 16 GetMacro
  2249. 13
  2250. 0 805 &9 [X]
  2251. 13
  2252. 18 1
  2253. 11 00000398
  2254. 6 9
  2255. 8 5
  2256. 6 5
  2257. 8 6
  2258. 5 0
  2259. 8 4
  2260. 10 00000554
  2261. 5 3
  2262. 6 10
  2263. 18 0
  2264. 11 00000554
  2265. 5 0
  2266. 16 GetAmiPro &1 "{0}"
  2267. 13
  2268. 0 805 &7 [X]
  2269. 13
  2270. 18 1
  2271. 11 00000554
  2272. 7 ""
  2273. 8 11
  2274. 6 7
  2275. 22 2
  2276. 8 4
  2277. 6 7
  2278. 22 1
  2279. 8 6
  2280. 10 00000093
  2281. 6 10
  2282. 6 8
  2283. 5 0
  2284. 18 1
  2285. 6 4
  2286. 5 0
  2287. 18 1
  2288. 6 5
  2289. 7 ""
  2290. 18 1
  2291. 1 2
  2292. 1 1
  2293. 1 1
  2294. 11 00001002
  2295. 0 1050
  2296. 13
  2297. 5 1
  2298. 18 5
  2299. 11 00000811
  2300. 0 286 "AmiPro" "defstyle" "amipro.ini"
  2301. 13
  2302. 8 12
  2303. 6 12
  2304. 7 ""
  2305. 18 0
  2306. 11 00000791
  2307. 7 "_default.sty"
  2308. 8 12
  2309. 2 101 1 "{12}" 0 0
  2310. 6 4
  2311. 5 0
  2312. 18 1
  2313. 11 00000877
  2314. 2 422 1 "{8}" "{4}" ""
  2315. 10 00000900
  2316. 2 422 1 "{8}" 0 "{5}"
  2317. 0 2 "Make this permanent?"
  2318. 13
  2319. 11 00000989
  2320. 16 AddToAutoexec 0 0 "{4}" "{5}" 0 0 "{8}"
  2321. 10 00001075
  2322. 5 1
  2323. 6 10
  2324. 18 0
  2325. 11 00001075
  2326. 0 3 "Not all necessary information found"
  2327. 6 3
  2328. 15
  2329. 9
  2330. 14 DetermineAccel
  2331. 5 0
  2332. 8 2
  2333. 0 27 8003
  2334. 13
  2335. 8 3
  2336. 7 ""
  2337. 6 3
  2338. 18 1
  2339. 11 00000623
  2340. 5 1
  2341. 0 14 "{3}"
  2342. 13
  2343. 18 0
  2344. 11 00000184
  2345. 0 806 "{3}" 1
  2346. 13
  2347. 0 18 [X]
  2348. 13
  2349. 0 40 [X]
  2350. 13
  2351. 8 2
  2352. 10 00000472
  2353. 7 "F"
  2354. 0 806 "{3}" 1
  2355. 13
  2356. 0 18 [X]
  2357. 13
  2358. 18 0
  2359. 0 14 "{3}"
  2360. 13
  2361. 5 1
  2362. 3 1
  2363. 0 807 "{3}" [X]
  2364. 13
  2365. 0 805 &1 [X]
  2366. 13
  2367. 0 277 [X]
  2368. 13
  2369. 1 1
  2370. 11 00000409
  2371. 0 784 "[112]"
  2372. 13
  2373. 0 40 [X]
  2374. 13
  2375. 5 1
  2376. 3 1
  2377. 8 2
  2378. 6 2
  2379. 6 1
  2380. 3 0
  2381. 8 2
  2382. 10 00000472
  2383. 0 3 "Invalid key.  It must be A - Z or F1 to F12"
  2384. 5 0
  2385. 15
  2386. 9
  2387. 0 27 21
  2388. 13
  2389. 11 00000523
  2390. 6 2
  2391. 5 16384
  2392. 25 2
  2393. 8 2
  2394. 0 27 22
  2395. 13
  2396. 11 00000573
  2397. 6 2
  2398. 5 4096
  2399. 25 2
  2400. 8 2
  2401. 0 27 23
  2402. 13
  2403. 11 00000623
  2404. 6 2
  2405. 5 8192
  2406. 25 2
  2407. 8 2
  2408. 6 2
  2409. 15
  2410. 9
  2411. 6 0
  2412. 15
  2413. 9
  2414. 14 ShowAccel
  2415. 5 0
  2416. 6 0
  2417. 18 1
  2418. 11 00000379
  2419. 6 0
  2420. 5 16384
  2421. 25 1
  2422. 0 31 21 [X]
  2423. 6 0
  2424. 5 4096
  2425. 25 1
  2426. 0 31 22 [X]
  2427. 6 0
  2428. 5 8192
  2429. 25 1
  2430. 0 31 23 [X]
  2431. 6 0
  2432. 5 255
  2433. 25 1
  2434. 8 0
  2435. 0 784 "[112]"
  2436. 13
  2437. 0 40 [X]
  2438. 13
  2439. 8 2
  2440. 6 2
  2441. 6 0
  2442. 18 4
  2443. 6 0
  2444. 6 2
  2445. 5 12
  2446. 3 0
  2447. 18 4
  2448. 1 1
  2449. 11 00000348
  2450. 5 49
  2451. 6 0
  2452. 6 2
  2453. 3 1
  2454. 3 0
  2455. 0 39 [X]
  2456. 13
  2457. 0 16 "F" [X]
  2458. 13
  2459. 0 31 8003 [X]
  2460. 10 00000379
  2461. 0 39 "{0}"
  2462. 13
  2463. 0 31 8003 [X]
  2464. 6 1
  2465. 15
  2466. 9
  2467. 14 AddAccelStuff
  2468. 7 ""
  2469. 8 3
  2470. 6 1
  2471. 5 16384
  2472. 25 1
  2473. 11 00000091
  2474. 0 16 "{3}" "Ctrl+"
  2475. 13
  2476. 8 3
  2477. 6 1
  2478. 5 4096
  2479. 25 1
  2480. 11 00000153
  2481. 0 16 "{3}" "Shift+"
  2482. 13
  2483. 8 3
  2484. 6 1
  2485. 5 8192
  2486. 25 1
  2487. 11 00000213
  2488. 0 16 "{3}" "Alt+"
  2489. 13
  2490. 8 3
  2491. 6 1
  2492. 5 255
  2493. 25 1
  2494. 8 1
  2495. 0 784 "[112]"
  2496. 13
  2497. 0 40 [X]
  2498. 13
  2499. 8 4
  2500. 6 4
  2501. 6 1
  2502. 18 4
  2503. 6 1
  2504. 6 4
  2505. 5 12
  2506. 3 0
  2507. 18 4
  2508. 1 1
  2509. 11 00000411
  2510. 5 49
  2511. 6 1
  2512. 6 4
  2513. 3 1
  2514. 3 0
  2515. 0 39 [X]
  2516. 13
  2517. 0 16 "F" [X]
  2518. 13
  2519. 8 5
  2520. 10 00000432
  2521. 0 39 "{1}"
  2522. 13
  2523. 8 5
  2524. 0 16 "{3}" "{5}"
  2525. 13
  2526. 8 3
  2527. 0 16 "{0}" "    " "{3}"
  2528. 13
  2529. 15
  2530. 9
  2531. 6 2
  2532. 15
  2533. 9
  2534. 14 LoadMenus
  2535. 0 284 "user,GetActiveWindow,H"
  2536. 13
  2537. 0 284 "user,GetMenu,HH" [X]
  2538. 13
  2539. 8 2
  2540. 0 284 "user,GetMenuItemCount,HH" "{2}"
  2541. 13
  2542. 8 3
  2543. 5 1
  2544. 8 5
  2545. 5 0
  2546. 8 6
  2547. 6 3
  2548. 5 1
  2549. 3 1
  2550. 6 6
  2551. 18 2
  2552. 12 00000242
  2553. 10 00000408
  2554. 5 1
  2555. 6 6
  2556. 3 0
  2557. 8 6
  2558. 10 00000157
  2559. 0 284 "user,GetMenuString,HHHFHH" "{2}" "{6}" &4 80 1024
  2560. 6 4
  2561. 7 ""
  2562. 18 1
  2563. 6 4
  2564. 7 "&Window"
  2565. 18 1
  2566. 1 1
  2567. 11 00000395
  2568. 6 5
  2569. 6 4
  2570. 23 0
  2571. 6 5
  2572. 5 1
  2573. 3 0
  2574. 8 5
  2575. 10 00000209
  2576. 6 5
  2577. 15
  2578. 9
  2579. 6 1
  2580. 15
  2581. 9
  2582. 14 GetMacro
  2583. 20 00000256
  2584. 19 00000256
  2585. 0 789 "One moment please..."
  2586. 0 295
  2587. 13
  2588. 0 781 [X]
  2589. 0 31 9001 "*.smm"
  2590. 0 789 ""
  2591. 5 1
  2592. 0 26 "." "macrolst"
  2593. 13
  2594. 18 0
  2595. 11 00000245
  2596. 0 290
  2597. 13
  2598. 0 27 8001
  2599. 13
  2600. 0 16 [X] [X]
  2601. 13
  2602. 0 17 [X]
  2603. 13
  2604. 8 1
  2605. 10 00000256
  2606. 7 ""
  2607. 8 1
  2608. 6 1
  2609. 15
  2610. 9
  2611. 0 789 ""
  2612. 6 0
  2613. 15
  2614. 9
  2615. 14 LoadAmiFuns
  2616. 20 00005831
  2617. 19 00005831
  2618. 0 789 "Loading control files..."
  2619. 5 1
  2620. 7 "New"
  2621. 23 0
  2622. 5 1
  2623. 7 "101"
  2624. 23 1
  2625. 5 2
  2626. 7 "Open"
  2627. 23 0
  2628. 5 2
  2629. 7 "102"
  2630. 23 1
  2631. 5 3
  2632. 7 "Save"
  2633. 23 0
  2634. 5 3
  2635. 7 "103"
  2636. 23 1
  2637. 5 4
  2638. 7 "Save As"
  2639. 23 0
  2640. 5 4
  2641. 7 "104"
  2642. 23 1
  2643. 5 5
  2644. 7 "Revert"
  2645. 23 0
  2646. 5 5
  2647. 7 "105"
  2648. 23 1
  2649. 5 6
  2650. 7 "Import/Export"
  2651. 23 0
  2652. 5 6
  2653. 7 "107"
  2654. 23 1
  2655. 5 7
  2656. 7 "Import Picture"
  2657. 23 0
  2658. 5 7
  2659. 7 "141"
  2660. 23 1
  2661. 5 8
  2662. 7 "File Management"
  2663. 23 0
  2664. 5 8
  2665. 7 "108"
  2666. 23 1
  2667. 5 9
  2668. 7 "Document Description"
  2669. 23 0
  2670. 5 9
  2671. 7 "109"
  2672. 23 1
  2673. 5 10
  2674. 7 "Rename Doc Info Fields"
  2675. 23 0
  2676. 5 10
  2677. 7 "125"
  2678. 23 1
  2679. 5 11
  2680. 7 "Links"
  2681. 23 0
  2682. 5 11
  2683. 7 "115"
  2684. 23 1
  2685. 5 12
  2686. 7 "Merge"
  2687. 23 0
  2688. 5 12
  2689. 7 "110"
  2690. 23 1
  2691. 5 13
  2692. 7 "Print"
  2693. 23 0
  2694. 5 13
  2695. 7 "111"
  2696. 23 1
  2697. 5 14
  2698. 7 "Printer Setup"
  2699. 23 0
  2700. 5 14
  2701. 7 "112"
  2702. 23 1
  2703. 5 15
  2704. 7 "Exit"
  2705. 23 0
  2706. 5 15
  2707. 7 "113"
  2708. 23 1
  2709. 5 16
  2710. 7 "Master Document"
  2711. 23 0
  2712. 5 16
  2713. 7 "146"
  2714. 23 1
  2715. 5 17
  2716. 7 "Undo"
  2717. 23 0
  2718. 5 17
  2719. 7 "151"
  2720. 23 1
  2721. 5 18
  2722. 7 "Cut"
  2723. 23 0
  2724. 5 18
  2725. 7 "153"
  2726. 23 1
  2727. 5 19
  2728. 7 "Copy"
  2729. 23 0
  2730. 5 19
  2731. 7 "154"
  2732. 23 1
  2733. 5 20
  2734. 7 "Paste"
  2735. 23 0
  2736. 5 20
  2737. 7 "155"
  2738. 23 1
  2739. 5 21
  2740. 7 "Paste Link"
  2741. 23 0
  2742. 5 21
  2743. 7 "157"
  2744. 23 1
  2745. 5 22
  2746. 7 "Insert Date"
  2747. 23 0
  2748. 5 22
  2749. 7 "158"
  2750. 23 1
  2751. 5 23
  2752. 7 "Footnotes"
  2753. 23 0
  2754. 5 23
  2755. 7 "160"
  2756. 23 1
  2757. 5 24
  2758. 7 "Defaults"
  2759. 23 0
  2760. 5 24
  2761. 7 "162"
  2762. 23 1
  2763. 5 25
  2764. 7 "Full Page"
  2765. 23 0
  2766. 5 25
  2767. 7 "201"
  2768. 23 1
  2769. 5 26
  2770. 7 "Custom View"
  2771. 23 0
  2772. 5 26
  2773. 7 "202"
  2774. 23 1
  2775. 5 27
  2776. 7 "Standard"
  2777. 23 0
  2778. 5 27
  2779. 7 "203"
  2780. 23 1
  2781. 5 28
  2782. 7 "Enlarged"
  2783. 23 0
  2784. 5 28
  2785. 7 "204"
  2786. 23 1
  2787. 5 29
  2788. 7 "Facing Pages"
  2789. 23 0
  2790. 5 29
  2791. 7 "212"
  2792. 23 1
  2793. 5 30
  2794. 7 "Layout Mode"
  2795. 23 0
  2796. 5 30
  2797. 7 "210"
  2798. 23 1
  2799. 5 31
  2800. 7 "Draft Mode"
  2801. 23 0
  2802. 5 31
  2803. 7 "211"
  2804. 23 1
  2805. 5 32
  2806. 7 "Display Preferences"
  2807. 23 0
  2808. 5 32
  2809. 7 "206"
  2810. 23 1
  2811. 5 33
  2812. 7 "Show Tab Ruler"
  2813. 23 0
  2814. 5 33
  2815. 7 "207"
  2816. 23 1
  2817. 5 34
  2818. 7 "Hide Side Bar"
  2819. 23 0
  2820. 5 34
  2821. 7 "109"
  2822. 23 1
  2823. 5 35
  2824. 7 "Envelope"
  2825. 23 0
  2826. 5 35
  2827. 7 "237"
  2828. 23 1
  2829. 5 36
  2830. 7 "Font"
  2831. 23 0
  2832. 5 36
  2833. 7 "251"
  2834. 23 1
  2835. 5 37
  2836. 7 "Alignment"
  2837. 23 0
  2838. 5 37
  2839. 7 "263"
  2840. 23 1
  2841. 5 38
  2842. 7 "Spacing"
  2843. 23 0
  2844. 5 38
  2845. 7 "252"
  2846. 23 1
  2847. 5 39
  2848. 7 "Normal"
  2849. 23 0
  2850. 5 39
  2851. 7 "253"
  2852. 23 1
  2853. 5 40
  2854. 7 "Bold"
  2855. 23 0
  2856. 5 40
  2857. 7 "254"
  2858. 23 1
  2859. 5 41
  2860. 7 "Italic"
  2861. 23 0
  2862. 5 41
  2863. 7 "255"
  2864. 23 1
  2865. 5 42
  2866. 7 "Underline"
  2867. 23 0
  2868. 5 42
  2869. 7 "256"
  2870. 23 1
  2871. 5 43
  2872. 7 "Word Underline"
  2873. 23 0
  2874. 5 43
  2875. 7 "256"
  2876. 23 1
  2877. 5 44
  2878. 7 "Caps"
  2879. 23 0
  2880. 5 44
  2881. 7 "264"
  2882. 23 1
  2883. 5 45
  2884. 7 "Special Effects"
  2885. 23 0
  2886. 5 45
  2887. 7 "258"
  2888. 23 1
  2889. 5 46
  2890. 7 "Create Style"
  2891. 23 0
  2892. 5 46
  2893. 7 "301"
  2894. 23 1
  2895. 5 47
  2896. 7 "Modify Style"
  2897. 23 0
  2898. 5 47
  2899. 7 "302"
  2900. 23 1
  2901. 5 48
  2902. 7 "Use Another Style Sheet"
  2903. 23 0
  2904. 5 48
  2905. 7 "304"
  2906. 23 1
  2907. 5 49
  2908. 7 "Save As A New Style Sheet"
  2909. 23 0
  2910. 5 49
  2911. 7 "305"
  2912. 23 1
  2913. 5 50
  2914. 7 "Style Management"
  2915. 23 0
  2916. 5 50
  2917. 7 "303"
  2918. 23 1
  2919. 5 51
  2920. 7 "Select a Style"
  2921. 23 0
  2922. 5 51
  2923. 7 "306"
  2924. 23 1
  2925. 5 52
  2926. 7 "Show Styles Box"
  2927. 23 0
  2928. 5 52
  2929. 7 "307"
  2930. 23 1
  2931. 5 53
  2932. 7 "Insert/Remove Layout"
  2933. 23 0
  2934. 5 53
  2935. 7 "351"
  2936. 23 1
  2937. 5 54
  2938. 7 "Modify Layout"
  2939. 23 0
  2940. 5 54
  2941. 7 "352"
  2942. 23 1
  2943. 5 55
  2944. 7 "Floating Header/Footer"
  2945. 23 0
  2946. 5 55
  2947. 7 "360"
  2948. 23 1
  2949. 5 56
  2950. 7 "Tab Ruler"
  2951. 23 0
  2952. 5 56
  2953. 7 "355"
  2954. 23 1
  2955. 5 57
  2956. 7 "Page Numbering"
  2957. 23 0
  2958. 5 57
  2959. 7 "356"
  2960. 23 1
  2961. 5 58
  2962. 7 "Line Numbering"
  2963. 23 0
  2964. 5 58
  2965. 7 "359"
  2966. 23 1
  2967. 5 59
  2968. 7 "Page Break"
  2969. 23 0
  2970. 5 59
  2971. 7 "357"
  2972. 23 1
  2973. 5 60
  2974. 7 "Add a Frame"
  2975. 23 0
  2976. 5 60
  2977. 7 "409"
  2978. 23 1
  2979. 5 61
  2980. 7 "Frame Layout"
  2981. 23 0
  2982. 5 61
  2983. 7 "402"
  2984. 23 1
  2985. 5 62
  2986. 7 "Graphics Scaling"
  2987. 23 0
  2988. 5 62
  2989. 7 "403"
  2990. 23 1
  2991. 5 63
  2992. 7 "Image Processing"
  2993. 23 0
  2994. 5 63
  2995. 7 "410"
  2996. 23 1
  2997. 5 64
  2998. 7 "Go To"
  2999. 23 0
  3000. 5 64
  3001. 7 "452"
  3002. 23 1
  3003. 5 65
  3004. 7 "Find Replace"
  3005. 23 0
  3006. 5 65
  3007. 7 "451"
  3008. 23 1
  3009. 5 66
  3010. 7 "Spelling"
  3011. 23 0
  3012. 5 66
  3013. 7 "453"
  3014. 23 1
  3015. 5 67
  3016. 7 "Thesaurus"
  3017. 23 0
  3018. 5 67
  3019. 7 "455"
  3020. 23 1
  3021. 5 68
  3022. 7 "Glossary"
  3023. 23 0
  3024. 5 68
  3025. 7 "467"
  3026. 23 1
  3027. 5 69
  3028. 7 "Sort"
  3029. 23 0
  3030. 5 69
  3031. 7 "456"
  3032. 23 1
  3033. 5 70
  3034. 7 "Generate Toc, Index"
  3035. 23 0
  3036. 5 70
  3037. 7 "465"
  3038. 23 1
  3039. 5 71
  3040. 7 "Tables"
  3041. 23 0
  3042. 5 71
  3043. 7 "457"
  3044. 23 1
  3045. 5 72
  3046. 7 "Insert Note"
  3047. 23 0
  3048. 5 72
  3049. 7 "282"
  3050. 23 1
  3051. 5 73
  3052. 7 "Insert Merge Field"
  3053. 23 0
  3054. 5 73
  3055. 7 "182"
  3056. 23 1
  3057. 5 74
  3058. 7 "Insert Doc Info"
  3059. 23 0
  3060. 5 74
  3061. 7 "183"
  3062. 23 1
  3063. 5 75
  3064. 7 "Insert Power Field"
  3065. 23 0
  3066. 5 75
  3067. 7 "568"
  3068. 23 1
  3069. 5 76
  3070. 7 "Update Power Field"
  3071. 23 0
  3072. 5 76
  3073. 7 "571"
  3074. 23 1
  3075. 5 77
  3076. 7 "Update All Power Fields"
  3077. 23 0
  3078. 5 77
  3079. 7 "267"
  3080. 23 1
  3081. 5 78
  3082. 7 "Next Power Field"
  3083. 23 0
  3084. 5 78
  3085. 7 "569"
  3086. 23 1
  3087. 5 79
  3088. 7 "Previous Power Field"
  3089. 23 0
  3090. 5 79
  3091. 7 "570"
  3092. 23 1
  3093. 5 80
  3094. 7 "Mark Index"
  3095. 23 0
  3096. 5 80
  3097. 7 "180"
  3098. 23 1
  3099. 5 81
  3100. 7 "Mark Glossary"
  3101. 23 0
  3102. 5 81
  3103. 7 "199"
  3104. 23 1
  3105. 5 82
  3106. 7 "Revision Marking"
  3107. 23 0
  3108. 5 82
  3109. 7 "187"
  3110. 23 1
  3111. 5 83
  3112. 7 "Protect Text"
  3113. 23 0
  3114. 5 83
  3115. 7 "188"
  3116. 23 1
  3117. 5 84
  3118. 7 "No Hyphenation"
  3119. 23 0
  3120. 5 84
  3121. 7 "189"
  3122. 23 1
  3123. 5 85
  3124. 7 "Left Align"
  3125. 23 0
  3126. 5 85
  3127. 7 "259"
  3128. 23 1
  3129. 5 86
  3130. 7 "Right Align"
  3131. 23 0
  3132. 5 86
  3133. 7 "261"
  3134. 23 1
  3135. 5 87
  3136. 7 "Center"
  3137. 23 0
  3138. 5 87
  3139. 7 "260"
  3140. 23 1
  3141. 5 88
  3142. 7 "Justify"
  3143. 23 0
  3144. 5 88
  3145. 7 "262"
  3146. 23 1
  3147. 5 89
  3148. 7 "Upper Case"
  3149. 23 0
  3150. 5 89
  3151. 7 "273"
  3152. 23 1
  3153. 5 90
  3154. 7 "Lower Case"
  3155. 23 0
  3156. 5 90
  3157. 7 "287"
  3158. 23 1
  3159. 5 91
  3160. 7 "Initial Caps"
  3161. 23 0
  3162. 5 91
  3163. 7 "288"
  3164. 23 1
  3165. 5 92
  3166. 7 "Small Caps"
  3167. 23 0
  3168. 5 92
  3169. 7 "289"
  3170. 23 1
  3171. 5 93
  3172. 7 "Insert Page Layout"
  3173. 23 0
  3174. 5 93
  3175. 7 "375"
  3176. 23 1
  3177. 5 94
  3178. 7 "Remove Page Layout"
  3179. 23 0
  3180. 5 94
  3181. 7 "373"
  3182. 23 1
  3183. 5 95
  3184. 7 "Revert Page Layout"
  3185. 23 0
  3186. 5 95
  3187. 7 "374"
  3188. 23 1
  3189. 5 96
  3190. 7 "Insert Tab Ruler"
  3191. 23 0
  3192. 5 96
  3193. 7 "371"
  3194. 23 1
  3195. 5 97
  3196. 7 "Remove Tab Ruler"
  3197. 23 0
  3198. 5 97
  3199. 7 "372"
  3200. 23 1
  3201. 5 98
  3202. 7 "Macro Play"
  3203. 23 0
  3204. 5 98
  3205. 7 "502"
  3206. 23 1
  3207. 5 99
  3208. 7 "Macro Record"
  3209. 23 0
  3210. 5 99
  3211. 7 "503"
  3212. 23 1
  3213. 5 100
  3214. 7 "Macro Edit"
  3215. 23 0
  3216. 5 100
  3217. 7 "501"
  3218. 23 1
  3219. 5 101
  3220. 7 "Quick Record"
  3221. 23 0
  3222. 5 101
  3223. 7 "505"
  3224. 23 1
  3225. 5 102
  3226. 7 "Quick Play"
  3227. 23 0
  3228. 5 102
  3229. 7 "506"
  3230. 23 1
  3231. 5 103
  3232. 7 "Insert Bullet"
  3233. 23 0
  3234. 5 103
  3235. 7 "836"
  3236. 23 1
  3237. 5 104
  3238. 7 "Fast Format"
  3239. 23 0
  3240. 5 104
  3241. 7 "246"
  3242. 23 1
  3243. 5 105
  3244. 7 "Header Footer"
  3245. 23 0
  3246. 5 105
  3247. 7 "377"
  3248. 23 1
  3249. 5 106
  3250. 7 "Control Panel"
  3251. 23 0
  3252. 5 106
  3253. 7 "601"
  3254. 23 1
  3255. 5 107
  3256. 7 "Tab Ruler"
  3257. 23 0
  3258. 5 107
  3259. 7 "810"
  3260. 23 1
  3261. 5 108
  3262. 7 "Assign Macro To File"
  3263. 23 0
  3264. 5 108
  3265. 7 "436"
  3266. 23 1
  3267. 5 109
  3268. 7 "Toggle Clean Screen"
  3269. 23 0
  3270. 5 109
  3271. 7 "233"
  3272. 23 1
  3273. 5 110
  3274. 7 "Clean Screen Option"
  3275. 23 0
  3276. 5 110
  3277. 7 "234"
  3278. 23 1
  3279. 5 111
  3280. 7 "Mark Index Word"
  3281. 23 0
  3282. 5 111
  3283. 7 "180"
  3284. 23 1
  3285. 5 112
  3286. 7 "Mark TOC Entry"
  3287. 23 0
  3288. 5 112
  3289. 7 "835"
  3290. 23 1
  3291. 5 113
  3292. 7 "Set Default Paths"
  3293. 23 0
  3294. 5 113
  3295. 7 "170"
  3296. 23 1
  3297. 0 296 0
  3298. 0 789 ""
  3299. 5 113
  3300. 15
  3301. 9
  3302. 6 2
  3303. 15
  3304. 9
  3305. 14 GetAmiPro
  3306. 20 00000102
  3307. 19 00000102
  3308. 0 789 "One moment please..."
  3309. 0 296 1
  3310. 0 31 8000 &0
  3311. 0 296 0
  3312. 0 789 ""
  3313. 5 0
  3314. 8 3
  3315. 5 1
  3316. 0 26 "." "funclst"
  3317. 13
  3318. 18 0
  3319. 11 00000336
  3320. 0 27 9000
  3321. 13
  3322. 8 4
  3323. 5 1
  3324. 8 3
  3325. 6 1
  3326. 6 3
  3327. 18 2
  3328. 12 00000275
  3329. 10 00000336
  3330. 5 1
  3331. 6 3
  3332. 3 0
  3333. 8 3
  3334. 10 00000200
  3335. 6 4
  3336. 6 3
  3337. 22 0
  3338. 18 0
  3339. 11 00000323
  3340. 10 00000336
  3341. 10 00000242
  3342. 6 3
  3343. 15
  3344. 9
  3345. 6 2
  3346. 15
  3347. 9
  3348. 14 AddToAutoexec
  3349. 16 OpenAutoExec
  3350. 6 6
  3351. 5 0
  3352. 18 1
  3353. 11 00000181
  3354. 0 6 "accel = {6}[13]"
  3355. 0 6 "menuid = {2}[13]"
  3356. 0 6 "macroname = ""{3}""[13]"
  3357. 0 6 "OnKey(accel, menuid, macroname)"
  3358. 5 0
  3359. 6 0
  3360. 18 1
  3361. 11 00000861
  3362. 0 6 "menuname = ""{0}""[13]"
  3363. 0 6 "itemname = ""{1}""[13]"
  3364. 5 0
  3365. 6 2
  3366. 18 1
  3367. 11 00000548
  3368. 0 6 "menuid = {2}[13]"
  3369. 5 0
  3370. 6 5
  3371. 18 0
  3372. 11 00000424
  3373. 0 6 "AddmenuItem(1, {{menuname}, {{itemname}, {{menuid})"
  3374. 10 00000535
  3375. 6 5
  3376. 5 1
  3377. 3 1
  3378. 8 5
  3379. 0 6 "pos = {5}[13]"
  3380. 0 6 "InsertMenuItem(1, {{menuname}, {{pos}, {{itemname}, {{menuid})"
  3381. 10 00000861
  3382. 0 6 "macroname = ""{3}""[13]"
  3383. 0 6 "helptext = ""{4}""[13]"
  3384. 5 0
  3385. 6 5
  3386. 18 0
  3387. 11 00000726
  3388. 0 6 "AddmenuItem(1, {{menuname}, {{itemname}, {{macroname}, {{helptext})"
  3389. 10 00000861
  3390. 6 5
  3391. 5 1
  3392. 3 1
  3393. 8 5
  3394. 0 6 "pos = {5}[13]"
  3395. 0 6 "InsertMenuItem(1, {{menuname}, {{pos},"
  3396. 0 6 " {{itemname}, {{macroname}, {{helptext})"
  3397. 2 103 1
  3398. 2 147 1
  3399. 6 7
  3400. 15
  3401. 9
  3402. 14 DelFromAutoexec
  3403. 16 OpenAutoExec
  3404. 0 6 "menuname = ""{0}""[13]"
  3405. 0 6 "itemname = ""{1}""[13]"
  3406. 0 6 "DeleteMenuItem(1, {{menuname}, {{itemname})"
  3407. 2 103 1
  3408. 2 147 1
  3409. 6 2
  3410. 15
  3411. 9
  3412. 14 OpenAutoExec
  3413. 16 FindAutoExec
  3414. 13
  3415. 8 2
  3416. 5 0
  3417. 0 259 "{2}" "r"
  3418. 13
  3419. 0 805 &1 [X]
  3420. 13
  3421. 18 0
  3422. 11 00000330
  3423. 0 286 "AmiPro" "defstyle" "amipro.ini"
  3424. 13
  3425. 8 3
  3426. 6 3
  3427. 7 ""
  3428. 18 0
  3429. 11 00000208
  3430. 7 "_default.sty"
  3431. 8 3
  3432. 2 101 1 "{3}" 0 0
  3433. 0 6 "FUNCTION auto()[13]"
  3434. 0 6 "END FUNCTION[13]"
  3435. 0 6 "[16420]"
  3436. 2 104 1 "{2}" 32 "" ""
  3437. 10 00000363
  3438. 0 260 "{1}"
  3439. 2 102 1 "{2}" 1 ""
  3440. 2 488 1 0 0 24576 "End function" ""
  3441. 0 6 "[36]"
  3442. 0 6 "[13]"
  3443. 0 6 "[38]"
  3444. 6 0
  3445. 15
  3446. 9
  3447. 14 FindAutoExec
  3448. 0 295
  3449. 13
  3450. 0 16 [X] "autoexec.smm"
  3451. 13
  3452. 8 2
  3453. 5 0
  3454. 0 259 "{2}" "r"
  3455. 13
  3456. 0 805 &1 [X]
  3457. 13
  3458. 18 0
  3459. 11 00000317
  3460. 0 268
  3461. 13
  3462. 0 16 [X] "autoexec.smm"
  3463. 13
  3464. 8 2
  3465. 5 0
  3466. 0 259 "{2}" "r"
  3467. 13
  3468. 0 805 &1 [X]
  3469. 13
  3470. 18 0
  3471. 11 00000291
  3472. 0 798
  3473. 13
  3474. 0 16 [X] "autoexec.smm"
  3475. 13
  3476. 8 2
  3477. 10 00000304
  3478. 0 260 "{1}"
  3479. 10 00000330
  3480. 0 260 "{1}"
  3481. 6 2
  3482. 15
  3483. 9
  3484. 6 0
  3485. 15
  3486. 9
  3487. 14 LocateHmenu
  3488. 0 284 "user,GetActiveWindow,H"
  3489. 13
  3490. 8 2
  3491. 6 2
  3492. 8 3
  3493. 5 0
  3494. 0 284 "user,GetParent,HH" "{2}"
  3495. 13
  3496. 0 805 &2 [X]
  3497. 13
  3498. 18 1
  3499. 11 00000169
  3500. 6 2
  3501. 8 3
  3502. 10 00000067
  3503. 6 3
  3504. 8 2
  3505. 0 284 "user,GetMenu,HH" "{2}"
  3506. 13
  3507. 8 4
  3508. 16 FindMenu "{4}" "{0}"
  3509. 13
  3510. 15
  3511. 9
  3512. 6 1
  3513. 15
  3514. 9
  3515. 14 DelMenu
  3516. 0 284 "user,GetActiveWindow,H"
  3517. 13
  3518. 8 2
  3519. 6 2
  3520. 8 3
  3521. 5 0
  3522. 0 284 "user,GetParent,HH" "{2}"
  3523. 13
  3524. 0 805 &2 [X]
  3525. 13
  3526. 18 1
  3527. 11 00000165
  3528. 6 2
  3529. 8 3
  3530. 10 00000063
  3531. 6 3
  3532. 8 2
  3533. 0 284 "user,GetMenu,HH" "{2}"
  3534. 13
  3535. 8 4
  3536. 5 0
  3537. 16 FindMenu "{4}" "{0}"
  3538. 13
  3539. 0 805 &4 [X]
  3540. 13
  3541. 18 1
  3542. 11 00000478
  3543. 16 LoadTheBox "{4}" 9000
  3544. 5 1
  3545. 0 26 "." "DelMenu"
  3546. 13
  3547. 18 0
  3548. 11 00000478
  3549. 0 27 9000
  3550. 13
  3551. 8 5
  3552. 0 520 1 "{0}" "{5}"
  3553. 0 2 "Make this permanent?"
  3554. 13
  3555. 11 00000478
  3556. 16 DelFromAutoExec "{0}" "{5}"
  3557. 6 1
  3558. 15
  3559. 9
  3560. 14 LoadTheBox
  3561. 0 284 "user,GetMenuItemCount,HH" "{0}"
  3562. 13
  3563. 8 4
  3564. 5 0
  3565. 8 5
  3566. 6 4
  3567. 5 1
  3568. 3 1
  3569. 6 5
  3570. 18 2
  3571. 12 00000159
  3572. 10 00000352
  3573. 5 1
  3574. 6 5
  3575. 3 0
  3576. 8 5
  3577. 10 00000074
  3578. 0 284 "user,GetMenuString,HHHFHH" "{0}" "{5}" &3 80 1024
  3579. 5 0
  3580. 0 14 "{3}"
  3581. 13
  3582. 18 5
  3583. 11 00000288
  3584. 0 31 "{1}" "{3}"
  3585. 10 00000339
  3586. 0 31 "{1}" "------------------------------------"
  3587. 10 00000126
  3588. 6 2
  3589. 15
  3590. 9
  3591. 14 FindMenu
  3592. 0 284 "user,GetMenuItemCount,HH" "{0}"
  3593. 13
  3594. 8 4
  3595. 5 0
  3596. 8 5
  3597. 6 4
  3598. 5 1
  3599. 3 1
  3600. 6 5
  3601. 18 2
  3602. 12 00000157
  3603. 10 00000319
  3604. 5 1
  3605. 6 5
  3606. 3 0
  3607. 8 5
  3608. 10 00000072
  3609. 0 284 "user,GetMenuString,HHHFHH" "{0}" "{5}" &3 80 1024
  3610. 6 1
  3611. 6 3
  3612. 18 0
  3613. 11 00000306
  3614. 0 284 "user,GetSubMenu,HHH" "{0}" "{5}"
  3615. 13
  3616. 8 0
  3617. 6 0
  3618. 15
  3619. 9
  3620. 10 00000124
  3621. 5 0
  3622. 15
  3623. 9
  3624. 6 2
  3625. 15
  3626. 9
  3627. DIALOG DelMenu
  3628. -2134376448 5 98 46 176 86 "" "" "Delete Menu Item" 
  3629. FONT 8 "Helv" 
  3630. 130 4 40 14 1 1342242817 "button" "OK" 0 
  3631. 130 20 40 14 2 1342242816 "button" "Cancel" 0 
  3632. 5 40 120 42 9000 1352728577 "listbox" "" 0 
  3633. 6 30 56 8 1000 1342177280 "static" "&Menu items:" 0 
  3634. 5 7 99 17 1001 1342177280 "static" "Select a menu item to delete." 0 
  3635. DIALOG PickMenu
  3636. -2134376448 6 89 47 200 78 "" "" "Customize Ami Pro" 
  3637. FONT 8 "Helv" 
  3638. 5 20 56 54 9000 1352728577 "listbox" "" 0 
  3639. 149 4 44 14 2 1342242816 "button" "Done" 0 
  3640. 67 20 126 14 5 1342242816 "button" "&Add an Ami Pro Function or Macro..." 0 
  3641. 67 36 126 14 6 1342242816 "button" "&Delete a menu item..." 0 
  3642. 6 9 56 8 1000 1342177280 "static" "&Menus:" 0 
  3643. 67 53 126 14 7 1342242816 "button" "Assign Key Commands..." 0 
  3644. DIALOG AddItem
  3645. -2134376448 20 35 26 260 104 "" "" "Add Menu Item" 
  3646. FONT 8 "Helv" 
  3647. 5 16 82 8 1000 1342177282 "static" "Name for Menu:" 0 
  3648. 89 14 84 12 8000 1350631552 "edit" "" 0 
  3649. 5 30 82 8 1006 1342177282 "static" "&Insert before:" 0 
  3650. 99 78 141 8 1001 1342177280 "static" "Optional help text for macro functions only:" 0 
  3651. 183 41 71 14 3 1342242816 "button" "Ami Pro &Function..." 0 
  3652. 183 57 71 14 4 1342242816 "button" "&Macro..." 0 
  3653. 99 88 138 12 8001 1350631552 "edit" "" 0 
  3654. 9 78 18 12 8003 1350631552 "edit" "" 0 
  3655. 5 56 86 44 20 1342177287 "button" "&Shortcut key" 0 
  3656. 49 67 38 10 21 1342242819 "button" "&Control" 0 
  3657. 49 77 38 10 22 1342242819 "button" "&Shift" 0 
  3658. 49 87 38 10 23 1342242819 "button" "Al&t" 0 
  3659. 5 4 82 8 1002 1342177282 "static" "Add to me&nu:" 0 
  3660. 214 6 40 14 1 1342242817 "button" "OK" 0 
  3661. 214 22 40 14 2 1342242816 "button" "Cancel" 0 
  3662. 108 4 84 8 1003 1342177280 "static" "" 0 
  3663. 5 42 82 8 1004 1342177282 "static" "Fun&ction/macro to add:" 0 
  3664. 89 42 84 8 1005 1342177280 "static" "" 0 
  3665. 9 67 38 10 1007 1342177280 "static" "&Keystroke:" 0 
  3666. 89 28 84 58 9500 1344274435 "combobox" "" 0 
  3667. DIALOG AddAccel
  3668. -2134376448 12 93 28 208 72 "" "" "Add Keyboard Shortcut" 
  3669. FONT 8 "Helv" 
  3670. 128 36 74 14 3 1342242816 "button" "Ami Pro &Function..." 0 
  3671. 128 52 74 14 4 1342242816 "button" "&Macro..." 0 
  3672. 10 34 18 12 8003 1350631552 "edit" "" 0 
  3673. 6 14 90 44 20 1342177287 "button" "Shortcut key" 0 
  3674. 50 26 36 10 21 1342242819 "button" "&Control" 0 
  3675. 50 36 38 10 22 1342242819 "button" "&Shift" 0 
  3676. 50 46 38 10 23 1342242819 "button" "&Alt" 0 
  3677. 162 4 40 14 1 1342242817 "button" "OK" 0 
  3678. 162 20 40 14 2 1342242816 "button" "Cancel" 0 
  3679. 6 4 64 10 1004 1342177280 "static" "Function/macro:" 0 
  3680. 74 4 80 10 1005 1342177280 "static" "text" 0 
  3681. 10 26 38 8 1007 1342177280 "static" "Keystroke:" 0 
  3682. DIALOG MacroLst
  3683. -2134376448 6 108 30 154 90 "" "" "Add Macro " 
  3684. FONT 8 "Helv" 
  3685. 8 16 60 12 8001 1350631552 "edit" "" 0 
  3686. 8 32 60 54 9001 1352728579 "listbox" "" 0 
  3687. 72 38 74 8 7999 1342177280 "static" "" 0 
  3688. 106 4 40 14 1 1342242817 "button" "OK" 0 
  3689. 106 20 40 14 2 1342242816 "button" "Cancel" 0 
  3690. 8 6 68 8 1001 1342177280 "static" "&Macro to execute:" 0 
  3691. DIALOG FuncLst
  3692. -2134376448 4 112 28 158 68 "" "" "Add Function" 
  3693. FONT 8 "Helv" 
  3694. 6 16 100 46 9000 1352728579 "listbox" "" 0 
  3695. 6 6 66 8 1000 1342177280 "static" "&Ami Pro functions:" 0 
  3696. 112 6 40 14 1 1342242817 "button" "OK" 0 
  3697. 112 22 40 14 2 1342242816 "button" "Cancel" 0 
  3698. 00038719
  3699.