PC World Komputer 1998 May/Pcwk5b98.iso/DISK1/MACROS.CMZ/CLOSEALL.SMM

INI File | 1993-03-14 | 2KB | 262 lines

[ver]
    4
[sty]
    _macro.sty
[files]
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[revisions]
    0
[prn]
    PostScript Printer
[port]
    LPT1:
[lang]
    1
[desc]
    Zamyka wszystkie otwarte dokumenty Ami Pro
    Lotus WPD Technical Support
    Beginner
    OpenFileCount, OpenFileNames
    noautorun
    723349784
    18
    676067391
    36
    1
    0
    0
    0
    0
    Apprestore, Mdi Handling





    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
        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  Modified by Marek G. B</y>czek from UNICORN Poland

>
    [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@Function Closeall()

IF IsNewWave()

    Message("Makroprogram nie dzia</s>a, je</\>li jest uruchomiony HP NewWave.")

    Exit Function

ENDIF

ignorekeyboard(2)

oncancel Done

mdicount=GetOpenFileCount()

If Mdicount <<1

    Exit Function

Endif

Dim Names(MdiCount)

GetOpenfileNames(&Names)

For t=1 to mdicount

    AppRestore(Names(t))

    Fileclose()

Next

Done:

End Function

>

[Embedded]
00001875
>
[macsum] 1
Closeall 0 0 4 0
[macse]
14 Closeall
0 1317
13
11 00000123
0 3 "Makroprogram nie dzia</s>a, je</\>li jest uruchomiony HP NewWave."
6 0
15
9
0 32 2
19 00000358
0 1050
13
8 1
6 1
5 1
18 5
11 00000202
6 0
15
9
6 1
21 2 [X]
0 1051 &2
5 1
8 3
6 1
6 3
18 2
12 00000313
10 00000358
5 1
6 3
3 0
8 3
10 00000238
6 3
22 2
0 1031 [X]
2 147 1
10 00000280
6 0
15
9
00001900