Piper's Pit BBS/FTP: ibm 0020 - 0029/ibm0020-0029/ibm0028.tar/ibm0028/AMWP-2.ZIP/MACROS.ZIP/CUSTMENU.SMM

INI File | 1990-07-05 | 34.1 KB | 2,560 lines

[ver]
    4
[sty]

[files]
[prn]
    PCL / HP LaserJet
[lang]
    1
[desc]
    Allows complete customization of Am<\m> Professional menu bar and sub menus. Can rename, delete, add menus and items.




    647228509
    76
    629144757
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
[docopts]
    5
    2
[tag]
    Body Text
    2
    [fnt]
        Helv
        240
        0
        16385
    [algn]
        225
        1
        0
        0
        0
    [spc]
        17
        201
        1
        0
        72
        1
        100
    [brk]
        0
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        0
        0
        0
        0
        0
    [nfmt]
        272
        1
        2
        .
        ,
        $
[tag]
    Body Single
    3
    [fnt]
        Helv
        240
        0
        16385
    [algn]
        225
        1
        0
        0
        0
    [spc]
        17
        201
        1
        0
        72
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        0
        0
        0
        0
        0
    [nfmt]
        272
        1
        2
        .
        ,
        $
[lay]
    Standard
    513
    [rght]
        15840
        12240
        1
        1440
        1440
        1
        1440
        1440
        0
        1
        0
        1
        1
        1
        1
        1440
        10800
        0
    [hrght]
    [lyfrm]
        1
        11200
        0
        0
        12240
        1440
        1
        1
        3
        1
        0
        0
        0
    [frmlay]
        1440
        12240
        1
        1440
        0
        1
        0
        1440
        0
        1
        0
        1
        1
        1
        1
        1440
        10800
        0
    [txt]
>
    [frght]
    [lyfrm]
        1
        13248
        0
        14400
        12240
        15840
        1
        1
        3
        1
        0
        0
        0
    [frmlay]
        15840
        12240
        1
        1440
        0
        1
        14400
        1440
        0
        1
        0
        1
        1
        1
        1
        1440
        10800
        0
    [txt]
>
[elay]
[l1]
    0
[edoc]
@Body Single@'

@Body Single@' modmenu - create custom menus

@Body Single@'

@Body Single@function modmenu(barname)

@Body Single@'singlestep(0)

@Body Single@ignorekeyboard(1)

@Body Single@Declare    InitMenuArray(globalid, filename)

@Body Single@Declare FreeMenuArray(globalid)

@Body Single@Declare LoadTopDialog(globalid, count, name)

@Body Single@Declare LoadSubDialog(globid, globcnt, index)

@Body Single@Declare FindIdxByName(id, string)

@Body Single@Declare DoSubMenu(globid, menucnt, index)

@Body Single@Declare DeleteByIndex(id, index)

@Body Single@Declare LoadInsDlg()

@Body Single@Declare InsertAmi(id, index, before, text)

@Body Single@Declare InsertMacro(id, index, before, text, macro)

@Body Single@Declare SaveMenu(id, cnt, name, overwrite)

@Body Single@Declare AddExt(name, ext)

@Body Single@Declare InsertMenu(id, name, index, before)

@Body Single@Declare menunew.smm!NewMenu(name)

@Body Single@Declare Wild(xBarname)

@Body Single@macpath = getmacpath$()

@Body Single@stdname = "{macpath}standard.mnu"

@Body Single@if "" = barname                        ' if none passed use

    autoloadmnu = getprofilestring$("" "custmnu")

    if autoloadmnu = "" then

        writeprofilestring("" "custmnu" "{macpath}standard.mnu")

@Body Single@        barname = "{macpath}standard.mnu"

    else

        barname = autoloadmnu

@Body Single@    endif

@Body Single@endif

@Body Single@
@Body Single@oncancel freeup

@Body Single@'time1 = GetTime()


@Body Single@menucnt = InitMenuArray(927, barname)

@Body Single@'time2 = (GetTime() - time1) / 1000

@Body Single@'message("That took {time2} seconds (menucnt {menucnt})")

@Body Single@
@Body Single@go = 1

@Body Single@if (0 << menucnt)                                        ' init ok?

@Body Single@    while (go)

@Body Single@        LoadTopDialog(927, menucnt, barname)

@Body Single@        what = DialogBox("menumac.ext", "topmenu")

@Body Single@        if (1 = what)

@Body Single@            if (barname != stdname)

@Body Single@                savemenu(927,  menucnt, barname, TRUE)

@Body Single@                menunew.smm!NewMenu(barname)

@Body Single@                barname = ucase$(barname)

@Body Single@                writeprofilestring("" "custmnu" barname)

@Body Single@                break

@Body Single@            endif

@Body Single@        endif

@Body Single@        if (0 = what)

@Body Single@            break

@Body Single@        endif

@Body Single@
@Body Single@        ' delete, rename and modify need to know what was selected

@Body Single@
@Body Single@        if (what = 3) or (what = 4) or (what = 7) or (what = 8)

@Body Single@            temp = GetDialogField$(9000)

@Body Single@            if ("" <<>> temp)

@Body Single@                globidx = FindIdxByname(927, temp)

@Body Single@            else

@Body Single@                globidx = 1

@Body Single@                temp = GetGlobalArray$(927, 1)

@Body Single@            endif

@Body Single@        endif

@Body Single@
@Body Single@        switch what

@Body Single@        case 4                        ' Rename

@Body Single@            FillEdit(8000, temp)

@Body Single@            Filledit(8001, temp)

@Body Single@            if (DialogBox("menumac.ext", "rename"))

@Body Single@                newname = GetDialogField$(8000)

