The Mother of All Windows Books/CD-MOM.iso/cd_mom/workmodl/amipro/macros.cmz/WINAPPS.SMM

INI File | 1992-08-12 | 4KB | 358 lines

[ver]
    4
[sty]
    _default.sty
[files]
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[revisions]
    0
[prn]
    PostScript Printer
[port]
    LPT1:
[lang]
    1
[desc]
    Menu - Switch to another running program
    Lotus Word Processing Division
    Beginner
    Menus, Active Apps
    AutoRun
    708768314
    27
    673578583
    151
    2
    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
[GramStyle]

[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

Winapps   <[>Updates menu with currently running Apps]

05/08/92

>
    [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 15 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
    46 0 12 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@<:#284,10080>Declare AppMenu()

@Function@<:#284,10080>

@Function@<:#284,10080>Function appmenu()

<:#284,10080>IF IsNewWave()

<:#284,10080>    Message("Macro not available while running under HP NewWave.")

<:#284,10080>    Exit Function

<:#284,10080>ENDIF

<:#284,10080>Count=AppGetAppCount()

<:#284,10080>Barid=1

MenuName="Win&Apps"

<:#284,10080>Hourglass(on)

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

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

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

<:#284,10080>AppGetAppNames(&Apps)

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

<:#284,10080>If Count<;>25

<:#284,10080>    Count=25

<:#284,10080>Endif

<:#284,10080>OpenBracket = Chr$(91)

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

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

<:#284,10080>    Ap=Strfield$(ap,1,OpenBracket)

<:#284,10080>    If Ap !="Srvr"

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

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

<:#284,10080>    Endif

<:#284,10080>Next

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

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

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

<:#284,10080>Hourglass(off)

<:#284,10080>End Function

<:#284,10080>

@Function@<:#284,10080>function update()

<:#284,10080>appmenu()

<:#284,10080>end function

<:#284,10080>

@Function@<:#284,10080>function rest(ap)

<:#284,10080>apprestore(ap)

<:#284,10080>activateapp(ap)

<:#284,10080>end function

<:#284,10080>

@Function@<:#284,10080>Function Quit()

<:#284,10080>Deletemenu(1,"Win&Apps")

<:#284,10080>End Function

>

[Embedded]
00003189
>
[macsum] 4
appmenu 0 0 10 2
update 667 0 1 34
rest 702 1 1 38
Quit 749 0 1 43
[macse]
14 appmenu
0 1317
13
11 00000108
0 3 "Macro not available while running under HP NewWave."
6 0
15
9
0 1033
13
8 1
5 1
8 2
7 "Win&Apps"
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 00000284
5 25
8 1
0 39 91
13
8 6
5 1
8 7
6 1
6 7
18 2
12 00000387
10 00000539
5 1
6 7
3 0
8 7
10 00000312
6 7
22 4
8 8
0 20 "{8}" 1 "{6}"
13
8 8
6 8
7 "Srvr"
18 1
11 00000526
7 """{8}"""
8 9
0 516 "{2}" "{3}" "&{8}" "{5}!rest({9})"
10 00000354
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 "Win&Apps"
6 0
15
9
00003214