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

INI File | 1992-05-07 | 2KB | 260 lines

[ver]
    4
[sty]
    _macro.sty
[files]
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[revisions]
    0
[prn]
    PostScript Printer
[port]
    LPT1:
[lang]
    1
[desc]
    Close all open documents
    Lotus WPD Technical Support
    Beginner
    OpenFileCount, OpenFileNames
    noautorun
    705280075
    17
    676067391
    35
    1
    0
    0
    0
    0
    Apprestore, Mdi Handling





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

[lay]
    Standard
    513
    [rght]
        15840
        12240
        1
        1440
        1440
        1
        1440
        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
        1440
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        1
    [frmlay]
        1440
        12240
        1
        1440
        72
        1
        360
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10800
        0
    [txt]
Peyton McManus

June 4, 1991

Closes allopen files

>
    [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]
    1
    19 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@<:#293,9360>Function Closeall()

IF IsNewWave()

    Message("Macro not available while running under HP NewWave.")

    Exit Function

ENDIF

ignorekeyboard(2)

<:#284,9360>oncancel Done

<:#284,9360>mdicount=GetOpenFileCount()

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

<:#284,9360>    Exit Function

<:#284,9360>Endif

<:#284,9360>Dim Names(MdiCount)

<:#284,9360>GetOpenfileNames(&Names)

<:#284,9360>For t=1 to mdicount

<:#284,9360>    AppRestore(Names(t))

<:#284,9360>    Fileclose()

<:#284,9360>Next

<:#284,9360>Done:

<:#284,9360>End Function

>

[Embedded]
00001944
>
[macsum] 1
Closeall 0 0 4 0
[macse]
14 Closeall
0 1317
13
11 00000109
0 3 "Macro not available while running under HP NewWave."
6 0
15
9
0 32 2
19 00000344
0 1050
13
8 1
6 1
5 1
18 5
11 00000188
6 0
15
9
6 1
21 2 [X]
0 1051 &2
5 1
8 3
6 1
6 3
18 2
12 00000299
10 00000344
5 1
6 3
3 0
8 3
10 00000224
6 3
22 2
0 1031 [X]
2 147 1
10 00000266
6 0
15
9
00001969