@Body Single@                if (newname <<>> "")

@Body Single@                    offset = globidx * 2 - 1

@Body Single@                    SetGlobalArray(927, offset, newname)

@Body Single@                endif

@Body Single@            endif

@Body Single@        case  3                        ' Modify

@Body Single@            DoSubMenu(927, menucnt, globidx)

@Body Single@        case 1

@Body Single@            goto saveit                ' Good Heavens!  a goto.

@Body Single@        case 5                        ' Save As

@Body Single@saveit:

@Body Single@            if (barname != stdname)

@Body Single@                filledit(8001 barname)

@Body Single@            endif

@Body Single@            filledit(8001, stdname)

@Body Single@            if (DialogBox("menumac.ext", "savemenu"))

@Body Single@                savename = GetDialogField$(8000)

@Body Single@                savename = AddExt(savename, "mnu")

@Body Single@                if (savename <<>> stdname)

@Body Single@                    if (savemenu(927,  menucnt, savename,

@Body Single@                                         FALSE))

@Body Single@                        barname = savename

@Body Single@                    endif

@Body Single@                    if (1 = what)

@Body Single@                        menunew.smm!NewMenu(barname)

@Body Single@                        go = 0

@Body Single@                    endif

@Body Single@                else

@Body Single@                    Message("Cannot use {stdname}")

@Body Single@                endif

@Body Single@            endif

@Body Single@        case 6                        ' Open

@Body Single@            FillEdit(9001, "{macpath}*.mnu")

@Body Single@            if (DialogBox("menumac.ext", "openmenu"))

@Body Single@                tempname = GetDialogField$(9001)

@Body Single@                tempname = AddExt(tempname, "mnu")

@Body Single@                fid = fopen("{macpath}{tempname}", "r")

@Body Single@                if (-1 != fid)

@Body Single@                    fclose(fid)

@Body Single@                    menucnt = initmenuarray(927, tempname)

@Body Single@                    barname = tempname

@Body Single@                endif

@Body Single@            endif

@Body Single@        case 9                        ' reset

@Body Single@            hourglass(1)

@Body Single@            menucnt = initmenuarray(927, stdname)

@Body Single@            xstdname = wild(stdname)

@Body Single@            writeprofilestring("" "{macpath}custmnu" xstdname)

@Body Single@            barname = stdname

@Body Single@            hourglass(0)

@Body Single@        case 7                        ' AddMenu...

@Body Single@            FillEdit(8001, temp)

@Body Single@            FillEdit(8002, temp)

@Body Single@            FillEdit(104, 1)

@Body Single@            if (DialogBox("menumac.ext", "addmenu"))

@Body Single@                newname = GetDialogField$(8000)

@Body Single@                if (newname <<>> "")

@Body Single@                    before = GetDialogField$(104)

@Body Single@                    InsertMenu(927, newname, globidx, before)

@Body Single@                    menucnt = menucnt + 1

@Body Single@                endif

@Body Single@            endif

@Body Single@        case 8                    ' Delete

@Body Single@            offset = globidx * 2

@Body Single@            temp = GetGlobalArray$(927, offset)

@Body Single@            FreeGlobalVar(temp)

@Body Single@            hourglass(1)

@Body Single@            DeleteByIndex(927, globidx)

@Body Single@            hourglass(0)

@Body Single@            menucnt = menucnt - 1

@Body Single@        endswitch

@Body Single@    wend

@Body Single@endif

@Body Single@freeup:

@Body Single@FreeMenuArray(927)

@Body Single@hourglass(0)

@Body Single@end function

@Body Single@<:p<* >>

@Body Single@' InitMenuArray - load a ".MNU" file into memory.  There will be one
main

@Body Single@' array for the bar, and then one array per menu.  Each element will
have two

@Body Single@' parts.  The main will have the text that appears on the bar, and
the global id

@Body Single@' that contains the menu definition.  The menu definition has the
text that

@Body Single@' appears on the pull down, and then either the ami function number
or

@Body Single@' a macro name.

@Body Single@'  MNU files has one line entries with ` separated fields.  The first
field specifies

@Body Single@' the type: a menu (1), menu item (2) or a separator(3).

@Body Single@FUNCTION InitMenuArray(globid, filename)

@Body Single@if (0 = AllocGlobalVar(globid, 40))

@Body Single@    FreeMenuArray(globid)

@Body Single@    AllocGlobalVar(globid, 40)

@Body Single@endif                    ' keep info here

@Body Single@menucnt = 0

@Body Single@hourglass(1)

@Body Single@fid = fopen(filename, "r")

@Body Single@if (0 != fid)

@Body Single@    while (1)                                    ' read until

@Body Single@        line = fgets$(fid)

@Body Single@        if (-1 = line)                            ' end of file

@Body Single@            break

@Body Single@        endif

@Body Single@        ctrl = strfield$(line, 1, "`")

@Body Single@        switch ctrl

@Body Single@            case 1        ' New menu

@Body Single@                menucnt = menucnt + 1

@Body Single@                menuname = strfield$(line, 2, "`")

@Body Single@                SetGlobalArray(globid, menucnt, menuname)

@Body Single@                menucnt = menucnt + 1

@Body Single@                subcnt = 0

@Body Single@                subid = AllocGlobalVar(0, 40)

@Body Single@                SetGlobalArray(globid, menucnt, subid)

@Body Single@            case 2

@Body Single@                subcnt = subcnt + 1

@Body Single@                itemname = Strfield$(line, 2, "`")

@Body Single@                SetGlobalArray(subid, subcnt, itemname)

@Body Single@                subcnt = subcnt + 1

@Body Single@                itemid = Strfield$(line, 3, "`")

