PC World Komputer 1998 July & August/Pcwk78b98.iso/Smart30/ENGLISH/PRODUCTS/LOTUS018.DSK/MARKMENU.SMM

INI File | 1992-06-05 | 5.5 KB | 425 lines

[ver]
    4
[sty]
    _macro.sty
[files]
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[revisions]
    0
[prn]
    PostScript Printer
[port]
    LPT1:
[lang]
    1
[desc]
    Menu - goto, add, remove bookmarks
    Lotus WPD Technical Support
    Intermediate
    Bookmarks
    autorun
    707773400
    24
    673578583
    209
    2
    0
    0
    0
    0






    0
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[GramStyle]

[ParaNum]
    1
[lay]
    Standard
    513
    [rght]
        15840
        12240
        1
        1440
        1440
        1
        1800
        1440
        2
        1
        0
        1
        1
        2
        1
        1440
        10800
        5
        1
        720
        1
        1440
        1
        2880
        1
        4320
        1
        5760
    [hrght]
    [lyfrm]
        1
        11200
        0
        0
        12240
        1800
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        1
    [frmlay]
        1800
        12240
        1
        1440
        72
        1
        360
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10800
        0
    [txt]

Peyton McManus

MarkMenu   <[>Updates menu with currently Available BookMarks]

July 16, 1991

>
    [frght]
    [lyfrm]
        1
        13248
        0
        14400
        12240
        15840
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        2
    [frmlay]
        15840
        12240
        1
        1440
        360
        1
        14472
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10800
        0
    [txt]
>
[elay]
[l1]
    0
[pg]
    2
    44 0 45 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    66 0 10 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
[edoc]
@Function@<:#293,9360>Function Markmenu()

<:#284,9360>If (GetOpenFileCount()<<1)

<:#284,9360>    Message("No files are currently open. Now exiting Macro...")

<:#284,9360>    Exit Function

<:#284,9360>Endif

<:#284,9360>Count=GetBookMarkcount()

<:#284,9360>Barid=1

<:#284,9360>MenuName="&Bookmarks"

<:#284,9360>Hourglass(on)

<:#284,9360>Deletemenu(Barid, MenuName)

<:#284,9360>AddMenu(Barid, MenuName)

<:#284,9360>Mac=GetRunningMacroFile$()

<:#284,9360>If count<<1

<:#284,9360>    AddMenuItem(BarId,MenuName,"No BookMarks Found","{mac}!Update")

<:#284,9360>Else

<:#284,9360>Dim Apps(Count)

<:#284,9360>GetBookMarkNames(&Apps)

<:#284,9360>For i=1 to Count

<:#284,9360>    ap = apps(I)

<:#284,9360>    rap = """{ap}"""

<:#284,9360>    AddMenuItem(BarId,MenuName,"&{ap}","{mac}!rest({rap})")

<:#284,9360>Next

<:#284,9360>Endif

<:#284,9360>AddMenuItem(1,Menuname,"-","")

<:#284,9360>AddMenuItem(1,MenuName,"&Add Bookmark","{Mac}!Add")

<:#284,9360>'AddMenuItem(1,MenuName,"&Delete Bookmark","{Mac}!Del")

<:#284,9360>addmenuitem(1, menuname, "&Update Menu", "{mac}!update")

<:#284,9360>AddMenuItem(1,Menuname,"E&xit","{mac}!quit")

<:#284,9360>Hourglass(off)

<:#284,9360>

<:#284,9360>End Function

<:#284,9360>

@Function@<:#293,9360>function Add()

<:#284,9360>Box=DialogBox(".","Entry")

<:#284,9360>If Box<<<;>1

<:#284,9360>    Exit Function

<:#284,9360>Endif

<:#284,9360>Name=GetDialogField$(8000)

<:#284,9360>MarkBookMark(name,4003<:ZAdd><:Z~Add>)

<:#284,9360>Call MarkMenu()

