Liren Large Software Subsidy 18/18.iso/w/w252/4.ddi/MACROS.CMZ/WINAPPS.SMM

INI File | 1991-08-19 | 3.2 KB | 328 lines

[ver]
    4
[sty]
    ~macro.sty
[files]
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[revisions]
    0
[prn]
    PostScript Printer
[lang]
    1
[desc]
    Adds a menu called WinApps and places all currently running Windows applications on the menu bar for quick access.
    Lotus Word Processing Division
    Beginner
    Menus, Active Apps
    AutoRun
    682670786
    19
    673578583
    139
    1
    0
    0
    0
    0
    Addmenuitem, Scan For Active Apps, Simple Arrays

    Peyton McManus



    0
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[lay]
    Standard
    513
    [rght]
        15840
        12240
        1
        720
        1440
        1
        1800
        1440
        2
        1
        0
        1
        1
        2
        1
        720
        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

Appmenu.smm   <[>Updates menu with currently running Apps]

May 6, 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
[edoc]
Function appmenu()

Count=AppGetAppCount()

Barid=1

MenuName="&WinApps"

Hourglass(on)

Deletemenu(Barid, MenuName)

AddMenu(Barid, MenuName)

Dim Apps(Count)

AppGetAppNames(&Apps)

Mac=GetRunningMacroFile$()

If Count<;>25

    Count=25

Endif

For i=1 to Count

    ap = apps(I)

    Ap=Strfield$(ap,1,"-")

    If Ap="Srvr"

        goto loop

    Endif

    rap = """{ap}"""

    AddMenuItem(BarId,MenuName,"&{ap}","{mac}!rest({rap})")

Loop:

Next

AddMenuItem(1,Menuname,"-","")

addmenuitem(1, menuname, "&Update Apps", "{mac}!update")

AddMenuItem(1,Menuname,"E&xit WinApps","{mac}!quit")

Hourglass(off)

End Function


function update()

call appmenu()

end function


function rest(ap)

apprestore(ap)

activateapp(ap)

end function


<:f240,2Tms Rmn,0,0,0>Function Quit()

<:f240,2Tms Rmn,0,0,0>Deletemenu<:f><:f240,2Tms Rmn,0,0,0>(1,"<:f>&WinApps<:f240,2Tms Rmn,0,0,0>")

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

>

[Embedded]
00002427
>
[macsum] 4
appmenu 0 0 9 0
update 564 0 1 29
rest 599 1 1 33
Quit 646 0 1 38
[macse]
14 appmenu
0 1033
13
8 1
5 1
8 2
7 "&WinApps"
8 3
0 296 1
0 521 "{2}" "{3}"
0 515 "{2}" "{3}"
6 1
21 4 [X]
0 1034 &4
0 802
13
8 5
6 1
5 25
18 3
11 00000188
5 25
8 1
5 1
8 6
6 1
6 6
18 2
12 00000273
10 00000436
5 1
6 6
3 0
8 6
10 00000198
6 6
22 4
8 7
0 20 "{7}" 1 "-"
13
8 7
6 7
7 "Srvr"
18 0
11 00000363
10 00000423
7 """{7}"""
8 8
0 516 "{2}" "{3}" "&{7}" "{5}!rest({8})"
10 00000240
0 516 1 "{3}" "-" ""
0 516 1 "{3}" "&Update Apps" "{5}!update"
0 516 1 "{3}" "E&xit WinApps" "{5}!quit"
0 296 0
6 0
15
9
14 update
16 appmenu
6 0
15
9
14 rest
0 1031 "{0}"
0 38 "{0}"
6 1
15
9
14 Quit
0 521 1 "&WinApps"
6 0
15
9
00002452