@Body Single@                SetGlobalArray(subid, subcnt, itemid)

@Body Single@            case 3

@Body Single@                subcnt = subcnt + 1

@Body Single@                SetGlobalArray(subid, subcnt, "-")

@Body Single@                subcnt = subcnt + 1

@Body Single@        endswitch

@Body Single@    wend

@Body Single@    fclose(fid)

@Body Single@else

@Body Single@    message("Failed to open {filename}")

@Body Single@endif

@Body Single@hourglass(0)

@Body Single@return menucnt / 2

@Body Single@END FUNCTION<:p<* >>

@Body Single@' FreeMenuArray - free the global  array

@Body Single@function FreeMenuArray(globid)

@Body Single@
@Body Single@' run through the main array and free the menu arrays

@Body Single@
@Body Single@for i = 1 to 20

@Body Single@    index = i * 2

@Body Single@    id = GetGlobalArray$(globid, index)

@Body Single@    if ("" = id)

@Body Single@        break

@Body Single@    endif

@Body Single@    FreeGlobalVar(id)

@Body Single@next

@Body Single@
@Body Single@FreeGlobalVar(globid)        ' finally free the main

@Body Single@end function

@Body Single@<:p<* >>

@Body Single@' Stuff the top level dialog box

@Body Single@'

@Body Single@function LoadTopDialog(globid, cnt, barname)

@Body Single@
@Body Single@' Add all the menu names

@Body Single@
@Body Single@for i = 1 to cnt

@Body Single@    index = (i * 2) - 1

@Body Single@    item = GetGlobalArray$(globid, index)

@Body Single@    FillList(item)

@Body Single@next

@Body Single@xbarname = wild(barname)

@Body Single@FillEdit(8008, xbarname)                ' finally the filename

@Body Single@end function

@Body Single@'

@Body Single@' Stuff the modify menu dialog box.

@Body Single@function LoadSubDialog(globid, globcnt, globidx)

@Body Single@' Locate the menu array

@Body Single@offset = globidx * 2

@Body Single@subid = GetGlobalArray$(globid, offset)            ' pick up the global id

@Body Single@offset = offset - 1                            ' back up to where

@Body Single@temp = GetGlobalArray$(globid, offset)            ' where name is

@Body Single@FillEdit(8006, temp)                            ' add the name

@Body Single@
@Body Single@' now run through the array adding the menu strings to the list box

@Body Single@offset = 1

@Body Single@hourglass(1)

@Body Single@while (1)

@Body Single@    item = GetGlobalArray$(subid, offset)

@Body Single@    if ("" = item)

@Body Single@        break

@Body Single@    endif

@Body Single@
@Body Single@    FillEdit(9000, item)

@Body Single@    offset = offset + 2

@Body Single@wend

@Body Single@hourglass(0)

@Body Single@end function

@Body Single@    <:p<* >>

@Body Single@' Given a string find the index of that string.

@Body Single@'

@Body Single@function FindIdxbyname(id, string)

@Body Single@index = 1

@Body Single@while (1)

@Body Single@    temp = GetGlobalArray$(id, index)

@Body Single@    if "" = temp

@Body Single@        if ("" != string)

@Body Single@            message("{string} not found")

@Body Single@        endif

@Body Single@        return 1

@Body Single@    endif

@Body Single@    if (string = temp)

@Body Single@        return (index + 1) / 2

@Body Single@    endif

@Body Single@    index = index + 2

@Body Single@wend

@Body Single@end function

@Body Single@
@Body Single@' Make sure the passed name has the passed extension

@Body Single@
@Body Single@function AddExt(name, ext)

@Body Single@offset = strchr(1, name, ".")

@Body Single@if (-1 = offset)                            ' No extension?

@Body Single@    name = strcat$(name, ".")            ' add the period

@Body Single@    name = strcat$(name, ext)            ' then the extension

@Body Single@else

@Body Single@    name = mid$(name, 1, offset)            ' pull all but the ext

@Body Single@    name = strcat$(name, ext)            ' then add it

@Body Single@endif

@Body Single@return name

@Body Single@end function

@Body Single@<:p<* >>

@Body Single@'  Modify menu dialog box

@Body Single@function DoSubMenu(globid, menucnt, globidx)

@Body Single@offset = globidx * 2

@Body Single@subid = GetGlobalArray$(globid, offset)

@Body Single@while (1)

@Body Single@    LoadSubDialog(globid, menucnt, globidx)

@Body Single@    stat = dialogBox("menumac.ext", "submenu")

@Body Single@    if (1 = stat) or (0 = stat)

@Body Single@        break

@Body Single@    endif

@Body Single@    temp = GetDialogField$(9000)

@Body Single@    if ("" != temp) or (stat = 4) or (stat = 6)

@Body Single@        index = FindIdxByName(subid, temp)

@Body Single@        switch stat

@Body Single@            case 3                                ' delete

@Body Single@                DeleteByIndex(subid, index)

@Body Single@            case 5                                ' rename

@Body Single@                temp = GetDialogField$(9000)

@Body Single@                if ("" = temp)

@Body Single@                    break

@Body Single@                endif

@Body Single@                subidx = FindIdxbyname(subid, temp)

@Body Single@                offset = subidx * 2 - 1

@Body Single@                FillEdit(8001, temp)

@Body Single@                FillEdit(8000, temp)

@Body Single@                if (DialogBox("menumac.ext", "rename"))

@Body Single@                    newname = GetDialogField$(8000)

@Body Single@                    if ("" <<>> newname)

@Body Single@                        SetGlobalArray(subid, offset,newname)

@Body Single@                    endif

@Body Single@                endif

@Body Single@            case 4                                ' insert Ami Fun

