home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1998 July & August
/
Pcwk78b98.iso
/
Smart30
/
ENGLISH
/
PRODUCTS
/
LOTUS018.DSK
/
SAVEINFO.SMM
< prev
next >
Wrap
INI File
|
1992-06-16
|
9KB
|
1,058 lines
[ver]
4
[sty]
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
PostScript Printer
[port]
LPT1:
[lang]
1
[desc]
Makes Save and Save As bring up Doc Info.
autorun
708732983
4
696123341
56
1
0
0
0
0
0
[fopts]
0
1
0
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[GramStyle]
[ParaNum]
1
[tag]
Body Text
2
[fnt]
TimesNewRomanPS
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Text
0
0
[tag]
Body Single
3
[fnt]
TimesNewRomanPS
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Single
0
0
[tag]
Bullet
4
[fnt]
TimesNewRomanPS
240
0
49152
[algn]
1
1
0
288
288
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*0>
360
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Bullet
0
0
[tag]
Bullet 1
5
[fnt]
TimesNewRomanPS
240
0
49152
[algn]
1
1
288
288
288
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*5>
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Bullet 1
0
0
[tag]
Number List
6
[fnt]
TimesNewRomanPS
240
0
49152
[algn]
1
1
360
360
360
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*:>.
360
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Number List
0
0
[tag]
Subhead
7
[fnt]
TimesNewRomanPS
240
0
49155
[algn]
1
1
0
0
0
[spc]
33
273
1
72
72
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Subhead
0
0
[tag]
Title
8
[fnt]
Arial MT
360
0
16385
[algn]
4
1
0
0
0
[spc]
33
446
1
144
72
1
100
[brk]
16
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Title
0
0
[tag]
Outline1
9
[fnt]
Arial MT
240
0
16384
[algn]
1
1
0
0
0
[spc]
33
288
1
72
0
1
100
[brk]
16
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
1
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Outline1
0
0
[tag]
Outline2
11
[fnt]
TimesNewRomanPS
200
0
49152
[algn]
1
1
144
0
0
[spc]
33
244
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
2
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Outline2
0
0
[tag]
Outline3
12
[fnt]
TimesNewRomanPS
200
0
49152
[algn]
1
1
288
0
0
[spc]
33
244
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
3
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Outline3
0
0
[tag]
Outline4
0
[fnt]
TimesNewRomanPS
200
0
49152
[algn]
1
1
432
0
0
[spc]
33
244
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
4
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Outline4
0
0
[tag]
Outline5
0
[fnt]
TimesNewRomanPS
200
0
49152
[algn]
1
1
576
0
0
[spc]
33
244
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
5
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Outline5
0
0
[tag]
Outline6
0
[fnt]
TimesNewRomanPS
200
0
49152
[algn]
1
1
720
0
0
[spc]
33
244
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
6
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Outline6
0
0
[lay]
Standard
513
[rght]
15840
12240
1
1440
1440
1
1440
1440
0
1
0
1
0
2
1
1440
10800
12
1
720
1
1440
1
2160
1
2880
1
3600
1
4320
1
5040
1
5760
1
6480
1
7200
1
7920
1
8640
[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
792
1440
0
1
0
1
1
0
1
1440
10800
1
3
9360
[txt]
>
[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
792
1
14472
1440
0
1
0
1
1
0
1
1440
10800
2
2
4680
3
9360
[txt]
>
[elay]
[l1]
0
[pg]
1
38 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]
@Outline1@<:#283,9360>' Presents the Doc Info box automatically before a save or save as
@Outline2@<:#240,9360>' DEZ053192
@Outline2@<:#240,9360>'declares and defines
@Outline2@<:#240,9360>'This stuff defines the Title Bar message (TitleBarMSG) stuff and is not necessary
@Outline3@<:#240,9360>define GetActiveWindow() DllCall("user,GetActiveWindow,H")
@Outline3@<:#240,9360>define SetWindowText() DllCall("user,SetWindowText,IHC", %1, %2)
@Outline3@<:#240,9360>define TitleBarMsg() SetWindowText(GetActiveWindow(), %1)
@Outline3@<:#240,9360>define GetWindowText() DllCall("user,GetWindowText,HHFH", %1, %2, %3)
@Outline3@<:#240,9360>'define GetTitleBarText() GetWindowText(GetActiveWindow(), %1, 80)
@Outline1@<:#283,9360>function docsaver()
@Outline2@<:#240,9360>if IsNewWave() =1
@Outline2@<:#240,9360> message("Macro not available while running under HP NewWave")
@Outline2@<:#240,9360> exit function
@Outline2@<:#240,9360>endif
@Outline2@StatusBarMsg("Changing function of Save and Save As on the File Menu")
@Outline2@<:#240,9360>pause(008)
@Outline2@<:#240,9360>menu="&File"
@Outline2@<:#240,9360>item1="&Save ^S"
@Outline2@<:#240,9360>item2="Save &As..."
@Outline2@<:#240,9360>mac=getrunningmacrofile$()
@Outline2@<:#240,9360>changemenuaction(1, menu, item1, "{mac}!newsave", "Modify Doc Info then Save.")
@Outline2@<:#240,9360>changemenuaction(1, menu, item2, "{mac}!newsaveas", "Modify Doc Info then Save As.")
@Outline2@StatusBarMsg("")
@Outline2@<:#240,9360>end function
@Outline1@<:#283,9360>function newsave()
@Outline2@<:#240,9360>keepgoing=docinfo
@Outline2@<:#240,9360>if keepgoing<<<;>1
@Outline2@<:#240,9360> exit function
@Outline2@<:#240,9360>endif
@Outline2@<:#240,9360>save
@Outline2@<:#240,9360>END FUNCTION
@Outline1@<:#283,9360>function newsaveas()
@Outline2@<:#240,9360>keepgoing=docinfo
@Outline2@<:#240,9360>if keepgoing<<<;>1
@Outline2@<:#240,9360> exit function
@Outline2@<:#240,9360>endif
@Outline2@<:#240,9360>saveas
@Outline2@<:#240,9360>END FUNCTION
>
[Embedded]
00007985
>
[macsum] 3
docsaver 0 0 5 9
newsave 422 0 2 24
newsaveas 512 0 2 31
[macse]
14 docsaver
0 1317
13
5 1
18 0
11 00000119
0 3 "Macro not available while running under HP NewWave"
6 0
15
9
0 789 "Changing function of Save and Save As on the File Menu"
0 274 008
7 "&File"
8 1
7 "&Save ^S"
8 2
7 "Save &As..."
8 3
0 802
13
8 4
0 523 1 "{1}" "{2}" "{4}!newsave" "Modify Doc Info then Save."
0 523 1 "{1}" "{3}" "{4}!newsaveas" "Modify Doc Info then Save As."
0 789 ""
6 0
15
9
14 newsave
24 109
13
8 1
6 1
5 1
18 1
11 00000070
6 0
15
9
24 103
6 0
15
9
14 newsaveas
24 109
13
8 1
6 1
5 1
18 1
11 00000072
6 0
15
9
24 104
6 0
15
9
00008010