<:#284,9360>End Function

<:#284,9360>

@Function@<:#293,9360>function Del()

<:#284,9360>Message("Sorry...Delete not yet implemented")

<:#284,9360>End Function

<:#284,9360>

<:#284,9360>

@Function@<:#293,9360>function update()

<:#284,9360>call Markmenu()

<:#284,9360>end function

<:#284,9360>

@Function@<:#240,9360>function rest(ap)

<:#240,9360>MarkBookMark(ap,4002)

<:#240,9360>end function

<:#240,9360>

@Function@<:#279,9360><:f240,2Tms Rmn,0,0,0>Function Quit()

<:#279,9360><:f240,2Tms Rmn,0,0,0>Deletemenu<:f><:f240,2Tms Rmn,0,0,0>(1,"<:f>&Bookmarks<:f240,2Tms Rmn,0,0,0>")

<:#279,9360><:f240,2Tms Rmn,0,0,0>End Function<:f>

<:#279,9360><:f240,2Tms Rmn,0,0,0>

@Function@<:#240,9360>DIALOG Entry

<:#240,9360>-2134376448 4 66 28 160 42 "" "" "Enter Bookmark Name"

<:#240,9360>6 22 78 12 8000 1350631424 "edit" "" 0

<:#240,9360>116 4 40 14 1 1342242817 "button" "OK" 0

<:#240,9360>116 22 40 14 2 1342242816 "button" "Cancel" 0

<:#240,9360>6 8 98 10 1000 1342177280 "static" "Please enter bookmark name" 0

END DIALOG

>

[Embedded]
00004150
>
[macsum] 7
Markmenu 0 0 9 0
Add 685 0 3 32
Del 826 0 1 42
update 888 0 1 47
rest 924 1 1 51
Quit 965 0 1 55
Entry 1008 0 -1 59
[macse]
14 Markmenu
0 1050
13
5 1
18 5
11 00000118
0 3 "No files are currently open. Now exiting Macro..."
6 0
15
9
0 1039
13
8 1
5 1
8 2
7 "&Bookmarks"
8 3
0 296 1
0 521 "{2}" "{3}"
0 515 "{2}" "{3}"
0 802
13
8 4
6 1
5 1
18 5
11 00000324
0 516 "{2}" "{3}" "No BookMarks Found" "{4}!Update"
10 00000524
6 1
21 5 [X]
0 1040 &5
5 1
8 6
6 1
6 6
18 2
12 00000435
10 00000524
5 1
6 6
3 0
8 6
10 00000360
6 6
22 5
8 7
7 """{7}"""
8 8
0 516 "{2}" "{3}" "&{7}" "{4}!rest({8})"
10 00000402
0 516 1 "{3}" "-" ""
0 516 1 "{3}" "&Add Bookmark" "{4}!Add"
0 516 1 "{3}" "&Update Menu" "{4}!update"
0 516 1 "{3}" "E&xit" "{4}!quit"
0 296 0
6 0
15
9
14 Add
0 26 "." "Entry"
13
8 1
6 1
5 1
18 1
11 00000076
6 0
15
9
0 27 8000
13
8 2
2 466 1 "{2}" 4003
16 MarkMenu
6 0
15
9
14 Del
0 3 "Sorry...Delete not yet implemented"
6 0
15
9
14 update
16 Markmenu
6 0
15
9
14 rest
2 466 1 "{0}" 4002
6 1
15
9
14 Quit
0 521 1 "&Bookmarks"
6 0
15
9
DIALOG Entry
-2134376448 4 66 28 160 42 "" "" "Enter Bookmark Name"
6 22 78 12 8000 1350631424 "edit" "" 0
116 4 40 14 1 1342242817 "button" "OK" 0
116 22 40 14 2 1342242816 "button" "Cancel" 0
6 8 98 10 1000 1342177280 "static" "Please enter bookmark name" 0
00004175