@Body Single@                LoadInsDlg()

@Body Single@                FillEdit(8009, temp)

@Body Single@                if (DialogBox("menumac.ext", "amimenu"))

@Body Single@                    temp = GetDialogField$(9000)

@Body Single@                    before = GetDialogField$(104)

@Body Single@                    if ("" <<>> temp)

@Body Single@                        InsertAmi(subid, index, before, temp)

@Body Single@                    endif

@Body Single@                endif

@Body Single@            case 6                                ' insert macro

@Body Single@                macropath = getprofilestring$("" "macrodir")

@Body Single@                FillEdit(9001, macropath)

@Body Single@                FillEdit(104, "1")

@Body Single@                FillEdit(8009, temp)

@Body Single@                if (DialogBox("menumac.ext", "macmenu"))

@Body Single@                    macname = GetDialogfield$(9001)

@Body Single@                    text = GetDialogField$(8010)

@Body Single@                    before = GetDialogField$(104)

@Body Single@                    InsertMacro(subid, index, before, text,  macname)

@Body Single@                endif

@Body Single@

@Body Single@        endswitch

@Body Single@    else

@Body Single@        Message("Please select menu item first")

@Body Single@    endif

@Body Single@wend

@Body Single@end function<:p<* >>

@Body Single@' Given a global id and an index delete a entry

@Body Single@'

@Body Single@function DeleteByIndex(id, index)

@Body Single@taroff = index * 2 - 1

@Body Single@soroff = taroff + 2

@Body Single@while (1)

@Body Single@    temp = GetGlobalArray$(id, soroff)

@Body Single@    if ("" = temp)

@Body Single@        break

@Body Single@    endif

@Body Single@    SetGlobalArray(id, taroff, temp)

@Body Single@    soroff = soroff + 1

@Body Single@    taroff = taroff + 1

@Body Single@    temp = GetGlobalArray$(id, soroff)

@Body Single@    SetGlobalArray(id, taroff, temp)

@Body Single@    soroff = soroff + 1

@Body Single@    taroff = taroff + 1

@Body Single@wend

@Body Single@SetGlobalArray(id, taroff, "")                    ' signal end of array

@Body Single@taroff = taroff + 1

@Body Single@SetGlobalArray(id, taroff, "")

@Body Single@end function

@Body Single@'

@Body Single@' Stuff the insert ami function dialog box.

@Body Single@function LoadInsDlg()

@Body Single@macpath = getmacpath$()

@Body Single@fid = fopen("{macpath}standard.mnu", "r")        ' open the standard to
get all ami funs

@Body Single@if (0 != fid)

@Body Single@    hourglass(1)

@Body Single@    while (1)

@Body Single@        line = fgets$(fid)

@Body Single@        if (-1 = line)

@Body Single@            break

@Body Single@        endif

@Body Single@        ctrltype = strfield$(line, 1, "`")

@Body Single@        if (ctrltype = 2)

@Body Single@            name = strfield$(line, 2, "`")

@Body Single@            if ("-" != mid$(line, 1, 1))

@Body Single@                FillList(name)

@Body Single@            endif

@Body Single@        endif

@Body Single@    wend

@Body Single@    fclose(fid)

@Body Single@    hourglass(0)

@Body Single@endif

@Body Single@Filledit(104, "1")

@Body Single@end function

@Body Single@<:p<* >>

@Body Single@function InsertMenu(globid, newname, index, before)

@Body Single@
@Body Single@' make a hole for the new entry, find the end

@Body Single@
@Body Single@taroff = 1

@Body Single@while ("" != GetGlobalArray$(globid, taroff)) 'find the end

@Body Single@    taroff = taroff + 2

@Body Single@wend

@Body Single@taroff = taroff + 1        ' point to macroname

@Body Single@soroff = taroff - 2

@Body Single@if (before)

@Body Single@    lastsor = index * 2 - 1

@Body Single@else

@Body Single@    lastsor = index * 2 + 1

@Body Single@endif

@Body Single@while (soroff >>= lastsor)

@Body Single@    temp = GetGlobalArray$(globid, soroff)

@Body Single@    SetGlobalArray(globid, taroff, temp)

@Body Single@    soroff = soroff - 1

@Body Single@    taroff = taroff - 1

@Body Single@wend

@Body Single@
@Body Single@SetGlobalArray(globid, lastsor, newname)

@Body Single@lastsor  = lastsor+ 1

@Body Single@subid = AllocGlobalVar(0, 40)

@Body Single@SetGlobalArray(globid, lastsor, subid)

@Body Single@
@Body Single@end function

@Body Single@
@Body Single@
@Body Single@
@Body Single@' Insert a macro into a menu array

@Body Single@'

@Body Single@function InsertMacro(subid, index, before, menutext, macroname)

@Body Single@lastsor = 1

@Body Single@if ("" <<>> GetGlobalArray$(subid, 1))

@Body Single@
@Body Single@' make a hole for the new entry, find the end

@Body Single@
@Body Single@    taroff = 1

@Body Single@    while ("" != GetGlobalArray$(subid, taroff))

@Body Single@        taroff = taroff + 2

@Body Single@    wend

@Body Single@    taroff = taroff + 1        ' point to macroname

@Body Single@    soroff = taroff - 2

@Body Single@    if (before)

@Body Single@        lastsor = index * 2 - 1

@Body Single@    else

@Body Single@        lastsor = index * 2 + 1

@Body Single@    endif

@Body Single@    while (soroff >>= lastsor)

@Body Single@        temp = GetGlobalArray$(subid, soroff)

@Body Single@        SetGlobalArray(subid, taroff, temp)

@Body Single@        soroff = soroff - 1

