Liren Large Software Subsidy 18

home *** CD-ROM | disk | FTP | other *** search

/ Liren Large Software Subsidy 18 / 18.iso / w / w380 / 3.ddi / STYMACR2.CMZ / FRAMCUST.SMM < prev next >

Wrap

INI File | 1992-06-01 | 12.7 KB | 1,261 lines

[ver] 4 [sty] _macro.sty [files] [charset] 82 ANSI (Windows, IBM CP 1252) [revisions] 0 [prn] PostScript Printer [port] LPT1: [lang] 1 [desc] Automates "click here to insert" frames in _NEWSLT?.STY noautorun 707454338 11 702918120 192 2 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 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 200 0 49152 [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] Header 9 [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 . , $ Header 0 0 [tag] Footer 11 [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 . , $ Footer 0 0 [tag] Outline1 12 [fnt] Arial MT 240 0 16384 [algn] 1 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 1 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Outline1 0 0 [tag] Outline2 0 [fnt] TimesNewRomanPS 200 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 2 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Outline2 0 0 [tag] Outline3 0 [fnt] TimesNewRomanPS 200 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 3 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Outline3 0 0 [tag] Outline4 0 [fnt] TimesNewRomanPS 200 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 4 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Outline4 0 0 [tag] Bullet 0 [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 [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 2 2 4680 3 9360 [txt] @Header@ > [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] @Footer@ > [elay] [l1] 0 [pg] 2 51 0 11 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 89 0 10 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>'declares and defines @Outline2@<:R1,10,1,3510,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,1,9360,1,10080,><:#240,9360>Define EnableWindow() DllCall("User,EnableWindow,AHH",%1,%2) @Outline1@<:R><:#283,9360>function custframe(framenum) @Outline2@<:#240,9360>if framenum="" @Outline2@<:#240,9360> Message("This function is for automated frames. It is not intended to be run by itself.") @Outline2@<:#240,9360> exit function @Outline2@<:#240,9360>endif @Outline2@<:#240,9360>rmac=getrunningmacrofile$() @Outline2@<:#240,9360>SetDlgCallBack(0,"{rmac}!PreBuild") @Outline2@<:#240,9360>box=dialogbox(".", "framer") @Outline2@<:#240,9360>if box=0 or box=2 @Outline2@<:#240,9360> exit function @Outline2@<:#240,9360>endif @Outline2@<:#240,9360>cover="as_frame{framenum}cover" @Outline2@<:#240,9360>rightone="as_frame{framenum}" @Outline2@<:#240,9360>result=MarkBookMark(cover, 4002 ) @Outline2@<:#240,9360>if result =1 @Outline2@<:#240,9360> Type( "<[>Del]" ) @Outline2@<:#240,9360>endif @Outline2@<:#240,9360>MarkBookMark(rightone, 4002 ) ' go to the frame @Outline2@<:#240,9360>MarkBookMark(rightone, 4004) ' delete the bookmark @Outline2@<:#240,9360>if box=3 @Outline2@<:#240,9360> 'kill the frame @Outline2@<:#240,9360> type ( "<[>Del]" ) @Outline2@<:#240,9360> exit function @Outline2@<:#240,9360>endif @Outline2@<:#240,9360>if getdialogfield$(20) = true @Outline3@<:#240,9360> ImportPicture @Outline2@<:#240,9360>elseif getdialogfield$(21) = true @Outline3@<:#240,9360> Tables @Outline2@<:#240,9360>elseif getdialogfield$(22) = true @Outline3@<:#240,9360> ChartingMode @Outline2@<:#240,9360>elseif getdialogfield$(23) = true @Outline3@<:#240,9360> DrawingMode @Outline2@<:#240,9360>elseif getdialogfield$(24) = true @Outline3@<:#240,9360> Equations @Outline2@<:#240,9360>elseif getdialogfield$(25) = true @Outline3@<:#240,9360> type("<[>enter]") @Outline2@<:#240,9360>elseif getdialogfield$(26) = true @Outline3@<:#240,9360> 'do nothing @Outline2@<:#240,9360>endif @Outline2@<:#240,9360>end function @Outline1@<:#283,9360>Function PreBuild(Hdlg,id,dummy) @Outline2@<:#240,9360>'gray appropriate buttons @Outline3@<:#240,9360>' case "Picture" @Outline4@<:#240,9360>'determine if feature is available here @Outline4@<:#240,9360>buttonid=20 @Outline4@<:#240,9360>EnableWindow(GetDlgItem(Hdlg, buttonid), 1) @Outline3@<:#240,9360>' case "Table" @Outline4@<:#240,9360>'determine if feature is available here @Outline4@<:#240,9360>buttonid=21 @Outline4@<:#240,9360>EnableWindow(GetDlgItem(Hdlg, buttonid), 1) @Outline3@<:#240,9360>' case "Chart" @Outline4@<:#240,9360>'determine if feature is available here @Outline4@<:#240,9360>buttonid=22 @Outline4@<:#240,9360>EnableWindow(GetDlgItem(Hdlg, buttonid), 1) @Outline3@<:#240,9360>' case "Draw" @Outline4@<:#240,9360>'determine if feature is available here @Outline4@<:#240,9360>buttonid=23 @Outline4@<:#240,9360>EnableWindow(GetDlgItem(Hdlg, buttonid), 1) @Outline3@<:#240,9360>' case "Equation" @Outline4@<:#240,9360>'determine if feature is available here @Outline4@<:#240,9360>buttonid=24 @Outline4@<:#240,9360>EnableWindow(GetDlgItem(Hdlg, buttonid), 1) @Outline3@<:#240,9360>' case "Text" @Outline4@<:#240,9360>'determine if feature is available here @Outline4@<:#240,9360>buttonid=25 @Outline4@<:#240,9360>EnableWindow(GetDlgItem(Hdlg, buttonid), 1) @Outline3@<:#240,9360>' case "Nothing" @Outline4@<:#240,9360>'determine if feature is available here @Outline4@<:#240,9360>buttonid=25 @Outline4@<:#240,9360>EnableWindow(GetDlgItem(Hdlg, buttonid), 1) @Outline2@<:#240,9360>filledit(20, true) @Outline2@<:#240,9360>END FUNCTION @Outline1@<:#284,9360>DIALOG framer @Outline2@<:#240,9360>-2134376448 11 78 55 126 101 "" "" "Frame Options" @Outline2@<:#240,9360>FONT 8 "Helv" @Outline2@<:#240,9360>6 14 39 12 20 1342242825 "button" "&Picture" 0 @Outline2@<:#240,9360>6 26 33 12 21 1342242825 "button" "Ta&ble" 0 @Outline2@<:#240,9360>6 38 33 12 22 1342242825 "button" "&Chart" 0 @Outline2@<:#240,9360>6 50 45 12 23 1342242825 "button" "&Drawing" 0 @Outline2@<:#240,9360>6 62 45 12 24 1342242825 "button" "&Equation" 0 @Outline2@<:#240,9360>6 74 30 12 25 1342242825 "button" "&Text" 0 @Outline2@<:#240,9360>6 86 63 12 26 1342242825 "button" "&Nothing" 0 @Outline2@<:#240,9360>81 5 39 15 1 1342373889 "button" "OK" 0 @Outline2@<:#240,9360>81 23 39 15 2 1342373888 "button" "Cancel" 0 @Outline2@<:#240,9360>69 41 51 15 3 1342373888 "button" "De&lete Frame" 0 @Outline2@<:#240,9360>6 5 30 9 1000 1342177280 "static" "Insert:" 0 @Outline2@<:#240,9360>END DIALOG > [Embedded] 00010831 > [macsum] 3 custframe 0 1 6 2 PreBuild 885 3 2 42 framer 1411 0 -1 74 [macse] 14 custframe 6 0 7 "" 18 0 11 00000143 0 3 "This function is for automated frames. It is not intended to be run by itself." 6 1 15 9 0 802 13 8 2 0 41 0 "{2}!PreBuild" 0 26 "." "framer" 13 8 3 6 3 5 0 18 0 6 3 5 2 18 0 1 2 11 00000272 6 1 15 9 7 "as_frame{0}cover" 8 4 7 "as_frame{0}" 8 5 2 466 1 "{4}" 4002 13 8 6 6 6 5 1 18 0 11 00000391 0 6 "[46]" 2 466 1 "{5}" 4002 2 466 1 "{5}" 4004 6 3 5 3 18 0 11 00000484 0 6 "[46]" 6 1 15 9 0 27 20 13 5 1 18 0 11 00000542 24 141 10 00000873 0 27 21 13 5 1 18 0 11 00000600 24 457 10 00000873 0 27 22 13 5 1 18 0 11 00000658 24 412 10 00000873 0 27 23 13 5 1 18 0 11 00000716 24 411 10 00000873 0 27 24 13 5 1 18 0 11 00000774 24 423 10 00000873 0 27 25 13 5 1 18 0 11 00000836 0 6 "[13]" 10 00000873 0 27 26 13 5 1 18 0 11 00000873 6 1 15 9 14 PreBuild 5 20 8 4 0 44 "{0}" "{4}" 13 0 284 "User,EnableWindow,AHH" [X] 1 5 21 8 4 0 44 "{0}" "{4}" 13 0 284 "User,EnableWindow,AHH" [X] 1 5 22 8 4 0 44 "{0}" "{4}" 13 0 284 "User,EnableWindow,AHH" [X] 1 5 23 8 4 0 44 "{0}" "{4}" 13 0 284 "User,EnableWindow,AHH" [X] 1 5 24 8 4 0 44 "{0}" "{4}" 13 0 284 "User,EnableWindow,AHH" [X] 1 5 25 8 4 0 44 "{0}" "{4}" 13 0 284 "User,EnableWindow,AHH" [X] 1 5 25 8 4 0 44 "{0}" "{4}" 13 0 284 "User,EnableWindow,AHH" [X] 1 0 31 20 1 6 3 15 9 DIALOG framer -2134376448 11 78 55 126 101 "" "" "Frame Options" FONT 8 "Helv" 6 14 39 12 20 1342242825 "button" "&Picture" 0 6 26 33 12 21 1342242825 "button" "Ta&ble" 0 6 38 33 12 22 1342242825 "button" "&Chart" 0 6 50 45 12 23 1342242825 "button" "&Drawing" 0 6 62 45 12 24 1342242825 "button" "&Equation" 0 6 74 30 12 25 1342242825 "button" "&Text" 0 6 86 63 12 26 1342242825 "button" "&Nothing" 0 81 5 39 15 1 1342373889 "button" "OK" 0 81 23 39 15 2 1342373888 "button" "Cancel" 0 69 41 51 15 3 1342373888 "button" "De&lete Frame" 0 6 5 30 9 1000 1342177280 "static" "Insert:" 0 00010856