@Body Single@        taroff = taroff - 1

@Body Single@    wend

@Body Single@endif

@Body Single@SetGlobalArray(subid, lastsor, menutext)

@Body Single@lastsor  = lastsor+ 1

@Body Single@SetGlobalArray(subid, lastsor, macroname)

@Body Single@
@Body Single@end function

@Body Single@'<:p<* >>

@Body Single@' Insert an ami function into a menu array

@Body Single@function InsertAmi(subid, index, before, menutext)

@Body Single@macpath = getmacpath$()

@Body Single@menuid = 0

@Body Single@fid = fopen("{macpath}standard.mnu", "r")        ' reopen the standard

@Body Single@if (0 != fid)                        ' then shag through until we get

@Body Single@    while (1)                        ' a macth on menutext, so that

@Body Single@        hourglass(1)

@Body Single@        line = fgets$(fid)            ' we can get the function number

@Body Single@        if (-1 = line)

@Body Single@            break

@Body Single@        endif

@Body Single@        ctrltype = strfield$(line, 1, "`")

@Body Single@        if (ctrltype = 2)

@Body Single@            if (menutext = strfield$(line, 2, "`"))

@Body Single@                menuid = strfield$(line, 3, "`")

@Body Single@                break

@Body Single@            endif

@Body Single@        endif

@Body Single@    wend

@Body Single@    fclose(fid)

@Body Single@    hourglass(0)

@Body Single@endif

@Body Single@if (menuid)

@Body Single@    ' make a hole for the new entry, find the end

@Body Single@    lastsor = 1

@Body Single@    if ("" <<>> GetGlobalArray$(subid, 1))

@Body Single@        taroff = 1

@Body Single@        while ("" != GetGlobalArray$(subid, taroff))

@Body Single@            taroff = taroff + 2

@Body Single@        wend

@Body Single@        taroff = taroff + 1        ' point to number

@Body Single@        soroff = taroff - 2

@Body Single@        if (before)

@Body Single@            lastsor = index * 2 - 1

@Body Single@        else

@Body Single@            lastsor = index * 2 + 1

@Body Single@        endif

@Body Single@        while (soroff >>= lastsor)

@Body Single@
@Body Single@            temp = GetGlobalArray$(subid, soroff)

@Body Single@            SetGlobalArray(subid, taroff, temp)

@Body Single@            soroff = soroff - 1

@Body Single@            taroff = taroff - 1

@Body Single@        wend

@Body Single@    endif

@Body Single@    SetGlobalArray(subid, lastsor, menutext)

@Body Single@    lastsor  = lastsor+ 1

@Body Single@    SetGlobalArray(subid, lastsor, menuid)

@Body Single@endif

@Body Single@end function<:p<* >>

@Body Single@' Save the global menu def to disk

@Body Single@'

@Body Single@function SaveMenu(id, cnt, name, overwrite)

@Body Single@macpath = getmacpath$()

@Body Single@Declare SaveSub(fid, globod)

@Body Single@if (NOT overwrite)

@Body Single@    fid = fopen("{macpath}{name}", "r")

@Body Single@    if (0 != fid)

@Body Single@        fclose(fid)

@Body Single@        if (NOT Decide("{name} exists! Overwrite?"))

@Body Single@            return 0

@Body Single@        endif

@Body Single@    endif

@Body Single@endif

@Body Single@fid = fopen("{macpath}{name}", "w")

@Body Single@if (0 != fid)

@Body Single@    offset = 1

@Body Single@    hourglass(1)

@Body Single@    for i = 1 to cnt

@Body Single@        temp = GetGlobalArray$(id, offset)

@Body Single@        temp = strcat$("1`", temp)

@Body Single@        fputs(fid, temp)

@Body Single@        offset = offset + 1

@Body Single@        subid = GetGlobalArray$(id, offset)

@Body Single@        SaveSub(fid, subid)

@Body Single@        offset = offset + 1

@Body Single@    next

@Body Single@    fclose(fid)

@Body Single@    hourglass(0)

@Body Single@    return 1

@Body Single@endif

@Body Single@return 0

@Body Single@end function

@Body Single@
@Body Single@' Save a sub menu to disk

@Body Single@
@Body Single@function SaveSub(fid, id)

@Body Single@offset = 1

@Body Single@while (1)

@Body Single@    name = GetGlobalArray$(id, offset)

@Body Single@    if ("" = name)

@Body Single@        break

@Body Single@    endif

@Body Single@    offset = offset + 1

@Body Single@    menuid = GetGlobalArray$(id, offset)

@Body Single@    offset = offset + 1

@Body Single@    if ("-" = mid$(name, 1, 1))

@Body Single@        fputs(fid, "3")

@Body Single@    else

@Body Single@        temp = strcat$("2`", name)

@Body Single@        temp = strcat$(temp, "`")

@Body Single@        temp = strcat$(temp, menuid)

@Body Single@        fputs(fid, temp)

@Body Single@    endif

@Body Single@wend

@Body Single@end function

@Body Single@
@Body Single@function wild(xbarname)

num = 1

while (1)

    wild = strfield$(xbarname num "\")

    if wild = -1 then

        break

    endif

    num = num + 1

wend

num = num - 1

wild = strfield$(xbarname num "\")

return wild

end function

>
[macsum] 16
modmenu 0 1 16 3
InitMenuArray 2554 2 10 162
FreeMenuArray 3420 1 4 207
LoadTopDialog 3666 3 5 225
LoadSubDialog 3905 3 5 239
FindIdxbyname 4215 2 3 264
AddExt 4488 2 2 283
DoSubMenu 4701 3 12 296
DeleteByIndex 6026 2 4 356
LoadInsDlg 6430 0 6 378
InsertMenu 6822 4 6 402
InsertMacro 7297 5 5 435
InsertAmi 7806 4 10 466
SaveMenu 8718 4 7 518
SaveSub 9305 2 5 552
wild 9682 1 2 573
[macse]
14 modmenu
0 32 1
0 295
13
8 2
7 "{2}standard.mnu"
8 3
7 ""
6 0
18 0
11 00000238
0 286 "" "custmnu"
13
8 4
6 4
7 ""
18 0
11 00000228
0 287 "" "custmnu" "{2}standard.mnu"
7 "{2}standard.mnu"
8 0
10 00000238
6 4
8 0
19 00002511
16 InitMenuArray 927 "{0}"
13
8 5
5 1
8 6
5 0
6 5
18 5
11 00002511
6 6
11 00002511
16 LoadTopDialog 927 "{5}" "{0}"
0 26 "menumac.ext" "topmenu"
13
8 7
5 1
6 7
18 0
11 00000597
6 0
6 3
18 1
11 00000597
16 savemenu 927 "{5}" "{0}" 1
16 menunew.smm!NewMenu "{0}"
0 18 "{0}"
13
8 0
0 287 "" "custmnu" "{0}"
10 00002511
5 0
6 7
18 0
11 00000639
10 00002511
6 7
5 3
18 0
6 7
5 4
18 0
6 7
5 7
18 0
6 7
5 8
18 0
1 2
1 2
1 2
11 00000863
0 27 9000
13
8 8
7 ""
6 8
18 1
11 00000831
16 FindIdxByname 927 "{8}"
13
8 9
10 00000863
5 1
8 9
0 273 927 1
13
8 8
5 4
6 7
18 0
11 00001093
0 31 8000 "{8}"
0 31 8001 "{8}"
0 26 "menumac.ext" "rename"
13
11 00001080
0 27 8000
13
8 10
6 10
7 ""
18 1
11 00001080
6 9
5 2
4 0
5 1
3 1
8 11
0 272 927 "{11}" "{10}"
10 00002498
5 3
6 7
18 0
11 00001165
16 DoSubMenu 927 "{5}" "{9}"
10 00002498
5 1
6 7
18 0
11 00001220
10 00001249
10 00002498
5 5
6 7
18 0
11 00001622
6 0
6 3
18 1
11 00001295
0 31 8001 "{0}"
0 31 8001 "{3}"
0 26 "menumac.ext" "savemenu"
13
11 00001609
0 27 8000
13
8 12
16 AddExt "{12}" "mnu"
13
8 12
6 12
6 3
18 1
11 00001587
16 savemenu 927 "{5}" "{12}" 0
13
11 00001505
6 12
8 0
5 1
6 7
18 0
11 00001574
16 menunew.smm!NewMenu "{0}"
5 0
8 6
10 00001609
0 3 "Cannot use {3}"
10 00002498
5 6
6 7
18 0
11 00001914
0 31 9001 "{2}*.mnu"
0 26 "menumac.ext" "openmenu"
13
11 00001901
0 27 9001
13
8 13
16 AddExt "{13}" "mnu"
13
8 13
0 259 "{2}{13}" "r"
13
8 14
5 -1
6 14
18 1
11 00001901
0 260 "{14}"
16 initmenuarray 927 "{13}"
13
8 5
6 13
8 0
10 00002498
5 9
6 7
18 0
11 00002076
0 296 1
16 initmenuarray 927 "{3}"
13
8 5
16 wild "{3}"
13
8 15
0 287 "" "{2}custmnu" "{15}"
6 3
8 0
0 296 0
10 00002498
5 7
6 7
18 0
11 00002342
0 31 8001 "{8}"
0 31 8002 "{8}"
0 31 104 1
0 26 "menumac.ext" "addmenu"
13
11 00002329
0 27 8000
13
8 10
6 10
7 ""
18 1
11 00002329
0 27 104
13
8 16
16 InsertMenu 927 "{10}" "{9}" "{16}"
6 5
5 1
3 0
8 5
10 00002498
5 8
6 7
18 0
11 00002498
6 9
5 2
4 0
8 11
0 273 927 "{11}"
13
8 8
0 266 "{8}"
0 296 1
16 DeleteByIndex 927 "{9}"
0 296 0
6 5
5 1
3 1
8 5
10 00000327
16 FreeMenuArray 927
0 296 0
6 1
15
9
14 InitMenuArray
5 0
0 271 "{0}" 40
13
18 0
11 00000102
16 FreeMenuArray "{0}"
0 271 "{0}" 40
5 0
8 3
0 296 1
0 259 "{1}" "r"
13
8 4
5 0
6 4
18 1
11 00000797
5 1
11 00000771
0 257 "{4}"
13
8 5
5 -1
6 5
18 0
11 00000259
10 00000771
0 20 "{5}" 1 "`"
13
8 6
5 1
6 6
18 0
11 00000476
6 3
5 1
3 0
8 3
0 20 "{5}" 2 "`"
13
8 7
0 272 "{0}" "{3}" "{7}"
6 3
5 1
3 0
8 3
5 0
8 8
0 271 0 40
13
8 9
0 272 "{0}" "{3}" "{9}"
10 00000758
5 2
6 6
18 0
11 00000666
6 8
5 1
3 0
8 8
0 20 "{5}" 2 "`"
13
8 10
0 272 "{9}" "{8}" "{10}"
6 8
5 1
3 0
8 8
0 20 "{5}" 3 "`"
13
8 11
0 272 "{9}" "{8}" "{11}"
10 00000758
5 3
6 6
18 0
11 00000758
6 8
5 1
3 0
8 8
0 272 "{9}" "{8}" "-"
6 8
5 1
3 0
8 8
10 00000176
0 260 "{4}"
10 00000823
0 3 "Failed to open {1}"
0 296 0
6 3
5 2
4 1
15
9
6 2
15
9
14 FreeMenuArray
5 1
8 2
5 20
6 2
18 2
12 00000104
10 00000221
5 1
6 2
3 0
8 2
10 00000028
6 2
5 2
4 0
8 3
0 273 "{0}" "{3}"
13
8 4
7 ""
6 4
18 0
11 00000195
10 00000221
0 266 "{4}"
10 00000071
0 266 "{0}"
6 1
15
9
14 LoadTopDialog
5 1
8 4
6 1
6 4
18 2
12 00000103
10 00000186
5 1
6 4
3 0
8 4
10 00000028
6 4
5 2
4 0
5 1
3 1
8 5
0 273 "{0}" "{5}"
13
8 6
0 25 "{6}"
10 00000070
16 wild "{2}"
13
8 7
0 31 8008 "{7}"
6 3
15
9
14 LoadSubDialog
6 2
5 2
4 0
8 4
0 273 "{0}" "{4}"
13
8 5
6 4
5 1
3 1
8 4
0 273 "{0}" "{4}"
13
8 6
0 31 8006 "{6}"
5 1
8 4
0 296 1
5 1
11 00000289
0 273 "{5}" "{4}"
13
8 7
7 ""
6 7
18 0
11 00000239
10 00000289
0 31 9000 "{7}"
6 4
5 2
3 0
8 4
10 00000150
0 296 0
6 3
15
9
14 FindIdxbyname
5 1
8 3
5 1
11 00000261
0 273 "{0}" "{3}"
13
8 4
7 ""
6 4
18 0
11 00000167
7 ""
6 1
18 1
11 00000155
0 3 "{1} not found"
5 1
15
9
6 1
6 4
18 0
11 00000228
6 3
5 1
3 0
5 2
4 1
15
9
6 3
5 2
3 0
8 3
10 00000028
6 2
15
9
14 AddExt
0 13 1 "{0}" "."
13
8 3
5 -1
6 3
18 0
11 00000133
0 16 "{0}" "."
13
8 0
0 16 "{0}" "{1}"
13
8 0
10 00000189
0 15 "{0}" 1 "{3}"
13
8 0
0 16 "{0}" "{1}"
13
8 0
6 0
15
9
6 2
15
9
14 DoSubMenu
6 2
5 2
4 0
8 4
0 273 "{0}" "{4}"
13
8 5
5 1
11 00001313
16 LoadSubDialog "{0}" "{1}" "{2}"
0 26 "menumac.ext" "submenu"
13
8 6
5 1
6 6
18 0
5 0
6 6
18 0
1 2
11 00000218
10 00001313
0 27 9000
13
8 7
7 ""
6 7
18 1
6 6
5 4
18 0
6 6
5 6
18 0
1 2
1 2
11 00001263
16 FindIdxByName "{5}" "{7}"
13
8 8
5 3
6 6
18 0
11 00000421
16 DeleteByIndex "{5}" "{8}"
10 00001250
5 5
6 6
18 0
11 00000753
0 27 9000
13
8 7
7 ""
6 7
18 0
11 00000513
10 00001250
16 FindIdxbyname "{5}" "{7}"
13
8 9
6 9
5 2
4 0
5 1
3 1
8 4
0 31 8001 "{7}"
0 31 8000 "{7}"
0 26 "menumac.ext" "rename"
13
11 00000740
0 27 8000
13
8 10
7 ""
6 10
18 1
11 00000740
0 272 "{5}" "{4}" "{10}"
10 00001250
5 4
6 6
18 0
11 00000983
16 LoadInsDlg
0 31 8009 "{7}"
0 26 "menumac.ext" "amimenu"
13
11 00000970
0 27 9000
13
8 7
0 27 104
13
8 11
7 ""
6 7
18 1
11 00000970
16 InsertAmi "{5}" "{8}" "{11}" "{7}"
10 00001250
5 6
6 6
18 0
11 00001250
0 286 "" "macrodir"
13
8 12
0 31 9001 "{12}"
0 31 104 "1"
0 31 8009 "{7}"
0 26 "menumac.ext" "macmenu"
13
11 00001250
0 27 9001
13
8 13
0 27 8010
13
8 14
0 27 104
13
8 11
16 InsertMacro "{5}" "{8}" "{11}" "{14}" "{13}"
10 00001300
0 3 "Please select menu item first"
10 00000062
6 3
15
9
14 DeleteByIndex
6 1
5 2
4 0
5 1
3 1
8 3
6 3
5 2
3 0
8 4
5 1
11 00000328
0 273 "{0}" "{4}"
13
8 5
7 ""
6 5
18 0
11 00000157
10 00000328
0 272 "{0}" "{3}" "{5}"
6 4
5 1
3 0
8 4
6 3
5 1
3 0
8 3
0 273 "{0}" "{4}"
13
8 5
0 272 "{0}" "{3}" "{5}"
6 4
5 1
3 0
8 4
6 3
5 1
3 0
8 3
10 00000068
0 272 "{0}" "{3}" ""
6 3
5 1
3 0
8 3
0 272 "{0}" "{3}" ""
6 2
15
9
14 LoadInsDlg
0 295
13
8 1
0 259 "{1}standard.mnu" "r"
13
8 2
5 0
6 2
18 1
11 00000366
0 296 1
5 1
11 00000344
0 257 "{2}"
13
8 3
5 -1
6 3
18 0
11 00000190
10 00000344
0 20 "{3}" 1 "`"
13
8 4
6 4
5 2
18 0
11 00000331
0 20 "{3}" 2 "`"
13
8 5
7 "-"
0 15 "{3}" 1 1
13
18 1
11 00000331
0 25 "{5}"
10 00000107
0 260 "{2}"
0 296 0
0 31 104 "1"
6 0
15
9
14 InsertMenu
5 1
8 5
7 ""
0 273 "{0}" "{5}"
13
18 1
11 00000106
6 5
5 2
3 0
8 5
10 00000025
6 5
5 1
3 0
8 5
6 5
5 2
3 1
8 6
6 3
11 00000207
6 2
5 2
4 0
5 1
3 1
8 7
10 00000237
6 2
5 2
4 0
5 1
3 0
8 7
6 6
6 7
18 2
11 00000372
0 273 "{0}" "{6}"
13
8 8
0 272 "{0}" "{5}" "{8}"
6 6
5 1
3 1
8 6
6 5
5 1
3 1
8 5
10 00000237
0 272 "{0}" "{7}" "{1}"
6 7
5 1
3 0
8 7
0 271 0 40
13
8 9
0 272 "{0}" "{7}" "{9}"
6 4
15
9
14 InsertMacro
5 1
8 6
7 ""
0 273 "{0}" 1
13
18 1
11 00000427
5 1
8 7
7 ""
0 273 "{0}" "{7}"
13
18 1
11 00000161
6 7
5 2
3 0
8 7
10 00000080
6 7
5 1
3 0
8 7
6 7
5 2
3 1
8 8
6 2
11 00000262
6 1
5 2
4 0
5 1
3 1
8 6
10 00000292
6 1
5 2
4 0
5 1
3 0
8 6
6 8
6 6
18 2
11 00000427
0 273 "{0}" "{8}"
13
8 9
0 272 "{0}" "{7}" "{9}"
6 8
5 1
3 1
8 8
6 7
5 1
3 1
8 7
10 00000292
0 272 "{0}" "{6}" "{3}"
6 6
5 1
3 0
8 6
0 272 "{0}" "{6}" "{4}"
6 5
15
9
14 InsertAmi
0 295
13
8 5
5 0
8 6
0 259 "{5}standard.mnu" "r"
13
8 7
5 0
6 7
18 1
11 00000376
5 1
11 00000354
0 296 1
0 257 "{7}"
13
8 8
5 -1
6 8
18 0
11 00000199
10 00000354
0 20 "{8}" 1 "`"
13
8 9
6 9
5 2
18 0
11 00000341
6 3
0 20 "{8}" 2 "`"
13
18 0
11 00000341
0 20 "{8}" 3 "`"
13
8 6
10 00000354
10 00000107
0 260 "{7}"
0 296 0
6 6
11 00000900
5 1
8 10
7 ""
0 273 "{0}" 1
13
18 1
11 00000826
5 1
8 11
7 ""
0 273 "{0}" "{11}"
13
18 1
11 00000544
6 11
5 2
3 0
8 11
10 00000460
6 11
5 1
3 0
8 11
6 11
5 2
3 1
8 12
6 2
11 00000650
6 1
5 2
4 0
5 1
3 1
8 10
10 00000681
6 1
5 2
4 0
5 1
3 0
8 10
6 12
6 10
18 2
11 00000826
0 273 "{0}" "{12}"
13
8 13
0 272 "{0}" "{11}" "{13}"
6 12
5 1
3 1
8 12
6 11
5 1
3 1
8 11
10 00000681
0 272 "{0}" "{10}" "{3}"
6 10
5 1
3 0
8 10
0 272 "{0}" "{10}" "{6}"
6 4
15
9
14 SaveMenu
0 295
13
8 5
6 3
1 3
11 00000187
0 259 "{5}{2}" "r"
13
8 6
5 0
6 6
18 1
11 00000187
0 260 "{6}"
0 2 "{2} exists! Overwrite?"
13
1 3
11 00000187
5 0
15
9
0 259 "{5}{2}" "w"
13
8 6
5 0
6 6
18 1
11 00000563
5 1
8 7
0 296 1
5 1
8 8
6 1
6 8
18 2
12 00000349
10 00000529
5 1
6 8
3 0
8 8
10 00000274
0 273 "{0}" "{7}"
13
8 9
0 16 "1`" "{9}"
13
8 9
0 258 "{6}" "{9}"
6 7
5 1
3 0
8 7
0 273 "{0}" "{7}"
13
8 10
16 SaveSub "{6}" "{10}"
6 7
5 1
3 0
8 7
10 00000316
0 260 "{6}"
0 296 0
5 1
15
9
5 0
15
9
6 4
15
9
14 SaveSub
5 1
8 3
5 1
11 00000365
0 273 "{1}" "{3}"
13
8 4
7 ""
6 4
18 0
11 00000111
10 00000365
6 3
5 1
3 0
8 3
0 273 "{1}" "{3}"
13
8 5
6 3
5 1
3 0
8 3
7 "-"
0 15 "{4}" 1 1
13
18 0
11 00000255
0 258 "{0}" "3"
10 00000352
0 16 "2`" "{4}"
13
8 6
0 16 "{6}" "`"
13
8 6
0 16 "{6}" "{5}"
13
8 6
0 258 "{0}" "{6}"
10 00000022
6 2
15
9
14 wild
5 1
8 2
5 1
11 00000144
0 20 "{0}" "{2}" "\"
13
8 1
6 1
5 -1
18 0
11 00000111
10 00000144
6 2
5 1
3 0
8 2
10 00000019
6 2
5 1
3 1
8 2
0 20 "{0}" "{2}" "\"
13
8 1
6 1
15
9
6 1
15
9
00024615